Afrundingsfejl

IDENTIFICATION DIVISION.
PROGRAM-ID. ROUND-FEJL.
DATA DIVISION.

WORKING-STORAGE SECTION.

77 DEP366-OMK-HANDEL-PCT         PIC 9(13)V9(02).
77 DEP361-OMK-HANDEL-BEL-DKK     PIC S9(13)V9(02) COMP-3.
77 DEP361-AFREGNINGS-BEL-DKK     PIC S9(13)V9(02) COMP-3.

PROCEDURE DIVISION.

MOVE     7.50   TO DEP361-OMK-HANDEL-BEL-DKK
MOVE  1507.50   TO DEP361-AFREGNINGS-BEL-DKK

COMPUTE DEP366-OMK-HANDEL-PCT =                     
      ( DEP361-OMK-HANDEL-BEL-DKK * 100 )           
      / DEP361-AFREGNINGS-BEL-DKK                   
   ON SIZE ERROR MOVE ZERO TO DEP366-OMK-HANDEL-PCT 
END-COMPUTE                                         

DISPLAY 'DEP366-OMK-HANDEL-PCT = ' DEP366-OMK-HANDEL-PCT

COMPUTE DEP366-OMK-HANDEL-PCT ROUNDED =                     
      ( DEP361-OMK-HANDEL-BEL-DKK * 100 )           
      / DEP361-AFREGNINGS-BEL-DKK                   
   ON SIZE ERROR MOVE ZERO TO DEP366-OMK-HANDEL-PCT 
END-COMPUTE                                         

DISPLAY 'DEP366-OMK-HANDEL-PCT = ' DEP366-OMK-HANDEL-PCT

STOP RUN.