Interesting. PARMDD use of the new symbols capability ignores the SYMBOLS
log-ddname sub-parameter entirely. However, PARMDD does NOT get the I/O error
that IEBGENER gets when the substitution results in more than 80 characters in
a "DD *" input file.
Per the documentation, all PARMDD input lines do NOT retain the trailing blanks
of the input 80-byte card images. WAD.
The SHOWPARM program in the PARMDD step is Enterprise COBOL that just DISPLAY's
the contents of the PARM and then does STOP RUN.
My JCL below is stored in an FB 80 PDS member.
Peter
JCL for symbol test with PARMDD:
//* DOC: EXPERIMENT WITH INSTREAM SYMBOL SUBSTITUTION.
//*
// EXPORT SYMLIST=*
// SET X='THIS IS A LONG SYMBOL VALUE.'
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//SYMPARM EXEC PGM=IEFBR14,
// PARM='LONG PARM VALUE TO FILL UP TO 100 CHARACTERS AND THEN A SYMBOL*
// &X'
//*
//PARMDD EXEC PGM=SHOWPARM,PARMDD=MYPARMDD
//STEPLIB DD DISP=SHR,DSN=TSOUSER.TEST.LOAD
//SYSOUT DD SYSOUT=*
//CEEMSG DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//LOGSYMS DD SYSOUT=*
//MYPARMDD DD *,SYMBOLS=(JCLONLY,LOGSYMS)
LONG PARM VALUE TO FILL UP TO 100 CHARACTERS AND THEN A SYMBOL&X
LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG SYMBOL TO SEE &X.
&X ALONE
//*
//SYMTEST EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=*
//LOGSYMS DD SYSOUT=*
//SYSUT1 DD *,SYMBOLS=(JCLONLY,LOGSYMS)
LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG SYMBOL TO SEE $X.
$X ALONE
LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG: &X
&X ALONE
//NOTUSED DD *
LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG SYMBOL TO SEE &X.
&X ALONE
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//*
SDSF DD display, showing no LOGSYMS DD output for the PARMDD step:
SDSF JOB DATA SET DISPLAY - JOB TSOUSERZ (JOB28316) LINE 1-7 (7)
COMMAND INPUT ===> SCROLL ===> CSR
PREFIX=TSOUS* DEST=(ALL) OWNER=* SYSNAME=*
NP DDNAME STEP-NAME PROC-STEP DSID C REC-CNT PAGE-CNT CC RMT NODE FORMS
DEST-NAME FCB UCS WTR-NAME FLASH
JESMSGLG JES2 2 X 22 1 8 STD
LASER **** GT15 ****
JESJCL JES2 3 X 36 1 8 STD
LASER **** GT15 ****
JESYSMSG JES2 4 X 67 1 8 STD
LASER **** GT15 ****
SYSOUT PARMDD 104 X 3 1 8 STD
LASER **** GT15 ****
SYSPRINT SYMTEST 108 X 4 1 8 STD
LASER **** GT15 ****
SYSUT2 SYMTEST 109 X 4 1 8 STD
LASER **** GT15 ****
LOGSYMS SYMTEST 110 X 16 1 8 STD
LASER **** GT15 ****
PARMDD step, SYSOUT output:
SDSF BROWSE TSOUSERZ (JOB30521) SYSOUT
Line 00000000 Col 001 132
Command ===>
Scroll ===> CSR
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3--
*********************************************************** Top of Data
************************************************************
LONG PARM VALUE TO FILL UP TO 100 CHARACTERS AND THEN A SYMBOLTHIS IS A LONG
SYMBOL VALUE.LOTS OF DATA TO FILL UP A LINE
, FOLLOWED BY A LONG SYMBOL TO SEE THIS IS A LONG SYMBOL VALUE.THIS IS A LONG
SYMBOL VALUE. ALONE
********************************************************** Bottom of Data
**********************************************************
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
