133 lines
4.3 KiB
COBOL
133 lines
4.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST1_FORMATS.
|
|
AUTHOR. GLEN COLBERT.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-ALPHA-FIELDS.
|
|
05 WS-ALPHA-6 PIC A(06).
|
|
05 WS-ALPHA-5 PIC A(05).
|
|
05 WS-ALPHA-2 PIC A(02).
|
|
|
|
01 WS-ALPHANUM-FIELDS.
|
|
05 WS-ALPHANUM-2 PIC X(02).
|
|
05 WS-ALPHANUM-4 PIC X(04).
|
|
05 WS-ALPHANUM-6 PIC X(06).
|
|
05 WS-AB-5 PIC XXBXXX.
|
|
05 WS-AB-3 PIC XBXX.
|
|
05 WS-AS-5 PIC XX/XXX.
|
|
05 WS-AS-3 PIC X/XX.
|
|
|
|
01 WS-NUMERIC-FIELDS.
|
|
05 WS-DISPLAY-NUM-1 PIC 9.
|
|
05 WS-DISPLAY-NUM-4 PIC 9(4).
|
|
05 WS-DISPLAY-NUM-V5 PIC 9(3)V99.
|
|
05 WS-DISPLAY-NUM-R5 REDEFINES WS-DISPLAY-NUM-V5 PIC X(5).
|
|
|
|
01 WS-NUMERIC-EDITED-FIELDS.
|
|
05 WS-NE-1 PIC 99.99.
|
|
05 WS-NE-2 PIC 9,999.
|
|
05 WS-NE-3 PIC 9,999.99.
|
|
05 WS-NE-4 PIC $$$9.
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-PROGRAM-ENTRY-POINT.
|
|
DISPLAY "TEST02b FORMATS program entry."
|
|
|
|
PERFORM A000-ALPHANUMERIC-TESTS THRU A000-EXIT.
|
|
|
|
STOP RUN.
|
|
|
|
A000-ALPHANUMERIC-TESTS.
|
|
MOVE "23" TO WS-ALPHANUM-2.
|
|
MOVE "1984" TO WS-ALPHANUM-4.
|
|
MOVE "1965" TO WS-ALPHANUM-6.
|
|
|
|
AA01-TEST.
|
|
MOVE WS-ALPHANUM-4 TO WS-DISPLAY-NUM-4.
|
|
DISPLAY "AA01:(" WS-DISPLAY-NUM-4 "):(1984):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO 9(4)".
|
|
|
|
MOVE WS-ALPHANUM-4 TO WS-NE-1.
|
|
DISPLAY "AA02:(" WS-NE-1 "):(84.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO 99.99".
|
|
|
|
MOVE WS-ALPHANUM-4 TO WS-NE-2.
|
|
DISPLAY "AA03:(" WS-NE-2 "):(1,984):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO 9,999".
|
|
|
|
MOVE WS-ALPHANUM-4 TO WS-NE-3.
|
|
DISPLAY "AA04:(" WS-NE-3 "):(1,984.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO 9,999.99".
|
|
|
|
MOVE WS-ALPHANUM-4 TO WS-NE-4.
|
|
DISPLAY "AA05:(" WS-NE-4 "):($984):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO $$$9".
|
|
|
|
MOVE WS-ALPHANUM-4 TO WS-DISPLAY-NUM-V5.
|
|
DISPLAY "AA06:(" WS-DISPLAY-NUM-R5 "):(98400):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(4) TO 9(3)V99".
|
|
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-DISPLAY-NUM-4.
|
|
DISPLAY "AA10:(" WS-DISPLAY-NUM-4 "):(0023):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO 9(4)".
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-NE-1.
|
|
DISPLAY "AA11:(" WS-NE-1 "):(23.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO 99.99".
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-NE-2.
|
|
DISPLAY "AA12:(" WS-NE-2 "):(0,023):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO 9,999".
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-NE-3.
|
|
DISPLAY "AA13:(" WS-NE-3 "):(0,023.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO 9,999.99".
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-NE-4.
|
|
DISPLAY "AA14:(" WS-NE-4 "):( $23):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO $$$9".
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-DISPLAY-NUM-V5.
|
|
DISPLAY "AA15:(" WS-DISPLAY-NUM-R5 "):(02300):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO 9(3)V99".
|
|
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-DISPLAY-NUM-4.
|
|
DISPLAY "AA01:(" WS-DISPLAY-NUM-4 "):(1965):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO 9(4)".
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-NE-1.
|
|
DISPLAY "AA02:(" WS-NE-1 "):(65.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO 99.99".
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-NE-2.
|
|
DISPLAY "AA03:(" WS-NE-2 "):(1,965):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO 9,999".
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-NE-3.
|
|
DISPLAY "AA04:(" WS-NE-3 "):(1,965.00):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO 9,999.99".
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-NE-4.
|
|
DISPLAY "AA05:(" WS-NE-4 "):($965):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO $$$9".
|
|
|
|
MOVE WS-ALPHANUM-6 TO WS-DISPLAY-NUM-V5.
|
|
DISPLAY "AA06:(" WS-DISPLAY-NUM-R5 "):(96500):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(6) TO 9(3)V99".
|
|
|
|
|
|
MOVE WS-ALPHANUM-2 TO WS-AB-5.
|
|
DISPLAY "AB01:(" WS-AB-5 "):(23 ):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(2) TO XXBXXX".
|
|
|
|
A000-EXIT.
|
|
EXIT.
|