|
View previous topic :: View next topic
|
| Author |
Message |
boyti ko
New User
Joined: 03 Nov 2014
Posts: 78
Location: Malaysia
|
|
|
|
Hi All,
I have this simple running rexx program that will call a cobol program.
The call command is working perfectly. But when I tried to concatenate loadlib for the cobol program it fails. I tried various methods i have found in google but still, I can't make it to work.
| Code: |
/** REXX **/
SAVEMSGSTATUS = MSG('OFF')
"FREE F(SYSPRINT)"
"FREE F(OUTDD1)"
"FREE F(LOADLIB)"
"DELETE '"DATASET.BOYTI.LREC80"' "
"ALLOC F(SYSPRINT) DUMMY"
"ALLOC FILE(OUTDD1) NEW CATALOG REUSE DS('"DATASET.BOYTI.LREC80"')
TRACK SPACE(1,1) RELEASE LRECL(80) RECFM(F,B)
BLKSIZE(27920)"
"CALL 'DATASET.BOYTI.LOADLIB(CBLTES18)'"
"FREE F(SYSPRINT)"
"FREE F(OUTDD1)"
"FREE F(LOADLIB)" |
The reason I'm trying to append another loadlib is because I will replace the cobol program with another program that will call a subprogram to the other loadlib. I just want to make sure that I can make it to work using the simple program
I have tried using these instead of the CALL command
| Code: |
"ISPEXEC LIBDEF ISPPLIB DATASET ID('DATASET.BOYTI.LOADLIB',
'DATASET.BOYTI.LOADLIB.UAT')"
"ISPEXEC SELECT PGM(CBLTES18)" |
but it's producing an abend
| Code: |
Invalid PGM name
Link to 'CBLTES18' failed, abend code = x'00000806'. |
How can I point it to the two concatenated loadlib to prevent this error? |
|
| Back to top |
|
 |
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1205
Location: Dublin, Ireland
|
|
|
|
ISPPLIB is the Panel Library. Shouldn't you be specifying the ISPLLIB for load modules? Abend S806 is "module not found".
Garry. |
|
| Back to top |
|
|
boyti ko
New User
Joined: 03 Nov 2014
Posts: 78
Location: Malaysia
|
|
|
|
| Yes yes, that was my error, thank you so much.. |
|
| Back to top |
|
|
|
|
