36 lines
703 B
COBOL
36 lines
703 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. upro1.
|
|
AUTHOR. U. Kreckel.
|
|
DATE-WRITTEN. OKT.86.
|
|
* REMARKS.
|
|
* test message.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
|
|
01 A-I PICTURE S9999 COMP.
|
|
01 BL-I PICTURE S9999 COMP.
|
|
01 FIELD-XX PIC XXXX.
|
|
|
|
LINKAGE SECTION.
|
|
|
|
01 EXDKOMM2.
|
|
02 FIELD PIC X(100).
|
|
|
|
PROCEDURE DIVISION USING EXDKOMM2.
|
|
EINGANG.
|
|
INSPECT FIELD REPLACING ALL SPACE BY ZERO.
|
|
MOVE 1 TO A-I.
|
|
IF FIELD-XX NUMERIC
|
|
DISPLAY "OK".
|
|
IF FIELD-XX NOT NUMERIC
|
|
DISPLAY "NOT OK".
|
|
|
|
IF FIELD NOT NUMERIC or greater 11
|
|
display "????".
|
|
SKW-END. EXIT.
|
|
|
|
|