|
View previous topic :: View next topic
|
| Author |
Message |
vikash singh
New User
Joined: 12 May 2007
Posts: 15
Location: noida
|
|
|
|
| I want to write the value of a symbolic variable present in a JCL to a PS. Please suggest. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Can you elaborate a little on this please.
And also the reasoning behind this request.
I am cycnical, and believe that this question has a HOMEWORK feel to it. |
|
| Back to top |
|
|
vikash singh
New User
Joined: 12 May 2007
Posts: 15
Location: noida
|
|
|
|
| I have a JCL which has some symbolic paramters. This JCL calls a PROC. I need the value of the symbolic paramter in the PROC. What i want to do is to move the value of the symbolic paramter present in the JCL to a PS. This PS will be used in the PROC. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Why not just take the symbolics present in the JCL and use them in the PROC. |
|
| Back to top |
|
|
vikash singh
New User
Joined: 12 May 2007
Posts: 15
Location: noida
|
|
|
|
My problem is:
I have a date paramter which is being used in the JCL (as a symbolic variable). This JCL calls a PROC. The PROC has a COBOL module in a step. This step needs the date paramter.
How i can get the date value in COBOL step? |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Just use the symbolic parameter on the EXEC for the COBOL pgm.
| Code: |
2 //THING1 PROC
//BR14 EXEC PGM=IEFBR14,PARM='&INFO'
//DD1 DD DSN=DR.RDS.XX1,DISP=(MOD,DELETE),UNIT=SYSDA,
// SPACE=(TRK,0)
// PEND
3 //RUN1 EXEC THING1,INFO='77889900'
4 ++THING1 PROC
5 ++BR14 EXEC PGM=IEFBR14,PARM='&INFO'
IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='77889900'
6 ++DD1 DD DSN=DR.RDS.XX1,DISP=(MOD,DELETE),UNIT=SYSDA,
++ SPACE=(TRK,0)
|
Notice that the &INFO symbolic parm was replaced by the value on the EXEC statement. |
|
| Back to top |
|
|
|
|
