RE: Question: COBOL/400(SQLCBL) Compile Time Working Storage

Howard,
 
Thank you for your explanation.  I really appreciate your help. Have a nice day.
 
D. Meza
 
*****************
"Weatherly, Howard (Contractor) (DLIS)" <Howard.Weatherly@xxxxxxx> wrote:
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.
_______________________________________________
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.


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