H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.ERPGSDK                                                                      
      ****************************************************************                              
      /free                                                                                         
       #startup();                                                                                  
       #writeTemplate('stdjsonheader.erpg');                                                        
       #setCCSIDStdOut(1208);                                                                       
       #writeTemplate('geoout.json');                                                               
       #cleanup();                                                                                  
                                                                                                    
       *INLR = *on;                                                                                 
      /end-free