<<< Help debugging an RPG-CGI Program >>>

[Peter Vidal <Peter_Vidal@xxxxxxxx>]

Hi list:

My BIG issue here is on the calculations, but let me present the scenario.

Background
This program was working perfectly before we had our High Availability 
Project and now we have a test box and a production box.  We use ALDON 
LM(i) to maintain our programs.  Two days ago we had to update the source 
and eliminate an obsolete file and add the new one.  Looked like a simple 
task to do.  We compiled and promoted to production.  By the way, the 
binding directory is called CGIBNDDIR in QGPL and it has QTMHCGI *SRVPGM 
from QTCP library. 

Objective of the program
This is supposed to list manufacturing detail data on the browser, 
depending on the manufacturing order number that is coming from a previous 
screen. 

Issue
The variable below called "EnvDataLen" is returning a zero.  I know this 
because if it was not zero, I would have data displayed on the browser. As 
I explained before, it was working before.  I do not why is not working. 

See the following specifications: 

     hDftActGrp(*No) BndDir('CGIBNDDIR')  
     fitmrval0  if   e           k disk    usropn prefix(i)  
     fmomast    if   e           k disk    usropn prefix(m)  
     fmorout    if   e           k disk    usropn prefix(r)  
     fpstdtll0  if   e           k disk    usropn prefix(d)  
     fmomastz3  if   e           k disk    usropn  
     fmohmstz3  if   e           k disk    usropn  
      *  
      * QtmhWrStout  
      * API that the program will use to pass 
      * the HTML text back to the server
     DWriteWebData     PR                  ExtProc('QtmhWrStout')  
     D  Data                               Like(WebData) 
     D  Length                       10I 0 Const 
     D  Error                              Like(APIError) 
      * 
      * QtmhGetEnv 
      * API that the program will use to retrieve the query string 
     DGetEnvData       PR                  ExtProc('QtmhGetEnv') 
     D  Data                               Like(EnvData) 
     D  AvailLen                     10I 0 Const 
     D  ReturnedLen                  10I 0 
     D  EnvName                      30A   Const 
     D  EnvNameLen                   10I 0 Const 
     D  Error                              Like(APIError) 
      * 
      * 
     DAPIError         DS 
     D  EBytesP                      10I 0 Inz(40) 
     D  EBytesA                      10I 0 
     D  EMsgID                        7A 
     D  EReserved                     1A 
     D  EData                        40A 
      * 
      * The WebOut variable is used to build the HTML string. 
      * The subfields WebDataLen and WebData are what are 
      * actually passed to the API.
     D                 DS 
     DWebOut                       2048A   Varying 
     D  WebDataLen                    5I 0 Overlay(WebOut) 
     D  WebData                    2048A   Overlay(WebOut:*Next) 
      * 
      *   Constants for HTTP output 
     DHTTPHeader       C                   'Content-type: text/html' 
     DNewLine          C                   X'15' 
      * 
      *   Constants and storage for the query string 
     DQueryString      C                   'QUERY_STRING' 
     DEnvDataLen       S             10I 0 
      * 
     DEnvData          DS 
     D   StartAtOrd                        Like(mordno) inz 
     D   StartAtStep                       Like(ropseq) inz 
      *-----------------------------------------------------------
      * --- M A I N   L O G I C ---  
      *-----------------------------------------------------------
     C                   Exsr      Inzsr  
      * Determine if a key was supplied and if so position to 
      * the appropriate record. If no key supplied position to 
      * beginning of file. 
     C                   CallP     GetEnvData(EnvData : %Len(EnvData) :  
     C                             EnvDataLen : QueryString :  
     C                             %Len(QueryString) : APIError ) 
      * 
      * Prepare and write titles for page 
     C                   Exsr      HTML_Headings 
      * 
      * Get Item Information 
     C                   If        EnvDataLen <> 0 
     .
     .
     .


Peter Vidal 
PALL Corporation / SR Programmer Analyst, IT Development Group
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com

"It is simplicity that makes the uneducated more effective than the 
educated when addressing popular audiences.".
Aristotle (384 BC - 322 BC), Rhetoric