|
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 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.
midrange.com
