&NAM     PROC  &P,1                                                     PTC00010
PTCHAR   NAME  1                                                        PTC00020
PATCHAR4 NAME  2                                                        PTC00030
         LCL   &X                                                       PTC00040
&X       SET   '&NAM.        '(1,8)                                     PTC00050
*********************************************************************** PTC00060
*                                                                     * PTC00070
*                        PATCH AREA                                   * PTC00080
*                                                                     * PTC00090
*********************************************************************** PTC00100
         CNOP  0,4                                                      PTC00110
&X       DS    0H                                                       PTC00120
         DO    &P(1)                                                    PTC00130
         B     *                                                        PTC00140
         ENDO                                                           PTC00150
*********************************************************************** PTC00160
*                                                                     * PTC00170
*                                                                     * PTC00180
*                                                                     * PTC00190
*********************************************************************** PTC00200
         END                                                            PTC00210
