View previous topic :: View next topic
|
Author |
Message |
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
Hi all,
I need to pass a set of values from JCL to cobol.
ie in my JCL i will pass the values using SYSIN Parameter.
//SYSIN DD *
0459
0763
1020
/*
Now my cobol programs needs to read these 3 values and needs to do processing.
The number of parameters varies each time. how can we do this ? Can you explain me with an example.
Any suggestions. Or by using files can we improve the performance.
Thanks,
Diwakar .D |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Diwakar,
just treat it as any other file. that is all it is. code a SELECT and FD statements, OPEN/READ/CLOSE. The reference name in the SELECT statement is SYSIN. |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Or, if you want to use ACCEPT, code an EOF rec in the input stream. You can use "END" or any other char(s) that you're sure won't appear as valid IP. Then check for it after every ACCEPT to stop the loop.
In this case you you don't need OPEN/CLOSE.
There are bennies/ouches that come w/each. It's your choice. |
|
Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
Hi Jack,
Could you please give me an example for the first scenario. How accept parameter reads multiple parameters from JCL.
Thanks,
Diwakar.D
---------------------------------------------
Nobody is perfect. I am Nobody |
|
Back to top |
|
|
amalraj_ece
New User
Joined: 16 Jul 2006 Posts: 21 Location: delhi
|
|
|
|
use ACCEPT V1,V2,V3 in procedure division.
Where v1,V2&V3-are variables. |
|
Back to top |
|
|
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
Hi,
In the define 3 variables in Working storage section as below.
01 ws-v1 pic 9(4).
01 ws-v2 pic 9(4).
01 ws-v3 pic 9(4).
Code the below in the procedure division.
Accept ws-v1,ws-v2,ws-v3.
Thanks,
Sridevi |
|
Back to top |
|
|
|