Can someone point me in the right direction with my first RPG CGI. I am having 
problems with my CGI RPG program. I am getting 500 error when I get there. The 
program is a SQL RPG which I compiled to a module (with CRTSQLRPGI *MODULE), 
then bound with the service program QZHBCGI in QHTTPSVR using CRTPGM. I know 
the web server is running the program, it appears I am having problems with 
QtmhWrStout. I have included the code snippets ...

D NEWLINE         C                   CONST(X'15')                     
D HTTPHeader      C                   CONST('Content-type: text/html') 
D APIOut          C                   CONST('QtmhWrStout')             
D WPError         DS                                                   
D  EBytesP                1      4B 0                                  
D  EBytesA                5      8B 0                                  
D  EMsgID                 9     15                                     
D  EReserverd            16     16                                     
D WrtDta          S           1024A                                    
D WrtDtaLen       S              9B 0 INZ(1024)                 

C                   EVAL      WrtDta = HTTPHeader                       
C                   EVAL      WrtDta = %TRIM(WrtDta) + NEWLINE          
C                   EXSR      WRSTDOUT                                  
C                   EVAL      WrtDta = '<HTML><TITLE>TEST</TITLE><BODY> 
C                             <H1>Test --- Test<BR></BODY></HTML>'      
C                   EVAL      WrtDta = %TRIM(WrtDta) + NEWLINE          
C                   EXSR      WRSTDOUT            

C     WRSTDOUT      BEGSR                                         
C                   EVAL      EBytesP = %SIZE(WPError)            
C                   EVAL      WrtDtaLen = %LEN(%TRIM(WrtDta))     
C                   CALLB     APIOut                              
C                   PARM                    WrtDta                
C                   PARM                    WrtDtaLen             
C                   PARM                    WPError               
C                   ENDSR                                         

If someone thinks it may be elsewhere, let me know what you need to see.

Thanks For the Help

Chris Piper
Systems Analyst
Stant Manufacturing, Inc.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.