*         %GOTO CDA1;              /* BILINGUAL MAPPING MACRO           00050000
          MACRO                                                         00100000
          IGFCDA  &DSECT=YES         */                                 00150000
*%CDA1:   ;                                                             00200000
*/*******************************************************************   00250000
*                                                                       00300000
*         CHANNEL CHECK HANDLER DATA AREA                               00350000
*                                                                       00400000
*********************************************************************   00450000
*                                                                       00500000
*    STATUS                                                             00550000
*         OS/VS2 RELEASE 3.7, SU51                                      00600051
*                                                                       00650000
*    METHOD OF ACCESS                                                   00700000
*                                                                       00750000
*         PL/S - DCL CDAPTR PTR                                         00800000
*                                                                       00850000
*         BAL  - IGFCDA   (MACRO CALL)                                  00900000
*                DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED         00950000
*                USING CDA,REG                                          01000000
*                LOAD REG WITH CDA ADDRESS                              01050000
*                                                                       01100000
********************************************************************/   01150000
*%GOTO CDA2;                       /*                                   01250000
          SPACE 1                                                       01310000
          AIF   ('&DSECT' EQ 'NO').CDA001                               01350000
CDA       DSECT                                                         01400000
          AGO   .CDA002                                                 01450000
.CDA001   ANOP                                                          01500000
CDA       DS    0F                                                      01550000
.CDA002   ANOP                                                          01600000
CDACCH6A  DC    AL4(0)             ADDRESS OF IGFC60           @YM6840  01650000
CDACCH7A  DC    AL4(0)             ADDRESS OF IGFC70           @YM6840  01700000
CDACCH8A  DC    AL4(0)             ADDRESS OF IGFC80           @YM6840  01750000
CDACCHIA  DC    AL4(0)             ADDRESS OF IGFCIC           @YM6840  01800000
CDACCHSL  DS    CL1                RELEASE LEVEL FROM CVT               01850000
          DS    CL7                RESERVED                             01900000
          DS    0D                                                      01910000
          AIF   ('&DSECT' EQ 'NO').CDA003                               02052000
CDACCHM1  DS    CL64               MESSAGE BUFFER FORMAT       @G51BPLC 02060051
          AGO   .CDA007                                                 02210000
.CDA003   ANOP                                                          02220000
CDACCHM1  DS    0XL64                                                   02230000
          DC    X'0039'        MESSAGE LENGTH                           02248400
          DC    X'8000'        MCS FLAG FIELD                           02248800
          DC    C'IGF002I '    MESSAGE ID                               02249200
          DC    C'CHANNEL DETECTED ERROR ON '                           02249600
          DC    C'   '         UNIT ADDRESS                             02249700
          DC    C','                                                    02249800
          DC    C'  '          PROCESSOR ADDRESS                        02249900
          DC    C','                                                    02266600
          DC    C'    '        BLAME FIELD                              02276600
          DC    C','                                                    02278600
          DC    C'  '          CCW COMMAND CODE                         02280600
          DC    C','                                                    02282600
          DC    C'    '        CSW UNIT AND CHANNEL STATUS              02283000
          DC    X'1000'        DESCRIPTOR CODES                         02283100
          DC    X'4000'        ROUTING CODES                            02283200
          DC    X'000000'      RESERVED                                 02285200
.CDA007   ANOP                                                          02290800
*                                                                       02294400
*    END OF CHANNEL CHECK HANDLER DATA AREA                             02300000
*                                                                       02350000
          MEND                                                          02400000
*                                  */                                   02450000
*%CDA2:   ;                                                             02500000
*                                                                       02550000
   DCL 1  CDA BASED(CDAPTR),                                            02600000
         2 CDACCH6A PTR(31),       /* ADDRESS OF IGFC60               */02650000
         2 CDACCH7A PTR(31),       /* ADDRESS OF IGFC70               */02700000
         2 CDACCH8A PTR(31),       /* ADDRESS OF IGFC80               */02750000
         2 CDACCHIA PTR(31),       /* ADDRESS OF IGFCIC               */02800000
         2 CDACCHSL CHAR(1),       /* RELEASE LEVEL FROM CVT          */02850000
         2 CDACCHRS CHAR(7),       /* RESERVED                        */02900000
         2 CDACCHM1 CHAR(64);      /* MESSAGE BUFFER FORMAT   @G51BPLC*/03000051
          /* END OF CHANNEL CHECK HANDLER DATA AREA       */            03200000