01 shared_memory_variables.
           05 shmid     PIC X(80) VALUE `394D15E1-2481-11D2-BA24-E3E9C2C82A0F`.
           05 shmsize   PIC 9(05) VALUE 80.
           05 shmbuffer PIC X(80).
       *
        CREATESHMPOOL shmid shmsize.
        PUTSHMPOOL `test1`.
        DISPLAY `shm1.cbl-> ` & shmbuffer.

        PERFORM UNTIL shmbuffer(1:5) = `test4`
           GETSHMPOOL shmbuffer
           DISPLAY `shm1.cbl-> ` & shmbuffer
        END-PERFORM.

        DETACHSHMPOOL shmid.

        GOBACK.