Author: elixir1986
Subject: Mass comment and edit
Posted: Thu Mar 02, 2017 10:09 pm (GMT 5.5)
1) I have a PDS with ABC.PDS with 100 members in it. (X001-X100)
2) These members have some content. I wish to insert "â" in column 1 & 2 for all members in that PDS.
Example:
X001 â before change
X001 â after change
I achieved this using File Aid.
How can this be achieved using SORT as well?
3) Using below JCL, I am able to insert in the line 1 of the output.
Example
X001 â before change
X001 â after change
How do I insert 3 lines(say) at the end of member X001?
4) Also, how do I insert something specific for each member,
Example:
X001 â before insert
X001 â after insert
X002 â before insert
X002 â after insert
THE MEMBER NAME IS "XXXX" where XXXX = Member name. How do I achieve this?
Subject: Mass comment and edit
Posted: Thu Mar 02, 2017 10:09 pm (GMT 5.5)
1) I have a PDS with ABC.PDS with 100 members in it. (X001-X100)
2) These members have some content. I wish to insert "â" in column 1 & 2 for all members in that PDS.
Example:
X001 â before change
| Code: |
| SET ABC PQS ADA |
X001 â after change
| Code: |
| --SET X001 --PQS --ADA |
I achieved this using File Aid.
How can this be achieved using SORT as well?
3) Using below JCL, I am able to insert in the line 1 of the output.
| Code: |
| //********************************************************************** //FILEAID1 EXEC PGM=FILEAID //SYSPRINT DD SYSOUT=* //DD01 DD DSN= ABC.PDS(X001),DISP=SHR //DD01O DD DSN= ABC.PDS(X001),DISP=SHR //SYSIN DD * $$DD01 USER MOVE=(1,080C' '), MOVE=(1,C'//*%PREP RUNS_ON DEV1'), WRITE=DD01O,OUT=1, MOVE=(1,80,1), WRITE=DD01O $$DD01 USER MOVE=(1,80,1), WRITE=DD01O //********************************************************************** |
Example
X001 â before change
| Code: |
| --SET X001 --PQS --ADA |
X001 â after change
| Code: |
//*%PREP RUNS_ON DEV1' --SET X001 --PQS --ADA |
How do I insert 3 lines(say) at the end of member X001?
4) Also, how do I insert something specific for each member,
Example:
X001 â before insert
| Code: |
| --SET X001 --PQS --ADA |
X001 â after insert
| Code: |
| --SET X001 --PQS --ADA THE MEMBER NAME IS X001 THIS IS COOL |
X002 â before insert
| Code: |
| --SET X002 --PQS --ADA |
X002 â after insert
| Code: |
| --SET X002 --PQS --ADA THE MEMBER NAME IS X002 THIS IS COOL |
THE MEMBER NAME IS "XXXX" where XXXX = Member name. How do I achieve this?