× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello,
 
Could you tell me why  these compile generated area's automatically appear in 
the working storage section of my COBOL/400(SQLCBL) program that has embedded  
SQL, and may I reference these fields for any reason in my COBOL/400 
(SQLCBL)Program or are they only used by the AS400 System  at compile time? I'm 
hoping you could tell me how they are used? I would appreciate any help you can 
give me. Thank you.
 
D. Meza
 
(copied and pasted the beginning of each section for your viewing)
 
   37  097100  01 SQL-00001.                                  
   38  097100    05 SQL-HEADER-LEN PIC S9999 BINARY VALUE 64. 
   39  097100    05 SQL-STATEMENT  PIC S9999 BINARY VALUE 1.  
   40  097100    05 SQL-INVMARK    PIC S9(9) BINARY VALUE 0.  
   41  097100    05 SQL-DATA-OK    PIC X            VALUE "0".
   42  097100    05 FILLER         PIC X(55).                 
   43  097100    05 SQL-00002 PIC  X(00003)     DISPLAY.      
   44  097100    05 SQL-00003 PIC  X(00010)     DISPLAY.      
   45  097100    05 SQL-00004 PIC  X(00001)     DISPLAY.      
   46  097100    05 SQL-00006 PIC  X(00003)     DISPLAY.      
   47  097100    05 SQL-00007 PIC  X(00010)     DISPLAY.      
   48  097100    05 SQL-00008 PIC  X(00002)     DISPLAY.      
   49  097100    05 SQL-00009 PIC  X(00002)     DISPLAY.      
   50  097100    05 SQL-00010 PIC  X(00002)     DISPLAY.      
   51  097100    05 SQL-00011 PIC  X(00002)     DISPLAY.         ETC.     
     74  122500  01 SQL-00034.                                 
  5722WDS V5R1M0  010525            AS/400 COBOL Source        
   STMT SEQNBR -A 1 B..+....2....+....3....+....4....+....5....
     75  122500    05 SQL-HEADER-LEN PIC S9999 BINARY VALUE 64.
     76  122500    05 SQL-STATEMENT  PIC S9999 BINARY VALUE 2. 
     77  122500    05 SQL-INVMARK    PIC S9(9) BINARY VALUE 0. 
     78  122500    05 SQL-DATA-OK    PIC X            VALUE "0"
     79  122500    05 FILLER         PIC X(55).                
     80  122500    05 SQL-00035 PIC  X(00003)     DISPLAY.     
     81  122500    05 SQL-00036 PIC  X(00010)     DISPLAY.      ETC.  
108  152700  01 SQL-00063.                                 
109  152700    05 SQL-HEADER-LEN PIC S9999 BINARY VALUE 64.
110  152700    05 SQL-STATEMENT  PIC S9999 BINARY VALUE 3. 
111  152700    05 SQL-INVMARK    PIC S9(9) BINARY VALUE 0. 
112  152700    05 SQL-DATA-OK    PIC X            VALUE "0"
113  152700    05 FILLER         PIC X(55).                         ETC.        
       
122  161500  01 SQL-00072.                                  
123  161500    05 SQL-HEADER-LEN PIC S9999 BINARY VALUE 64. 
124  161500    05 SQL-STATEMENT  PIC S9999 BINARY VALUE 4.  
125  161500    05 SQL-INVMARK    PIC S9(9) BINARY VALUE 0.  
126  161500    05 SQL-DATA-OK    PIC X            VALUE "0".
127  161500    05 FILLER         PIC X(55).                 
128  161500    05 SQL-00073 PIC  X(00003)     DISPLAY.      
129  161500    05 SQL-00074 PIC  X(00010)     DISPLAY.    ETC. 
136  170400  01 SQL-00082.            ETC.
169  175200  01 SQL-00110.            ETC.        
180  198200  01 SQL-00117.            ETC. 
271  202900  01 SQL-00203.            ETC.                                      
                          



---------------------------------
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2024 by midrange.com 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.