MACRO -- $PATCHSP -- GENERATE PATCH SPACE                      FL002000
&NAME    $PATCHSP &PATCHSP                                              FL004000
         LCLA  &COUNT                                                   FL006000
&COUNT   SETA  &PATCHSP                                                 FL008000
&NAME    $DECODE ,                 DEFINE LOCATION                      FL010000
.A       AIF   (&COUNT LE 0).END                                        FL012000
         DC    S(*)                                                     FL014000
&COUNT   SETA  &COUNT-2                                                 FL016000
         AGO   .A                                                       FL018000
.END     MEND                                                           FL020000