H DFTACTGRP(*NO) BNDDIR('ERPGSDK')                                                             
      ****************************************************************                              
      * Prototypes                                                   *                              
      ****************************************************************                              
      /COPY QCOPYSRC,P.HTTPSTD                                                                      
      ****************************************************************                              
     D HTTPHeader      C                   CONST('Content-type: text/html')                         
     D NewLine         C                   CONST(X'15')                                             
      *                                                                                             
     D WrtDta          S          32765    Varying                                                  
      ****************************************************************                              
     C                   eval      WrtDta = %trim(HTTPHeader) +                                     
     C                                      NewLine + NewLine +                                     
     C                                      '' +                                        
     C                                      'Hello World!' +                                        
     C                                      '' +                                      
     C                                      NewLine                                                 
     C                   CALLP     #WrStout(WrtDta)                                                 
      *                                                                                             
     C                   eval      *INLR = *on