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
