Hi, I have posted my SQLRPGLE program, output is not showing down,what mistake i did in my program,please correct it,

FMA01F     IF   E           K DISK   

FMA01FTES  IF A E    K DISK   RENAME(RMA01F:REMA01F) PREFIX(P_)   D COMNO           S              3  0       

D SHPNO           S              5  0  

D ITMNO           S             15A  

D TOTAL           S              7  2   

D COUNT           S              2  0      

C/EXEC SQL DECLARE cursor1 CURSOR FOR 

C+ SELECT MACMNO,SUM(MATOTA),Count(MACMNO) from MA01F         C+ Group By MACMNO 

C/END-EXEC   C/EXEC SQL OPEN cursor1    

C/END-EXEC           

C                   DoU       SQLSTT = '02000'     

C/EXEC SQL FETCH Cursor1 INTO :COMNO, :TOTAL, :COUNT          C/END-EXEC                

C                   If        SQLSTT = '02000'   

C                   Leave       

C                   EndIf                

C                   EVAL      P_MACMNO = COMNO    

C                   EVAL      P_MATOTA = TOTAL      

C                   EVAL      P_MACONT = COUNT     

C                   Write     REMA01F         

C                   EndDo      C/EXEC SQL CLOSE Cursor1             

C/END-EXEC                          C                  

EVAL      *InLr = *On   *****************End of Prog***********************

Original Result  hv to come as follows: COMPANY NUMBER   SUM ( MATOTA )   COUNT ( MACMNO )         1                                      848,963.17                53         2                                      316,476.85                21         3                                      418,042.80                20

 But I am getting as :

COMPANY NUMBER  TOTAL AMOUNT  COUNT         

0               .00      0         

0               .00      0         

0               .00      0



Software/Hardware used:
AS400