&PL      PROC  &P,1                                                     DUM00010
DUMP     NAME                                                           DUM00020
.*       DUMP  (0)/HEX COMPLETION CODE                                  DUM00030
         LCL   &X                                                       DUM00040
&X       SET   '&PL.        '(1,8)                                      DUM00050
&X           DS    0H                                                   DUM00060
*                                                                       DUM00070
*   THE DUMP PARAMETER IS A 1-4 BYTE HEX CODE TO BE DISPLAYED BY DUMP   DUM00080
*                                                                       DUM00090
.*       FIRST CHECK FOR DEFAULT OPTION (NULL)                          DUM00100
         DO    '&P(1)'=''                                               DUM00110
                   XR    0,0            CLEAR DUMP CODE                 DUM00120
         GOTO  .DUMPSVC                                                 DUM00130
         ENDO                                                           DUM00140
.*       NEXT CHECK FOR REGISTER OR CODE SPECIFIED.                     DUM00150
         DO    ('&P(1)'='(0)')=0                                        DUM00160
                   CNOP  0,4                                            DUM00170
                   L     0,*+8          GET DUMP CODE                   DUM00180
                   B     *+8                                            DUM00190
                   DC    XL4'&P(1)'     COMPLETION CODE                 DUM00200
         ENDO                                                           DUM00210
.DUMPSVC LABEL                                                          DUM00220
                   SVC   27             DUMP SVC                        DUM00230
         END                                                            DUM00240
