000100******************************************************************@ByFabio    
000200*                                                                *@ByFabio    
000300*              MIG - Middleware Interface Generator              *@ByFabio    
000400*                                                                *@ByFabio    
000500*               HEPPS/COPYLIB/MAPI/FORMAT703/CPPDX               *@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 MAPI-FIACV-703                              SECTION.             @ByFabio    
001400 ENTRANCE.                                                        @ByFabio    
001500                                                                  @ByFabio    
001600     COMPUTE INTEGER-ITEM-OG-S                                    @ByFabio    
001700             OF INPUT-AREA                                        @ByFabio    
001800             OF MAPI-FORMAT-703 =                                 @ByFabio    
001900             FUNCTION NUMVAL (                                    @ByFabio    
002000             INTEGER-ITEM-OG-S-X                                  @ByFabio    
002100             OF INPUT-AREA                                        @ByFabio    
002200             OF MAPI-FORMAT-703).                                 @ByFabio    
002300     COMPUTE FLOAT-ITEM-OG                                        @ByFabio    
002400             OF INPUT-AREA                                        @ByFabio    
002500             OF MAPI-FORMAT-703 =                                 @ByFabio    
002600             FUNCTION NUMVAL (                                    @ByFabio    
002700             FLOAT-ITEM-OG-X                                      @ByFabio    
002800             OF INPUT-AREA                                        @ByFabio    
002900             OF MAPI-FORMAT-703).                                 @ByFabio    
003000     COMPUTE FLOAT-ITEM-OG-S                                      @ByFabio    
003100             OF INPUT-AREA                                        @ByFabio    
003200             OF MAPI-FORMAT-703 =                                 @ByFabio    
003300             FUNCTION NUMVAL (                                    @ByFabio    
003400             FLOAT-ITEM-OG-S-X                                    @ByFabio    
003500             OF INPUT-AREA                                        @ByFabio    
003600             OF MAPI-FORMAT-703).                                 @ByFabio    
003700     PERFORM                                                      @ByFabio    
003800     VARYING INDEX-1 OF MAPI-FORMAT-703                           @ByFabio    
003900     FROM    1 BY 1                                               @ByFabio    
004000     UNTIL   INDEX-1 OF MAPI-FORMAT-703 > 10                      @ByFabio    
004100      COMPUTE INTEGER-ITEM-AG-S                                   @ByFabio    
004200              OF INPUT-AREA                                       @ByFabio    
004300              OF MAPI-FORMAT-703                                  @ByFabio    
004400      (                                                           @ByFabio    
004500       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
004600      )                                                           @ByFabio    
004700      =                                                           @ByFabio    
004800      FUNCTION NUMVAL(                                            @ByFabio    
004900      INTEGER-ITEM-AG-S-X                                         @ByFabio    
005000      OF INPUT-AREA                                               @ByFabio    
005100      OF MAPI-FORMAT-703                                          @ByFabio    
005200      (                                                           @ByFabio    
005300       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
005400      ))                                                          @ByFabio    
005500     END-PERFORM.                                                 @ByFabio    
005600     PERFORM                                                      @ByFabio    
005700     VARYING INDEX-1 OF MAPI-FORMAT-703                           @ByFabio    
005800     FROM    1 BY 1                                               @ByFabio    
005900     UNTIL   INDEX-1 OF MAPI-FORMAT-703 > 10                      @ByFabio    
006000      COMPUTE FLOAT-ITEM-AG                                       @ByFabio    
006100              OF INPUT-AREA                                       @ByFabio    
006200              OF MAPI-FORMAT-703                                  @ByFabio    
006300      (                                                           @ByFabio    
006400       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
006500      )                                                           @ByFabio    
006600      =                                                           @ByFabio    
006700      FUNCTION NUMVAL(                                            @ByFabio    
006800      FLOAT-ITEM-AG-X                                             @ByFabio    
006900      OF INPUT-AREA                                               @ByFabio    
007000      OF MAPI-FORMAT-703                                          @ByFabio    
007100      (                                                           @ByFabio    
007200       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
007300      ))                                                          @ByFabio    
007400     END-PERFORM.                                                 @ByFabio    
007500     PERFORM                                                      @ByFabio    
007600     VARYING INDEX-1 OF MAPI-FORMAT-703                           @ByFabio    
007700     FROM    1 BY 1                                               @ByFabio    
007800     UNTIL   INDEX-1 OF MAPI-FORMAT-703 > 10                      @ByFabio    
007900      COMPUTE FLOAT-ITEM-AG-S                                     @ByFabio    
008000              OF INPUT-AREA                                       @ByFabio    
008100              OF MAPI-FORMAT-703                                  @ByFabio    
008200      (                                                           @ByFabio    
008300       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
008400      )                                                           @ByFabio    
008500      =                                                           @ByFabio    
008600      FUNCTION NUMVAL(                                            @ByFabio    
008700      FLOAT-ITEM-AG-S-X                                           @ByFabio    
008800      OF INPUT-AREA                                               @ByFabio    
008900      OF MAPI-FORMAT-703                                          @ByFabio    
009000      (                                                           @ByFabio    
009100       INDEX-1 OF MAPI-FORMAT-703                                 @ByFabio    
009200      ))                                                          @ByFabio    
009300     END-PERFORM.                                                 @ByFabio