<pre>     H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.ERPGSDK                                                                      
      /COPY QCOPYSRC,P.HTTPSTD                                                                      
      ****************************************************************                              
     C                   callp     #startup                                                         
     C                   callp     #setImmediate(*ON)                                               
     C                   callp     #writeTemplate('stdhtmlheader.erpg')                             
     C                   callp     #WrStout('You entered: ' +                                       
     C                                      %trim(#getData('word')))                                
     C                   CALLP     #cleanup                                                         
      *                                                                                             
     C                   eval      *INLR = *on                                                      
</pre>