*        %GOTO COMDPLS;                 /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TCOMDMPD                                                       09000010
.*A000000.999999                                               @Y17XAXF 12000010
*                                                                       15000010
*        COMMON DUMP WORKAREA (IGCMP10D)                                18000010
*                                                                       21000010
COMINBF1 DS    512C .                   INPUT BUFFER1                   24000010
COMINBF2 DS    512C .                   INPUT BUFFER2                   27000010
         DS    F .                      RESERVED                        30000010
COMNEXT  DS    A .                      NEXT DATA TO XFER               33000010
COMNEXT1 DS    A .                      INITIAL AREA                    36000010
COMDECB  DS    20C .                    DECB FOR WRITES                 39000010
COMLEN   EQU   *-IEDCOM .               COMMON WKAREA LENGTH            42000010
         MEND                                                           45000010
*        */                                                             48000010
*%COMDPLS:;                                                             51000010
*/*                                                                  */ 54000010
*/*      COMMON DUMP WKAREA (IGCMP10D)                               */ 57000010
*/*                                                                  */ 60000010
*   2 COMINBF1 CHAR(512),               /* INPUT BUFFER1             */ 63000010
*   2 COMINBF2 CHAR(512),               /* INPUT BUFFER2             */ 66000010
*   2 *        PTR(31),                 /* RESERVED                  */ 69000010
*   2 COMNEXT  PTR(31),                 /* NEXT DATA TO XFER         */ 72000010
*   2 COMNEXT1 PTR(31),                 /* INITIAL AREA              */ 75000010
*   2 COMDECB  CHAR(20);                /* DECB FOR WRITES           */ 78000010
*%COMLEN='LENGTH(IEDCOM)';              /* COMMON WKAREA LENGTH      */ 81000010
*/* COMFLAGS VALUES                                                  */ 84000010
*DCL COMDLCN4 BIT(8) CONSTANT('02'X);   /* DLC RETURN TO N4          */ 87000010
*DCL COMDLCMP BIT(8) CONSTANT('12'X);   /* DLC RETURN TO MP          */ 90000010
*DCL COMDLCMF BIT(8) CONSTANT('14'X);   /* DLC RETURN TO MF          */ 93000010