Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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

Senior Member


Joined: 08 May 2006
Posts: 1002
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 send an email without SMTP Se... upendrasri All Other Mainframe Topics 6 Sun Nov 19, 2017 7:59 pm
This topic is locked: you cannot edit posts or make replies. ISREDIT Macro is not returning back t... nico_neoz CLIST & REXX 21 Sat Nov 18, 2017 7:40 pm
This topic is locked: you cannot edit posts or make replies. Cobol to fetch the content by using s... arunc55 COBOL Programming 4 Fri Nov 17, 2017 1:25 pm
No new posts REXX LISTDSI () SMSINFO is not working upendrasri CLIST & REXX 4 Fri Nov 17, 2017 11:33 am
No new posts Calling IKJEFT01 program from Rexx upendrasri CLIST & REXX 4 Wed Nov 15, 2017 4:27 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us