IBM Mainframe Forum

Mainframe Technical Support Forums

Skip to content


REXX to XDC SYSOUT



IBM's Command List programming language & Restructured Extended Executor
Post a reply

REXX to XDC SYSOUT

Postby abhsha27 » Wed Jan 27, 2021 3:39 pm

Select all

/*****************************REXX************************************/
/*TRACE ?R*/                                                          
ADDRESS TSO                                                            
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */                
"ALLOC F(TEMPPRT) DA('MVS004.MVS004.REXX.OUT(SYSLOG)')                
         OLD SPACE (50 50) CYL DIR(100)"                              
JOBID = "STC*"                                                        
QUEUE "PRE SYSLOG" /* SDSF COMMANDS IN BATCH*/                        
QUEUE "ST"                                                            
QUEUE "FILTER JOBID" JOBID                                            
QUEUE "++S"                                                            
QUEUE "PRINT FILE TEMPPRT" /* PRINT TO TEMP DATASET */                
QUEUE "PRINT 1 999999"                                                
QUEUE "PRINT CLOSE"                                                    
QUEUE "END"                                                            
QUEUE "EXIT"                                                          
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */      
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++25,80')"/* INVOKE SDSF */
 



I get error IKJ56246I DATA SET MVS004.MVS004.REXX.OUT NOT ALLOCATED, FILE IN USE

Please let me know what is wrong.
abhsha27
 
Posts: 12
Joined: Wed Oct 14, 2020 7:51 pm
Has thanked: 1 time
Been thanked: 0 time
Top

Re: REXX to XDC SYSOUT

Postby NicC » Wed Jan 27, 2021 6:48 pm

Exactly what it says - the dataset is allocated elsewhere - you do not check the return code
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times
Top

Re: REXX to XDC SYSOUT

Postby abhsha27 » Wed Jan 27, 2021 6:53 pm

Return code is 12
abhsha27
 
Posts: 12
Joined: Wed Oct 14, 2020 7:51 pm
Has thanked: 1 time
Been thanked: 0 time
Top

Re: REXX to XDC SYSOUT

Postby willy jensen » Thu Jan 28, 2021 1:14 pm

You should check the return code and then stop the program right then and there. But the underlying problem remains the same, the dataset is in use so you must find out who the current holder is and politely ask if s/he could free it. Or use another dataset.
willy jensen
 
Posts: 465
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 70 times
Top

Re: REXX to XDC SYSOUT

Postby willy jensen » Thu Jan 28, 2021 1:16 pm

And by the way, you really really should look at using the SDSF API, described in the SDSF Users's Guide.
willy jensen
 
Posts: 465
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 70 times
Top

Re: REXX to XDC SYSOUT

Postby Pedro » Sat Feb 06, 2021 4:56 am

Exactly what it says - the dataset is allocated elsewhere


Actually, it says "FILE IN USE". It could be a different data set allocated to the SYSOUT file name.
Pedro Vera
User avatar
Pedro
 
Posts: 686
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times
Top
Post a reply

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post
Forum Rules|FAQ|Subscriptions|Bookmarks