27.5.1 キューを作成するコーディングの例
'.\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. :