Re: TSO LINE COMMAND

Use this macro to copy one or multiples lines after N lines in a block
of lines(created by two labels)

1.Select the line(s) to copy by the C or CC/CC line command
2.create the block with two labels (.A and .B in different lines
command)
3. issue BETW 1 .A .B in the primary command to copy the selected
line(s) after all lines of the created block.





/*REXX*****************************************************************/
/*** */
/**********************************************************************/
/* Trace r */
Address ISPEXEC
'ISREDIT MACRO (PARM1) NOPROCESS'
'ISPEXEC CONTROL ERRORS RETURN'
parm1 = translate(parm1)
If parm1 = '?' Then
Do
Call help
Exit
End

If parm1 ^= ' ' then
If datatype(parm1,w) ^= 1 ! parm1 < 1 then
do
zedsmsg = 'Invalid parameter'
zedlmsg = ' argument must be a positif whole number '
'SETMSG MSG(ISRZ001)'
Exit 12
End
else parm1 = strip(parm1)
else parm1 = 1

/* Process line commands, check if C or M was specified */
'ISREDIT PROCESS RANGE C '
Select
When rc = 0 Then
Do
'ISREDIT (LINE1) = LINENUM .ZFRANGE' /* Get first line in range*/
'ISREDIT (LINE2) = LINENUM .ZLRANGE' /* Get last line in range */
linecc = line2 - line1 + 1
End
When rc <= 4 Then /* No C entered */
Do
ZEDSMSG = 'NO LINE COMMANDS'
ZEDLMSG = 'C[n] OR CC MUST BE TYPED ON LINE COMMANDS'
'SETMSG MSG(ISRZ001)'
Exit 12
End
Otherwise /* Line command conflict - Edit will create message*/
Exit 12
End
j = line1
do i = 1 to linecc by 1
'ISREDIT (CL'i') = LINE' j
Interpret "CL"i"= Strip(CL"i",'T')"
j = j + 1
end
'ISREDIT LOCATE FIRST lABEL'
if rc ^= 0 then
do
zedsmsg = 'Enter a label in the line cmd'
zedlmsg = 'BETW requires two labels in the line cmd'
'SETMSG MSG(ISRZ001)'
Exit 12
End
'ISREDIT (LINED) = DISPLAY_LINES'
'ISREDIT LOCATE NEXT lABEL'
if rc ^= 0 then
do
zedsmsg = 'Enter a second label in the line cmd'
zedlmsg = 'BETW requires two labels in the line cmd'
'SETMSG MSG(ISRZ001)'
Exit 12
End
'ISREDIT (LINEF) = DISPLAY_LINES'
k = lined + parm1 - 1
limit = max(trunc((linef - lined) / parm1),1)
cpteur = 1
do j = lined to LInef by parm1
do i = 1 to linecc by 1
if cpteur <= limit then 'isredit line_after ' k ' = dataline
(cl'i')'
k = k + 1
end
k = K + parm1
cpteur = cpteur + 1
end
'ISREDIT LOCATE FIRST lABEL'
'isredit reset label'
Exit

help:
Say ' '
Say ' BETW is used to copy the same line or the same sequence of lines '
Say ' (identified by the C[n] or CC ..... CC in the line command) after
each'
Say ' line (or after n lines ) of a block identified by two different
labels '
Say ' of your choice '
Say ' '
Say ' A label is a name preceded by a point (ex: .first) '
Say ' Those labels are specified in the line command. '
Say ' '
Say ' 'n' is specified as a parameter of the command and must be '
Say ' a positive whole number. '
Say ' '
Return




-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf Of Bates, Bill (RMV)
Sent: Thursday, September 11, 2008 3:50 AM
To: IBM-MAIN@xxxxxxxxxxx
Subject: Re: TSO LINE COMMAND

On command line of edit enter: change ' ' XX to ' MGMTCLAS (NOMIG)' all
XX is a blank column after your data

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf Of Lizette Koehler
Sent: Wednesday, September 10, 2008 1:59 PM
To: IBM-MAIN@xxxxxxxxxxx
Subject: Re: TSO LINE COMMAND

Just an off the wall suggestions.

When I have multiple lines to create (IDCAMS Define statements, ICKDSF,
etc...) I actually use Microsoft (no booing please) WORD and mail merge.

I get a list of the relevant information (DSN, UCB, CATALOG Name, and so
on) into a word table. then Mail Merge it into a nice document that is
uploaded to the mainframe.

The Other process I use is a REXX that creates the control cards I need.
This way I can create multiple line entries with an ISPF Skeleton with
little effort. I can forward my little REXX-bots if interested.

Lizette


As another response suggested simply appending MGMTCLASS(NOMIG) each
line
would work.
PARM MARGINS(01 80) would help if you're about to fill a line.

Oddly I tried another experiment with a PDS with LRECL. PARM
MARGINS(01
133) is accepted but the parameters can't use columns after 80.

HTH.





-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf
Of Ulrich Krueger
Sent: Wednesday, September 10, 2008 11:42 AM
To: IBM-MAIN@xxxxxxxxxxx
Subject: Re: TSO LINE COMMAND

If you're using ISPF EDIT to edit your file, the CUT and PASTE commands
come
to mind.
I don't have the books handy, so you'll have to RTFM. These command
have
options that allow you to do this.


Regards,
Ulrich Krueger

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf
Of John Dawes
Sent: Wednesday, September 10, 2008 09:29
To: IBM-MAIN@xxxxxxxxxxx
Subject: TSO LINE COMMAND

Hallo All,

I am trying to copy a line of data place it after several other lines.
For
example, I would like to copy 000002 after , 000003, 000004, 000005
etc.
e.g.
000002 MGMTCLAS (NOMIG)
000003 ALTER AM2.DBC.DEPD.ACRDRLJO.I0001.A001
000004 ALTER AM2.DBC.DEPC.ACRDRLJO.I0001.A001
000005 ALTER AM2.DBC.DEPD.ACRDRLJO.I0001.A001

The file has 1,300 entries.

In ROSCOE, I used the following command CR A A A A

Is there something equivalent. I GOOGLED TSO commands but I couldn't
find
the commands.


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html



---------------------------------------------------------------
This e-mail, including any attachments, contains information
that is private and confidential and solely intended for the
addressee or addressees. If you are not the named or intended
recipient, please inform the sender immediately by reply
transmission and delete this e-mail, including any attachments,
without opening or copying it. In addition, in this event you
are hereby notified that any disclosure, reading, reproduction,
dissemination, distribution or any other use of this e-mail,
including any attachments, is strictly prohibited. No warranty
or guarantee is given with respect to the correct and accurate
transmission of the content as well as with respect to the
timely receipt of a sent e-mail.

Messages and attachments are scanned for all viruses known. If
this message contains password-protected attachments, the files
have NOT been scanned for viruses by the Fortis.com mail
domain. Always scan attachments before opening them.
---------------------------------------------------------------

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

.

Relevant Pages

  • Re: Difference between a Command Button and a Label
    ... command button, as were the people from whom I borrowed the idea, so I ... You cannot place the focus on a label. ... "what happens if the users get used to one developer's colour coding ... If anyone would care to post this to a web site, ...
    (microsoft.public.access.forms)
  • Re: TSO LINE COMMAND
    ... 1.Select the lineto copy by the C or CC/CC  line command ... 'ISREDIT MACRO NOPROCESS' ...   Do ... 'ISREDIT LOCATE FIRST lABEL' ...
    (bit.listserv.ibm-main)
  • Re: Difference between a Command Button and a Label
    ... for colored command buttons. ... You cannot place the focus on a label. ... Tom Ellison ... If anyone would care to post this to a web site, ...
    (microsoft.public.access.forms)
  • Re: TSO LINE COMMAND
    ... 'ISREDIT MACRO NOPROCESS' ...   Do ... 'ISREDIT LOCATE FIRST lABEL' ... CC in the line command) after ...
    (bit.listserv.ibm-main)
  • Re: Difference between a Command Button and a Label
    ... The idea of using a label as a command button has been around for quite some ... Up events to simulate the look of a command button when it is clicked. ... I also use standard graphics for custom navigation buttons, ... developer's colour coding and then are faced with a different set from ...
    (microsoft.public.access.forms)