35 lines
928 B
COBOL
35 lines
928 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST5_STRUCTURE.
|
|
AUTHOR. GLEN COLBERT.
|
|
INSTALLATION. Tiny Cobol Compiler Project.
|
|
DATE-WRITTEN. 11-12-1999.
|
|
DATE-COMPILED.
|
|
SECURITY.
|
|
*REMARKS. VALIDATE COMPILE FOR MOVING FIGURATIVE CONSTANTS
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-ALPHANUMERICS.
|
|
05 WS-PICX-4 PIC X(4).
|
|
05 WS-PICX-6 PIC X(4).
|
|
|
|
01 WS-NUMERICS.
|
|
05 WS-PIC9-4 PIC X(9).
|
|
05 WS-PIC9-6 PIC X(9).
|
|
|
|
PROCEDURE DIVISION.
|
|
MOVE ALL "A" TO WS-PICX-4.
|
|
MOVE ALL ZEROES TO WS-PIC9-6.
|
|
MOVE HIGH-VALUES TO WS-PICX-4.
|
|
MOVE LOW-VALUES TO WS-PICX-4.
|
|
MOVE QUOTES TO WS-PICX-4.
|
|
|
|
STOP RUN.
|
|
A000-EXIT.
|
|
EXIT.
|