..
Hello .
Im not well versed in Rexx -.
I need some assistance in using isredit to change a string of characters to
another value -.
Can't seem to find a decent example -
It appears all the examples change a string of characters to another string of
characters -.
I would like to change a string of characters to the value contained in a
variable -
.
>From My mainline Rexx code I issue a call to a local sub routine:
ADDRESS ISPEXEC
"VPUT (MODLDSN MODLMBR kfile) SHARED"
CALL SUBMIT_ROUTINE
.
.
.
/* */
SUBMIT_ROUTINE:
/* */
ADDRESS ISPEXEC
"VGET (MODLDSN MODLMBR kfile) SHARED"
"VGET (kuser kdir kenv kregn kprof) SHARED"
.
.
/* */
TARGFILE = kuser||".OUTPUT.txt"
Say 'TLOGMDFY Target File ......' TARGFILE
/* */
ADDRESS ISPEXEC
"EDIT DATASET('" || MODLDSN || "(" || MODLMBR || ")')"
ADDRESS ISPEXEC
"isredit CHANGE '@@@TDSN' 'TSOUSER.OUTPUT.txt'"
ADDRESS ISPEXEC
"isredit CHANGE '@@@TDSN' &TARGFILE"
Say 'After Edit'
Say 'TLOGMDFY RC = ' RC
Say '**********************************'
.
.
I seem to always get a RC =20 ???
I posted two isredit statements from two different scenarios -
The first isredit statement uses two Harded Code STrings -
.
The second isredit statement uses a static string and a Variable &TARGFILE
TARGFILE Variable is what I really want to use as it contains a variable value =
.
I have also tried to use:
ADDRESS ISPEXEC
"isredit CHANGE '@@@TDSN' TARGFILE"
.
In every Case the Return Code is 20 -
.
Can Anyone assist ?Provide an example -.paul.......
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
