Sean, If your shop has File-manager , the following JCL will give you the desired results
//STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //PDS DD DISP=SHR,DSN=Your.PDS/PDSE.to.remove.seqnum //SYSIN DD * $$FILEM FCH INPUT=PDS C P'=' ' ' 73 80 /* Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
