Edit macro @TPP                                                  Edit macro @TPP

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

--------------------------------------------------------------------------------
@TPP     Create  .TP entries based on use of ª character
--------------------------------------------------------------------------------
    related   see also IS03.SHARE.TEXT(STAFF) for example
--------------------------------------------------------------------------------

      *-----------description-----

      *-----------description-----

      *---- The @TPP   clist description is used only as skeleton
     *
      *-----------description-----

      *-----------description-----
     *
      *-----------description-----
     *

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

                          Since square brackets are not available, optional
                           material is enclosed in European brackets <...>.
  ISREDIT  @TPP   <lptr-range|ENTIRE> <NX|X> <LEFT|RIGHT>

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

     lptr-range   A  pair of line pointers can be used to restrict the lines un-
                  der consideration.  The line pointers must be a labels.  Spec-
                  ifying one line pointer is  invalid.    The  default,  if  not
                  specified,  is  .ZFIRST  and .ZLAST, indicating that all lines
                  are to be processed.
     ENTIRE       will be substituted by .ZFIRST .ZLAST

     X            Affects only lines that are EXCLUDED from the display
     NX           Affects only lines that are  NOT  EXCLUDED from the display

Examples

           @TPP   .A .B     *-----example --description------*

     Notice: AUTOSAVE OFF   is invoked


Internal Aspects

 ISREDIT MACRO (ADD1 ADD2 ADD3 ADD4)
 /* CONTRIBUTED: DAVID MCRITCHIE 1987/08/06
 /* THIS CLIST WILL IDENTIFY ALL  NX "ª" AND CREATE
 /* A LINE  ".TPP VALA VALA VALA VALA"
 /* FOR USE IN SOP MANUAL
 /* FOR USE ONLY WITH MEMBERS NOT ALREADY SET UP TO USE TABS.
 /*
 /* THIS CLIST IS DESCRIBED IN IS03.SHARE.TEXT(@TPP)
 /*                     AND IN IS03.SHARE.TEXT(STAFF)
 /*
 /* TECH.LIBR2.TEXT(FRAME)   .IM FRAME
 /*       WILL CONVERT  .TPP 5 10 15 20 25 30
 /*
 /* TO EQUIVALENT OF    .TP  5 10 15 20 25 30
 /* AND                 .IF 38PP = &$PDEV .TP 5M 10M 15, 20M 25M 30M
 /*
 /* USEFUL HINTS
 /*  SET UP A PFKEY  4 ==> F '   '\C '   ' '  ª'
 /*  THEN DO     ==> @TPP    OR    @TPP 0 5
 /*              ==> X ALL
 /*              ==> F .TPP 1 ALL
 /*              ==> REMDUPS NX
 SET ADD1 = 0&ADD1 + 0
 SET ADD2 = 0&ADD2 + 0
 IF &STR(&ADD3) = &STR() THEN SET ADD3 = &ADD1 + 1
 IF &STR(&ADD4) = &STR() THEN SET ADD4 = &ADD2
 ISREDIT X ALL '.' 1
 GOTO DONE
 AGAIN: -
 SET VALA = &STR()
 ISREDIT F FIRST .ZCSR .ZCSR 'ª'
 IF &LASTCC ª= 0 THEN GOTO DONE
 SET VALA = &STR()
 SET VALB = &STR()
 CONTND: -
 ISREDIT (CP11,CP12) = CURSOR
 SET CPXX = &CP12
 IF &EVAL(&ADD2) ª= &EVAL(0) THEN SET CP12 = &CP12 / &ADD2
 SET CP12 =  &CPXX + &ADD1
 SET VALA = &VALA. &CP12
 IF &EVAL(&ADD4) ª= &EVAL(0) THEN SET CP12 = &CPXX / &ADD4
 SET CP12 =  &CPXX + &ADD3
 SET VALB = &VALB. &CP12
 ISREDIT F NEXT  .ZCSR .ZCSR 'ª'
 IF &LASTCC = 0 THEN GOTO CONTND
 DONE: IF &STR(&VALA) ª= &STR() THEN -
    ISREDIT LINE_BEFORE .ZCSR = DATALINE '.TPP &VALA.;.IF 38PP = &&&&$PDEV  .TPP
&VALB'
 SET NN = 0&NN + 1
 ISREDIT F NEXT 'ª' NX
 IF &LASTCC = 0 THEN GOTO AGAIN
 ISREDIT  LINE_BEFORE  .ZFIRST  =  NOTELINE "@TPP INVOKED &SYSTIME AND ADDED &NN
.TPP LINES "
 ISREDIT LINE_BEFORE .ZFIRST = NOTELINE "  IN FRONT OF  DISPLAYED LINES CONTAIN-
ING TABS 'ª'"
 ISREDIT LINE_BEFORE .ZFIRST = DATALINE ".*    &SYSDATE.  &SYSTIME.  @TPP  &ADD1
&ADD2 &ADD3 &ADD4 "