Signed Numbers

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    SIGNED-NUMBERS.
       AUTHOR.        BILL ROGERS.

      * Demonstrates moving signed numbers to edited fields.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 FIELD-X      PIC S9(4)    VALUE -1234.
       01 FIELD-Y      PIC S9(4)    VALUE  1234.

       01 FIELD-CREDIT              PIC 9(4)CR.
       01 FIELD-DEBIT               PIC 9(4)DB.

       01 FIELD-PLUS                PIC 9(4)+.
       01 FIELD-NEGATIVE            PIC 9(4)-.

       01 FIELD-FLOATING-PLUS       PIC ++++9.
       01 FIELD-FLOATING-NEGATIVE   PIC ----9.

       PROCEDURE DIVISION.
       MAINLINE.
           DISPLAY 'Negative value follows:'.
           MOVE FIELD-X TO FIELD-CREDIT
                           FIELD-DEBIT
                           FIELD-PLUS
                           FIELD-NEGATIVE
                           FIELD-FLOATING-PLUS
                           FIELD-FLOATING-NEGATIVE.
           PERFORM DISPLAY-THE-FIELDS.

           DISPLAY ' '.

           DISPLAY 'Positive value follows:'.
           MOVE FIELD-Y TO FIELD-CREDIT
                           FIELD-DEBIT
                           FIELD-PLUS
                           FIELD-NEGATIVE
                           FIELD-FLOATING-PLUS
                           FIELD-FLOATING-NEGATIVE.
           PERFORM DISPLAY-THE-FIELDS.
           STOP RUN.

       DISPLAY-THE-FIELDS.
           DISPLAY '9(4)CR  CREDIT:         ' FIELD-CREDIT.
           DISPLAY '9(4)DB  DEBIT:          ' FIELD-DEBIT.
           DISPLAY '9(4)+   FIXED PLUS:     ' FIELD-PLUS.
           DISPLAY '9(4)-   FIXED MINUS:    ' FIELD-NEGATIVE.
           DISPLAY '++++9   FLOATING PLUS:  ' FIELD-FLOATING-PLUS.
           DISPLAY '----9   FLOATING MINUS: ' FIELD-FLOATING-NEGATIVE.

Program Output:

Negative value follows:
9(4)CR  CREDIT:         1234CR
9(4)DB  DEBIT:          1234DB
9(4)+   FIXED PLUS:     1234-
9(4)-   FIXED MINUS:    1234-
++++9   FLOATING PLUS:  -1234
----9   FLOATING MINUS: -1234
 
Positive value follows:
9(4)CR  CREDIT:         1234  
9(4)DB  DEBIT:          1234  
9(4)+   FIXED PLUS:     1234+
9(4)-   FIXED MINUS:    1234 
++++9   FLOATING PLUS:  +1234
----9   FLOATING MINUS:  1234

Cobol Home