27.5.2 キューを削除するコーディングの例
'.\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 DELETE-PARM. 02 PATH-LEN PIC S9(9) USAGE COMP VALUE 13. 02 PATH-NAME PIC X(256) VALUE '.\SampleQueue'. : PROCEDURE DIVISION. : INITIALIZE CBLMQINF. MOVE LOW-VALUE TO CBLMQ-RESERVE OF CBLMQINF. CALL 'CBLMQDELETE' USING CBLMQINF DELETE-PARM. IF ZERO NOT = RETURN-CODE THEN DISPLAY 'QUEUE DELETE ERROR' END-IF. :