Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to concatenate two cobol loadlib to use in rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Mon Jun 29, 2015 4:41 pm    Post subject: how to concatenate two cobol loadlib to use in rexx
Reply with quote

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
View user's profile Send private message

Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Mon Jun 29, 2015 6:11 pm    Post subject:
Reply with quote

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
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Tue Jun 30, 2015 6:22 am    Post subject:
Reply with quote

Yes yes, that was my error, thank you so much..
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm
No new posts COBOL Version 6.1 Virendra Shambharkar COBOL Programming 5 Tue Nov 01, 2016 11:24 am
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us