Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

TO create PDS - members

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: TO create PDS - members
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Apr 22, 2013 3:01 pm    Post subject: Reply to: TO create PDS - members
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Apr 22, 2013 3:07 pm    Post subject: Reply to: TO create PDS - members
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    Post subject:
Reply with quote

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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Apr 22, 2013 3:37 pm    Post subject: Reply to: TO create PDS - members
Reply with quote

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

Senior Member


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

PostPosted: Mon Apr 22, 2013 4:40 pm    Post subject:
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: http://ibmmainframes.com/about48188.html
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Apr 22, 2013 4:41 pm    Post subject: Reply to: TO create PDS - members
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Apr 22, 2013 5:20 pm    Post subject: Reply to: TO create PDS - members
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    Post subject:
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: 1218
Location: Israel

PostPosted: Mon Apr 22, 2013 7:49 pm    Post subject:
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: 1713
Location: UK

PostPosted: Mon Apr 22, 2013 11:48 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts How can we create a flat file in JAVA... rakesh.v18 Java & MQSeries 7 Fri Sep 23, 2016 10:46 pm
No new posts Need to create file with Dynamic Name... kapil27 JCL & VSAM 4 Wed May 25, 2016 9:45 am
No new posts Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
No new posts Differences between copying members b... E.LAI TSO/ISPF 8 Wed Mar 30, 2016 12:35 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us