H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.ERPGSDK                                                                      
      ****************************************************************                              
     D CurTime         S              6  0                                                          
      ****************************************************************                              
     C                   callp     #startup                                                         
      *                                                                                             
     C                   TIME                    CurTime                                            
      *                                                                                             
     C                   callp     #loadTemplate('hello2.erpg')                                     
     C                   CALLP     #replaceData('/%time%/':                                         
     C                                          %editw(CurTime:'  :  :  '))                         
     C                   CALLP     #writeSection                                                    
     C                   CALLP     #cleanup                                                         
      *                                                                                             
     C                   eval      *INLR = *on