Ron, I already told you how to code and solve your problem. You did not even provide the LRECL and RECFM of the input file.
Either way here is a basic outline //SYSIN DD * OPTION COPY INREC OVERLAY=(001:001,010,UFF,M10,LENGTH=10, ...... 085:085,014,UFF,EDIT=(IIIIIIIIT.TTTT), ..... 001:001,133,SQZ=(SHIFT=LEFT)) /* It is as simple as that. Thanks, Kolusu IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 03/04/2019 03:02:15 PM: > From: Ron Thomas <ron5...@gmail.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 03/04/2019 03:03 PM > Subject: Re: jcl remove leading zeros and spaces > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Hi Kolusu, Can you show me how to do the same ? > > Regards > Ron T > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN