I've been reading the edit macro documentation but I'm still really confused about where I should write my macro.
My REXX exec is in A339945.ISPF.ISPPROF(REXX2)
/* REXX */
mylib = 'SYE.ISPF.ISPCLIB'
p = 'PANEL2'
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID('"mylib"')"
ADDRESS ISPEXEC "DISPLAY PANEL("p")"
JYER = JYER + 1
ADDRESS ISPEXEC "DISPLAY PANEL("p")"
/*ALTLIB ACTIVATE APPLICATION(EXEC) DATASET('A339945.ISPF.ISPPROF(MACRO)')*/
/*ADDRESS ISPEXEC "EDIT DATASET('A339945.ISPF.ISPPROF(JOB)') MACRO(MACRO)"*/
mylib = 'SYE.ISPF.ISPCLIB'
p = 'PANEL2'
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID('"mylib"')"
ADDRESS ISPEXEC "DISPLAY PANEL("p")"
JYER = JYER + 1
ADDRESS ISPEXEC "DISPLAY PANEL("p")"
/*ALTLIB ACTIVATE APPLICATION(EXEC) DATASET('A339945.ISPF.ISPPROF(MACRO)')*/
/*ADDRESS ISPEXEC "EDIT DATASET('A339945.ISPF.ISPPROF(JOB)') MACRO(MACRO)"*/
My Panel is in SYE.ISPF.ISPCLIB(PANEL2)
)ATTR DEFAULT(%+_)
)BODY EXPAND([[)
%COMMAND ===>_ZCMD
+ +
+ YEAR = _JYER + YEAR PLUS 1
+
+ +
)INIT
)PROC
)END
)BODY EXPAND([[)
%COMMAND ===>_ZCMD
+ +
+ YEAR = _JYER + YEAR PLUS 1
+
+ +
)INIT
)PROC
)END
I would simply like to know where to put my REXX macro, lets say X.Y.Z(MACRO)
/* REXX */
address ISREDIT
MACRO(STRING)
LINE3 = 'BLUE'
LINE2 = 'RED'
LINE1 = 'ORANGE'
"F" string
if rc > 0 then exit /* not found */
"LINE_AFTER .zcsr = (line3)"
"LINE_AFTER .zcsr = (line2)"
"LINE_AFTER .zcsr = (line1)"
"SAVE"
"END"
exit
address ISREDIT
MACRO(STRING)
LINE3 = 'BLUE'
LINE2 = 'RED'
LINE1 = 'ORANGE'
"F" string
if rc > 0 then exit /* not found */
"LINE_AFTER .zcsr = (line3)"
"LINE_AFTER .zcsr = (line2)"
"LINE_AFTER .zcsr = (line1)"
"SAVE"
"END"
exit
I tried to use ALTLIB ACTIVATE APPLICATION(EXEC) DATASET('A339945.ISPF.ISPPROF(MACRO)') on a macro I put in A339945.ISPF.ISPPROF(MACRO) but this doesn't work.
I read about sysproc but I don't really know where that is either in X.Y.Z(MACRO)
Obviously the application has no use yet its just various pieces of samples I try to combine to test
I'm an intern and I just started experimenting and reading on Z/OS, TSO/ISPF, REXX
Basically my job will be to create an application that will change JCL parameters to automate JCL deployment in different environnements.
So now I'm playing around with rexx and panels and i'm trying to add a macro to change a string in a member.
Thanks in advance for any input