32 lines
814 B
COBOL
32 lines
814 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CTEST_PIX.
|
|
AUTHOR. GLEN COLBERT.
|
|
INSTALLATION. Tiny Cobol Compiler Project.
|
|
SECURITY. NONE.
|
|
* Pares tests for pictures.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
* Maximun elementary alphanumeric size is 12750
|
|
* This limit can be overcome by using groups items
|
|
01 WS-VARIABLES.
|
|
* 05 WS-LARGE-PICX PIC X(51000).
|
|
05 WS-LARGE-PICX PIC X(12750).
|
|
05 FILLER PIC X(12750).
|
|
05 FILLER PIC X(12750).
|
|
05 FILLER PIC X(12750).
|
|
|
|
01 WS-VARIABLES1.
|
|
05 WS-LARGE-PICX1 PIC X(12750) OCCURS 100.
|
|
|
|
PROCEDURE DIVISION.
|
|
STOP RUN.
|
|
A000-EXIT.
|
|
EXIT.
|