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

TO create PDS - members


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
d katkuri

New User


Joined: 27 Feb 2013
Posts: 16
Location: india

PostPosted: Mon Apr 22, 2013 2:58 pm
Reply with quote

Requirement:
---------------------
In PS File there are 10 records like below"

abc1
abc2
abc3

*****
I need to create 1 PDS, in that i need to create (3) members based on the records in the PS file.

output:

PDS
(abc1)
(abc2)
(abc3)

Couls you please let me know how to proceed.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Apr 22, 2013 3:01 pm
Reply with quote

pretty confusing description ...

You gave three members names

but where will the data for them come from

and what is the 10 thing ???
Back to top
View user's profile Send private message
d katkuri

New User


Joined: 27 Feb 2013
Posts: 16
Location: india

PostPosted: Mon Apr 22, 2013 3:03 pm
Reply with quote

Suppose in PS file if there are 10 rows ; For each row i need to create to 1 member under 1 PDS.
PDS:
member1
. . . .
.
.
.
.
member10
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Apr 22, 2013 3:07 pm
Reply with quote

we are not dentists ...
pulling info should not be as hard as pulling teeth icon_evil.gif

what will be the content of each member ?
what will be the DCB of the PDS ?

if FB 80 You might have different alternatives
Back to top
View user's profile Send private message
d katkuri

New User


Joined: 27 Feb 2013
Posts: 16
Location: india

PostPosted: Mon Apr 22, 2013 3:28 pm
Reply with quote

pds : length - 80
member ; length - 80
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Apr 22, 2013 3:37 pm
Reply with quote

what will be the content of each member ?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Mon Apr 22, 2013 4:40 pm
Reply with quote

Hopefully, you understand what Enrico is asking, Dharma. icon_confused.gif

Enrico - have a nice Monday! icon_biggrin.gif

OTOH, there are many similar topics on the Forums, one for reference is here: ibmmainframes.com/about48188.html
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Apr 22, 2013 4:41 pm
Reply with quote

let' s hope that things get better...
the posts until now are not encouraging icon_wink.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Mon Apr 22, 2013 5:20 pm
Reply with quote

since You are not able to post any useful info here is a guess

Code:
 ****** ***************************** Top of Data ******************************
 000001 //*
 000002 //S1      EXEC PGM=SORT
 000003 //SYSPRINT  DD SYSOUT=*
 000004 //SYSOUT    DD SYSOUT=*
 000005 //TOOLMSG   DD SYSOUT=*
 000006 //DFSMSG    DD SYSOUT=*
 000007 //SORTIN    DD *
 000008 MEMB0001
 000009 MEMB0002
 000010 ........
 000011 MEMBxxxx
 000012 //SORTOUT   DD DISP=(NEW,PASS),DSN=&&CNTL,
 000013 //             UNIT=SYSDA,SPACE=(CYL,(1,1)),
 000014 //             DCB=(RECFM=FB,LRECL=80)
 000015 //SYSIN     DD *
 000016   OPTION COPY
 000017   OUTREC OVERLAY=(81:SEQNUM,4,ZD,RESTART=(1,8))
 000018   OUTFIL IFTHEN=(WHEN=(81,4,ZD,EQ,1),
 000019          BUILD=(C'./ ADD NAME=',1,8,/,1,80)),
 000020          IFTHEN=(WHEN=NONE,
 000021          BUILD=(1,80))
 000022 //*
 000023 //S2      EXEC PGM=IEBUPDTE,PARM=NEW
 000024 //SYSPRINT  DD SYSOUT=*
 000025 //SYSUT2    DD DISP=(NEW,PASS),DSN=&&PDS,
 000026 //             UNIT=SYSDA,SPACE=(CYL,(2,2,2)),
 000027 //             DCB=(RECFM=FB,LRECL=80)
 000028 //SYSIN     DD DISP=(OLD,PASS),DSN=&&CNTL
 ****** **************************** Bottom of Data ****************************


it will create as many members as sysin records
containing one line with the sysin record itself
Back to top
View user's profile Send private message
d katkuri

New User


Joined: 27 Feb 2013
Posts: 16
Location: india

PostPosted: Mon Apr 22, 2013 6:14 pm
Reply with quote

Thanks Enrico
-------------------------------
Its working
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Mon Apr 22, 2013 7:49 pm
Reply with quote

d katkuri wrote:
Thanks Enrico
-------------------------------
Its working

Psychic day is today !
Good work Enrico ! icon_smile.gif
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Mon Apr 22, 2013 11:48 pm
Reply with quote

Enrico - that should have been:
Code:
//S1   EXEC PGM=SYNCSORT

icon_lol.gif
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts How can I add/create a new INIT(initi... TSO/ISPF 2
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts Duplicate several members of/in one l... JCL & VSAM 7
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts list pds members name starting with xyz CLIST & REXX 11
Search our Forums:

Back to Top