*%/*                                                                    00060002
         MACRO                                                          00070002
&NAME    WAIT  &CNT,&ECB=,&ECBLIST=,&LONG=NO,&RELATED=                  00100002
         AIF   ('&ECB&ECBLIST' EQ '').E1                                00150002
         AIF   (T'&ECB NE 'O' AND T'&ECBLIST NE 'O').E2                 00200002
         AIF   ('&LONG' NE 'YES' AND '&LONG' NE 'NO').E3                00210002
         AIF   ('&ECB' NE '').CHECK                                     00250002
         AIF   ('&ECBLIST'(1,1) EQ '(').REG                             00300002
         AGO   .CONTD                                                   00350002
.CHECK   AIF   ('&ECB'(1,1) NE '(').CONTD                               00400002
.REG     ANOP                                                           00450002
&NAME    LA    1,0(0,&ECB(1)&ECBLIST(1))   CLEAR HIGH BYTE OF REG       00500002
         AIF   ('&CNT' EQ '').CONTF                                     00550002
         AIF   ('&CNT'(1,1) EQ '(').CONTG                               00600002
         LA    0,&CNT.(0,0)                 LOAD PARAMETER REG 0 YM1995 00650002
         AGO   .CONTA                                                   00700002
.CONTD   ANOP                                                           00750002
         AIF   ('&CNT' EQ '&CNT(1)' AND '&CNT' NE '').CONTC             00800002
&NAME    IHBINNRA &ECB&ECBLIST,&CNT         LOAD REG 0 AND REG 1        00850002
         AIF   ('&CNT' NE '').CONTA                                     00900002
.CONTF   LA    0,1(0,0)                      COUNT OMITTED,1 USED       00950002
         AGO   .CONTA                                                   01000002
.CONTG ANOP                                                             01050002
         LR    0,&CNT(1)                                                01100002
         AGO   .CONTA                                                   01150002
.CONTC   ANOP                                                           01200002
&NAME    IHBINNRA &ECB&ECBLIST,&CNT.(0,0)                               01250002
.CONTA   AIF   ('&ECBLIST' EQ '').CONTB                                 01300002
         LCR   1,1                               INDICATE ECBLIST USED  01350002
.CONTB   AIF   ('&LONG' EQ 'NO').CONT        TEST FOR LONG WAIT         01360002
         BCR   8,0                   GIVES AN INLINE '80'               01362002
         ICM   0,8,*-1                 INSERT INTO HI BYTE              01370002
.CONT    SVC   1                                 LINK TO WAIT ROUTINE   01400002
         MEXIT                                                          01450002
.E1      IHBERMAC 11                        ECB AND ECBLIST MISSING     01500002
         MEXIT                                                          01550002
.E2      IHBERMAC 54,,'ECB=&ECB AND ECBLIST=&ECBLIST'                   01600002
         MEXIT                                                          01610002
.E3      IHBERMAC 1001,LONG,&LONG        INVALID LONG PARAMETER         01620002
         MEND                                                           01650002
**/                                                                     01700002
*  WAIT : /***********************************************************/ 01750002
*/*                                                                  */ 01800002
*/*************** PL/S VERSION OF THE WAIT MACRO *********************/ 01850002
*/*                                                                  */ 01900002
*/********************************************************************/ 01950002
*                                                                       02000002
* MACRO                                                                 02050002
*   KEYS( ECB, ECBLIST, LONG, RELATED );                                02100002
*        ANS('?'||MACLABEL||'WAITP '||MACLIST||MACKEYS||';');           02150002
*%END;                                                                  02200002