× 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.



In order for the pre compiler to marry your code to internal sql code common
names are used that are the interface. The data that you manipulate will
pass thru the intermediate names like sql-00002 on the way to/from your data
name. If these fields and control areas are not in your program e.g. you do
not include the SQLCA data in your program, your compile will fail.

Hope this over simplistic answer helps.

-----Original Message-----
From: D Meza [mailto:mezazerlin@xxxxxxxxx] 
Sent: Friday, October 10, 2003 1:35 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: Question: COBOL/400(SQLCBL) Compile Time Working Storage


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
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

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.