BPX4QDB (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 31 callers use BPX1QDB (querydub) example.

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