View previous topic :: View next topic
|
Author |
Message |
justjpr
New User
Joined: 03 Nov 2022 Posts: 30 Location: INDIA
|
|
|
|
My requirement:
INPUT LINE :
Code: |
//FEEDFL DD DISP=SHR,DSN=A.B.C |
OUTPUT LINES :
Code: |
//*FEEDFL DD DISP=SHR,DSN=A.B.C
//FEEDFL DD DISP=SHR,DSN=X.Y.Z |
One of the feed datasets is going to be changed from A.B.C to X.Y.Z. This feed is used in multiple jobs (we have 8 PDS with multiple jobs). DD name is always "FEEDFL" in all jobs (obviously, the position of the DD name is fixed). DISP is either SHR or OLD. DD/ DISP=SHR/ DISP=OLD positions may vary.
I can easily modify the existing line by replacing the old file name with the new file name using SORT/ ICETOOL/ FILEAID. But I don't know how to retain the existing line commented. The following (FILEAID) code works fine without inserting the comment. We prefer FILEAID as we need to check (and modify) all the members in a PDS.
Code: |
//SYSIN DD *
$$DD01 UPDATE ME=9999,EA=(1,0,T"DSN=A.B.C",
C"DSN=X.Y.Z")
/*
|
I can write a rexx to fetch all the members and modify them, but I know this can easily be done in fileaid.
SORT/ ICETOOL/ FILEAID- anything is fine. Our mainframe has SYNCSORT; we don't have DFSORT.
It is not an urgent request. I have to complete this change in my local PDS in a week (before November 15, 2022).
Thank you. |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1307 Location: Bamberg, Germany
|
|
|
|
Use IEBPTPCH to unload PO to a PS dataset, then use DFSORT to modify the record in question. The latter can be achieved with OUTFIL BUILD command. Then reload the PO dataset using IEBUPDTE. |
|
Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008 Posts: 2119 Location: USA
|
|
|
|
Joerg.Findeisen wrote: |
Use IEBPTPCH to unload PO to a PS dataset, then use DFSORT to modify the record in question. The latter can be achieved with OUTFIL BUILD command. Then reload the PO dataset using IEBUPDTE. |
Detailing the steps
Stage 1: train yourself with DFSORT: DD-changes applied to a single PDS member.
Stage 2: train yourself with IEBPTPCH: to unload PDS to PS
Stage 3: train yourself with DFSORT: DD-changes applied to the PS unloaded from PDS
Stage 4: get yourself familiar with IEBUPDTE, to upload any data from PS to several PDS members
Stage 5: train yourself with DFSORT: to prepare the PS with unloaded PDS for further uploading it back to PDS using IEBUPDTE
Stage 6: run all previous stages together, as one JCL stream.
P.S.
In practical life, there is no difference between SYNCSORT, and DFSORT.
Both are considered different only at this forum. |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1307 Location: Bamberg, Germany
|
|
Back to top |
|
|
|