Not sure where I got this a while ago, so I apologize to the original author in advance. I call it BLANKIT.
Bob
/* REXX */
Signal On NoValue
Parse source opsys . exec_name .
If opsys = 'TSO' then
Do
Address ISREDIT
ISREDIT = ''
End
Else
ISREDIT = 'ISREDIT'
ISREDIT 'MACRO (BCOL ECOL)'
If bcol = '' then
Do
Address ISPEXEC
'CONTROL DISPLAY LINE START(12)'
Say 'COMMAND SYNTAX IS: BLANKIT BB EE'
Say
Say 'WHERE BB IS IN THE BEGINNING COLUMN AND EE IS IN THE ENDING COLUMN.'
Say
Say 'ENTER BEGINNING COLUNM:'
Pull bcol
Say 'ENTER ENDING COLUNM:'
Pull ecol
End
If ecol = ' ' then
Do
Address ISPEXEC
'CONTROL DISPLAY LINE START(12)'
Say 'COMMAND SYNTAX IS: BLANKIT BB EE'
Say
Say 'WHERE BB IS IN THE BEGINNING COLUMN AND EE IS IN THE ENDING COLUMN.'
Say
Say "ENTER ENDING COLUNM:"
Pull ecol
End
If ecol < bcol then
Do
Address ISPEXEC
'CONTROL DISPLAY LINE START(12)'
Say "THE VALUE OF THE BEGINNING COLUMN ("bcol") MUST BE LESS THAN"
Say "THE VALUE OF THE ENDING COLUMN ("ecol")."
Exit
End
ISREDIT '(LRECL) = LRECL'
If ecol > lrecl then
Do
zedlmsg = 'INVALID BOUNDRIES SPECIFIED. RIGHT BOUNDRY SET'
Address ISPEXEC 'SETMSG MSG(ISRZ001)'
ecol = lrecl
End
ISREDIT '(LEFT,RIGHT) = BOUNDS'
ISREDIT 'BOUNDS' bcol ecol
ISREDIT "CHANGE P'=' '' ALL" bcol ecol
ISREDIT 'RESET CHANGE'
ISREDIT 'BOUNDS' LEFT RIGHT
Exit
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of willie bunter
Sent: Friday, December 16, 2016 10: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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
