|
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 mailing list archive is Copyright 1997-2025 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.