80 lines
2.3 KiB
COBOL
80 lines
2.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST1_FORMATS.
|
|
AUTHOR. JIM NOETH.
|
|
INSTALLATION. Tiny Cobol Project
|
|
DATE-WRITTEN. 03 January, 2000.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-COMP-VALUE PIC S9(9) COMP.
|
|
01 WS-DISPLAY-5 PIC 9(05).
|
|
01 WS-DISPLAY-WITH-FRAC PIC 9(05)V9999.
|
|
01 WS-DISPLAY-WITH-SIGN PIC S9(07).
|
|
01 WS-ANOTHER-COMP PIC 9(04) COMP.
|
|
01 WS-PACKED PIC 9(07)V99 COMP-3.
|
|
01 WS-EDITED-1 PIC $$$$,$$9-.
|
|
01 WS-CHARACTER-SHORT PIC X(08).
|
|
01 WS-CHARACTER-LONG PIC X(15).
|
|
*
|
|
*
|
|
01 WS-DUMP-COUNT PIC 9(04).
|
|
01 WS-DUMP-OUT-8 PIC X(08).
|
|
01 WS-DUMP-OUT-10 PIC X(10).
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-PROGRAM-ENTRY-POINT.
|
|
DISPLAY "TEST1_FORMATS.program entry."
|
|
|
|
PERFORM A000-COMPUTATIONAL-TESTS THRU A000-EXIT.
|
|
|
|
STOP RUN.
|
|
|
|
A000-COMPUTATIONAL-TESTS.
|
|
A001-TEST.
|
|
MOVE "-5432" TO WS-COMP-VALUE.
|
|
|
|
MOVE WS-COMP-VALUE TO WS-DISPLAY-5.
|
|
DISPLAY "A301:(" WS-DISPLAY-5 "):(05432):"
|
|
"COMP MOVE -5432 TO 9(05)".
|
|
|
|
MOVE WS-COMP-VALUE TO WS-DISPLAY-WITH-FRAC.
|
|
DISPLAY "A302:(" WS-DISPLAY-WITH-FRAC "):(05432.0000):"
|
|
"COMP MOVE -5432 TO 9(05)V9(04)".
|
|
|
|
MOVE WS-COMP-VALUE TO WS-DISPLAY-WITH-SIGN.
|
|
DISPLAY "A303:(" WS-DISPLAY-WITH-SIGN "):(-0005432):"
|
|
"COMP MOVE -5432 TO S9(07)".
|
|
|
|
MOVE WS-COMP-VALUE TO WS-ANOTHER-COMP.
|
|
DISPLAY "A304:(" WS-ANOTHER-COMP "):(5432):"
|
|
"COMP MOVE -5432 TO 9(04) COMP".
|
|
|
|
MOVE WS-COMP-VALUE TO WS-PACKED.
|
|
DISPLAY "A305:(" WS-PACKED "):(0005432.00):"
|
|
"COMP MOVE -5432 TO 9(7)V99 COMP-3".
|
|
|
|
MOVE WS-COMP-VALUE TO WS-EDITED-1.
|
|
DISPLAY "A306:(" WS-EDITED-1 "):( $5,432-):"
|
|
"COMP MOVE -5432 TO $$$$,$$9-".
|
|
|
|
MOVE 97531 TO WS-COMP-VALUE.
|
|
MOVE WS-COMP-VALUE TO WS-DISPLAY-WITH-SIGN.
|
|
MOVE WS-DISPLAY-WITH-SIGN TO WS-ANOTHER-COMP.
|
|
DISPLAY "A307:(" WS-ANOTHER-COMP "):(7531):"
|
|
"MOVE 97531 AS S9(07) TO 9(04) COMP".
|
|
|
|
|
|
MOVE "-8642975" TO WS-COMP-VALUE.
|
|
MOVE WS-COMP-VALUE TO WS-PACKED.
|
|
MOVE WS-PACKED TO WS-ANOTHER-COMP.
|
|
DISPLAY "A308:(" WS-ANOTHER-COMP "):(2975):"
|
|
"MOVE -8642975 AS 9(07)V9(04) COMP-3 TO 9(04) COMP".
|
|
|
|
A000-EXIT.
|
|
EXIT.
|