View previous topic :: View next topic
|
Author |
Message |
sudheer_kumar
New User
Joined: 27 Dec 2005 Posts: 16
|
|
|
|
Using PARM keyword
*****************
The above method is known.
//step1 EXEC PGM=pgm1,PARM='custno'
Using Sysin
**********
//SYSIN DD DATA
123333
//*
In cobol program, ACCEPT varname FROM SYSIN.
Regards,
Sudheer |
|
Back to top |
|
|
vikasc4
New User
Joined: 11 Dec 2005 Posts: 32
|
|
|
|
Hi Sudheer,
I don't understand you want to ask or tell. |
|
Back to top |
|
|
Gautam512
Active User
Joined: 05 Oct 2005 Posts: 308 Location: Vizag / US
|
|
|
|
HI,
I think sudheer wants to explain how we can send values to the program. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
If this is accepted to be true, then should these two statements not return the same result?
1.
Code: |
//MYPROC PROC RUNDATE=030106
//*
//PS01 EXEC PGM=MYPROG,PARM='&RUNDATE'
|
2.
Code: |
//MYPROC PROC RUNDATE=030106
//*
//PS01 EXEC PGM=MYPROG
//SYSIN DD *
&RUNDATE
/*
|
I disagree with the concept that there is any more than one way - using the PARM parameter. |
|
Back to top |
|
|
martin9
Active User
Joined: 01 Mar 2006 Posts: 290 Location: Basel, Switzerland
|
|
|
|
hy sudheer_kumar,
with ACCEPT you will access a file in jcl,
SYSIN is the default.
with the PARM keyword in the EXEC-card,
you receive the data directly into the linkage section.
LINKAGE SECTION.
01 PARM.
05 PARM-length PIC S9(04) COMP. from 1 to 255 bytes possible.
05 PARM-value PIC X(?). depending what you expect.
PROCEDURE DIVISION USING PARM.
martin9 |
|
Back to top |
|
|
|