On Wed, 26 Aug 2020 07:40:47 -0500, Roger Lowe wrote:
>>
>>Is there a way to capture a MODIFY command ?
>>
>You could try this bit of REXX and then invoke it via IKJEFT01 batch jcl -
>
Does that require TSO or would IRXJCL (or even UNIX mutatis mutandis) sufffice?
> /*REXX*/
> blah = ISFCALLS('ON')
> ISFCONS = "MY@CONS"
> ISFDELAY = "1"
> PARSE ARG input
> cmd.0=1
> cmd.1=input
> ADDRESS SDSF ISFSLASH "(cmd.)"
> IF (ISFULOG.0 > 0) THEN
> DO i=1 TO ISFULOG.0
> SAY ISFULOG.i
> END
> EXIT 0
>
>and then the jcl to use -
>
> //S1 EXEC PGM=IKJEFT01
>//SYSEXEC DD DISP=SHR,DSN=my.rexx.lib
>//SYSTSPRT DD SYSOUT=* <===== change this to point
>to a dataset
>//SYSTSIN DD *
> %SDSFCMD D T
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
