IDENTIFICATION DIVISION.
PROGRAM-ID.  Numbers1.
DATA DIVISION.
WORKING-STORAGE SECTION.
  UNSIGN-AN.
    05  UNSIGNED-DIGIT        PIC 9 VALUE ZERO.
  NEGATIVE-AN.
    05  NEGATIVE-DIGIT        PIC S9.
  POSITIVE-AN
    05  POSITIVE-DIGIT        PIC S9.
PROCEDURE DIVISION.
-MAIN.
    DISPLAY ‘DIGIT NEGATIVE POSITIVE’.
    PERFORM 0100-LOOP 10 TIMES.
    STOP RUN.
-LOOP.
    MULTIPLY UNSIGNED-DIGIT BY -1 GIVING NEGATIVE-DIGIT.
    MULTIPLY NEGATIVE-DIGIT BY -1 GIVING POSITIVE-DIGIT.
    DISPLAY ‘  ‘ UNSIGND-AN ‘      ‘ NEGATIVE-AN
        ‘         ‘ POSITIVE-AN.
    ADD 1 TO UNSIGNED-DIGIT.
