View previous topic :: View next topic
|
Author |
Message |
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
I know you can bring in variables by using PARSE ARG at the beginning of REXX.
Code: |
/* REXX */
PARSE ARG FIELD1 FIELD2 FIELD3 FIELD4 FIELD5
IF FIELD1 = 'XXX' THEN DO NOP
exit
|
When running a REXX in batch and passing information to a PARSE ARG statement, is there any method of continuation available to pick up all the symbolic values if their contents won't fix on a 72 position JCL statement?
Code: |
//REXX EXEC PGM=IKJEFT01,DYNAMNBR=10
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=HLQ.REXX.LIB,DISP=SHR
//SYSPROC DD DSN=HLQ.REXX.LIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
PROFILE NOPREFIX
REXXPGM FIELD1VALUE FIELD2VALUE FIELD3VALUE etc.
|
|
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
After several tests, I determined you simply put a - (dash) at the end of the first JCL statement and it does continue.
Stored as TESTALL
Code: |
/********************** REXX *************************/
PARSE ARG FIELD1 FIELD2 FIELD3 FIELD4 FIELD5
SAY FIELD1
SAY FIELD2
SAY FIELD3
SAY FIELD4
SAY FIELD5
EXIT
|
Code: |
//REXX EXEC PGM=IKJEFT01,DYNAMNBR=10
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=HLQ.REXX.LIB,DISP=SHR
//SYSPROC DD DSN=HLQ.REXX.LIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
PROFILE NOPREFIX
TESTALL APPLE_ORCHARD PEAR_ORCHARD KIWI_ORCHARD ORANGE_GROVE -
PEACH_ORCHARD
/*
|
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
|