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.