jerryte
Active User
Joined: 29 Oct 2010 Posts: 202 Location: Toronto, ON, Canada
|
|
|
|
The below DFSORT jcl can be used to dynamically generate a DSN RUN command to run an application program for db2. This makes it easy to code the DB2 subsystem name as a JCL symbolic and then run a program in the subsystem.
Code: |
//*
// SET DB2SYS='????'
//*
//* THIS WILL GENERATE THE DSN RUN PARM USING SYMBOLICS
//* PASSED IN AS PARMS.
//* JP1=DB2 SUBSYSTEM, JP2=PROGRAM, JP3=PLAN
//*
//SORT01 EXEC PGM=SORT,
// PARM='JP1"&DB2SYS",JP2"??",JP3"??"'
//SYSOUT DD SYSOUT=*
//*SYMNOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=OUT,REMOVECC,
HEADER1=(' DSN SYSTEM(',JP1,')',/,
' RUN PROGRAM(',JP2,') PLAN(',JP3,')')
//SORTIN DD *
END
//SORTOUT DD DSN=&&DSNRUN,
// DISP=(NEW,PASS),SPACE=(TRK,(1,1))
|
If the program requires a parm then it is easy to add another symbolic JP4 to the parm and modify the sort control statement. |
|