000100******************************************************************@ByFabio 000200* *@ByFabio 000300* MIG - Middleware Interface Generator *@ByFabio 000400* *@ByFabio 000500* HEPPS/COPYLIB/MAPI/FORMAT703/CPWSX *@ByFabio 000600* *@ByFabio 000700* Code Automatic Generated on 06/18/2009 08:10:57 *@ByFabio 000800* *@ByFabio 000900* Author: Fabio Quintaes Alves *@ByFabio 001000* *@ByFabio 001100******************************************************************@ByFabio 001200* @ByFabio 001300 01 MAPI-FORMAT-703. @ByFabio 001400 02 INPUT-AREA. @ByFabio 001500 03 OUTPUT-FORMAT-NO PIC 9(3). @ByFabio 001600 03 STRING-ITEM-OG PIC X(50). @ByFabio 001700 03 INTEGER-ITEM-OG PIC 9(6). @ByFabio 001800 03 INTEGER-ITEM-OG-S-X. @ByFabio 001900 04 INTEGER-ITEM-OG-S PIC S9(4). @ByFabio 002000 04 FILLER PIC X(1). @ByFabio 002100 03 FLOAT-ITEM-OG-X. @ByFabio 002200 04 FLOAT-ITEM-OG PIC 9(3)V9(3). @ByFabio 002300 04 FILLER PIC X(1). @ByFabio 002400 03 FLOAT-ITEM-OG-S-X. @ByFabio 002500 04 FLOAT-ITEM-OG-S PIC S9(1)V9(6). @ByFabio 002600 04 FILLER PIC X(2). @ByFabio 002700 03 DATE-ITEM-OG PIC 9(8). @ByFabio 002800 03 DATE-ITEM-OG-X @ByFabio 002900 REDEFINES @ByFabio 003000 DATE-ITEM-OG. @ByFabio 003100 04 DATE-ITEM-OG-CNYR PIC 9999. @ByFabio 003200 04 DATE-ITEM-OG-CNYR-X @ByFabio 003300 REDEFINES @ByFabio 003400 DATE-ITEM-OG-CNYR. @ByFabio 003500 05 DATE-ITEM-OG-CN PIC 99. @ByFabio 003600 05 DATE-ITEM-OG-YR PIC 99. @ByFabio 003700 04 DATE-ITEM-OG-MO PIC 99. @ByFabio 003800 04 DATE-ITEM-OG-DA PIC 99. @ByFabio 003900 03 TIME-ITEM-OG PIC 9(8). @ByFabio 004000 03 TIME-ITEM-OG-X @ByFabio 004100 REDEFINES @ByFabio 004200 TIME-ITEM-OG. @ByFabio 004300 04 TIME-ITEM-OG-HO PIC 99. @ByFabio 004400 04 TIME-ITEM-OG-MI PIC 99. @ByFabio 004500 04 TIME-ITEM-OG-SE PIC 99. @ByFabio 004600 04 TIME-ITEM-OG-FS PIC 99. @ByFabio 004700 03 DATETIME-ITEM-OG PIC 9(16). @ByFabio 004800 03 DATETIME-ITEM-OG-X @ByFabio 004900 REDEFINES @ByFabio 005000 DATETIME-ITEM-OG. @ByFabio 005100 04 DATETIME-ITEM-OG-DT PIC 9(8). @ByFabio 005200 04 DATETIME-ITEM-OG-DT-X @ByFabio 005300 REDEFINES @ByFabio 005400 DATETIME-ITEM-OG-DT. @ByFabio 005500 05 DATETIME-ITEM-OG-CNYR PIC 9999. @ByFabio 005600 05 DATETIME-ITEM-OG-CNYR-X @ByFabio 005700 REDEFINES @ByFabio 005800 DATETIME-ITEM-OG-CNYR. @ByFabio 005900 06 DATETIME-ITEM-OG-CN PIC 99. @ByFabio 006000 06 DATETIME-ITEM-OG-YR PIC 99. @ByFabio 006100 05 DATETIME-ITEM-OG-MO PIC 99. @ByFabio 006200 05 DATETIME-ITEM-OG-DA PIC 99. @ByFabio 006300 04 DATETIME-ITEM-OG-TM PIC 9(8). @ByFabio 006400 04 DATETIME-ITEM-OG-TM-X @ByFabio 006500 REDEFINES @ByFabio 006600 DATETIME-ITEM-OG-TM. @ByFabio 006700 05 DATETIME-ITEM-OG-HO PIC 99. @ByFabio 006800 05 DATETIME-ITEM-OG-MI PIC 99. @ByFabio 006900 05 DATETIME-ITEM-OG-SE PIC 99. @ByFabio 007000 05 DATETIME-ITEM-OG-FS PIC 99. @ByFabio 007100 03 XDATE-ITEM-OG PIC 9(7). @ByFabio 007200 03 XTIME-ITEM-OG PIC 9(7). @ByFabio 007300 03 XDATETIME-ITEM-OG PIC 9(14). @ByFabio 007400 03 ARRAY-ITEM OCCURS 10. @ByFabio 007500 04 STRING-ITEM-AG PIC X(15). @ByFabio 007600 04 INTEGER-ITEM-AG PIC 9(2). @ByFabio 007700 04 INTEGER-ITEM-AG-S-X. @ByFabio 007800 05 INTEGER-ITEM-AG-S PIC S9(1). @ByFabio 007900 05 FILLER PIC X(1). @ByFabio 008000 04 FLOAT-ITEM-AG-X. @ByFabio 008100 05 FLOAT-ITEM-AG PIC 9(6)V9(1). @ByFabio 008200 05 FILLER PIC X(1). @ByFabio 008300 04 FLOAT-ITEM-AG-S-X. @ByFabio 008400 05 FLOAT-ITEM-AG-S PIC S9(4)V9(2). @ByFabio 008500 05 FILLER PIC X(2). @ByFabio 008600 04 DATE-ITEM-AG PIC 9(8). @ByFabio 008700 04 DATE-ITEM-AG-X @ByFabio 008800 REDEFINES @ByFabio 008900 DATE-ITEM-AG. @ByFabio 009000 05 DATE-ITEM-AG-CNYR PIC 9999. @ByFabio 009100 05 DATE-ITEM-AG-CNYR-X @ByFabio 009200 REDEFINES @ByFabio 009300 DATE-ITEM-AG-CNYR. @ByFabio 009400 06 DATE-ITEM-AG-CN PIC 99. @ByFabio 009500 06 DATE-ITEM-AG-YR PIC 99. @ByFabio 009600 05 DATE-ITEM-AG-MO PIC 99. @ByFabio 009700 05 DATE-ITEM-AG-DA PIC 99. @ByFabio 009800 04 TIME-ITEM-AG PIC 9(8). @ByFabio 009900 04 TIME-ITEM-AG-X @ByFabio 010000 REDEFINES @ByFabio 010100 TIME-ITEM-AG. @ByFabio 010200 05 TIME-ITEM-AG-HO PIC 99. @ByFabio 010300 05 TIME-ITEM-AG-MI PIC 99. @ByFabio 010400 05 TIME-ITEM-AG-SE PIC 99. @ByFabio 010500 05 TIME-ITEM-AG-FS PIC 99. @ByFabio 010600 04 DATETIME-ITEM-AG PIC 9(16). @ByFabio 010700 04 DATETIME-ITEM-AG-X @ByFabio 010800 REDEFINES @ByFabio 010900 DATETIME-ITEM-AG. @ByFabio 011000 05 DATETIME-ITEM-AG-DT PIC 9(8). @ByFabio 011100 05 DATETIME-ITEM-AG-DT-X @ByFabio 011200 REDEFINES @ByFabio 011300 DATETIME-ITEM-AG-DT. @ByFabio 011400 06 DATETIME-ITEM-AG-CNYR PIC 9999. @ByFabio 011500 06 DATETIME-ITEM-AG-CNYR-X @ByFabio 011600 REDEFINES @ByFabio 011700 DATETIME-ITEM-AG-CNYR. @ByFabio 011800 07 DATETIME-ITEM-AG-CN PIC 99. @ByFabio 011900 07 DATETIME-ITEM-AG-YR PIC 99. @ByFabio 012000 06 DATETIME-ITEM-AG-MO PIC 99. @ByFabio 012100 06 DATETIME-ITEM-AG-DA PIC 99. @ByFabio 012200 05 DATETIME-ITEM-AG-TM PIC 9(8). @ByFabio 012300 05 DATETIME-ITEM-AG-TM-X @ByFabio 012400 REDEFINES @ByFabio 012500 DATETIME-ITEM-AG-TM. @ByFabio 012600 06 DATETIME-ITEM-AG-HO PIC 99. @ByFabio 012700 06 DATETIME-ITEM-AG-MI PIC 99. @ByFabio 012800 06 DATETIME-ITEM-AG-SE PIC 99. @ByFabio 012900 06 DATETIME-ITEM-AG-FS PIC 99. @ByFabio 013000 04 XDATE-ITEM-AG PIC 9(7). @ByFabio 013100 04 XTIME-ITEM-AG PIC 9(7). @ByFabio 013200 04 XDATETIME-ITEM-AG PIC 9(14). @ByFabio 013300 03 ENDING-FIELD PIC X(5). @ByFabio 013400 02 OUTPUT-AREA. @ByFabio 013500 03 OUTPUT-FORMAT-NO PIC ZZ9. @ByFabio 013600 03 STRING-ITEM-OG PIC X(50). @ByFabio 013700 03 INTEGER-ITEM-OG PIC ZZZZZ9. @ByFabio 013800 03 INTEGER-ITEM-OG-S PIC ++++9. @ByFabio 013900 03 FLOAT-ITEM-OG PIC ZZ9.9(3). @ByFabio 014000 03 FLOAT-ITEM-OG-S PIC +9.9(6). @ByFabio 014100 03 DATE-ITEM-OG PIC Z(7)9. @ByFabio 014200 03 DATE-ITEM-OG-X @ByFabio 014300 REDEFINES @ByFabio 014400 DATE-ITEM-OG. @ByFabio 014500 04 DATE-ITEM-OG-CNYR PIC 9999. @ByFabio 014600 04 DATE-ITEM-OG-CNYR-X @ByFabio 014700 REDEFINES @ByFabio 014800 DATE-ITEM-OG-CNYR. @ByFabio 014900 05 DATE-ITEM-OG-CN PIC 99. @ByFabio 015000 05 DATE-ITEM-OG-YR PIC 99. @ByFabio 015100 04 DATE-ITEM-OG-MO PIC 99. @ByFabio 015200 04 DATE-ITEM-OG-DA PIC 99. @ByFabio 015300 03 TIME-ITEM-OG PIC Z(7)9. @ByFabio 015400 03 TIME-ITEM-OG-X @ByFabio 015500 REDEFINES @ByFabio 015600 TIME-ITEM-OG. @ByFabio 015700 04 TIME-ITEM-OG-HO PIC 99. @ByFabio 015800 04 TIME-ITEM-OG-MI PIC 99. @ByFabio 015900 04 TIME-ITEM-OG-SE PIC 99. @ByFabio 016000 04 TIME-ITEM-OG-FS PIC 99. @ByFabio 016100 03 DATETIME-ITEM-OG PIC Z(15)9. @ByFabio 016200 03 DATETIME-ITEM-OG-X @ByFabio 016300 REDEFINES @ByFabio 016400 DATETIME-ITEM-OG. @ByFabio 016500 04 DATETIME-ITEM-OG-DT PIC 9(8). @ByFabio 016600 04 DATETIME-ITEM-OG-DT-X @ByFabio 016700 REDEFINES @ByFabio 016800 DATETIME-ITEM-OG-DT. @ByFabio 016900 05 DATETIME-ITEM-OG-CNYR PIC 9999. @ByFabio 017000 05 DATETIME-ITEM-OG-CNYR-X @ByFabio 017100 REDEFINES @ByFabio 017200 DATETIME-ITEM-OG-CNYR. @ByFabio 017300 06 DATETIME-ITEM-OG-CN PIC 99. @ByFabio 017400 06 DATETIME-ITEM-OG-YR PIC 99. @ByFabio 017500 05 DATETIME-ITEM-OG-MO PIC 99. @ByFabio 017600 05 DATETIME-ITEM-OG-DA PIC 99. @ByFabio 017700 04 DATETIME-ITEM-OG-TM PIC 9(8). @ByFabio 017800 04 DATETIME-ITEM-OG-TM-X @ByFabio 017900 REDEFINES @ByFabio 018000 DATETIME-ITEM-OG-TM. @ByFabio 018100 05 DATETIME-ITEM-OG-HO PIC 99. @ByFabio 018200 05 DATETIME-ITEM-OG-MI PIC 99. @ByFabio 018300 05 DATETIME-ITEM-OG-SE PIC 99. @ByFabio 018400 05 DATETIME-ITEM-OG-FS PIC 99. @ByFabio 018500 03 XDATE-ITEM-OG PIC Z(6)9. @ByFabio 018600 03 XTIME-ITEM-OG PIC Z(6)9. @ByFabio 018700 03 XDATETIME-ITEM-OG PIC Z(13)9. @ByFabio 018800 03 ARRAY-ITEM OCCURS 10. @ByFabio 018900 04 STRING-ITEM-AG PIC X(15). @ByFabio 019000 04 INTEGER-ITEM-AG PIC Z9. @ByFabio 019100 04 INTEGER-ITEM-AG-S PIC +9. @ByFabio 019200 04 FLOAT-ITEM-AG PIC ZZZZZ9.9(1). @ByFabio 019300 04 FLOAT-ITEM-AG-S PIC ++++9.9(2). @ByFabio 019400 04 DATE-ITEM-AG PIC Z(7)9. @ByFabio 019500 04 DATE-ITEM-AG-X @ByFabio 019600 REDEFINES @ByFabio 019700 DATE-ITEM-AG. @ByFabio 019800 05 DATE-ITEM-AG-CNYR PIC 9999. @ByFabio 019900 05 DATE-ITEM-AG-CNYR-X @ByFabio 020000 REDEFINES @ByFabio 020100 DATE-ITEM-AG-CNYR. @ByFabio 020200 06 DATE-ITEM-AG-CN PIC 99. @ByFabio 020300 06 DATE-ITEM-AG-YR PIC 99. @ByFabio 020400 05 DATE-ITEM-AG-MO PIC 99. @ByFabio 020500 05 DATE-ITEM-AG-DA PIC 99. @ByFabio 020600 04 TIME-ITEM-AG PIC Z(7)9. @ByFabio 020700 04 TIME-ITEM-AG-X @ByFabio 020800 REDEFINES @ByFabio 020900 TIME-ITEM-AG. @ByFabio 021000 05 TIME-ITEM-AG-HO PIC 99. @ByFabio 021100 05 TIME-ITEM-AG-MI PIC 99. @ByFabio 021200 05 TIME-ITEM-AG-SE PIC 99. @ByFabio 021300 05 TIME-ITEM-AG-FS PIC 99. @ByFabio 021400 04 DATETIME-ITEM-AG PIC Z(15)9. @ByFabio 021500 04 DATETIME-ITEM-AG-X @ByFabio 021600 REDEFINES @ByFabio 021700 DATETIME-ITEM-AG. @ByFabio 021800 05 DATETIME-ITEM-AG-DT PIC 9(8). @ByFabio 021900 05 DATETIME-ITEM-AG-DT-X @ByFabio 022000 REDEFINES @ByFabio 022100 DATETIME-ITEM-AG-DT. @ByFabio 022200 06 DATETIME-ITEM-AG-CNYR PIC 9999. @ByFabio 022300 06 DATETIME-ITEM-AG-CNYR-X @ByFabio 022400 REDEFINES @ByFabio 022500 DATETIME-ITEM-AG-CNYR. @ByFabio 022600 07 DATETIME-ITEM-AG-CN PIC 99. @ByFabio 022700 07 DATETIME-ITEM-AG-YR PIC 99. @ByFabio 022800 06 DATETIME-ITEM-AG-MO PIC 99. @ByFabio 022900 06 DATETIME-ITEM-AG-DA PIC 99. @ByFabio 023000 05 DATETIME-ITEM-AG-TM PIC 9(8). @ByFabio 023100 05 DATETIME-ITEM-AG-TM-X @ByFabio 023200 REDEFINES @ByFabio 023300 DATETIME-ITEM-AG-TM. @ByFabio 023400 06 DATETIME-ITEM-AG-HO PIC 99. @ByFabio 023500 06 DATETIME-ITEM-AG-MI PIC 99. @ByFabio 023600 06 DATETIME-ITEM-AG-SE PIC 99. @ByFabio 023700 06 DATETIME-ITEM-AG-FS PIC 99. @ByFabio 023800 04 XDATE-ITEM-AG PIC Z(6)9. @ByFabio 023900 04 XTIME-ITEM-AG PIC Z(6)9. @ByFabio 024000 04 XDATETIME-ITEM-AG PIC Z(13)9. @ByFabio 024100 03 ENDING-FIELD PIC X(5). @ByFabio 024200 02 INDEX-1 PIC 9(5) BINARY. @ByFabio