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

Reply via email to