LABNX edit macro

Macro name. LABNX		Edit macro LABNX
users.	HTML, DCF and text	Author: David McRitchie
type.	Edit Macro resides in SYS1.TSOCLIST for use with TSO Edit Macro resides in d:\spfmacro  for use with SPF/PC
LABNX	Label all NX lines included between two labels
Related	related ISPF usage ===> reset LABEL ===> loc LABEL next
Related	NXNX will redisplay all labeled lines in range

The LABNX edit macro will place labels on NX lines.  This is particularly useful in checking particular lines in relation to the main text.  The NX lines are the lines visible when you scroll through your file.  (Use the help key for line commands -- NX, for more information). LABNX can be a very useful tool when doing documentation or when preparing data within a PDS member.

All operands are optional.

CC-range	The process range for this macro may be further restricted to a single line using a single C over the line number, or a block of lines using a pair of CC line commands.  The default range is to process all lines in the entire range .ZFIRST to .ZLAST .
lptr-range	A pair of line pointers can be used to restrict the lines under consideration  The line pointers must be a labels.  Specifying one line pointer is invalid.
NX	Affects only lines that are NOT EXCLUDED from the display.  NX is the default.
X	Affects only lines that are EXCLUDED from the display.
NOPROCESS	Use only within an edit macro that will be used as an INITIAL macro. The use of ISREDIT UP 4 for example is not allowed within an INITIAL macro.
LAB(xxx)	The label prefix .XXX will be created instead of the default .LAB  A label will not overlay a preexisting label.

The edit macro NXNX can be used to redisplay all labelled lines within a range.  The edit macro LABNX can label lines, you may do other work which undisplays (hides) the labelled lines.  You can later make them reappear using the NXNX edit macro.

Examples:

+------------------------------------------------------------------------------+
| ===> x all                                                                   |
| ===> f '.kp' all                                                             |
| ===> labnx       (will be next command entered)                              |
+------------------------------------------------------------------------------+
| EDIT---- IS03.SHARE.TEXT(SOP#1010) - 01.00 - COLUMNS 001 124                 |
| COMMAND ===> labnx                           SCROLL ===> CSR                 |
| ****** **************************** TOP OF DATA **************************** |
| -     -  -  -  -  -  -  -  -  -  -  -  -   1 LINE(S) NOT DISPLAYED           |
| 000946      .kp off;.sk 1                                                    |
| -     -  -  -  -  -  -  -  -  -  -  -  -   2 LINE(S) NOT DISPLAYED           |
| 000949      .in +7                                                           |
| -     -  -  -  -  -  -  -  -  -  -  -  -   5 LINE(S) NOT DISPLAYED           |
| 000955      .kp off;.sk 1                                                    |
| -     -  -  -  -  -  -  -  -  -  -  -  -   6 LINE(S) NOT DISPLAYED           |
| ****** ************************** BOTTOM OF DATA *************************   |
+------------------------------------------------------------------------------+

+------------------------------------------------------------------------------+
| appearance after using  ===> RESET                                           |
+------------------------------------------------------------------------------+
| EDIT---- IS03.SHARE.TEXT(SOP#1010) - 01.00 - COLUMNS 001 124                 |
| COMMAND ===>                                 SCROLL ===> CSR                 |
| ****** **************************** TOP OF DATA **************************** |
| 000945        ªOperator....            ªCapacities see capacities            |
| .LABAA      .kp off;.sk 1;.kp on                                             |
| 000947      .tp 63;.IF 38PP = &$PDEV .tp 64                                  |
| 000948      :hp2.&rbl..pi /98 - Related procedures, index/nnnn//&amp.pron./: |
| ehp2.&rbl.ª                                                                  |
| .LABAB      .in +7                                                           |
| 000950      This form is used within the  ".related" macro to create an        |
| 000951      index entry relating the procedure being written to procedure    |
| .A          "nnnn" to which it refers.  The reverse is not entered, because    |
| 000953      it can be read directly from the "Reference&rbl.to&rbl.Related&r |
| bl.Procedures"                                                                |
| 000954 at the end of each procedure.                                         |
| .LABAC      .kp off;.sk 1;.kp on                                             |
| 000956      .tp 27;.IF 38PP = &$PDEV .tp 29                                  |
| 000957      :hp2.&rbl..pn fract:ehp2.&rbl.    ªSCRIPT control word usage     |
| 000958      .in +7                                                           |
| 000959      Used in place of ".PA" to create fractional update pages the       |
| 000960      rest of the manual will be retaining original pages.  If it      |
| 000961      does not replace a ".PA" it should be placed at the point at       |
| ****** ************************** BOTTOM OF DATA *************************   |
+------------------------------------------------------------------------------+

Sometimes internal aspects are included here to help explain aspects in the coding.  Lines with preexisting labels will be relabelled and label names will be checked to insure that a label of the same name does not already exist.  The default starting label is .LABaa as if LAB(LAB) had been included.

Comments

Please send your comments concerning my pages or materials to:  David using send email comments

Disclaimer and site usage:  Material at The REXX Macros Toolbox is available without warranty of any kind.  Redistribution of source, coding and documentation other than from this site is prohibited.

Copyright © 1995 - 2006, F. David McRitchie, All Rights Reserved