Wednesday, March 15, 2023

Find and replace using using TSO batch utility

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
//*

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.