Add new record to queue

EXEC CICS PUT
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    FROM (MY-RECORD)
    FLENGTH (MY-LEN)
END-EXEC

Rewrite existing record

EXEC CICS PUT
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    FROM (MY-RECORD)
    FLENGTH (MY-LEN)
    ITEM (ITEM-NBR) 
    REWRITE
END-EXEC

Retrieve number of items in the queue

EXEC CICS GET
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    NUMITEMS (NUM-ITEMS)
    NODATA
END-EXEC

Retrieve the length only for the specified record

EXEC CICS GET
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    FLENGTH (MY-LEN)
    ITEM (ITEM-NBR)
    NODATA
END-EXEC

Retrieve the address and length of the next record from the queue

EXEC CICS GET
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    SET (ADDRESS OF MY-RECORD)
    FLENGTH (MY-LEN)
    NEXT
END-EXEC

Retrieve the specified record in to my program’s storage

EXEC CICS GET
    QUEUE ('my_queue_name')
    CHANNEL ('my_channel')
    INTO (MY-RECORD)
    ITEM (ITEM-NBR)
END-EXEC