How to resolve compound SYSPROG variables
An example of using a SYSPROG utility EXEC is shown in the following figure.
PROC 1 REPLIES
IMFEXEC SELECT EXEC(RREP) WAIT(YES) <=== CALL REPLIES EXEC
IMFEXEC VGET (RREPROL1) LOCAL <=== NUMBER OF OUTPUT LINES
RETURNED IN LOCAL POOL
SET &N = 1
IMFEXEC MSG 'LIST OF OUTSTANDING REPLIES'
DO WHILE (&N LE &RREPROL1)
IMFEXEC VGET (RREPI&N RREP1&N) LOCAL <=== LOCAL VARIABLE
SET &REPID = &&RREPI&N <=== RESOLVED COMPOUND VARIABLE
SET &MSG = &&RREP1&N <=== FOR PROCESSING
WITHIN EXEC
IMFEXEC MSG 'MESSAGE = &MSG, REPLYID = &REPID'
SET &N = &N +1
END
IMFEXEC SELECT EXEC(RREP) WAIT(YES) <=== CALL REPLIES EXEC
IMFEXEC VGET (RREPROL1) LOCAL <=== NUMBER OF OUTPUT LINES
RETURNED IN LOCAL POOL
SET &N = 1
IMFEXEC MSG 'LIST OF OUTSTANDING REPLIES'
DO WHILE (&N LE &RREPROL1)
IMFEXEC VGET (RREPI&N RREP1&N) LOCAL <=== LOCAL VARIABLE
SET &REPID = &&RREPI&N <=== RESOLVED COMPOUND VARIABLE
SET &MSG = &&RREP1&N <=== FOR PROCESSING
WITHIN EXEC
IMFEXEC MSG 'MESSAGE = &MSG, REPLYID = &REPID'
SET &N = &N +1
END
This section contains the following topics:
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*