Then maybe the easier way is to set boundaries from 80 to 95 using the BNDS line command then X ALL
and shift )200 everything over 200 chars then reset your boundary back ? Carmen ----- Original Message ----- From: "willie bunter" <0000001409bd2345-dmarc-requ...@listserv.ua.edu> To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, December 16, 2016 9:59:22 AM Subject: Re: TSO LINE COMMAND - EDIT MODE Kolusu, I tried your suggestion but the command worked partially. It removed an ending zero before the command: 00010000 after the command 0001000 -------------------------------------------- On Fri, 12/16/16, Sri h Kolusu <skol...@us.ibm.com> wrote: Subject: Re: TSO LINE COMMAND - EDIT MODE To: IBM-MAIN@LISTSERV.UA.EDU Received: Friday, December 16, 2016, 10:55 AM Willie, You need to use '^' instead of '¬' C P'^' '' 80 95 ALL ^ is the non blank character when your encoding scheme is 1047 on the mainframe Thanks, Kolusu IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 12/16/2016 08:45:22 AM: > From: willie bunter <0000001409bd2345-dmarc-requ...@listserv.ua.edu> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 12/16/2016 08:45 AM > Subject: Re: TSO LINE COMMAND - EDIT MODE > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Bill, > > I tried out your suggestion but it didn't work. I get the message > No CHARS '¬' found > -------------------------------------------- > On Fri, 12/16/16, George, William@FTB <bill.geo...@ftb.ca.gov> wrote: > > Subject: Re: TSO LINE COMMAND - EDIT MODE > To: IBM-MAIN@LISTSERV.UA.EDU > Received: Friday, December 16, 2016, 10:39 AM > > I believe the command you > need is: C P'¬' ' ' 80 95 ALL > The picture P'¬' finds all NON blank > characters. > > Bill > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of willie bunter > Sent: Friday, > December 16, 2016 7:15 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: TSO LINE COMMAND - EDIT MODE > > Good Day To All, > > Is there a way of filling > columns 80 95 with blanks? I have sequence commands > (please see below for an example) which I would like to > remove. > > 00550003 ** > 00560000 > 00570001 * > 00580003 ** > 00590000 > 00600001 * > 00610003 ** > 00620000 > 00630001 * > 00640003 ** > 00650000 > 00660001 * > 00670003 ** > 00680000 > 00690001 * > 00700003 ** > 00710000 > > I looked at using C P'00' " " > 80 95 however since this is a huge dsn I was wondering if > there is a quicker way. I also considered pressing the EOF > key on my keyboard on every line however since the file is > quite large it would take me a while. > > Is there a line command I could issue to do > what I want to do? I remember in ROSCOE I could issue the > command FILL 80 95 and it would replace the numbers with > blank spaces. > > Thanks > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive > access instructions, send email to lists...@listserv.ua.edu > with the message: INFO IBM-MAIN > > ______________________________________________________________________ > CONFIDENTIALITY NOTICE: This email from the > State of California is for the sole use of the intended > recipient and may contain confidential and privileged > information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not > the intended recipient, please contact the sender and > destroy all copies of this email. > > > ---------------------------------------------------------------------- > 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 > ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
