*        %GOTO COMIPLS;                 /* BILINGUAL HEADER             02000010
         MACRO                                                          04000010
         TCOMIPLD                                                       06000010
.*A000000,999999                                                        08000010
*                                                                       10000010
*        COMMON IPL WORKAREA (IGCMD10D,MF,ME,MG)                        12000010
*                                                                       14000010
COMCCWS  DS    3D .                     CHANNEL COMMAND WORDS           16000010
COMCCW1  EQU   COMCCWS .                 1ST CCW                        18000010
COM1CNT  EQU   COMCCW1+6                 1ST CCW COUNT                  20000010
COMCCW2  EQU   COMCCWS+8 .               2ND CCW                        22000010
         DS    F .                      RESERVED                        24000010
COMINBF1 DS    512C .                   INPUT BUFFER1                   26000010
COMINBF2 DS    512C .                   INPUT BUFFER2                   28000010
COMLEN   EQU   *-IEDCOM .               COMMON WKAREA LENGTH            30000010
         MEND                                                           32000010
*        */                                                             34000010
*%COMIPLS:;                                                             36000010
*/*                                                                  */ 38000010
*/*      COMMON IPL WORKAREA (IGCMD10D,MF,ME,MG)                     */ 40000010
*/*                                                                  */ 42000010
*   2 COMCCWS  CHAR(24),                /* CHANNEL COMMAND WORDS     */ 44000010
*    3 COMCCW1  CHAR(8),                /*  1ST CCW                  */ 46000010
*     4 *        CHAR(6),               /*   RESERVED                */ 48000010
*     4 COM1CNT  CHAR(1),               /*   1ST CCW COUNT           */ 50000010
*     4 *        CHAR(1),               /*   RESERVED                */ 52000010
*    3 COMCCW2  CHAR(8),                /*  2ND CCW                  */ 54000010
*    3 *        CHAR(8),                /*  RESERVED                 */ 56000010
*   2 *        CHAR(4),                 /* RESERVED                  */ 58000010
*   2 COMINBF1 CHAR(512),               /* INPUT BUFFER1             */ 60000010
*   2 COMINBF2 CHAR(512);               /* INPUT BUFFER2             */ 62000010
*%COMLEN='LENGTH(IEDCOM)';              /* COMMON WKAREA LENGTH      */ 64000010
*/* COMFLAGS VALUES                                                  */ 66000010
*DCL COMDLCN4 BIT(8) CONSTANT('02'X);   /* DLC RETURN TO N4          */ 68000010
*DCL COMDLCMP BIT(8) CONSTANT('12'X);   /* DLC RETURN TO MP          */ 70000010
*DCL COMDLCMF BIT(8) CONSTANT('14'X);   /* DLC RETURN TO MF          */ 72000010