00010000          CONTROL ASIS
00010100 ISREDIT  MACRO (COMMAND)
00011003 /*  TITLE:       @STRAP -- trap clist write statements and imbed at +
00011103   end of file in edit */
00012003 /*  Users:       TSO ISPF EDIT +
00012103   users                                                    */
00012303 /* modification of @STRAP to facilitate entry into CLIST manual -- +
00012403   IS03 d.mcr           */
00013003 /*  Entry:       Used as an EDIT CLIST within ISPF EDIT  ===> &STRAP +
00013103   ddname all         */
00014003 /*  Contributed: 1985/08/29 David McRitchie           +
00014103                                     */
00015003 /*  EXAMPLE:  ===> @STRAP DDNAME +
00015103   ALL                                                        */
00015300         ISREDIT LINE_AFTER .ZLAST = -
00016003            ":&SYSLC(HP2).EDIT:&SYSLC(EHP)2.:&SYSLC(HP)2.---- +
00016103              IS03.SHARE.TEXT(EDITXXXX) - 01.00 - COLUMNS 001 +
00016203                124:&SYSLC(EHP2.)&rbl."
00016400         ISREDIT LINE_AFTER .ZLAST = -
00017003            ":&SYSLC(HP)2.COMMAND +
00017103              ===>:&SYSLC(EHP)2.                                 +
00017203                :&SYSLC(HP)2.SCROLL ===> CSR:&SYSLC(EHP)2.&rbl."
00017400         ISREDIT LINE_AFTER .ZLAST = -
00018003            ":&SYSLC(HP)2.******:&SYSLC(EHP)2. +
00018103              **************************** TOP OF DATA +
00018203                *****************************"
00019900         SET IC = 1000010
00020500         ISREDIT LINE_AFTER .ZLAST = "&SUBSTR(2:8,&STR(&IC ))"
00020600         SET IC = &IC + 10
00020703         ISREDIT LINE_AFTER .ZLAST = "&SUBSTR(2:8,&STR(&IC ))COMMAND +
00020803           INVOKING @STRAP CLIST MACRO ===> @STRAP &STR(&COMMAND)"
00021000         SET IC = &IC + 10
00022000         ISREDIT LINE_AFTER .ZLAST = "&SUBSTR(2:8,&STR(&IC ))"
00030000          SET SYSOUTTRAP = 700
00031000          &COMMAND
00040000          SET N = &SYSOUTLINE
00040100          SET SYSOUTTRAP = 0
00041000 WRITE    ===> @STRAP &COMMAND
00050000          SET I = 1
00060000          DO WHILE &I <= &N
00070000             SET X = &STR(&&SYSOUTLINE&I..)
00080000             SET X = &STR(&X.)
00080100             SET IC = &IC + 10
00081003             ISREDIT LINE_AFTER .ZLAST = "&SUBSTR(2:8,&STR(&IC +
00081103               ))&STR(&X)"
00090000 /*          WRITE LINE &I IS "&X".
00091000             SET I = &I. + 1
00100000          END
00110000         ISREDIT LINE_AFTER .ZLAST = -
00120003            ":&SYSLC(HP)2.******:&SYSLC(EHP)2. +
00121003              ************************* BOTTOM OF DATA +
00121103                *****************************"