Kevin
Active User
Joined: 25 Aug 2005
Posts: 234
|
|
|
|
Here is a sample job with three different options: IPOUPDTE, EDIT, and DFSORT:
| Code: |
//STEP0001 EXEC PGM=ICEGENER
//SYSUT1 DD *
SOME DATA
NAME
SOME MORE DATA
/*
//SYSUT2 DD DSN=KEVIN.MYPDS(MEMBER1),DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,1,1),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0002 EXEC PGM=IEBCOPY
//PDSI DD DISP=SHR,DSN=SYS1.PARMLIB
//PDSO DD DSN=KEVIN.MYPDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY OUTDD=PDSO,INDD=PDSI
SELECT MEMBER=$$$COIBM
/*
//*
//STEP0003 EXEC PGM=IPOUPDTE,PARM='UPDATE'
//STEPLIB DD DISP=SHR,DSN=IPOUPDTE.LINKLIB
//@LIB1 DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME<NEW NAME<
/*
//*
//STEP0004 EXEC PGM=ICEGENER
//SYSUT1 DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0005 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
EDIT 'KEVIN.MYPDS(MEMBER1)' TEXT NONUM
TOP
F 'NEW NAME'
C * 'NEW NAME' 'NAME'
END SAVE
/*
//*
//STEP0006 EXEC PGM=ICEGENER
//SYSUT1 DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//STEP0007 EXEC PGM=ICEMAN
//SORTIN DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SORTOUT DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(10,4,CH,EQ,C'NAME'),OVERLAY=(10:C'NEW NAME'))
/*
//*
//STEP0008 EXEC PGM=ICEGENER
//SYSUT1 DD DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
|
The test output:
| Code: |
STEP0004:
SOME DATA
NEW NAME
SOME MORE DATA
STEP0006:
SOME DATA
NAME
SOME MORE DATA
STEP0008:
SOME DATA
NEW NAME
SOME MORE DATA
|
|
|
