BPX1QDB (querydub) example

The following code obtains the dub status information for the current task. The status indicates whether the current task has already been dubbed, is ready to be dubbed, or cannot be dubbed as a process (or thread). AMODE 64 callers use BPX4QDB (querydub) example.

                                              
         CALL  BPX1QDB,              Query DUB status for this task    +
               (RETVAL,              Return value: -1 or see BPXYCONS  +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------