MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Passing values from JCL to Cobol-DB2 Program
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
Nancy
Beginner


Joined: 23 May 2003
Posts: 77
Topics: 26

PostPosted: Fri Jun 02, 2006 8:14 am    Post subject: Reply with quote

No, its simply like we need to run a particular program for day Numbers starting from 01 to 99. I tried to generate the control card dynamically and could write it into DHBK.BLQSAM.PARMS file using the symbolic parameter but when this file was given as input in SYSTSIN, did not work. Could not find out the problem.
Back to top
View user's profile Send private message
dz
Beginner


Joined: 02 Apr 2006
Posts: 26
Topics: 0

PostPosted: Fri Jun 02, 2006 2:52 pm    Post subject: Reply with quote

Reading a PARM file into a program would be, probably, preferable. If you still need
to to generate PARM file thru symbolics, AND you have CA-Endevor on your system, then you could use Endevor program that generates 80-byte file based on your symbolic input. You can concatenate it into your SYSTSIN DD.

See this example with some comments:
Code:

//*************************************************************
//* C1PRMGEN PGM IS LINKLIST PGM, AND DOES NOT NEED STEPLIB.   
//* C1PRMGEN IS CA > ENDEVOR < UTILITY.                         
//* THE VERTICAL LINE(|) ALLOWS NEWLINE SPLIT.                 
//* PARMS PASSED ARE WRITTEN OUT 1 RECORD PER LINE.             
//*************************************************************
//STEPXXX EXEC PGM=C1PRMGEN,                                   
// PARM=' PARMS(&SYMBOLICS)'                                   
//SYSOUT   DD   SYSOUT=*                                       
//SYSPRINT DD   SYSOUT=*                                       
//PARMOUT  DD DSN=<YOUR>,                           
//    DISP=(,CATLG,KEEP),SPACE=(CYL,(1,1),RLSE),               
//    DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
Back to top
View user's profile Send private message
HarikrishnanR
Beginner


Joined: 17 Jun 2006
Posts: 2
Topics: 1
Location: India

PostPosted: Sat Jun 17, 2006 1:32 am    Post subject: Reply with quote

We can pass parameter sysin other than parm parameter.code is as follows
Code:

000100 //SSS021A JOB NOTIFY=&SYSUID,COND=(0,EQ)   
000200 //JOBLIB DD DSN=SSS021.HARI.LOAD,DISP=SHR   
000400 //STEP1 EXEC PGM=SADD                       
000500 //SYSIN DD DATA,DLM='EE'                   
000600 010                                         
000610 030                                         
000620 EE                                         
000621 //SYSOUT DD SYSOUT=*

_________________
With Regards,
Harikrishnan R
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group