ISPF EDIT Macro Code explanation

sivatechdrive · Posted: Mon Mar 26, 2007 8:19 pm

HI all

MY dataset is 'TEST.UES.COBOL(TEST1)'.

I had to insert a new line when 'FRANK' is found, i got the below code from a website But i dont know there to give my input dataset 'TEST.UES.COBOL(TEST1)'.

Can some one please explain me the below Code & where to mention my input dataset & other needed details

/* REXX */
STRING = 'FRANK'
ADDRESS ISPEXEC 'VPUT STRING'
ADDRESS ISPEXEC "EDIT DATASET('UESR.MY.DSN') MACRO(MYMACRO)"

MYMACRO:

ADDRESS ISREDIT
ADDRESS ISPEXEC "VGET STRING"
LINE3 = 'BLUE'
LINE2 = 'RED'
LINE1 = 'ORANGE'
"F" STRING
IF RC > 0 THEN EXIT
"LINE_AFTER .ZCSR = (LINE3)"
"LINE_AFTER .ZCSR = (LINE2)"
"LINE_AFTER .ZCSR = (LINE1)"
"END"
EXIT

William Thompson · Posted: Mon Mar 26, 2007 8:47 pm

I'd think that the dataset you want to edit goes right after the "EDIT DATASET".

superk · Posted: Mon Mar 26, 2007 9:30 pm

... and make sure that the code for the macro MYMACRO resides in a valid PDS allocated in your TSO session to the SYSPROC DD.