vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
Propose: When the file “DISCIN” has data (step1) it must appear in the variable &CCID (step2).
Is it possible make everything in the same job?
//* ______ STEP1 ________
//CHECKIN EXEC PGM=PTESTFIC
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DISCIN DD DISP=SHR,DSN=DESGR1.WORK.INPUT.CCID
//*
//* _______ STEP2 _________
//CER EXEC PGM=NDVRC1,PARM='C1BM3000',REGION=32M
//INCLUDE INCLUDE MEMBER=##STEP
//INCLUDE INCLUDE MEMBER=##LSERV
//INCLUDE INCLUDE MEMBER=##API
//INCLUDE INCLUDE MEMBER=##SIBS
//INCLUDE INCLUDE MEMBER=##DIAGS
//SYSPRINT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//C1TPDD01 DD UNIT=SYSDA,SPACE=(CYL,5),
// DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPDD02 DD UNIT=SYSDA,SPACE=(CYL,5),
// DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1MSGS1 DD SYSOUT=*
//C1MSGS2 DD SYSOUT=*
//C1PRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RUNIDS DD DUMMY
//CCID DD DUMMY
//MYSUBMIT DD SYSOUT=(1,INTRDR)
//BSTIPT01 DD *
LIST ELE '*'
FRO ENV 'CER' STA '*' SYS '*' SUB '*' TYP '*'
TO DSN 'DESGR1.TEMP.LISTA.CCID.CER'
WHERE CCID EQ '&CCID'
.
//* |
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Your first problem is that symbolic symbols are resolved in JCL -- they cannot be resolved in an input data set as you have specified.
Your second problem is that once JCL goes through the JES converter / interpreter, it cannot be changed. So you cannot read a data set and use the values read as symbolic parameters later on in the same job stream.
You need a program (or system utility) to read the file, generate the desired JCL (including the input values for //BSTIPT01 DD * ) and submit the JCL into the internal reader. |
|