Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to put a translate variable in the job from a dsn

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal

PostPosted: Wed Nov 03, 2010 2:19 pm    Post subject: How to put a translate variable in the job from a dsn
Reply with quote

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'
.
//*
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Wed Nov 03, 2010 5:03 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Can I traverse a STEM variable? chong.zhou CLIST & REXX 5 Wed May 31, 2017 3:54 pm
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Writing on to GSAM variable length rohanthengal JCL & VSAM 6 Fri Mar 03, 2017 7:46 pm
No new posts Count Trailing Spaces in variable str... Virendra Shambharkar SYNCSORT 10 Thu Feb 02, 2017 12:23 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us