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
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm


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