H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.ERPGSDK                                                                      
      ****************************************************************                              
     D Data1           S           1024                                                             
     D Data2           S           1024                                                             
      ****************************************************************                              
     C                   callp     #startup                                                         
      *                                                                                             
     C                   eval      Data1 = #getData('data1')                                        
     C                   eval      Data2 = #getData('data2')                                        
      *                                                                                             
     C                   callp     #loadTemplate('input1.erpg')                                     
      *                                                                                             
     C                   callp     #replaceData('/%data1%/':data1)                                  
     C                   callp     #replaceData('/%data2%/':data2)                                  
      *                                                                                             
     C                   callp     #writeSection                                                    
     C                   callp     #cleanup                                                         
      *                                                                                             
     C                   eval      *INLR = *on