Rimjhim
New User
Joined: 18 May 2022 Posts: 12 Location: India
|
|
|
|
Greetings everyone,
My requirement is to replace a string for eg: '920220517172508' with '120220517172508' in the input VB file.
I am using the below JCL
//RS28753B JOB 'SORT1','D SINGH X44962',
// SCHENV=ANYSYSTEM,
// CLASS=1,MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID
//STEP020 EXEC PGM=ICEMAN
//SORTIN DD DSN=RS1234.DM.D220518,DISP=SHR
//SORTOUT DD DSN=RS1234.DM.D220518.A,
// DISP=(NEW,KEEP,DELETE),
// SPACE=(CYL,(28,50),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=2007,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(41,15,CH,EQ,C'920220517172508'),
OVERLAY=(41:41,15,C'120220517172508'))
//*
Even though I am getting a max cc zero, the string is not getting replaced. Can you please advise? |
|