*        %GOTO PIU0PLS;                /* BILINGUAL HEADER              03000010
         MACRO                                                          06000010
         TPIU0D                                                         09000010
.*A000000-999999                                               @Y17XAXF 12000010
IEDPIU0  DSECT                                                          15000010
*                                                                       18000010
*        FORMAT OF FIDO PIU                                             21000010
*                                                                       24000010
PIU0TH   DS    CL10 .                   TH AREA                         27000010
PIU0RH   DS    CL3 .                    RH AREA                         30000010
PIU0PAD  DS    CL1 .                    FID0 PAD BYTE                   33000010
PIU0PAD0 EQU   X'00' .                   PAD CONSTANT                   36000010
PIU0RU   EQU   * .                      START OF RU DATA                39000010
PIU0LEN  EQU   *-IEDPIU0                LEN OF PIU                      42000010
         MEND                                                           45000010
*        */                                                             48000010
*%PIU0PLS:;                                                             51000010
*DECLARE                                                                54000010
*  1 IEDPIU0 BASED BDY(BYTE),                                           57000010
*/*                                                                  */ 60000010
*/*      FORMAT OF FID0 PIU                                          */ 63000010
*/*                                                                  */ 66000010
*   2 PIU0TH   CHAR(10),                /* TH AREA                   */ 69000010
*   2 PIU0RH   CHAR(3),                 /* RH AREA                   */ 72000010
*   2 PIU0PAD  CHAR(1),                 /* FID0 PAD BYTE             */ 75000010
*   2 PIU0RU   CHAR(0);                 /* START OF RU AREA          */ 78000010
*%PIU0LEN='LENGTH(IEDPIU0)';            /* LENGTH OF PIU             */ 81000010
* DCL PIU0PAD0 BIT(8) CONSTANT('00'X);  /* FID0 PAD CONSTANT         */ 84000010