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.
        GETSHMPOOL shmbuffer.
        DISPLAY `shm2.cbl-> ` & shmbuffer.

        PUTSHMPOOL `test4`.
        DISPLAY `shm2.cbl-> ` & shmbuffer.

        DETACHSHMPOOL shmid.

        GOBACK.