BPX1SDD (setdubdefault) example

The following code sets the dub default setting for the subtasks of the caller to process. For the callable service, see set_dub_default (BPX1SDD, BPX4SDD) — Set the dub default service. AMODE 64 callers use BPX4SDD (setdubdefault) example.
                                              
         CALL  BPX1SDD,              Set effective group ID            +
               (=A(DUBPROCESS),      Input: Set Dub Constant  BPXYCONS +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------