I have a simple REXX that triggers a JCL(proc). My requirement is too pass 2 DSN names(pass some parameter).
I tried with one file pass first but couldn't.
I am new to REXX.
I searched this forum but couldn't find a solution.
REXX triggers JOB
/* SUBMITTING JOB THROUGH REXX */
SAY 'ENTER QUALIFIER :'
PULL TEST
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL TSTSKEL"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
ENTER DATA SET NAME
ADDRESS TSO "SUBMIT 'ALLHEAD.JCL(PROCTEST)'" /* This is my jcl */
RETURN 0
SAY 'ENTER QUALIFIER :'
PULL TEST
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL TSTSKEL"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
ENTER DATA SET NAME
ADDRESS TSO "SUBMIT 'ALLHEAD.JCL(PROCTEST)'" /* This is my jcl */
RETURN 0
JCL triggers PROC[/b]
//testTEST JOB 1,'PROC CALL ',MSGCLASS=Y,CLASS=1,REGION=7M,
// NOTIFY=&SYSUID
// JCLLIB ORDER=(TESTLIB.test)
//PROC EXEC CATALOG1,FIL1='&TEST'
//testTEST JOB 1,'PROC CALL ',MSGCLASS=Y,CLASS=1,REGION=7M,
// NOTIFY=&SYSUID
// JCLLIB ORDER=(TESTLIB.test)
//PROC EXEC CATALOG1,FIL1='&TEST'
PROC
//CATALOG1 PROC FIL1='&TEST'
//SORTSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=test.input.file,DISP=SHR
//SORTOUT DD DSN=&FIL1..file1.OUTPUT,DISP=SHR
//SYSIN DD DSN=&FIL1..CATTEST.JOBS.OUTPUT.COND,DISP=SHR
//SORTSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=test.input.file,DISP=SHR
//SORTOUT DD DSN=&FIL1..file1.OUTPUT,DISP=SHR
//SYSIN DD DSN=&FIL1..CATTEST.JOBS.OUTPUT.COND,DISP=SHR
