More Edited Numeric Fields

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  EDITED-FLDS.
       AUTHOR.      BILL ROGERS.

      * This program illustrates more edited numeric fields.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A-POSITIVE-NUMBER         PIC S9(6)V99    VALUE  123.4.
       01 A-NEGATIVE-NUMBER         PIC S9(6)V99    VALUE -123.4.

       01 FLOATING-MINUS            PIC ----,--9.99.
       01 FLOATING-PLUS             PIC ++++,++9.99.
       01 FLOATING-DOLLARS          PIC $$$$,$$9.99CR.
       01 CHECK-PROTECT             PIC $***,**9.99CR.

       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM BE-POSITIVE.
           PERFORM BE-NEGATIVE.
           STOP RUN.

       BE-POSITIVE.
           MOVE A-POSITIVE-NUMBER TO FLOATING-MINUS.
           MOVE A-POSITIVE-NUMBER TO FLOATING-PLUS.
           MOVE A-POSITIVE-NUMBER TO FLOATING-DOLLARS.
           MOVE A-POSITIVE-NUMBER TO CHECK-PROTECT.
           DISPLAY 'Positive number'.
           DISPLAY ' Floating plus:    ' FLOATING-PLUS.
           DISPLAY ' Floating minus:   ' FLOATING-MINUS.
           DISPLAY ' Floating dollars: ' FLOATING-DOLLARS.
           DISPLAY ' Check protection: ' CHECK-PROTECT.

       BE-NEGATIVE.
           MOVE A-NEGATIVE-NUMBER TO FLOATING-MINUS.
           MOVE A-NEGATIVE-NUMBER TO FLOATING-PLUS.
           MOVE A-NEGATIVE-NUMBER TO FLOATING-DOLLARS.
           MOVE A-NEGATIVE-NUMBER TO CHECK-PROTECT.
           DISPLAY 'Negative number'.
           DISPLAY ' Floating plus:    ' FLOATING-PLUS.
           DISPLAY ' Floating minus:   ' FLOATING-MINUS.
           DISPLAY ' Floating dollars: ' FLOATING-DOLLARS.
           DISPLAY ' Check protection: ' CHECK-PROTECT.

Output

Positive number
 Floating plus:        +123.40
 Floating minus:        123.40
 Floating dollars:     $123.40  
 Check protection: $****123.40  
Negative number
 Floating plus:        -123.40
 Floating minus:       -123.40
 Floating dollars:     $123.40CR
 Check protection: $****123.40CR

Cobol Home