IDENTIFICATION DIVISION.
PROGRAM-ID. ASSIGNMENT.
DATA DIVISION.
WORKING-STORAGE SECTION.
    05 A PIC 9(2).
    05 B PIC 9(2).
    05 C PIC X(10).
PROCEDURE DIVISION.
    MOVE 1 TO A
    MOVE 2 TO B
    MOVE "Hello, World!" TO C
    DISPLAY A
    DISPLAY B
    DISPLAY C
    STOP RUN.