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: 995
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 REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts Could we identify the called modules ... elixir1986 COBOL Programming 5 Fri Jul 14, 2017 1:53 am
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm


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