JCL for executing rexx in batch

//***** JOB STEP for executing REXX program that uses two arguments ******


//STEP01 EXEC PGM=IKJEFT01

//SYSEXEC DD DISP=SHR,DSN=UID.NARINDER.REXX

//SYSPRINT DD SYSOUT=*

//SYSTSPRT DD SYSOUT=*

//SYSTSIN DD *

TESTARG NARINDER SINGH

/*





/* REXX for above JCL job that uses two arguments */

ARG arg1 arg2

QUEUE arg1 arg2

"ALLOC FI(XXOUT) DA(REXX.OUTPUT) MOD REUSE"

IF RC \= 0 THEN

DO

SAY '*** ERROR - OUTPUT ALLOCATION FAILED: ABENDING'

EXIT 0

END

"EXECIO" Queued() "DISKW XXOUT (FINIS"

"FREE F(XXOUT)"

EXIT