Here's a sample job to test new symbol features:
//TECH008C JOB (ACCOUNT),'zOS 2.1-Test symbols',CLASS=0,MSGCLASS=X,
// NOTIFY=&SYSUID,REGION=256M,LINES=999999
//OUTDEFLT OUTPUT DEFAULT=Y,JESDS=ALL,CLASS=*
//*********************************************************************
// EXPORT SYMLIST=*
// SET TSTPROD=PROD,DS=MYDATA.CLUSTER,NUMCYLS=1,RECSZ=80
//*********************************************************************
//DEFCL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYMBLOG DD SYSOUT=*
//SYSIN DD *,SYMBOLS=(JCLONLY,SYMBLOG)
DEF CL(NAME(NTS&TSTPROD..&DS) VOL(*) CYLINDERS(&NUMCYLS,1) -
RECSZ(&RECSZ,&RECSZ) KEYS(4,0))
In SDSF, here are the DDNAMEs broken out:
PREFIX=** DEST=(ALL) OWNER=* SYSNAME=
ACTION=//,=,+,C,O,P,Q,S,SB,SE,SJ,V,X,XC,XD,XDC,XF,XFC,XS,XSC
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Page
JESMSGLG JES2 2 TECH008 X LOCAL 19
JESJCL JES2CI01 3 TECH008 X LOCAL 17
JESYSMSG JES2CI01 4 TECH008 X LOCAL 37
SYSPRINT DEFCL 102 TECH008 X LOCAL 18
SYMBLOG DEFCL 103 TECH008 X LOCAL 8
Here is the SYSPRINT DD statement:
IDCAMS SYSTEM SERVICES TIME: 08:06:15
DEF CL(NAME(NTSPROD.MYDATA.CLUSTER) VOL(*) CYLINDERS(1,1) - 00120000
RECSZ(80,80) KEYS(4,0)) 00130000
IGD17070I DATA SET NTSPROD.MYDATA.CLUSTER
ALLOCATED SUCCESSFULLY WITH 1 STRIPE(S).
IGD17172I DATA SET NTSPROD.MYDATA.CLUSTER
IS ELIGIBLE FOR EXTENDED ADDRESSABILITY
IDC0508I DATA ALLOCATION STATUS FOR VOLUME SMTS02 IS 0
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME SMTS02 IS 0
IDC0512I NAME GENERATED-(D) NTSPROD.MYDATA.DATA
IDC0512I NAME GENERATED-(I) NTSPROD.MYDATA.INDEX
IDC0181I STORAGECLASS USED IS SCBASE
IDC0181I MANAGEMENTCLASS USED IS MCSTDNX
IDC0181I DATACLASS USED IS DCSTD
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
Here is the optional symbol log (SYMBLOG):
SYSIN : RECORD 1 BEFORE SUBSTITUTION
SYSIN : DEF CL(NAME(NTS&TSTPROD..&DS) VOL(*) CYLINDERS(&NUMCYLS,1) -
SYSIN : RECORD 1 AFTER SUBSTITUTION
SYSIN : DEF CL(NAME(NTSPROD.MYDATA.CLUSTER) VOL(*) CYLINDERS(1,1) -
SYSIN : RECORD 2 BEFORE SUBSTITUTION
SYSIN : RECSZ(&RECSZ,&RECSZ) KEYS(4,0))
SYSIN : RECORD 2 AFTER SUBSTITUTION
SYSIN : RECSZ(80,80) KEYS(4,0))
On Sat, 12 Oct 2013 22:44:24 -0500, Shmuel Metz (Seymour J.)
<[email protected]> wrote:
>In <[email protected]>, on
>10/11/2013
> at 09:59 AM, Paul Gilmartin <[email protected]> said:
>
>>Isn't symbol substitution performed by the
>>reader/converter/interpreter (whatever), but well before execution
>>tme?
>
>While the Converter does substitution in the JCL, it does not do the
>substitution in in-stream datasets. The old Reader does not exist in
>MVS, only the C/I, although there is a reader procedure that invokes
>IEBGENER.
>
>>(And is substitution performed in instream data sets reported in
>>Informative messages in the job log?
>
>Optional.
>
>>And how do those data sets appear in SDSF?)
>
>Peter?
>
>--
> Shmuel (Seymour J.) Metz, SysProg and JOAT
> ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
>We don't care. We don't have to care, we're Congress.
>(S877: The Shut up and Eat Your spam act of 2003)
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
