        IDENTIFICATION DIVISION.
        PROGRAM-ID. DATADEFS.
        ENVIRONMENT DIVISION.
        DATA DIVISION.

        WORKING-STORAGE SECTION.
        01 TEMP-FELD PIC 9.

        PROCEDURE DIVISION.
            MOVE "A"
              TO TEMP-FELD

            DISPLAY TEMP-FELD

            GOBACK.
        END PROGRAM DATADEFS.
