|
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:
<![CDATA[
//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:
<![CDATA[
//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
