&PL      PROC                                                           TYI00010
TYIELD   NAME                                                           TYI00020
.*                                                                      TYI00030
.*       TYIELD NO-PARAMETERS                                           TYI00040
.*                                                                      TYI00050
.*       NUMBER OF BYTES GENERATED IS FOUR                              TYI00060
.*                                                                      TYI00070
         LCL   &X                                                       TYI00080
&X       SET   '&PL.        '(1,8)                                      TYI00090
&X           DS    0H                                                   TYI00100
                   BALR  1,0                                            TYI00110
                   SVC   12                                             TYI00120
         END                                                            TYI00130
