MACRO                                                          01000020
&NAME    STAUTOLN &S=,&I=                                               02000020
.********************************************************************** 03000020
.*                                                                    * 04000020
.*                                                                    * 05000020
.*RELEASE 23 DELETIONS                                                * 06000020
.*                                                                    * 07000020
.*RELEASE 22 DELETIONS                                                * 08000020
.*                                                                    * 09000020
.*RELEASE 21 DELETIONS                                                * 10000020
.*                                                                    * 11000020
.*STATUS - CHANGE LEVEL 000                                           * 12000020
.*                                                                    * 13000020
.*NAME - STAUTOLN                                                     * 14000020
.*                                                                    * 15000020
.*FUNCTION - THIS MACRO IS USED TO ALLOW THE USER TO REQUEST AUTO-    * 16000020
.*   MATIC LINE NUMBERING.                                            * 17000020
.*                                                                    * 18000020
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 19000020
.*                                                                    * 20000020
.*       THE STANDARD FORM OF THE EXPANSION IS BELOW                  * 21000020
.*                                                                    * 22000020
.*&NAME  LA    1,ADDR1                  PUT ADDR OF S VALUE IN REG 1  * 23000020
.*       LA    0,9                      LOAD ENTRY CODE IN REG 0      * 24000020
.*       SLL   0,24                     SHIFT ENTRY CODE TO HIGH ORDER* 25000020
.*       OR    0,1                      PUT ADDR OF S VALUE IN REG 0  * 26000020
.*       LA    1,ADDR2                  PUT ADDR OF 2 VALUE IN REG 1  * 27000020
.*       SVC   94                       ISSUE STATUS SVC              * 28000020
.*                                                                    * 29000020
.********************************************************************** 30000020
         AIF   ('&S' EQ '' OR '&I' EQ '').ERROR                         32000020
         AIF   ('&S'(1,1) EQ '(').SREG                                  34000020
&NAME    LA    1,&S                     PUT ADDR OF S VALUE IN REG 1    36000020
         AGO   .ENTRYCD                                                 37000020
.SREG    ANOP                                                           38000020
&NAME    LR    1,&S                     PUT ADDR OF S VALUE IN REG 1    39000020
         LA    1,0(1)                  CLEAR HIGH ORDER BYTE            39500020
.ENTRYCD LA    0,9                      LOAD ENTRY CODE IN REG 0        40000020
         SLL   0,24                     PUT ENTRY CODE IN HIGH ORDER    41000020
         OR    0,1                     PUT ADDR. OF S VALUE IN REG. 0   42000020
         AIF   ('&I'(1,1) EQ '(').IREG                                  43000020
         LA    1,&I                    PUT ADDR. OF I VALUE IN REG. 1   44000020
         AGO   .SVC                                                     45000020
.IREG    LR    1,&I                    PUT ADDR. OF I VALUE IN REG. 1   46000020
         LA    1,0(1)                  CLEAR HIGH ORDER BYTE            47000020
.SVC     SVC   94                      ISSUE SVC 94                     48000020
         MEXIT                                                          49000020
.ERROR  IHBERMAC 24                                                     50000020
         MEND                                                           52000020