View previous topic :: View next topic |
Author |
Message |
dbalaji Beginner
Joined: 03 Dec 2002 Posts: 4 Topics: 2 Location: chennai
|
Posted: Tue Dec 31, 2002 3:01 am Post subject: execute cobol online from rexx |
|
|
hi,
I have a cobol load module which does not use any files, just a parm value will be passed from JCL. In my rexx i want to pass the parm
to this cobol module, but instead of executing the cobol pgm in batch, i want to execute the cobol module online. how can it do it.
Iam new to REXX.
Please help
thanks,
balaji _________________ "EVEN SKY IS NOT THE LIMIT" |
|
Back to top |
|
|
Premkumar Moderator
Joined: 28 Nov 2002 Posts: 77 Topics: 7 Location: Chennai, India
|
Posted: Tue Dec 31, 2002 4:19 am Post subject: |
|
|
Code: |
Address TSO "Call 'YOUR.LOAD.LIB(COBPGM)' 'PARM'"
|
|
|
Back to top |
|
|
dbalaji Beginner
Joined: 03 Dec 2002 Posts: 4 Topics: 2 Location: chennai
|
Posted: Thu Jan 02, 2003 1:51 am Post subject: |
|
|
Hi,
Thanks for the information.
can u Please tell me how can i compile and link edit a cobol program online in rexx.
Do i have to use CALL IGYCRCTL and HEWL or is there any simpler way
of doing it.?
thanks,
balaji _________________ "EVEN SKY IS NOT THE LIMIT" |
|
Back to top |
|
|
Premkumar Moderator
Joined: 28 Nov 2002 Posts: 77 Topics: 7 Location: Chennai, India
|
|
Back to top |
|
|
Mervyn Moderator
Joined: 02 Dec 2002 Posts: 415 Topics: 6 Location: Hove, England
|
Posted: Thu Jan 02, 2003 5:49 pm Post subject: |
|
|
Balaji,
ISPF Option 4 is usually set up to allow foreground compilation and linking of Cobol and other languages. You shouldn't need to change too many parameters.
Cheers,
Merv |
|
Back to top |
|
|
Dibakar Advanced
Joined: 02 Dec 2002 Posts: 700 Topics: 63 Location: USA
|
Posted: Fri Jun 20, 2003 4:20 am Post subject: |
|
|
Hi,
I have a cobol program which just have few display and accept statements, no linkage parameters.
I compiled and linked it using regular batch cobol jcl.
I executed it using - TSO CALL 'loadlibdsn(pgm)'
The display came fine but abended at accept statement with following message-
Quote: | IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was unsuccessful. |
Do I have to do something regarding SYSIN (or something else)?
Regards,
Dibakar. |
|
Back to top |
|
|
Dibakar Advanced
Joined: 02 Dec 2002 Posts: 700 Topics: 63 Location: USA
|
Posted: Fri Jun 20, 2003 4:34 am Post subject: |
|
|
I gave "TSO ALLOC FILE(SYSIN) DATASET(*)" and its working fine.
Dibakar. |
|
Back to top |
|
|
|
|