Below job does find and replace using TSO batch utility.
//STEP01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
EDIT 'MY.DATA.SET' OLD NONUM CNTL
VERIFY ON
TOP
C * 9999999 'LOG NO' 'LOG YES' ALL
TOP
C * 9999999 'INTO TABLE' 'RESUME YES INTO TABLE' ALL
TOP
C * 0000001 'RESUME YES INTO TABLE' 'REPLACE INTO TABLE'
SAVE
//*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
EDIT 'MY.DATA.SET' OLD NONUM CNTL
VERIFY ON
TOP
C * 9999999 'LOG NO' 'LOG YES' ALL
TOP
C * 9999999 'INTO TABLE' 'RESUME YES INTO TABLE' ALL
TOP
C * 0000001 'RESUME YES INTO TABLE' 'REPLACE INTO TABLE'
SAVE
//*
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.