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
 
Extract some PDS members names through REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
srajanbose
Warnings : 1

New User


Joined: 11 Oct 2004
Posts: 69
Location: chennai

PostPosted: Fri Nov 07, 2008 4:10 pm    Post subject: Extract some PDS members names through REXX
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: 8593
Location: Back in jolly old England

PostPosted: Fri Nov 07, 2008 4:45 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10309
Location: italy

PostPosted: Fri Nov 07, 2008 6:41 pm    Post subject: Reply to: Extract some PDS members names through REXX
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

Senior Member


Joined: 01 Sep 2006
Posts: 2081
Location: Silicon Valley

PostPosted: Fri Nov 07, 2008 9:09 pm    Post subject: Reply to: Extract some PDS members names through REXX
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    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 ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

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