IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Extract some PDS members names through REXX
IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
srajanbose

New User


Joined: 11 Oct 2004
Posts: 69
Location: chennai
PostPosted: Fri Nov 07, 2008 4:10 pm
 Reply with quote
In rexx I created a job as below
Code:

REQ1B= USERID()                                                         
REQ1C= 'B JOB CLASS=E,MSGCLASS=U,REGION=0M,NOTIFY=&SYSUID'             
REQ1 = REQ1A||REQ1B||REQ1C                                             
REQ2 ='//STEP01   EXEC PGM=IDCAMS'                                     
REQ2A='//SYSOUT   DD SYSOUT=*'                                         
REQ2B='//SYSPRINT DD SYSOUT=*'                                         
REQ3 ='//SYSIN    DD  *'                                               
REQ4 =' DELETE '||OUT_FIL                                               
REQ5 ='/*'                                                             
REQ6 = '//STEP001  EXEC PGM=IEFBR14                               '     
REQ7A= '//DD1      DD  DSN='||OUT_FIL                                   
REQ7B= ','                                                             
REQ7  = REQ7A||REQ7B                                                   
REQ8 = '//             DISP=(,CATLG,CATLG),                    '     
REQ9 = '//             SPACE=(CYL,(1,1),RLSE),                    '     
REQ10= '//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)       '     
REQ11= '//STEP002  EXEC PGM=IEFBR14                               '     
REQ12= '//DD1      DD  DSN='||OUT_FIL         
REQ13= ','                                                             
REQ14 = REQ7A||REQ7B                                                   
REQ8 = '//             DISP=(,CATLG,CATLG),                    '     
REQ9 = '//             SPACE=(CYL,(1,1),RLSE),                    '     
REQ10= '//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)       '     
REQ11= '//*                                                       '     
Q=1                             
JCL.Q = REQ1                   
Q=Q+1                           
JCL.Q = REQ2                   
Q=Q+1                           
JCL.Q = REQ2A                   
Q=Q+1                           
JCL.Q = REQ2B                   
Q=Q+1                           
JCL.Q = REQ3                   
Q=Q+1                           
JCL.Q = REQ4                   
Q=Q+1                           
JCL.Q = REQ5                   
Q=Q+1                           
JCL.Q = REQ6                   
Q=Q+1                           
JCL.Q = REQ7                   
Q=Q+1                                                             
JCL.Q = REQ8                                                     
Q=Q+1                                                             
JCL.Q = REQ9                                                     
Q=Q+1                                                             
JCL.Q = REQ10                                                     
Q=Q+1                                                             
JCL.Q = REQ11                                                     
ALLJCL = REQ1B'.ALLO.JCL'                                         
"DELETE '"ALLJCL"'"                                               
"ALLOCATE DATASET('"ALLJCL"') NEW SPACE(1,2) CYLINDERS ",           
"DSORG(PS) RECFM(F B) LRECL(80) BLKSIZE(8000)"                   
"ALLOC F(SEQFILE) DA('"ALLJCL"') SHR REU"                         
      "EXECIO * DISKW SEQFILE (STEM JCL. FINIS)"                 
      IF RC ^= 0 THEN DO                                         
         SAY 'ERROR WRITTING JCL !'                               
         END                                                     
   "FREE F(SEQFILE)" ;                                           
"SUBMIT '"ALLJCL"'"   
             
       



Then I tried to extract some PDS members names through REXX and tried to write the members in a dataset which got created from the above JCL. What happens here is before the JCL gets created the REXX program tried to write the member name in the file and abended. Could anyone suggest how to handle the situation?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Fri Nov 07, 2008 4:45 pm
 Reply with quote
So you want to play 20 questions, but I DO NOT

OK, it abended, any chance of letting us know with what ?
What error messages and codes were issued at abend
Have you traced the exec
Is this batch or online
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy
PostPosted: Fri Nov 07, 2008 6:41 pm
 Reply with quote
given the horrible way You posted the question, the only answer You deserve is... icon_evil.gif

I am so sorry, I hope You will be able to fix it
12.gif

P.S.

did You really think that with the info You gave, we would be able to help You?
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
PostPosted: Fri Nov 07, 2008 9:09 pm
 Reply with quote
Please clarify if you are trying to debug that rexx program, the JCL or some other rexx program.

And clarify if you have problems while running some rexx or before the rexx runs?

And as Enrico and Expat said... your problem is not described very well.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us