         PROC  &P,0,&LCB=,&VFB=                                         PUB00010
PUBMOD   NAME  0                                                        PUB00020
         GBL   &CRNTTRL,&MODCNT,&PUBTLNG                                PUB00030
         LCL   &X                                                       PUB00040
         DO    0                                                        PUB00050
*                                                                       PUB00060
***      ORG BACK TO FILL IN LAST PUB TRAILER GENERATED                 PUB00070
*              ENTER:&PUBTLNG=LENGTH OF LAST TRAILER GENERATED          PUB00080
*                    &CRNTTRL=DISP. INTO IP$PUBTS OF NEXT TRAILER       PUB00090
         ENDO                                                           PUB00100
         DO    '&MODCNT'=''                                             PUB00110
&MODCNT  SET   0                                                        PUB00120
         ENDO                                                           PUB00130
&MODCNT  SET   &MODCNT+1                                                PUB00140
*                                                                       PUB00150
*        OVERRIDE LCB/VFB NAMES IN PUB TRAILER JUST GENERATED           PUB00160
*                                                                       PUB00170
MODPUB&MODCNT  EQU   *                                                  PUB00180
         DO    '&LCB'=''=0                                              PUB00190
         ORG   IP$PUBTS+&CRNTTRL-&PUBTLNG+IP$ALCB-IP$PUBT               PUB00200
&X       SET   '&LCB'(2,8)                                              PUB00210
         DC    CL8'&X'                                                  PUB00220
         ENDO                                                           PUB00230
         DO    '&VFB'=''=0                                              PUB00240
         ORG   IP$PUBTS+&CRNTTRL-&PUBTLNG+IP$DLCB-IP$PUBT               PUB00250
&X       SET   '&VFB'(2,8)                                              PUB00260
         DC    CL8'&X'                                                  PUB00270
         ENDO                                                           PUB00280
         ORG   MODPUB&MODCNT                                            PUB00290
*                                                                       PUB00300
         END                                                            PUB00310
