78 lines
2.4 KiB
COBOL
78 lines
2.4 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST01B.
|
|
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-3.
|
|
DISPLAY "A020:(" WS-ANE-3 "):(AB/CDE):"
|
|
"ALPHA SLASH FORMAT TEST MOVE A(5) TO XX/XXX".
|
|
|
|
MOVE WS-ALPHA-26 TO WS-ANE-3.
|
|
DISPLAY "A021:(" WS-ANE-3 "):(AB/CDE):"
|
|
"ALPHA SLASH ALIGN FORMAT TEST MOVE A(26) TO XX/XXX".
|
|
|
|
MOVE "ABCDE" TO WS-ALPHA-5.
|
|
MOVE WS-ALPHA-5 TO WS-ANE-4.
|
|
DISPLAY "A022:(" WS-ANE-4 "):(A/BC):"
|
|
"ALPHA SLASH FORMAT TEST MOVE A(5) TO X/XX".
|
|
|
|
MOVE "ABCDE" TO WS-ALPHA-5.
|
|
MOVE WS-ALPHA-5 TO WS-ANE-6.
|
|
DISPLAY "A023:(" WS-ANE-6 "):(AB/CD/E ):"
|
|
"ALPHA SLASH FORMAT TEST MOVE A(5) TO XX/XX/XX".
|
|
|
|
MOVE WS-ALPHA-26 TO WS-ANE-6.
|
|
DISPLAY "A023:(" WS-ANE-6 "):(AB/CD/EF):"
|
|
"ALPHA SLASH FORMAT TEST MOVE A(25) TO XX/XX/XX".
|
|
|
|
A000-EXIT.
|
|
EXIT.
|