MACRO                                                          02000020
&NAME    STTIMEOU &A                    PROPOTYPE                       04000020
.********************************************************************** 06000020
.*                                                                    * 08000020
.*RELEASE 23 DELETIONS                                                * 10000020
.*                                                                    * 12000020
.*RELEASE 22 DELETIONS                                                * 14000020
.*                                                                    * 16000020
.*RELEASE 21 DELETIONS                                                * 18000020
.*                                                                    * 20000020
.*STATUS - CHANGE LEVEL 000                                           * 22000020
.*                                                                    * 24000020
.*NAME - STTIMEOU                                                     * 26000020
.*                                                                    * 28000020
.*FUNCTION - THE STTIMEOU MACRO IS USED TO SPECIFY WHETHER OR NOT THE * 30000020
.*   TERMINAL HAS THE TIMEOUT FEATURE.                                * 32000020
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 34000020
.*                                                                    * 36000020
.*                                                                    * 38000020
.*       THE STANDARD FORM OF THE EXPANSION IS BELOW                  * 40000020
.*                                                                    * 42000020
.*&NAME  LA    1,128                    LOAD FLAG BYTE                * 44000020
.*       SLL   1,24                     PUT ABOVE IN LEFT MOST IN REG * 46000020
.*       LA    0,6                      LOAD ENTRY CODE               * 48000020
.*       SLL   0,24                     PUT ENTRY CODE IN LEFT MOST   * 50000020
.*                                      BYTE OF REGISTER              * 52000020
.*       SVC   94                       ISSUE SVC                     * 54000020
.*                                                                    * 56000020
.********************************************************************** 58000020
         AIF   ('&A' EQ 'YES' OR '&A' EQ '').TIMEOUT                    60000020
         AIF   ('&A' EQ 'NO').NOTMOUT                                   62000020
.ERROR   IHBERMAC 36,,&A                                                64000020
         MEXIT                          EXIT                            66000020
.TIMEOUT ANOP                                                           68000020
&NAME    LA    1,128                    LOAD FLAG BYTE                  70000020
         SLL   1,24                     PUT ABOVE IN LEFT MOST OF REG   72000020
         AGO   .ENTRYCD                 GO TO ENTRYCD                   74000020
.NOTMOUT ANOP                                                           76000020
&NAME    SR    1,1                      PREPARE FLAG BYTE               78000020
.ENTRYCD LA    0,6                      LOAD ENTRY CODE                 80000020
         SLL   0,24                     PUT ENTRY CODE IN LEFT MOST     82000020
.*                                      BYTE OF REGISTER                84000020
         SVC   94                       ISSUE SVC                       86000020
         MEND                                                           88000020