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
 
create member in pds

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
JOYEETA PAUL
Currently Banned

New User


Joined: 18 Sep 2008
Posts: 17
Location: bangalore

PostPosted: Wed Nov 12, 2008 11:28 am    Post subject: create member in pds
Reply with quote

i want to write a rexx prog which will contain code to
1) search in all the members in a specific pds and
2) create a new memeber each time with the searched result

Can anybody help me with giving codes for that.
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Wed Nov 12, 2008 11:37 am    Post subject: Reply to: create member in pds
Reply with quote

There are plenty of code examples here:

http://www.ibmmainframes.com/viewtopic.php?t=16980&highlight=isrsupc
http://www.ibmmainframes.com/viewtopic.php?t=20602&highlight=isrsupc
http://www.ibmmainframes.com/viewtopic.php?t=32122&highlight=isrsupc
http://www.ibmmainframes.com/viewtopic.php?t=32262&highlight=lmmadd
http://www.ibmmainframes.com/viewtopic.php?t=21453&highlight=lmmadd
Back to top
View user's profile Send private message
JOYEETA PAUL
Currently Banned

New User


Joined: 18 Sep 2008
Posts: 17
Location: bangalore

PostPosted: Thu Nov 13, 2008 7:20 pm    Post subject: Reply to: create member in pds
Reply with quote

I need rexx code to create a new member in a existing PDS.
Back to top
View user's profile Send private message
JOYEETA PAUL
Currently Banned

New User


Joined: 18 Sep 2008
Posts: 17
Location: bangalore

PostPosted: Thu Nov 13, 2008 7:26 pm    Post subject: Reply to: create member in pds
Reply with quote

superk,
I saw ur reply. I tried with the code whatever is there in last link. But that code is not working. actually i use that code to create a new member in my existing PDS.but is saying 'no routine found'.
My code is :
Code:

/*REXX*/                                                           
/*CREATES PDS*/                                                   
/*ASSINGN THE DD NAME TO MEMBER*/                                 
/*"ALLOC DA('"JOP3I0.TEST.JCLPDS(NEW_MEM)"') DD(MYDD) OLD REUSE" */
"ALLOC FI(MYDD) DA('"JOP3I0.TEST.JCLPDS(NEW_MEM)"') SHR REUSE"     
/*WRITE A LINE INTO NEW MEMBER*/                                   
QUEUE "NEW_MEM"                                                   
"EXECIO * DISKW  MYDD (FINIS "                                     
"FREE F(OUTFILE)"         


here NEW_MEM is my new member and JOP3I0.TEST.JCLPDS is my existing PDS

Can anybody tell me what is the wrong in that code?
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Thu Nov 13, 2008 7:35 pm    Post subject: Reply to: create member in pds
Reply with quote

"NEW_MEM" is not a valid PDS member name.

This would work, though:

"ALLOC FI(MYDD) DA('"JOP3I0.TEST.JCLPDS(NEWMEM)"') SHR REUSE"
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Nov 14, 2008 3:12 am    Post subject: Reply to: create member in pds
Reply with quote

Code:
"ALLOC FI(MYDD) DA('"JOP3I0.TEST.JCLPDS(NEW_MEM)"') SHR REUSE"     

I think your quotes are mis-placed. Rexx will try to resolve this: JOP3I0.TEST.JCLPDS(NEW_MEM), before actually performing the ALLOC. Because of the parenthesis, it looks like a function call to the rexx processor.
Back to top
View user's profile Send private message
JOYEETA PAUL
Currently Banned

New User


Joined: 18 Sep 2008
Posts: 17
Location: bangalore

PostPosted: Sat Nov 15, 2008 3:29 pm    Post subject: Reply to: create member in pds
Reply with quote

thank you to both of you.now that code is working. But 1 confusion i have.what is the use of outfile here.i mean what is the meaning of the code :"FREE F(OUTFILE)" .Can you tell me?
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Sat Nov 15, 2008 8:37 pm    Post subject: Reply to: create member in pds
Reply with quote

1.17 FREE Command.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Sun Nov 16, 2008 8:03 am    Post subject: Reply to: create member in pds
Reply with quote

It should be consistent with the rest of the program and refer to MYDD

Code:
"FREE F(MYDD)"
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1521
Location: Chennai

PostPosted: Mon Nov 17, 2008 4:34 pm    Post subject:
Reply with quote

same functionality.


Code:
PULL PROGRAM                                                           
PROG="XK89.SYSIN.PDS("PROGRAM")"                                       
PROG1 = PROG                                                           
"ALLOC F(OUTDD) DS('"PROG1"') OLD REUSE"    /*DD NAME ALLOCATION*/     
OUT.0=1                                                                 
OUT.1="somecrazystuff"PROGRAM                                                       
"EXECIO * DISKW OUTDD (FINIS STEM OUT."    /*WRITE IN MEMBER*/         
"FREE FILE(OUTDD)"                                                     
EXIT   
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Create procedure issues -628 when add... chandraBE DB2 1 Mon Sep 18, 2017 12:16 pm
No new posts How do I create a mainframe monitorin... anjali.bisht All Other Mainframe Topics 4 Fri Sep 01, 2017 2:20 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts How do you create Eclipse based dialogs jasorn IBM Tools 0 Thu Aug 03, 2017 5:05 pm

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