Duplicating records in a PDS memebr/Inserting records in mem

imcoolleo · New User Joined: 04 Apr 2006 Posts: 8

Duplicating records in a PDS memebr/Inserting records in member

Hi All,

How can we update all PDS members to duplicate some entry?

Like I have a PDS with mupltiple members like below

VIEW XXX.XXX.XXXX.WORKPDS1(MEMBER02) - 01.0
Command ===> Sc
****** ***************************** Top of Data ***************
000001 .
000002 TRANSFER ELEMENT 'ZTEST'
000003 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000004 TYPE 'RJCJCL' STAGE P
000005 OPTIONS CCID 'ADMIN' COMMENTS "ADMIN TEST" JUMP
000006 .
000007 .
000008 TRANSFER ELEMENT 'ZTEST2'
000009 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000010 TYPE 'RJCJCL' STAGE P
000011 OPTIONS CCID 'ADMIN' COMMENTS "ADMIN TEST" JUMP

I want to repeat every below entry just after it.
FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
TYPE 'RJCJCL' STAGE P

So that output will look like:

VIEW XXX.XXX.XXXX.WORKPDS1(MEMBER02) - 01.0
Command ===> Sc
****** ***************************** Top of Data ***************
000001 .
000002 TRANSFER ELEMENT 'ZTEST'
000003 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000004 TYPE 'RJCJCL' STAGE P
000005 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000006 TYPE 'RJCJCL' STAGE P
000007 OPTIONS CCID 'ADMIN' COMMENTS "ADMIN TEST" JUMP
000008 .
000009 .
000010 TRANSFER ELEMENT 'ZTEST2'
000011 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000012 TYPE 'RJCJCL' STAGE P
000013 FROM ENVIRONMENT "PRD" SYSTEM 'ZZ' SUBSYSTEM 'STD'
000014 TYPE 'RJCJCL' STAGE P
000015 OPTIONS CCID 'ADMIN' COMMENTS "ADMIN TEST" JUMP

Kindly suggest.
Thanks/

Rohit Umarjikar · Posted: Mon Sep 16, 2019 4:48 pm

Do not post the same questions in two sections , it won’t help you to get any different answers. Second use code tags.
ibmmainframes.com/viewtopic.php?p=347301#347301

Moderator, Please lock this topic.

imcoolleo · New User Joined: 04 Apr 2006 Posts: 8

If you will look closely questions are in different format. One is for COBOL experts and other for DFSORT experts. Don't you think they can be addressed by different groups. Look closely again.

Nic Clouston · Posted: Mon Sep 16, 2019 6:06 pm

You are posting the sme question - how do I copy 2 lines after a certain line, that line appearing several times in the dataset or member.

You have been a member for 11 years so you should know that data and code should be posted using the code tags.

And I do not know why you want to make your Endevor control cards invalid.

The DFSort topic will be deleted.

Rohit Umarjikar · Posted: Mon Sep 16, 2019 6:06 pm

If you get DFSORT solution then how difficult that to apply it here and if you can not then Beginners Forum is the best place to put in ?

As far COBOL solution is concerned, isn’t it straight forward to identifying such records , Save it locally and write twice and move on with next record and repeat the same until EOF?

imcoolleo · New User Joined: 04 Apr 2006 Posts: 8

@Nic : Sorry about the code tags, I am using this forum after a long time.
@Rohit: It worked as per your suggestion. Thanks.