&PL      PROC                                                           EOJ00010
EOJ      NAME                                                           EOJ00020
         LCL   &X                                                       EOJ00030
&X       SET   '&PL.        '(1,8)                                      EOJ00040
&X           DS    0H                                                   EOJ00050
.*       EOJ (END OF JOB STEP)  NO PARAMETERS                           EOJ00060
                   SVC   26                                             EOJ00070
         END                                                            EOJ00080
