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: 10292
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: 10292
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: 10292
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: 10292
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: 10292
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: 1235
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: 1848
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 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
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am


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