COBOL2002 ユーザーズガイド

[目次][用語][索引][前へ][次へ]

29.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.
           :