MACRO                                                          02000020
&NAME    STAUTOCP &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 - STAUTOCP                                                     * 28000020
.*                                                                    * 30000020
.*FUNCTION - THIS MACRO GIVES THE USER THE ABILITY TO REQUEST AUTO-   * 32000020
.*   MATIC CHARACTER PROMPT.                                          * 34000020
.*                                                                    * 36000020
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 38000020
.*                                                                    * 40000020
.*       THE STANDARD FORM OF THE EXPANSION IS BELOW                  * 42000020
.*                                                                    * 44000020
.*       CNOP  0,4                                                    * 46000020
.*&NAME  SR    1,1                      PREPARE PARM                  * 48000020
.*       LA    0,12                     LOAD ENTRY CODE               * 50000020
.*       SVC   94                       ISSUE SVC                     * 52000020
.*                                                                    * 54000020
.********************************************************************** 56000020
         AIF   ('&A' NE '').ERROR                                       58000020
         CNOP  0,4                                                      60000020
&NAME    SR    1,1                      PREPARE PARM                    62000020
         LA    0,12                     LOAD ENTRY CODE                 64000020
         SLL   0,24                     PUT ENTRY CODE IN LEFT MOST     66000020
*                                       BYTE OF REGISTER                68000020
         SVC   94                       ISSUE SVC                       70000020
         MEXIT                                                          72000020
.ERROR   ANOP                                                           74000020
         IHBERMAC 36,,&A                                                76000020
         MEXIT                                                          78000020
         MEND                                                           80000020