IDENTIFICATION DIVISION.
PROGRAM-ID. DISPLAY2.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DISPLAY-DATA.
05 DISPLAY-DATA PIC X(10).
05 DISPLAY-AUTHOR PIC X(5).
PROCEDURE DIVISION.
MOVE '05/13/2012' TO DISPLAY-DATA.
MOVE 'DAI' TO DISPLAY-AUTHOR.
DISPLAY 'AUTHOR:' DISPLAY-AUTHOR' DATE'
' WRITEN:' DISPLAY-DATE.
STOP RUN.
运行后:
AUTHOR : DAI DATE WRITEN : 05/13/2012