*        %GOTO PROCPLS;                 /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TPROCD                                                         09000010
.*A000000-999999                                            @Y17XAXF    12000010
IEDPROC  DSECT                                                          15000010
*                                                                       18000010
*        DSECT FOR TPROCESS DEVICE DEPENDENT INFO                       21000010
*                                                                       24000010
PROLEN   DS    CL1 .               LEN OF TPROCESS DEV DEPENDENT INFO   27000010
PROFLAG  DS    CL1 .               TPROCESS FLAGS                       30000010
PROSECQ  EQU   X'80' .                  QUEUE IS SECURE                 33000010
PROLU    EQU   X'40' .                  LU=YES ON INPUT TPROCESS ENTRY  36000010
PRODATE  EQU   X'20' .                  DATE=YES SPECIFIED ON TPROCESS  37000010
*                                        MACRO                          38000010
*        EQU   X'10'-X'01' .            RESERVED                        39000010
PROILEN  EQU   *-IEDPROC .         LENGTH OF TPROCESS DEV DEP FIELD     42000010
         MEND                                                           45000010
*        */                                                             48000010
*%PROCPLS:;                                                             51000010
*DECLARE                                                                54000010
*  1 IEDPROC  BASED BDY(BYTE),                                          57000010
*/*                                                                  */ 60000010
*/*      DSECT FOR TPROCESS DEVICE DEPENDENT INFO                    */ 63000010
*/*                                                                  */ 66000010
*    2 PROLEN   CHAR(1),                /* LEN OF TPROCESS DEV DEP   */ 69000010
*    2 PROFLAG  CHAR(1),                /* TPROCESS DEV DEP          */ 72000010
*      3 PROSECQ BIT(1),                /*   QUEUE IS SECURE         */ 75000010
*      3 PROLU   BIT(1),                /*   LU=YES ON INPUT TPROCESS*/ 78000010
*      3 PRODATE BIT(1),                /*   DATE=YES ON TPROCESS MACRO 79000010
*                                                                    */ 80000010
*      3 *       BIT(5);                /*   RESERVED                */ 81000010
* %PROILEN='LENGTH(IEDPROC)';           /*LENGTH OF TPROCESS INFO    */ 84000010