IDENTIFICATION DIVISION.
PROGRAM-ID. DIAPLAY1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DISPLAY-DATA.
05 DISPLAY-DATA1 PIC X(11).
05 DISPLAY-DATA2 PIC X(5).
PROCEDURE DIVISION.
MOVE 'HELLO WORLD' TO DISPLAY-DATA1.
ACCEPT DISPLAY-DATA2.
DISPLAY 'DISPLAY-DATA1:' DISPLAY-DATA1.
DISPLAY 'DISPALY-DATA2:' DISPLAY-DATA2.
STOP RUN.
运行后:
DISPLAY-DATA1: HELLO WORLD
DISPLAY-DATA2: DAI