Quick actions

cmd+k|ctrl+k

Navigation

Languages

COBOL numbers

Snippet info

Language

Cobol

Visibility

public

Author

rightfold

Created

2017-09-30T19:09:35Z

Updated

2017-10-01T13:23:33Z

       IDENTIFICATION DIVISION.
       PROGRAM-ID. hello.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 example-1 PIC 99V99 USAGE COMP.
       01 example-2 PIC $99.99 USAGE DISPLAY.

       PROCEDURE DIVISION.
           MOVE example-1 TO example-2
           DISPLAY example-1 " " example-2
           ADD 0.01 TO example-1
           MOVE example-1 TO example-2
           DISPLAY example-1 " " example-2
           ADD 0.99 TO example-1
           MOVE example-1 TO example-2
           DISPLAY example-1 " " example-2
           GOBACK
           .
INFO