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

Multiple Members to REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Tue May 26, 2009 7:36 pm
Reply with quote

Hi

Need assistance, on how to key in multiple members under one or more PDS as input to REXX from JCL?

Right now, my code looks like below

Code:
//DDIN     DD DSN=ABCD.EFGH.IJKL(TEST1),DISP=SHR
//             DD DSN=ABCD.EFGH.IJKL(TEST2),DISP=SHR
//             DD DSN=ABCD.EFGH.IJKL(TEST3),DISP=SHR


Here ABCD.EFGH.IJKL is the PDS which contains different members as
Test1, Test2 and Test3

Is it possible to input the member names like

Code:
//DDIN     DD DSN=ABCD.EFGH.IJKL,DISP=SHR
//??????             DD *
TEST1
TEST2
TEST3


What will be DD name for ??????


If I input multiple members to REXX will I be able to use the below
code to read the members one by one or I should look for alternatives?

Code:

"EXECIO * DISKR DDIN (STEM Code. FINIS "
"FREE FI(DDIN)"
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue May 26, 2009 7:50 pm
Reply with quote

it all depends on how Your rexx is written

for example
Code:
//DD1 DD ....,DSN=somepds(mbr1)
//    DD ....,DSN=somepds(mbr2)
//    DD ....,DSN=somepds(mbr3)

EXECIO * READ DD1 ( STEM LINES.


lines. will contain all the lines from the trhee members

if on the other side You have something like

Code:
//PDS DD ....,DSN=somepds1
//    DD ....,DSN=somepds2
//    DD ....,DSN=somepds3

//LST DD *
mbr1
mbr2
......
mbrn 
/*

EXCIO * READ LST ( STEM MBRS.


mbrs. will contain thelist of member to process
and using ispf LIBRARY services LM.... function
You will be able to process each member

but the best thing would be to refer to the manuals starting from
www-03.ibm.com/systems/z/os/zos/bkserv/index.html#other_pubs
and choosing Your zOS release
Back to top
View user's profile Send private message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Wed May 27, 2009 10:30 pm
Reply with quote

Hi Enrico Sorichetti,

I tried, the above code for multiple member input, I tried displaying the member names

Code:
DO I = 1 TO MBRS.0                   
  SAY MBRS.I                         
END


I get the message "DDNAME MISSING"
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed May 27, 2009 11:17 pm
Reply with quote

Can you post your JCL and a runtime TRACE of the REXX exec?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed May 27, 2009 11:35 pm
Reply with quote

Hameed Ali,

What do you think would have caused a msg like "DDNAME MISSING"?

certainly not scrolling thru a stem variable.

possibly a I/O on a file not allocated? - maybe no DD statement in your JCL?
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 Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top