&PL      PROC                                                           YIE00010
YIELD    NAME                                                           YIE00020
         LCL   &X                                                       YIE00030
&X       SET   '&PL.        '(1,8)                                      YIE00040
&X           SVC   4                                                    YIE00050
         END                                                            YIE00060
