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: 992
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 RULES(NOEVENPACK) in cobol jackzhang75 COBOL Programming 5 Wed Mar 29, 2017 12:47 am
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm


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