MACRO                                                          02000020
&NAME    RTAUTOPT &A                                                    04000020
.********************************************************************** 06000020
.*                                                                    * 08000020
.*                                                                    * 10000020
.*RELEASE 23 DELETIONS                                                * 12000020
.*                                                                    * 14000020
.*RELEASE 22 DELETIONS                                                * 16000020
.*                                                                    * 18000020
.*RELEASE 21 DELETIONS                                                * 20000020
.*                                                                    * 22000020
.*STATUS - CHANGE LEVEL 000                                           * 24000020
.*                                                                    * 26000020
.*NAME - RTAUTOPT                                                     * 28000020
.*                                                                    * 30000020
.*FUNCTION - THIS MACRO ALLOWS THE USER TO RESTART AUTOMATIC LINE     * 32000020
.*   NUMBERING OR AUTOMATIC CHARACTER PROMPT.                         * 34000020
.*                                                                    * 36000020
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 38000020
.*                                                                    * 40000020
.*       THE STANDARD FORM OF THE EXPANSION IS BELOW                  * 42000020
.*                                                                    * 44000020
.*&NAME  SR    1,1                      PREPARE PARM                  * 46000020
.*       LA    0,14                     LOAD ENTRY CODE               * 48000020
.*       SLL   0,24                     PUT ABOVE IN LEFT MOST IN REG * 50000020
.*       SVC   94                       ISSUE SVC                     * 52000020
.*                                                                    * 54000020
.********************************************************************** 56000020
         AIF   ('&A' NE '').ERROR                                       58000020
&NAME    SR    1,1                      PREPARE PARM                    60000020
         LA    0,14                     LOAD ENTRY CODE                 62000020
         SLL   0,24                     PUT ENTRY CODE IN HIGH ORDER    64000020
.*                                      BYTE IN REG                     66000020
         SVC   94                       ISSUE SVC                       68000020
         MEXIT                                                          70000020
.ERROR   ANOP                                                           72000020
         IHBERMAC 36,,&A                                                74000020
         MEXIT                                                          76000020
         MEND                                                           78000020