'.\SampleQueue'というキューを作成するコーディングの例を次に示します。

 
         :
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CBLMQINF.
         02 MSMQ-ERRCD       PIC X(8)   VALUE SPACE.
         02 DETAIL-CD        PIC S9(9)  USAGE COMP
                                        VALUE ZERO.
         02 LOCATE-END       PIC X      VALUE SPACE.
         02 QUEUE-ACCESS     PIC X      VALUE SPACE.
         02 MQMSG-CLASS      PIC X(2)   VALUE SPACE.
         02 MQMSG-TIMEOUT    PIC S9(9)  USAGE COMP
                                        VALUE ZERO.
         02 MQMSG-PRIORITY   PIC 9(4)   USAGE COMP
                                        VALUE ZERO.
         02 MQMSG-DELIVERY   PIC X      VALUE SPACE.
         02 MQMSG-JOURNAL    PIC X      VALUE SPACE.
         02 MQMSG-DEADLETTER PIC X      VALUE SPACE.
         02 MSGDATA-CONV     PIC X      VALUE SPACE.
         02 CBLMQ-RESERVE    PIC X(102) VALUE LOW-VALUE.
       01 CREATE-PARM.
         02 PATH-LEN  PIC S9(9) USAGE COMP VALUE 13.
         02 PATH-NAME PIC X(256)     VALUE '.\SampleQueue'.
         02 LABEL-LEN PIC S9(9) USAGE COMP VALUE 12.
         02 LABEL-DAT PIC X(256)     VALUE 'Sample Queue'.
         :
       PROCEDURE DIVISION.
            :
           INITIALIZE CBLMQINF.
           MOVE LOW-VALUE TO CBLMQ-RESERVE OF CBLMQINF.
 
           CALL 'CBLMQCREATE' USING CBLMQINF CREATE-PARM.
           IF ZERO NOT = RETURN-CODE THEN
             DISPLAY 'QUEUE CREATE ERROR'
           END-IF.
           :