*%/*                                                                    00012002
* /* MACCOMP Y-1 SC1CL/PZD81                                         */ 00014002
* /* MACSTAT Y-1 72271/015035                                        */ 00020002
* /*                                                                    00030002
        MACRO                                                           00050002
&NAME    DETACH &TCB,&STAE=,&RELATED=                             20021 00100002
* /* MACDATE Y-1 72271                                               */ 00120002
* /*                                                                    00130002
         AIF   ('&TCB' EQ '').E1                                        00150002
&NAME    IHBINNRA &TCB                      LOAD REG 1                  00200002
         AIF   ('&STAE' EQ '' OR '&STAE' EQ 'NO').G1              20021 00250002
         AIF   ('&STAE' NE 'YES').E2                                    00260002
         LA    0,X'80'(0,0)   GET BIT IN REGISTER                YM1995 00300002
         SLL   0,24(0)        SHIFT INTO HIGH BIT POSITION       YM1995 00350002
         OR    1,0            SET HIGH ORDER BIT IN REG 1         20021 00400002
.G1     SVC   62             ISSUE DETACH SVC                           00450002
         MEXIT                                                          00500002
.E1      IHBERMAC 01,324                    MISSING PARAMETER           00550002
         MEXIT                                                          00560002
.E2      IHBERMAC 1001,STAE,&STAE      INVALID STAE PARAMETER           00570002
         MEND                                                           00600002
**/                                                                     00650002
*DETACH: MACRO                                                          00700002
*        KEYS(STAE,RELATED);                                            00750002
*        ANS('?'||MACLABEL||'DETACHP '||MACLIST||MACKEYS||';');         00800002
*%END;                                                                  00850002