Edit macro EDITOL                                              Edit macro EDITOL

                                                       Author: David McRitchie
                                                   formatted on  1995/04/01 06:54
          for assistance contact: D. McRitchie                DMcRitchie@hotmail.com
--------------------------------------------------------------------------------
Macro name.  EDITOL
users.       PDF EDIT users specifically SCRIPT users
type.        Edit Macro   resides in SYS1.TSOCLIST

--------------------------------------------------------------------------------
EDITOL   Nesting check of list GML tags
--------------------------------------------------------------------------------
  related   see Page Printing Considerations in the index.
 EDITCHEK, EDITOL, FIXPI, FIXQUOTE, PERIOD, PLICHK, PINX, PINXDOIT, PIR, SHIFTNX
, NXNX, LABNX
--------------------------------------------------------------------------------

     This edit macro checks the nesting of
      Check of nesting of
          :ol. ... :eol.  :sl. ... :esl.  :ul. ... :eul.

     Because this edit macro checks nesting, it can also DISPLAY (NX) level
     1 list (:li.) lines using LVL1 option.   The LVL2 option works in  the
     same  manner  and  can be used separately or in conjunction with LVL1.
     If using both you might wish to use LABNX after doing LVL2 and the do-
     ing LVL1.

--------------------------------------------------------------------------------

                          Since square brackets are not available, optional
                           material is enclosed in European brackets <...>.
  ISREDIT  EDITOL   <lptr-range|ENTIRE>   <NX|X>   <LEFT|RIGHT>   <LVL1>  <LVL2>
<LVL3>  <NEST>

--------------------------------------------------------------------------------

       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.

       ENTIRE       will be treated as if  .zf .zl

       LVL1         Display  (NX) the level one index lines (:li.).  This option
                    is useful with the PINX edit macro.

       LVL2         Display (NX) the level two index lines(:li.).

       LVL3         Display (NX) the level two index lines(:li.).

       NEST         Display the level information for  each  :ol.,  :sl.,  :ul.,
                    :dl. and :gl. .

After your edit macro completes

1.  You may wish to redisplay some lines above  =NOTE= lines.
         L1    <-- entered on the line above each =NOTE+ (L1 -- last 1)

2.  You may wish to redisplay labelled lines, special lines.
         loc label
         loc special
         nxnx label     -- edit macro will display all labelled lines

3.  You  may  wish to display all lines (DO NOT use RESET).  You could use RESET
    EXCLUDED, but it would remove ==CHG> in doing so.
          F  '  '  ALL


EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===> EDITOL                                    SCROLL ===> CSR
COMMAND ===> find all ' '                              SCROLL ===> CSR

results in

EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===> EDITOL                                    SCROLL ===> CSR
*****    **************************** TOP OF DATA *****************************
-  -  -  -  -   -  -  -  3 LINE(S) NOT DISPLAYED
000080   :h1.xxxxx
.TAGOL   :ol.
000100   :li.item one
000110   :li.item two
000120   :li.item three
000130   :eol.
.TAGSL   :sl.
000150   :li.first item in simple list
000160   :li.last item in simple list
000170   :eul.
=NOTE=    LEVEL = 100 OL=100 SL=101 UL=99
000180   The above line is in error s/b :esl.
.tagul   :ul.
000200   :li.This item is not within any list
000210   :esl.
000220   :ul.
000230   :li.item #1
000240   :li.item #2
000250   :h2.Topic heading ....
=NOTE=    LEVEL = 101 OL=100 SL=100 UL=101
000260   :eul. <--- this is in error must be above :h2
=NOTE=    LEVEL = 101 OL=100 SL=100 UL=101
*****    ************************* BOTTOM OF DATA *****************************

Example of a :H2. separating :LI. entries
The definition of Headings (H0, H1, H2, etc.) causes  termination  of  any  open
lists,  footnotes,  quotation,  title  page,  figure,  example  or table.   <The
DSM#RSET macro is called upon to do this task.>

EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===> EDITOL                           SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
000001 :OL.
000002 :LI.
000003 :H2.
000004 :LI.
000005 :EOL.
000011 AAAAAAAAAAAA
****** ************************* BOTTOM OF DATA *****************************

EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===>                              SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
.TAGOL :OL.
- - - - - - - 1 LINE(S) NOT DISPLAYED
000003 :H2.
=NOTE= LEVEL = 101 OL=101 SL=100 UL=100 -- 10:57:25
- - - - - - - 3 LINE(S) NOT DISPLAYED
=NOTE= LEVEL = 100 OL=100 SL=100 UL=100 -- 10:57:25
****** ************************* BOTTOM OF DATA *****************************

                    Content for test of===> EDITOL LVL1 NEST

EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===>                              SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
- - -  - - - - - - - - - - - - - - - - - - - - - - 17 LINES(S) NOT DISPLAYED
000018 :ol.
000019 :li.item 1 one
000020 :li.item 2 two
000021 :ol.
000022 :li.item 2.1
000023 :li.item 2.2
000024 :ol compact.
000025 :li.item 2.2.1
000026 :li.item 2.2.2
000027 :eol.
000028 :li.item 2.3
000029 :li.item 2.4
000030 :eol.
000031 :li.item 3 three
000032 :eol.
000033 .*
****** ************************* BOTTOM OF DATA *****************************

                  Display after invoking===> EDITOL LVL1 NEST

EDIT---- IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 124
COMMAND ===>                              SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
- - -  - - - - - - - - - - - - - - - - - - - - - - 01 LINES(S) NOT DISPLAYED
=NOTE= OPTIONS AVAILABLE INCLUDE  -- LVL1 LVL2 LVL3 NEST
- - -  - - - - - - - - - - - - - - - - - - - - - - 16 LINES(S) NOT DISPLAYED
=NOTE= ===== :OL.    === BEGIN CNT=1 :OL.
- - -  - - - - - - - - - - - - - - - - - - - - - - 01 LINES(S) NOT DISPLAYED
=NOTE= CNT=1 LEVEL=1 OL=1
000019 :li.item 1 one
000020 :li.item 2 two
- - -  - - - - - - - - - - - - - - - - - - - - - - 01 LINES(S) NOT DISPLAYED
=NOTE= CNT=1 LEVEL=2 OL=2
- - -  - - - - - - - - - - - - - - - - - - - - - - 03 LINES(S) NOT DISPLAYED
=NOTE= CNT=1 LEVEL=3 OL=3
- - -  - - - - - - - - - - - - - - - - - - - - - - 03 LINES(S) NOT DISPLAYED
=NOTE= CNT=1 LEVEL=3 OL=3
- - -  - - - - - - - - - - - - - - - - - - - - - - 02 LINES(S) NOT DISPLAYED
000030 :eol.
=NOTE= CNT=1 LEVEL=2 OL=2
000031 :li.item 3 three
- - -  - - - - - - - - - - - - - - - - - - - - - - 01 LINES(S) NOT DISPLAYED
=NOTE= CNT=1 LEVEL=1 OL=1
=NOTE= ===== :EOL.   === END CNT=1 :EOL.
- - -  - - - - - - - - - - - - - - - - - - - - - - 01 LINES(S) NOT DISPLAYED
=NOTE= LEVEL = 100 OL=100 SL=100 UL=100 DL=100 -- 16:27:47
****** ************************* BOTTOM OF DATA *****************************

Once SCRIPTed the above example would appear as follows:

1.  item 1 one

2.  item 2 two

    a.  item 2.1

    b.  item 2.2

        1)  item 2.2.1
        2)  item 2.2.2

    c.  item 2.3

    d.  item 2.4

3.  item 3 three