&LABEL   PROC  &P,2,&PLIST=PLIST                                            0010
ZG#CALL  NAME                                                               0020
&LABEL   DS    0H                                                           0030
         DO    N'&P=2                                                       0040
&COUNT   DO    N'&P(2)                                                      0050
         LA    15,&P(2,&COUNT)                                              0060
         ST    15,&PLIST+4*(&COUNT-1)                                       0070
         AIF   (&COUNT NE N'&P(2)).NOTYET                                   0080
         OI    &PLIST+4*(&COUNT-1),X'80'                                    0090
.NOTYET  ANOP                                                               0100
         ENDO                                                               0110
         LA    1,&PLIST                                                     0120
         ENDO                                                               0130
         L     15,=V(&P(1))                                                 0140
         BALR  14,15                                                        0150
         END                                                                0160
