83 lines
2.6 KiB
COBOL
83 lines
2.6 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-1 PIC X(01).
|
|
05 WS-ALPHANUM-2 PIC X(02).
|
|
05 WS-ALPHANUM-3 PIC X(03).
|
|
05 WS-ALPHANUM-4 PIC X(04).
|
|
05 WS-ALPHANUM-5 PIC X(05).
|
|
05 WS-ALPHANUM-6 PIC X(06).
|
|
05 WS-ALPHANUM-36 PIC X(36).
|
|
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.
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-PROGRAM-ENTRY-POINT.
|
|
DISPLAY "TEST02 FORMATS program entry."
|
|
|
|
PERFORM A000-ALPHANUMERIC-TESTS THRU A000-EXIT.
|
|
|
|
STOP RUN.
|
|
|
|
A000-ALPHANUMERIC-TESTS.
|
|
MOVE "A" TO WS-ALPHANUM-1.
|
|
MOVE "AB" TO WS-ALPHANUM-2.
|
|
MOVE "ABC" TO WS-ALPHANUM-3.
|
|
MOVE "ABCD" TO WS-ALPHANUM-4.
|
|
MOVE "ABCDE" TO WS-ALPHANUM-5.
|
|
MOVE "ABCDEFGHIJKLMNOPQRSTUVWZYZ0123456789" TO
|
|
WS-ALPHANUM-36.
|
|
|
|
AN01-TEST.
|
|
MOVE WS-ALPHANUM-5 TO WS-ALPHANUM-6.
|
|
DISPLAY "AN01:(" WS-ALPHANUM-6 "):(ABCDE ):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(5) TO X(6)".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-ALPHA-5.
|
|
DISPLAY "AN02:(" WS-ALPHA-5 "):(ABCDE):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(5) TO A(5)".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-ALPHANUM-4.
|
|
DISPLAY "AN03:(" WS-ALPHANUM-4 "):(ABCD):"
|
|
"ALPHANUMERIC MOVE TEST MOVE X(5) TO X(4)".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-AB-5.
|
|
DISPLAY "AB01:(" WS-AB-5 "):(AB CDE):"
|
|
"MOVE TEST MOVE X(5) TO XXBXXX".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-AB-3.
|
|
DISPLAY "AB02:(" WS-AB-3 "):(A BC):"
|
|
"MOVE TEST MOVE X(5) TO XBXX".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-AS-5.
|
|
DISPLAY "AS01:(" WS-AS-5 "):(AB/CDE):"
|
|
"MOVE TEST MOVE X(5) TO XX/XXX".
|
|
|
|
MOVE WS-ALPHANUM-5 TO WS-AS-3.
|
|
DISPLAY "AS02:(" WS-AS-3 "):(A/BC):"
|
|
"MOVE TEST MOVE X(5) TO X/XX".
|
|
|
|
A000-EXIT.
|
|
EXIT.
|