*        %GOTO COMPLS;                  /* BILINGUAL HEADER             02000010
         MACRO                                                          04000010
         TCOMD                                                          06000010
.*A000000,999999                                               @Y17XAXF 08000010
IEDCOM   DSECT                                                          10000010
*                                                                       12000010
*        DSECT FOR COMMON IPL/DMP WKAREA (IGCMH10D,MI,MP,MD,ME,MF,MG)   14000010
*                                                                       16000010
COMKEY   DS    XL1 .                    KEY FIELD                       18000010
COMQCB   DS    AL3 .                    QCB ADDRESS                     20000010
COMPRI   DS    XL1 .                    PRIORITY FIELD                  22000010
COMLINK  DS    AL3 .                    LINK FIELD                      24000010
COMOPCE  DS    A .                      OPCE POINTER                    26000010
COMFLAGS DS    XL1 .                    FLAG FIELD                      28000010
COMDLCN4 EQU   X'02' .                   DLC RETURN TO N4               30000010
COMDLCMP EQU   X'12' .                   DLC RETURN TO MP               32000010
COMDLCMF EQU   X'14' .                   DLC RETURN TO MF               34000010
         DS    AL3 .                    RESERVED                        36000010
COMTTRZ  DS    A .                      TTR SAVE AREA          @YM04692 38000010
         MEND                                                           40000010
*        */                                                             42000010
*%COMPLS:;                                                              44000010
*DECLARE                                                                46000010
*  1 IEDCOM BASED BDY(WORD),                                            48000010
*/*                                                                  */ 50000010
*/*      DSECT FOR COMMON IPL/DMP WKAREA (IGCMH10D,MI,MP,MD,ME,MF,MG)*/ 52000010
*/*                                                                  */ 54000010
*   2 COMKEY   PTR(8),                  /* KEY FIELD                 */ 56000010
*   2 COMQCB   PTR(24),                 /* QCB ADDRESS               */ 58000010
*   2 COMPRI   PTR(8),                  /* PRIORITY FIELD            */ 60000010
*   2 COMLINK  PTR(24),                 /* LINK FIELD                */ 62000010
*   2 COMOPCE  PTR(31),                 /* OPCE POINTER              */ 64000010
*   2 COMFLAGS BIT(8),                  /* FLAG FIELD                */ 66000010
*   2 *        PTR(24),                 /* RESERVED                  */ 68000010
*   2 COMTTRZ  PTR(31),                 /* TTR SAVE AREA     @YM04692*/ 70000010