*        %GOTO PIUPLS;                 /* BILINGUAL HEADER              01000010
         MACRO                                                          02000010
         TPIUD                                                          03000010
.*A000000-999999                                               @Y17XAXF 04000010
IEDPIU   DSECT                                                          18000010
*                                                                       19000010
*        FORMAT OF FID1 PIU                                             20000010
*                                                                       21000010
PIUTH    DS    CL10 .                   TH AREA                         22000010
PIURH    DS    CL3 .                    RH AREA                         23000010
PIURU    EQU   * .                      START OF RU DATA                24000010
PIULEN   EQU   *-IEDPIU .               LENGTH OF PIU                   25000010
         MEND                                                           26000010
*        */                                                             27000010
*%PIUPLS:;                                                              28000010
*DECLARE                                                                44000010
*  1 IEDPIU BASED BDY(BYTE),                                            45000010
*/*                                                                  */ 46000010
*/*      FORMAT OF FID1 PIU                                          */ 47000010
*/*                                                                  */ 48000010
*   2 PIUTH  CHAR(10),                  /* TH AREA                   */ 49000010
*   2 PIURH  CHAR(3),                   /* RH AREA                   */ 50000010
*   2 PIURU  CHAR(0);                   /* START OF RU DATA          */ 51000010
*%PIULEN='LENGTH(IEDPIU)';              /* LENGTH OF PIU             */ 52000010