79 lines
2.5 KiB
COBOL
79 lines
2.5 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST01A.
|
|
AUTHOR. GLEN COLBERT.
|
|
INSTALLATION. Tiny Cobol Project
|
|
DATE-WRITTEN. 12 November, 1999.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-ALPHA-FIELDS.
|
|
05 WS-ALPHA-1 PIC A(01).
|
|
05 WS-ALPHA-2 PIC A(02).
|
|
05 WS-ALPHA-3 PIC A(03).
|
|
05 WS-ALPHA-4 PIC A(04).
|
|
05 WS-ALPHA-5 PIC A(05).
|
|
05 WS-ALPHA-6 PIC A(06).
|
|
05 WS-ALPHA-7 PIC A(07).
|
|
05 WS-ALPHA-26 PIC X(26).
|
|
|
|
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).
|
|
|
|
01 WS-ALPHA-EDIT-FIELDS.
|
|
05 WS-ANE-1 PIC XXBXXX.
|
|
05 WS-ANE-2 PIC XBXX.
|
|
05 WS-ANE-3 PIC XX/XXX.
|
|
05 WS-ANE-4 PIC X/XX.
|
|
05 WS-ANE-5 PIC XXBXXBXX.
|
|
05 WS-ANE-6 PIC XX/XX/XX.
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-PROGRAM-ENTRY-POINT.
|
|
DISPLAY "TEST1-FORMATS program entry."
|
|
|
|
PERFORM A000-ALPHANUMERIC-TESTS THRU A000-EXIT.
|
|
|
|
STOP RUN.
|
|
|
|
A000-ALPHANUMERIC-TESTS.
|
|
MOVE "ABCDEFGHIJKLMONPQRSTUVWXYZ"
|
|
TO WS-ALPHA-26.
|
|
|
|
A001-TEST.
|
|
MOVE "ABCDE" TO WS-ALPHA-5.
|
|
MOVE WS-ALPHA-5 TO WS-ANE-1.
|
|
DISPLAY "A010:(" WS-ANE-1 "):(AB CDE):"
|
|
"ALPHA SPACE FORMAT TEST MOVE A(5) TO XXBXXX".
|
|
|
|
MOVE "ABCDE" TO WS-ALPHA-5.
|
|
MOVE WS-ALPHA-5 TO WS-ANE-2.
|
|
DISPLAY "A011:(" WS-ANE-2 "):(A BC):"
|
|
"ALPHA SPACE FORMAT TEST MOVE A(5) TO XBXX".
|
|
|
|
MOVE "ABCDE" TO WS-ALPHA-5.
|
|
MOVE WS-ALPHA-5 TO WS-ANE-5.
|
|
DISPLAY "A012:(" WS-ANE-5 "):(AB CD E ):"
|
|
"ALPHA MULTI-SPACE FORMAT TEST MOVE A(5) TO XXBXXBXX".
|
|
|
|
MOVE "ABCDEF" TO WS-ALPHA-6.
|
|
MOVE WS-ALPHA-6 TO WS-ANE-5.
|
|
DISPLAY "A013:(" WS-ANE-5 "):(AB CD EF):"
|
|
"ALPHA MULTI-SPACE FORMAT TEST MOVE A(6) TO XXBXXBXX".
|
|
|
|
MOVE WS-ALPHA-26 TO WS-ANE-5.
|
|
DISPLAY "A014:(" WS-ANE-5 "):(AB CD EF):"
|
|
"ALPHA MULTI-SPACE FORMAT TEST MOVE A(26) TO XXBXXBXX".
|
|
|
|
A000-EXIT.
|
|
EXIT.
|