H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.ERPGSDK                                                                      
      ****************************************************************                              
     D i               S              6  0                                                          
     D End             S              6  0 Inz(100)                                                 
      ****************************************************************                              
     C                   callp     #startup                                                         
      *                                                                                             
     C                   callp     #writeTemplate('stdhtmlheader.erpg')                             
      *                                                                                             
     C                   callp     #loadTemplate('loop3.erpg')                                      
     C                   callp     #loadSection('top')                                              
     C                   callp     #replaceData('/%end%/':%editc(End:'Z'))                          
     C                   callp     #writeSection                                                    
      *                                                                                             
     C                   callp     #loadSection('count')                                            
      *                                                                                             
     C                   do        End           i                                                  
      *                                                                                             
     C                   if        (%rem(i:5) = 0)                                                  
     C                   callp     #writeThisSec('alert')                                           
     C                   endif                                                                      
      *                                                                                             
     C                   callp     #replaceData('/%count%/':%editc(i:'Z'))                          
     C                   callp     #writeSection                                                    
     C                   enddo                                                                      
      *                                                                                             
     C                   callp     #writeThisSec('end')                                             
      *                                                                                             
     C                   callp     #cleanup                                                         
     C                   eval      *INLR = *on