Skip to content

Instantly share code, notes, and snippets.

@pdemby

pdemby/move-4

Last active August 29, 2015 14:08
Show Gist options
  • Save pdemby/2166ceeb8840c3c70b91 to your computer and use it in GitHub Desktop.
Save pdemby/2166ceeb8840c3c70b91 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
move-4
IDENTIFICATION DIVISION.
PROGRAM-ID. TotalNumbers.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SUB-TOTAL PIC 9(3).9(2) VALUE 0.
01 GRAND-TOTAL PIC 9(3).9(2) VALUE 0.
PROCEDURE DIVISION.
TOTAL-ROUTINE.
MOVE 345.67 TO SUB-TOTAL.
ADD SUB-TOTAL TO GRAND-TOTAL.
MOVE 567.89 TO SUB-TOTAL.
ADD SUB-TOTAL TO GRAND-TOTAL.
MOVE 123.45 TO SUB-TOTAL.
ADD SUB-TOTAL TO GRAND-TOTAL
DISPLAY "GRAND-TOTAL = " GRAND-TOTAL.
STOP RUN.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment