Make your own free website on Tripod.com
DocBag

Back Issue

Symbol Substitution for batch jobs

The EZACFSM1 utility can be used to substitute system symbols in JCL. Here is an example using SDSF to retrieve information about the current job: //SYM EXEC PGM=EZACFSM1 //* SYMBOL SUBSTITUTION //SYSIN DD * DA OJOB PRINT FILE MSGFILE FIND '&jobname' ++? FIND 'JESYSMSG' ++XC //SYSOUT DD UNIT=WORK,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80, // BLKSIZE=0,DSN=&&ISFIN,DISP=(,PASS) //SDSF EXEC PGM=SDSF,DYNAMNBR=32,REGION=1024K,TIME=5 //* CAPTURE THE JES2 MESSAGES //MSGFILE DD DISP=(,CATLG),DSN=new dataset ... //ISFOUT DD DUMMY //ISFIN DD DISP=(OLD,DELETE),DSN=&&ISFIN The value &jobname is replaced by the job name for the current job.

The available symbols can be displayed using the SYMDEF REXX exec which can be found on the REXX samples page.

This method could also be used to prepare a job for submission to the internal reader:

//S1 EXEC PGM=EZACFSM1 //SYSIN DD DATA,DLM=## //ALLOCDD JOB (accting),USER,TIME=(,15),.......... //S1 EXEC PGM=IEFBR14 //DD1 DD DISP=(,CATLG),UNIT=DISK,SPACE=(TRK,(5,2)), // DSN=&SYSUID..&sysname..&jobname..D&yymmdd ## //SYSOUT DD SYSOUT=(A,INTRDR),RECFM=F,BLKSIZE=80,BUFNO=1,LRECL=80 // The generated dataset name will contain the system name, job name of the submitting job and the current date. Note that &SYSUID will only be substituted when job ALLOCDD executes. See User-specific Variable in JCL for more information on &SYSUID.

EZACFSM1 is described in the publication "Communication Server: IP Configuration Guide" which is part of the TCP/IP bookshelf. System symbolics are described in the "System Initialization and Tuning Reference" for OS/390 or z/OS including how an installation might define some system symbolics of their own.

Feedback

Comments or suggestions can be sent to the author.

Last Month's Issue

Big Iron