 /*-------------------------------------------------------------------*/
 /*                          .VD02044 (DBK3)                          */
 /*-------------------------------------------------------------------*/
 EXEC SQL DECLARE VD02044 TABLE
       ( YCIA    CHAR(1) NOT NULL,
         YMESG   INTEGER NOT NULL,
         WTRANS  VARCHAR(8) NOT NULL,
         WSTRNG  VARCHAR(8) NOT NULL,
         WSTEP   VARCHAR(8) NOT NULL,
         WPROG   VARCHAR(8) NOT NULL,
         WAPP    VARCHAR(20) NOT NULL,
         YUSER   CHAR(8) NOT NULL,
         YTMESG  CHAR(10) NOT NULL,
         WORIGE  VARCHAR(256) NOT NULL,
         WDESTI  VARCHAR(256) NOT NULL,
         YESTAD  CHAR(10) NOT NULL,
         TIHOST  TIMESTAMP,
         TIMQ    TIMESTAMP,
         TIARQ   TIMESTAMP,
         TOARQ   TIMESTAMP,
         TOEXT   TIMESTAMP,
         YESEXT  CHAR(10) NOT NULL,
         NRETRY  INTEGER NOT NULL,
         TRETRY  TIMESTAMP,
         WERROR  VARCHAR(100) NOT NULL,
         WDESCE  VARCHAR(256) NOT NULL,
         TOMQ    TIMESTAMP,
         YCERT   CHAR(1) NOT NULL,
         YUSEXT  VARCHAR(50) NOT NULL,
         YCODE   VARCHAR(10) NOT NULL,
         YLONG   INTEGER NOT NULL,
         NSMS    INTEGER NOT NULL,
         YMTID   VARCHAR(14) NOT NULL,
         YMTHTM  VARCHAR(50) NOT NULL ) ;
 /*-------------------------------------------------------------------*/
 DCL 1 VD2044 UNALIGNED,
       2 YCIA    CHAR(1),
       2 YMESG   BIN FIXED(31),
       2 WTRANS  CHAR(8) VAR,
       2 WSTRNG  CHAR(8) VAR,
       2 WSTEP   CHAR(8) VAR,
       2 WPROG   CHAR(8) VAR,
       2 WAPP    CHAR(20) VAR,
       2 YUSER   CHAR(8),
       2 YTMESG  CHAR(10),
       2 WORIGE  CHAR(256) VAR,
       2 WDESTI  CHAR(256) VAR,
       2 YESTAD  CHAR(10),
       2 TIHOST  CHAR(26),
       2 TIMQ    CHAR(26),
       2 TIARQ   CHAR(26),
       2 TOARQ   CHAR(26),
       2 TOEXT   CHAR(26),
       2 YESEXT  CHAR(10),
       2 NRETRY  BIN FIXED(31),
       2 TRETRY  CHAR(26),
       2 WERROR  CHAR(100) VAR,
       2 WDESCE  CHAR(256) VAR,
       2 TOMQ    CHAR(26),
       2 YCERT   CHAR(1),
       2 YUSEXT  CHAR(50) VAR,
       2 YCODE   CHAR(10) VAR,
       2 YLONG   BIN FIXED(31),
       2 NSMS    BIN FIXED(31),
       2 YMTID   CHAR(14) VAR,
       2 YMTHTM  CHAR(50) VAR;
 /*-------------------------------------------------------------------*/
