|
View previous topic :: View next topic
|
| Author |
Message |
d katkuri
New User
Joined: 27 Feb 2013
Posts: 16
Location: india
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
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 |
|
|
d katkuri
New User
Joined: 27 Feb 2013
Posts: 16
Location: india
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
we are not dentists ...
pulling info should not be as hard as pulling teeth 
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 |
|
|
d katkuri
New User
Joined: 27 Feb 2013
Posts: 16
Location: india
|
|
|
|
pds : length - 80
member ; length - 80 |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
| what will be the content of each member ? |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
Hopefully, you understand what Enrico is asking, Dharma. 
Enrico - have a nice Monday! 
OTOH, there are many similar topics on the Forums, one for reference is here: ibmmainframes.com/about48188.html |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
let' s hope that things get better...
the posts until now are not encouraging  |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
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 |
|
|
d katkuri
New User
Joined: 27 Feb 2013
Posts: 16
Location: india
|
|
|
|
Thanks Enrico
-------------------------------
Its working |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
| d katkuri wrote: |
Thanks Enrico
-------------------------------
Its working |
Psychic day is today !
Good work Enrico !  |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
Enrico - that should have been:
| Code: |
| //S1 EXEC PGM=SYNCSORT |
 |
|
| Back to top |
|
|
|
|
