5 GCic
This is MUCH more than a mere demonstration program – it’s also a very practical utility! The “GCic” (GnuCOBOL Interactive Compiler) is a TUI (Textual User Interface) program that may be used as a full-screen interface to the “cobc” compiler. In addition, GCic can produce neat, concise and useful cross-reference listings of GnuCOBOL programs, showing not only where user-defined names and built-in registers and intrinsic functions are referenced, but also where user-defined data items ARE MODIFIED by program code!
The program is well documented (IMHO) and you should find it fairly easy to follow. The GCic.cbl program was written to work with a native Windows or Windows/MinGW build of GnuCOBOL as well as a Windows/Cygwin, UNIX or OS X build.
Source listings generated by GCic will show the original source code of your programs, with all indentation and comments preserved. Additionally, any COPYed code will be included in the listing immediately (in compressed form) following the COPY statement that triggered its inclusion into your program.
Cross-reference listings will show all user-defined data items and procedures as well as intrinsic function and special register references. In addition to showing the line numbers at which items were defined and referenced, those references that MODIFY the contents of the data item will have an asterisk appended to them.
In addition to general GnuCOBOL concepts, this program provides a useful demonstration of the following:
Creating a GnuCOBOL compilation unit that consists of multiple programs
Using CDF conditional compilation facilities
Using the
SCREEN SECTIONand associatedACCEPTandDISPLAYstatementsUsing
DECLARATIVESto trap file I/O errorsUsing
FILE-STATUSUsing the
REPLACINGclause on a CDFCOPYstatementUsing the following statements:
ACCEPT FROM COMMAND-LINEstatementACCEPT FROM DATE/TIMEstatementACCEPT FROM ENVIRONMENTstatementEXIT PERFORMstatementEXIT SECTIONstatementINSPECTstatementPERFORM FOREVERstatementSEARCH ALLstatementSET ENVIRONMENTstatementSORTstatementSTRINGstatementUNSTRINGstatement
Using the following built-in subroutines:
C$JUSTIFYbuilt-in system subroutineC$SLEEPbuilt-in system subroutineCBL_CHANGE_DIRbuilt-in system subroutineCBL_CHECK_FILE_EXISTbuilt-in system subroutineCBL_DELETE_FILEbuilt-in system subroutineSYSTEMbuilt-in system subroutine
Using the following intrinsic functions:
CONCATENATEintrinsic functionLENGTHintrinsic functionLOWER-CASEintrinsic functionNUMVALintrinsic functionTRIMintrinsic functionUPPER-CASEintrinsic function
Using the
COB-CRT-STATUS,Special Registersspecial registerProgrammatically producing a report destined for either portrait or landscape printing
The program source and cross-reference listing, generated by cobxref, begins on the next page.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:96 Page 1
1 >>SOURCE FORMAT IS FIXED
2 *> CONFIGURATION SETTINGS: adjust const-set-1.cpy before
3 *> compiling GCic to adjust the way it works.
4 *copy "const-set-1.cpy".
5 *> CONFIGURATION SETTINGS: Set these switches before compiling:
6 *>
7 *> Set these 2 for the compiler version.
8 *>
9 >>DEFINE CONSTANT COMP-VERS AS 'GNUCOBOL 3.1.2 06MAR2022'
10 >>DEFINE CONSTANT COMP-YEAR AS '2022'
11 *>
12 *> LINEDRAW Set to:
13 *> 0 To use spaces (no lines)
14 *> 1 To use the line-drawing characterset (PC codepage 437)
15 *> 2 To use conventional ASCII characters (+, -, |)
16 *>
17 *> OSX USERS - To use the linedrawing characterset,
18 *> set your 'terminal' font to 'Lucida Console'
19 *>
20 *> OS Set to one of the following:
21 *> 'CYGWIN' For a Windows/Cygwin version
22 *> 'MINGW' For a Windows/MinGW version
23 *> 'OSX' For a Macintosh OSX version
24 *> 'UNIX' For a Unix/Linux version
25 *> 'WINDOWS' For a Native Windows version
26 *>
27 *> SELCHAR Set to the desired single character to be used as the red
28 *> 'feature selected' character on the screen.
29 *> SUGGESTIONS: '>', '*', '=', '+'
30 *>
31 *> LPP Set to maximum printable lines per page when the listing
32 *> should be generated for LANDSCAPE orientation (can be over-
33 *> ridden at execution time using the GCXREF_LINES environment
34 *> variable.
35 *>
36 *> LPPP Set to maximum printable lines per page when the listing
37 *> should be generated for PORTRAIT orientation (can be over-
38 *> ridden at execution time using the GCXREF_LINES_PORT
39 *> environment variable.
40 *>
41 GC0712 >>DEFINE CONSTANT LINEDRAW AS 2
42 GC0712 >>DEFINE CONSTANT OS AS 'UNIX'
43 GC0712 >>DEFINE CONSTANT SELCHAR AS '>'
44 GC1213 >>DEFINE CONSTANT LPP AS 50 *> LANDSCAPE (GCXREF_LINES)
45 GC1213 >>DEFINE CONSTANT LPPP AS 60 *> PORTRAIT (GCXREF_LINES_PORT)
46 *> --------------------------------------------------------------
47 *> Now set these switches to establish initial (default) settings
48 *> for the various on-screen options. Set them to a value of
49 *> 0 if they are to be 'OFF' and 1 if they are to be 'ON'
50 GC1213*> (for F5, 1=ON (Landscape), 2=ON (Portrait))
51 *>
52 GC0712 >>DEFINE CONSTANT F1 AS 0 *> Assume WITH DEBUGGING MODE
53 GC0712 >>DEFINE CONSTANT F2 AS 0 *> Procedure+Statement Trace
54 GC0712 >>DEFINE CONSTANT F3 AS 0 *> Make A Library (DLL)
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:96 Page 2
55 GC0712 >>DEFINE CONSTANT F4 AS 0 *> Execute If Compilation OK
56 GC1213 >>DEFINE CONSTANT F5 AS 0 *> Listings
57 GC0712 >>DEFINE CONSTANT F6 AS 1 *> "FUNCTION" Is Optional
58 GC0712 >>DEFINE CONSTANT F7 AS 1 *> Enable All Warnings
59 GC0712 >>DEFINE CONSTANT F8 AS 1 *> Source Is Free-Format
60 GC0712 >>DEFINE CONSTANT F9 AS 1 *> No COMP/BINARY Truncation
61 GC0712 >>DEFINE CONSTANT F12 AS 4 *> Default config file (1-7):
62 *> 1 = BS2000
63 *> 2 = COBOL85
64 *> 3 = COBOL2002
65 *> 4 = DEFAULT
66 *> 5 = IBM
67 *> 6 = MF (i.e. Microfocus)
68 *> 7 = MVS
69 /
70 IDENTIFICATION DIVISION.
71 PROGRAM-ID. GCic.
72 *>***************************************************************
73 *> >NOTE< >NOTE< >NOTE< >NOTE< >NOTE< >NOTE< **
74 *> **
75 *> If this program is compiled with '-fdebugging-line', you **
76 *> will need to pipe SYSERR to a text file when executing GCic **
77 *> (by adding the text '2> filename' to the end of the GCic **
78 *> command). You may also need to press the ENTER key when **
79 *> GCic is finished. **
80 *>***************************************************************
81 *> This program provides a Textual User Interface (TUI) to the **
82 *> process of compiling and (optionally) executing a GNU COBOL **
83 *> program. **
84 *> **
85 *> This programs execution syntax is as follows: **
86 *> **
87 *> GCic <program-path-and-filename> [ <switch>... ] **
88 *> **
89 *> Once executed, a display screen will be presented showing **
90 *> the compilation options that will be used. The user will **
91 *> have the opportunity to change options, specify new ones **
92 *> and specify any program execution arguments to be used if **
93 *> you select the 'Execute' option. When you press the Enter **
94 *> key the program will be compiled. **
95 *> **
96 *> The SCREEN SECTION contains an image of the screen. **
97 *> **
98 *> The '010-Parse-Args' section in the PROCEDURE DIVISION has **
99 *> documentation on switches and their function. **
100 *>***************************************************************
101 *> **
102 *> AUTHOR: GARY L. CUTLER **
103 *> Copyright (C) 2009-2018, Gary L. Cutler, GPL **
104 *> Updated by Vincent B Coen, 2018-2020+. **
105 *> **
106 *> DATE-WRITTEN: June 14, 2009 **
107 *> **
108 *>***************************************************************
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:96 Page 3
109 *> DATE CHANGE DESCRIPTION **
110 *> ====== ==================================================== **
111 *> GC0609 Don't display compiler messages file if compilation **
112 *> GLC Is successful. Also don't display messages if the **
113 *> output file is busy (just put a message on the **
114 *> screen, leave the OC screen up & let the user fix **
115 *> the problem & resubmit. **
116 *> GC0709 When 'EXECUTE' is selected, a 'FILE BUSY' error will **
117 *> CLC still cause the (old) executable to be launched. **
118 *> Also, the 'EXTRA SWITCHES' field is being ignored. **
119 *> Changed the title bar to lowlighted reverse video & **
120 *> the message area to highlighted reverse-video. **
121 *> GC0809 Add a SPACE in front of command-line args when **
122 *> GLC executing users program. Add a SPACE after the **
123 *> -ftraceall switch when building cobc command. **
124 *> GC0909 Convert to work on Cygwin/Linux as well as MinGW **
125 *> GC0310 Virtualized the key codes for S-F1 thru S-F7 as they **
126 *> GLC differ depending upon whether PDCurses or NCurses is **
127 *> being used. **
128 *> GC0410 Introduced the cross-reference and source listing **
129 *> GLC features. Also fixed a bug in EXTRA switch proces- **
130 *> sing where garbage will result if more than the **
131 *> EXTRA switch is specified. **
132 *> GC1010 Corrected several problems reported by Vince Coen: **
133 *> GLC 1) Listing/Xref wouldn't work if '-I' additional **
134 *> cobc switch specified. **
135 *> 2) Programs coded with lowercase reserved words did **
136 *> not get parsed properly when generating listing **
137 *> and/or xref reports. **
138 *> 3) Reliance on a TEMP environment variable caused **
139 *> non-recoverable errors when generating listing **
140 *> and/or xref reports in a session that lacks a **
141 *> TEMP variable. **
142 *> As a result of this change, GCic no longer runs a **
143 *> second 'cobc' when generating listing and/or xref **
144 *> reports. A '-save-temps' (without '=dir') specified **
145 *> in the EXTRA options field will be ignored. A **
146 *> '-save-temps=dir' specified in the EXTRA options **
147 *> field will negate both the XREF and SOURCE opts, **
148 *> if specified. **
149 *> GC0711 Tailored for 29APR2011 version of GNU COBOL 2.0 **
150 *> GC0712 Replaced all switches with configuration settings; **
151 *> GLC Tailored for 11FEB2012 version of GNU COBOL 2.0; **
152 *> Reformatted screen layout to fit a 24x80 screen **
153 *> rather than a 25x81 screen and to accommodate shell **
154 *> environments having only F1-F12 (like 'terminal' in **
155 *> OSX); Fully tested under OSX (required a few altera- **
156 *> tions); Expanded both extra-options and runtime- **
157 *> arguments areas to TWO lines (152 chars total) each; **
158 *> Added support for MF/IBM/BS2000 listing-control **
159 *> directives EJECT,SKIP1,SKIP2,SKIP3 (any of these in **
160 *> copybooks will be ignored) **
161 *> GC0313 Expand the source code record from 80 chars to 256 **
162 *> GLC to facilitate looking for "LINKAGE SECTION" in a **
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:96 Page 4
163 *> free-format file. **
164 *> GC1113 Edited to support the change of "OpenCOBOL" to "GNU **
165 *> GLC COBOL" **
166 *> GC1213 Updated for 23NOV2013 version of GNU COBOL 2.1 **
167 *> GC0114 Introduce a "Press ENTER to Close" action after run- **
168 *> GLC ning the compiled program in the compiler window (F4)**
169 *> VC0617 Remove the Blinking in meny screen as uncomfortable **
170 *> VBC Update version printed to 2.2 30JUN2017. **
171 *> Move the system constant settings to a copy file **
172 *> const-set-1.cpy in case GCic is updated. **
173 *> Added SET ENVIRONMENT "COB_EXIT_WAIT" TO "0" to **
174 *> 100-Initialization section. **
175 *> VC0717 Replaced compile param instrinsic=all with **
176 *> VBC intrinstics=ALL. Changed mod detail inits for Gary **
177 *> from GCL to GLC. **
178 *> Update version printed to 2.2 20JUL2017. **
179 *> Should really get this from the compiler if avail? **
180 *> VC1217 Update compiler version to v3.0 24DEC2017. **
181 *> and copyright to 2018 (in 3 places). **
182 *> VC0811 Updated compiler to 3.1 July2020 and the copyright. **
183 *> VC0322 Update compiler version to v3.1.2 06MAR2022. **
184 *>***************************************************************
185 *>
186 ENVIRONMENT DIVISION.
187 CONFIGURATION SECTION.
188 REPOSITORY.
189 FUNCTION ALL INTRINSIC.
190 INPUT-OUTPUT SECTION.
191 FILE-CONTROL.
192 GC1010 SELECT F-Cobc-Output-FILE ASSIGN TO WS-Listing-Filename-TXT
193 ORGANIZATION IS LINE SEQUENTIAL.
194
195 SELECT F-Source-Code-FILE ASSIGN TO WS-File-Name-TXT
196 ORGANIZATION IS LINE SEQUENTIAL
197 FILE STATUS IS WS-FSM-Status-CD.
198 /
199 DATA DIVISION.
200 FILE SECTION.
201 FD F-Cobc-Output-FILE.
202 01 F-Cobc-Output-REC PIC X(256).
203
204 FD F-Source-Code-FILE.
205 GC0313 01 F-Source-Code-REC PIC X(256).
206
207 WORKING-STORAGE SECTION.
208 >>source free
209 *>C COPY screenio.
210 *> Copyright (C) 2008-2012, 2015-2016 Free Software Foundation, Inc.
211 *> Written by Roger While
212 *>
213 *> This file is part of GnuCOBOL.
214 *>
215 *> The GnuCOBOL compiler is free software: you can redistribute
216 *> it and/or modify it under the terms of the GNU General Public
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:96 Page 5
217 *> License as published by the Free Software Foundation, either
218 *> version 3 of the License, or (at your option) any later
219 *> version.
220 *>
221 *> GnuCOBOL is distributed in the hope that it will be useful,
222 *> but WITHOUT ANY WARRANTY; without even the implied warranty of
223 *> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
224 *> GNU General Public License for more details.
225 *>
226 *> You should have received a copy of the GNU General Public
227 *> License along with GnuCOBOL.
228 *> If not, see <http://www.gnu.org/licenses/>.
229 *>
230 *> Colors
231 *>
232 78 cob-color-black value 0.
233 78 COB-COLOR-BLUE VALUE 1.
234 78 COB-COLOR-GREEN VALUE 2.
235 78 COB-COLOR-CYAN VALUE 3.
236 78 COB-COLOR-RED VALUE 4.
237 78 COB-COLOR-MAGENTA VALUE 5.
238 78 COB-COLOR-YELLOW VALUE 6.
239 78 COB-COLOR-WHITE VALUE 7.
240 *>
241 *> Values that may be returned in CRT STATUS (or COB-CRT-STATUS)
242 *> Normal return - Value 0000
243 78 COB-SCR-OK VALUE 0.
244 *> Function keys - Values 1xxx
245 78 COB-SCR-F1 VALUE 1001.
246 78 COB-SCR-F2 VALUE 1002.
247 78 COB-SCR-F3 VALUE 1003.
248 78 COB-SCR-F4 VALUE 1004.
249 78 COB-SCR-F5 VALUE 1005.
250 78 COB-SCR-F6 VALUE 1006.
251 78 COB-SCR-F7 VALUE 1007.
252 78 COB-SCR-F8 VALUE 1008.
253 78 COB-SCR-F9 VALUE 1009.
254 78 COB-SCR-F10 VALUE 1010.
255 78 COB-SCR-F11 VALUE 1011.
256 78 COB-SCR-F12 VALUE 1012.
257 78 COB-SCR-F13 VALUE 1013.
258 78 COB-SCR-F14 VALUE 1014.
259 78 COB-SCR-F15 VALUE 1015.
260 78 COB-SCR-F16 VALUE 1016.
261 78 COB-SCR-F17 VALUE 1017.
262 78 COB-SCR-F18 VALUE 1018.
263 78 COB-SCR-F19 VALUE 1019.
264 78 COB-SCR-F20 VALUE 1020.
265 78 COB-SCR-F21 VALUE 1021.
266 78 COB-SCR-F22 VALUE 1022.
267 78 COB-SCR-F23 VALUE 1023.
268 78 COB-SCR-F24 VALUE 1024.
269 78 COB-SCR-F25 VALUE 1025.
270 78 COB-SCR-F26 VALUE 1026.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 6
271 78 COB-SCR-F27 VALUE 1027.
272 78 COB-SCR-F28 VALUE 1028.
273 78 COB-SCR-F29 VALUE 1029.
274 78 COB-SCR-F30 VALUE 1030.
275 78 COB-SCR-F31 VALUE 1031.
276 78 COB-SCR-F32 VALUE 1032.
277 78 COB-SCR-F33 VALUE 1033.
278 78 COB-SCR-F34 VALUE 1034.
279 78 COB-SCR-F35 VALUE 1035.
280 78 COB-SCR-F36 VALUE 1036.
281 78 COB-SCR-F37 VALUE 1037.
282 78 COB-SCR-F38 VALUE 1038.
283 78 COB-SCR-F39 VALUE 1039.
284 78 COB-SCR-F40 VALUE 1040.
285 78 COB-SCR-F41 VALUE 1041.
286 78 COB-SCR-F42 VALUE 1042.
287 78 COB-SCR-F43 VALUE 1043.
288 78 COB-SCR-F44 VALUE 1044.
289 78 COB-SCR-F45 VALUE 1045.
290 78 COB-SCR-F46 VALUE 1046.
291 78 COB-SCR-F47 VALUE 1047.
292 78 COB-SCR-F48 VALUE 1048.
293 78 COB-SCR-F49 VALUE 1049.
294 78 COB-SCR-F50 VALUE 1050.
295 78 COB-SCR-F51 VALUE 1051.
296 78 COB-SCR-F52 VALUE 1052.
297 78 COB-SCR-F53 VALUE 1053.
298 78 COB-SCR-F54 VALUE 1054.
299 78 COB-SCR-F55 VALUE 1055.
300 78 COB-SCR-F56 VALUE 1056.
301 78 COB-SCR-F57 VALUE 1057.
302 78 COB-SCR-F58 VALUE 1058.
303 78 COB-SCR-F59 VALUE 1059.
304 78 COB-SCR-F60 VALUE 1060.
305 78 COB-SCR-F61 VALUE 1061.
306 78 COB-SCR-F62 VALUE 1062.
307 78 COB-SCR-F63 VALUE 1063.
308 78 COB-SCR-F64 VALUE 1064.
309 *> Exception keys - Values 2xxx
310 78 COB-SCR-PAGE-UP VALUE 2001.
311 78 Cob-Scr-Page_Up value 2001.
312 78 COB-SCR-PAGE-DOWN VALUE 2002.
313 78 Cob-Scr-Page_Down value 2002.
314 78 COB-SCR-KEY-UP VALUE 2003.
315 78 COB-SCR-KEY_UP VALUE 2003.
316 78 COB-SCR-KEY-DOWN VALUE 2004.
317 78 COB-SCR-KEY_DOWN VALUE 2004.
318 78 COB-SCR-ESC VALUE 2005.
319 78 COB-SCR-PRINT VALUE 2006.
320 78 COB-SCR-TAB VALUE 2007.
321 78 COB-SCR-BACK-TAB VALUE 2008.
322 78 COB-SCR-KEY-LEFT VALUE 2009.
323 78 COB-SCR-KEY-RIGHT VALUE 2010.
324 *> The following exception keys are currently *only* returned
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 7
325 *> on ACCEPT OMITTED
326 78 COB-SCR-INSERT VALUE 2011.
327 78 COB-SCR-DELETE VALUE 2012.
328 78 COB-SCR-BACKSPACE VALUE 2013.
329 78 COB-SCR-KEY-HOME VALUE 2014.
330 78 COB-SCR-KEY-END VALUE 2015.
331 *> Input validation - Values 8xxx
332 78 COB-SCR-NO-FIELD VALUE 8000.
333 78 COB-SCR-TIME-OUT VALUE 8001.
334 *> Other errors - Values 9xxx
335 78 COB-SCR-FATAL VALUE 9000.
336 78 COB-SCR-MAX-FIELD VALUE 9001.
337 >>source fixed
338 GC0712 01 WS-Compilation-Switches-TXT.
339 GC0712 05 WS-CS-Args-TXT VALUE SPACES.
340 GC0712 10 WS-CS-Arg-H1-TXT PIC X(76).
341 GC0712 10 WS-CS-Arg-H2-TXT PIC X(76).
342 GC0712 05 WS-CS-Filenames-TXT.
343 GC0712 10 VALUE 'BS2000' PIC X(9).
344 GC0712 10 VALUE 'COBOL85' PIC X(9).
345 GC0712 10 VALUE 'COBOL2002' PIC X(9).
346 GC0712 10 VALUE 'DEFAULT' PIC X(9).
347 GC0712 10 VALUE 'IBM' PIC X(9).
348 GC0712 10 VALUE 'MF' PIC X(9).
349 GC0712 10 VALUE 'MVS' PIC X(9).
350 GC0712 05 WS-CS-Filenames-Table-TXT REDEFINES WS-CS-Filenames-TXT.
351 GC0712 10 WS-CS-Filename-TXT OCCURS 7 TIMES
352 GC0712 PIC X(9).
353 GC0712 >>IF F12 < 1
354 GC0712 05 WS-CS-Config-NUM VALUE 4 PIC 9(1).
355 GC0712 >>ELIF F12 > 7
356 GC0712 05 WS-CS-Config-NUM VALUE 4 PIC 9(1).
357 GC0712 >>ELSE
358 GC0712 05 WS-CS-Config-NUM VALUE F12 PIC 9(1).
359 GC0712 >>END-IF
360 GC0712 05 WS-CS-Extra-TXT VALUE SPACES.
361 GC0712 10 WS-CS-Extra-H1-TXT PIC X(76).
362 GC0712 10 WS-CS-Extra-H2-TXT PIC X(76).
363 GC0712 05 WS-CS-Switch-Defaults-TXT.
364 GC0712 10 VALUE F1 PIC 9(1). *> WS-CS-DEBUG-CHR
365 GC0712 10 VALUE F4 PIC 9(1). *> WS-CS-EXECUTE-CHR
366 GC0712 10 VALUE F8 PIC 9(1). *> WS-CS-FREE-CHR
367 GC0712 10 VALUE F3 PIC 9(1). *> WS-CS-LIBRARY-CHR
368 GC0712 10 VALUE F5 PIC 9(1). *> WS-CS-LISTING-CHR
369 GC0712 10 VALUE F6 PIC 9(1). *> WS-CS-NOFUNC-CHR
370 GC0712 10 VALUE F9 PIC 9(1). *> WS-CS-NOTRUNC-CHR
371 GC0712 10 VALUE F2 PIC 9(1). *> WS-CS-TRACEALL-CHR
372 GC0712 10 VALUE F7 PIC 9(1). *> WS-CS-WARNALL-CHR
373 GC0712 05 WS-CS-All-Switches-TXT REDEFINES
374 GC0712 WS-CS-Switch-Defaults-TXT.
375 GC0712 10 WS-CS-DEBUG-CHR PIC X(1).
376 GC0712 10 WS-CS-EXECUTE-CHR PIC X(1).
377 GC0712 10 WS-CS-FREE-CHR PIC X(1).
378 GC0712 10 WS-CS-LIBRARY-CHR PIC X(1).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 8
379 GC0712 10 WS-CS-LISTING-CHR PIC X(1).
380 GC0712 10 WS-CS-NOFUNC-CHR PIC X(1).
381 GC0712 10 WS-CS-NOTRUNC-CHR PIC X(1).
382 GC0712 10 WS-CS-TRACEALL-CHR PIC X(1).
383 GC0712 10 WS-CS-WARNALL-CHR PIC X(1).
384
385 GC0909 01 WS-Cmd-TXT PIC X(512).
386
387 GC0712 01 WS-Cmd-Args-TXT PIC X(256).
388
389 GC0712 01 WS-Cmd-End-Quote-CHR PIC X(1).
390
391 GC0712 01 WS-Cmd-SUB USAGE BINARY-LONG.
392
393 01 WS-Cobc-Cmd-TXT PIC X(256).
394
395 01 WS-Config-Fn-TXT PIC X(12).
396
397 GC1113 01 WS-Delete-Fn-TXT PIC X(256).
398
399 01 WS-File-Name-TXT.
400 05 WS-FN-CHR OCCURS 256 TIMES
401 PIC X(1).
402
403 01 WS-File-Status-Message-TXT.
404 05 VALUE 'Status Code: ' PIC X(13).
405 05 WS-FSM-Status-CD PIC 9(2).
406 05 VALUE ', Meaning: ' PIC X(11).
407 05 WS-FSM-Msg-TXT PIC X(25).
408
409 GC0909 01 WS-Horizontal-Line-TXT PIC X(80).
410 GC0909
411 01 WS-I-SUB USAGE BINARY-LONG.
412
413 01 WS-J-SUB USAGE BINARY-LONG.
414
415 GC1213 01 WS-Listing-CD VALUE F5 PIC 9(1).
416
417 GC0712 01 WS-Listing-Filename-TXT PIC X(256).
418
419 GC1213 01 WS-Listing-TXT VALUE SPACES PIC X(27).
420
421 01 WS-OC-Compile-DT PIC XXXX/XX/XXBXX/XX.
422
423 GC0712 >>IF OS = 'CYGWIN'
424 GC0712 01 WS-OS-Dir-CHR VALUE '/' PIC X(1).
425 GC0712 78 WS-OS-Exe-Ext-CONST VALUE '.exe'.
426 GC0712 78 WS-OS-Lib-Ext-CONST VALUE '.dll'.
427 GC0712 78 WS-OS-Lib-Type-CONST VALUE 'DLL)'.
428 GC0712 01 WS-OS-Type-CD VALUE 2 PIC 9(1).
429 GC0712 >>ELIF OS = 'MINGW'
430 GC0712 01 WS-OS-Dir-CHR VALUE '\' PIC X(1).
431 GC0712 78 WS-OS-Exe-Ext-CONST VALUE '.exe'.
432 GC0712 78 WS-OS-Lib-Ext-CONST VALUE '.dll'.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 9
433 GC0712 78 WS-OS-Lib-Type-CONST VALUE 'DLL)'.
434 GC0712 01 WS-OS-Type-CD VALUE 5 PIC 9(1).
435 GC0712 >>ELIF OS = 'OSX'
436 GC0712 01 WS-OS-Dir-CHR VALUE '/' PIC X(1).
437 GC0712 78 WS-OS-Exe-Ext-CONST VALUE ' '.
438 GC0712 78 WS-OS-Lib-Ext-CONST VALUE '.dylib'.
439 GC0712 78 WS-OS-Lib-Type-CONST VALUE 'DYLIB)'.
440 GC0712 01 WS-OS-Type-CD VALUE 4 PIC 9(1).
441 GC0712 >>ELIF OS = 'UNIX'
442 GC0712 01 WS-OS-Dir-CHR VALUE '/' PIC X(1).
443 GC0712 78 WS-OS-Exe-Ext-CONST VALUE ' '.
444 GC0712 78 WS-OS-Lib-Ext-CONST VALUE '.so'.
445 GC0712 78 WS-OS-Lib-Type-CONST VALUE 'SO)'.
446 GC0712 01 WS-OS-Type-CD VALUE 3 PIC 9(1).
447 GC0712 >>ELIF OS = 'WINDOWS'
448 GC0712 01 WS-OS-Dir-CHR VALUE '\' PIC X(1).
449 GC0712 78 WS-OS-Exe-Ext-CONST VALUE '.exe'.
450 GC0712 78 WS-OS-Lib-Ext-CONST VALUE '.dll'.
451 GC0712 78 WS-OS-Lib-Type-CONST VALUE 'DLL)'.
452 GC0712 01 WS-OS-Type-CD VALUE 1 PIC 9(1).
453 GC0712 >>END-IF
454 GC0909 88 WS-OS-Windows-BOOL VALUE 1, 5.
455 GC0909 88 WS-OS-Cygwin-BOOL VALUE 2.
456 GC0712 88 WS-OS-UNIX-BOOL VALUE 3, 4.
457 GC0712 88 WS-OS-OSX-BOOL VALUE 4.
458
459 01 WS-OS-Type-FILLER-TXT.
460 05 VALUE 'Windows' PIC X(14).
461 05 VALUE 'Windows/Cygwin' PIC X(14).
462 05 VALUE 'UNIX/Linux' PIC X(14).
463 05 VALUE 'OSX' PIC X(14).
464 05 VALUE 'Windows/MinGW' PIC X(14).
465 01 WS-OS-Types-TXT REDEFINES WS-OS-Type-FILLER-TXT.
466 05 WS-OS-Type-TXT OCCURS 5 TIMES
467 PIC X(14).
468
469 01 WS-Output-Msg-TXT PIC X(80).
470
471 01 WS-Path-Delimiter-CHR PIC X(1).
472
473 01 WS-Prog-Extension-TXT PIC X(256).
474
475 01 WS-Prog-Folder-TXT PIC X(256).
476
477 GC0712 01 WS-Prog-File-Name-TXT.
478 GC0712 05 WS-PFN-CHR OCCURS 256 TIMES
479 GC0712 PIC X(1).
480
481 GC0712 01 WS-Pgm-Nm-TXT PIC X(31).
482
483 01 WS-Runtime-Switches-TXT.
484 05 WS-RS-Compile-OK-CHR PIC X(1).
485 88 WS-RS-Compile-OK-BOOL VALUE 'Y'.
486 GC0909 88 WS-RS-Compile-OK-Warn-BOOL VALUE 'W'.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 10
487 88 WS-RS-Compile-Failed-BOOL VALUE 'N'.
488 GC0609 05 WS-RS-Complete-CHR PIC X(1).
489 GC0609 88 WS-RS-Complete-BOOL VALUE 'Y'.
490 GC0609 88 WS-RS-Not-Complete-BOOL VALUE 'N'.
491 GC0712 05 WS-RS-Quote-CHR PIC X(1).
492 GC0712 88 WS-RS-Double-Quote-Used-BOOL VALUE 'Y' FALSE 'N'.
493 GC0809 05 WS-RS-IDENT-DIV-CHR PIC X(1).
494 GC0809 88 WS-RS-1st-Prog-Complete-BOOL VALUE 'Y'.
495 GC0809 88 WS-RS-More-To-1st-Prog-BOOL VALUE 'N'.
496 05 WS-RS-No-Switch-Chgs-CHR PIC X(1).
497 88 WS-RS-No-Switch-Changes-BOOL VALUE 'Y'.
498 88 WS-RS-Switch-Changes-BOOL VALUE 'N'.
499 GC0709 05 WS-RS-Output-File-Busy-CHR PIC X(1).
500 GC0709 88 WS-RS-Output-File-Busy-BOOL VALUE 'Y'.
501 GC0709 88 WS-RS-Output-File-Avail-BOOL VALUE 'N'.
502 GC0809 05 WS-RS-Source-Record-Type-CHR PIC X(1).
503 GC0809 88 WS-RS-Source-Rec-Linkage-BOOL VALUE 'L'.
504 GC0809 88 WS-RS-Source-Rec-Ident-BOOL VALUE 'I'.
505 GC0712 88 WS-RS-Source-Rec-Ignored-BOOL VALUE ' '.
506 05 WS-RS-Switch-Error-CHR PIC X(1).
507 88 WS-RS-Switch-Is-Bad-BOOL VALUE 'Y'.
508 88 WS-RS-Switch-Is-Good-BOOL VALUE 'N'.
509
510 01 WS-Tally-QTY USAGE BINARY-LONG.
511 /
512 SCREEN SECTION.
513 *>
514 *> Here is the layout of the GCic screen.
515 *>
516 *> The sample screen below shows how the screen would look if the LINEDRAW
517 *> configuration setting is set to a value of 2
518 *>
519 *> The following sample screen layout shows how the screen looks with line-drawing
520 *> characters disabled.
521 *>
522 *> 1 2 3 4 5 6 7 8
523 *>12345678901234567890123456789012345678901234567890123456789012345678901234567890
524 *>================================================================================
525 VC 01 *> GCic (2020/08/11 23:00) - GNU COBOL V3.1 01July2020 Interactive Compilation
526 02 *>+------------------------------------------------------------------------------+
527 03 *>| Folder: E:\GNU COBOL\Samples |
528 04 *>| Filename: GCic.cbl |
529 05 *>+------------------------------------------------------------------------------+
530 06 *> Set/Clr Switches Via F1-F9; Set Config Via F12; ENTER Key Compiles; ESC Quits
531 07 *>+-----------------------------------------------------------------+------------+
532 08 *>| F1 Assume WITH DEBUGGING MODE F6 "FUNCTION" Is Optional | Current |
533 09 *>| F2 Procedure+Statement Trace F7 Enable All Warnings | Config: |
534 10 *>| F3 Make A Library (DLL) F8 Source Is Free-Format | XXXXXXXXXX |
535 11 *>| F4 Execute If Compilation OK F9 No COMP/BINARY Truncation | |
536 12 *>| F5 >Produce Listing (Landscape) | |
537 13 *>+-----------------------------------------------------------------+------------+
538 14 *> Extra "cobc" Switches, If Any ("-save-temps=xxx" Prevents Listings):
539 15 *>+------------------------------------------------------------------------------+
540 16 *>| ____________________________________________________________________________ |
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 11
541 17 *>| ____________________________________________________________________________ |
542 18 *>+------------------------------------------------------------------------------+
543 19 *> Program Execution Arguments, If Any:
544 20 *>+------------------------------------------------------------------------------+
545 21 *>| ____________________________________________________________________________ |
546 22 *>| ____________________________________________________________________________ |
547 23 *>+------------------------------------------------------------------------------+
548 VC 24 *> GCic Copyright (C) 2009-2022, Gary L. Cutler, GPL
549 *>================================================================================
550 *>12345678901234567890123456789012345678901234567890123456789012345678901234567890
551 *> 1 2 3 4 5 6 7 8
552 *>
553 *> If this program is run on Windows, it must run with codepage 437 activated to
554 *> display the line-drawing characters. With a native Windows build or a
555 *> Windows/MinGW build, one could use the command 'chcp 437' to set that codepage
556 *> for display within a Windows console window (that should be the default though).
557 *> With a Windows/Cygwin build, set the environment variable CYGWIN to a value of
558 *> 'codepage:oem' (this cannot be done from within the program though - you will
559 *> have to use the 'Computer/Advanced System Settings/Environment Variables' (Vista
560 *> or Windows 7) function to define the variable. XP Users: use 'My Computer/
561 *> Properties/Advanced/Environment Variables'.
562 *>
563 *> OSX users may use line drawing characters in this and any GNU COBOL program
564 *> simply by setting their 'terminal' application's font to "Lucida Console".
565 *>
566 >>IF LINEDRAW IS EQUAL TO 0
567 78 LD-UL-Corner VALUE ' '.
568 78 LD-LL-Corner VALUE ' '.
569 78 LD-UR-Corner VALUE ' '.
570 78 LD-LR-Corner VALUE ' '.
571 78 LD-Upper-T VALUE ' '.
572 78 LD-Lower-T VALUE ' '.
573 78 LD-Horiz-Line VALUE ' '.
574 78 LD-Vert-Line VALUE ' '.
575 >>ELIF LINEDRAW IS EQUAL TO 1
576 78 LD-UL-Corner VALUE X'DA'.
577 78 LD-LL-Corner VALUE X'C0'.
578 78 LD-UR-Corner VALUE X'BF'.
579 78 LD-LR-Corner VALUE X'D9'.
580 78 LD-Upper-T VALUE X'C2'.
581 78 LD-Lower-T VALUE X'C1'.
582 78 LD-Horiz-Line VALUE X'C4'.
583 78 LD-Vert-Line VALUE X'B3'.
584 >>ELSE
585 78 LD-UL-Corner VALUE '+'.
586 78 LD-LL-Corner VALUE '+'.
587 78 LD-UR-Corner VALUE '+'.
588 78 LD-LR-Corner VALUE '+'.
589 78 LD-Upper-T VALUE '+'.
590 78 LD-Lower-T VALUE '+'.
591 78 LD-Horiz-Line VALUE '-'.
592 78 LD-Vert-Line VALUE '|'.
593 >>END-IF
594
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 12
595 01 S-Blank-SCR LINE 1 COLUMN 1 BLANK SCREEN.
596
597 01 S-Switches-SCR BACKGROUND-COLOR COB-COLOR-BLACK
598 FOREGROUND-COLOR COB-COLOR-WHITE AUTO.
599 *>
600 *> GENERAL SCREEN FRAMEWORK
601 *>
602 03 BACKGROUND-COLOR COB-COLOR-BLACK
603 FOREGROUND-COLOR COB-COLOR-GREEN HIGHLIGHT.
604 GC0712 05 LINE 02 COL 01 VALUE LD-UL-Corner.
605 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
606 05 COL 80 VALUE LD-UR-Corner.
607
608 GC0712 05 LINE 03 COL 01 VALUE LD-Vert-Line.
609 05 COL 80 VALUE LD-Vert-Line.
610
611 GC0712 05 LINE 04 COL 01 VALUE LD-Vert-Line.
612 05 COL 80 VALUE LD-Vert-Line.
613
614 GC0712 05 LINE 05 COL 01 VALUE LD-LL-Corner.
615 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
616 05 COL 80 VALUE LD-LR-Corner.
617
618 GC0712 05 LINE 07 COL 01 VALUE LD-UL-Corner.
619 GC0712 05 COL 02 PIC X(65) FROM WS-Horizontal-Line-TXT.
620 GC0712 05 COL 67 VALUE LD-Upper-T.
621 GC0712 05 COL 68 PIC X(12) FROM WS-Horizontal-Line-TXT.
622 05 COL 80 VALUE LD-UR-Corner.
623
624 GC0712 05 LINE 08 COL 01 VALUE LD-Vert-Line.
625 GC0712 05 COL 67 VALUE LD-Vert-Line.
626 05 COL 80 VALUE LD-Vert-Line.
627
628 GC0712 05 LINE 09 COL 01 VALUE LD-Vert-Line.
629 GC0712 05 COL 67 VALUE LD-Vert-Line.
630 05 COL 80 VALUE LD-Vert-Line.
631
632 GC0712 05 LINE 10 COL 01 VALUE LD-Vert-Line.
633 GC0712 05 COL 67 VALUE LD-Vert-Line.
634 05 COL 80 VALUE LD-Vert-Line.
635
636 GC0712 05 LINE 11 COL 01 VALUE LD-Vert-Line.
637 GC0712 05 COL 67 VALUE LD-Vert-Line.
638 05 COL 80 VALUE LD-Vert-Line.
639
640 GC0712 05 LINE 12 COL 01 VALUE LD-Vert-Line.
641 GC0712 05 COL 67 VALUE LD-Vert-Line.
642 05 COL 80 VALUE LD-Vert-Line.
643
644 GC0712 05 LINE 13 COL 01 VALUE LD-LL-Corner.
645 GC0712 05 COL 02 PIC X(65) FROM WS-Horizontal-Line-TXT.
646 GC0712 05 COL 67 VALUE LD-Lower-T.
647 GC0712 05 COL 68 PIC X(12) FROM WS-Horizontal-Line-TXT.
648 05 COL 80 VALUE LD-LR-Corner.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:97 Page 13
649
650 GC0712 05 LINE 15 COL 01 VALUE LD-UL-Corner.
651 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
652 05 COL 80 VALUE LD-UR-Corner.
653
654 GC0712 05 LINE 16 COL 01 VALUE LD-Vert-Line.
655 05 COL 80 VALUE LD-Vert-Line.
656
657 GC0712 05 LINE 17 COL 01 VALUE LD-Vert-Line.
658 05 COL 80 VALUE LD-Vert-Line.
659
660 GC0712 05 LINE 18 COL 01 VALUE LD-LL-Corner.
661 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
662 05 COL 80 VALUE LD-LR-Corner.
663
664 GC0712 05 LINE 20 COL 01 VALUE LD-UL-Corner.
665 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
666 05 COL 80 VALUE LD-UR-Corner.
667
668 GC0712 05 LINE 21 COL 01 VALUE LD-Vert-Line.
669 05 COL 80 VALUE LD-Vert-Line.
670
671 GC0712 05 LINE 22 COL 01 VALUE LD-Vert-Line.
672 05 COL 80 VALUE LD-Vert-Line.
673
674 GC0712 05 LINE 23 COL 01 VALUE LD-LL-Corner.
675 GC0712 05 COL 02 PIC X(78) FROM WS-Horizontal-Line-TXT.
676 05 COL 80 VALUE LD-LR-Corner.
677 *>
678 *> TOP AND BOTTOM LINES
679 *>
680 GC0712 03 BACKGROUND-COLOR COB-COLOR-BLUE
681 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
682 GC0410 05 LINE 01 COL 01 VALUE ' GCic ('.
683 GC0410 05 COL 08 PIC X(16) FROM WS-OC-Compile-DT.
684 GC1213 05 COL 24 VALUE ') GNUCOBOL 3.1.2 06MAR2022 ' &
685 GC0410 'Interactive Compilation '.
686 VC0617 03 BACKGROUND-COLOR COB-COLOR-RED
687 GC0712 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
688 GC0712 05 LINE 24 COL 01 PIC X(80) FROM WS-Output-Msg-TXT.
689 *>
690 *> LABELS
691 *>
692 03 BACKGROUND-COLOR COB-COLOR-BLACK
693 FOREGROUND-COLOR COB-COLOR-CYAN HIGHLIGHT.
694 GC0712 05 LINE 06 COL 02 VALUE 'Set/Clr Switches Via F1-F9; ' &
695 GC0712 'Set Config Via F12; Enter Key ' &
696 GC0712 'Compiles; Esc Quits'.
697 GC0712 05 LINE 14 COL 02 VALUE 'Extra "cobc" Switches, If Any ' &
698 GC0712 '("-save-temps=xxx" Prevents ' &
699 GC0712 'Listings):'.
700 GC0712 05 LINE 19 COL 02 VALUE 'Program Execution Arguments, ' &
701 GC0712 'If Any:'.
702 GC0712 03 BACKGROUND-COLOR COB-COLOR-BLACK
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 14
703 GC0712 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
704 GC0712 05 LINE 06 COL 23 VALUE 'F1'.
705 GC0712 05 COL 26 VALUE 'F9'.
706 GC0712 05 COL 45 VALUE 'F12'.
707 GC0712 05 COL 50 VALUE 'ENTER'.
708 GC0712 05 COL 70 VALUE 'ESC'.
709 *>
710 *> TOP SECTION BACKGROUND
711 *>
712 03 BACKGROUND-COLOR COB-COLOR-BLACK
713 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
714 GC0712 05 LINE 03 COL 62 VALUE 'Enter'.
715 GC0712 05 LINE 04 COL 62 VALUE 'Esc'.
716
717 03 BACKGROUND-COLOR COB-COLOR-BLACK
718 FOREGROUND-COLOR COB-COLOR-GREEN HIGHLIGHT.
719 GC0712 05 LINE 04 COL 03 VALUE 'Folder: '.
720 GC0712 05 LINE 03 COL 03 VALUE 'Filename: '.
721
722 GC0712 05 LINE 03 COL 67 VALUE ': Compile '.
723 GC0712 05 LINE 04 COL 65 VALUE ': Quit '.
724 *>
725 *> TOP SECTION PROGRAM INFO
726 *>
727 03 BACKGROUND-COLOR COB-COLOR-BLACK
728 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
729 GC0712 05 LINE 03 COL 13 PIC X(66) FROM WS-Prog-File-Name-TXT.
730 GC0712 05 LINE 04 COL 13 PIC X(66) FROM WS-Prog-Folder-TXT.
731 *>
732 *> MIDDLE LEFT SECTION F-KEYS
733 *>
734 03 BACKGROUND-COLOR COB-COLOR-BLACK
735 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
736 GC0712 05 LINE 08 COL 03 VALUE 'F1'.
737 GC0712 05 LINE 09 COL 03 VALUE 'F2'.
738 GC0712 05 LINE 10 COL 03 VALUE 'F3'.
739 GC0712 05 LINE 11 COL 03 VALUE 'F4'.
740 GC0712 05 LINE 12 COL 03 VALUE 'F5'.
741
742 GC0712 05 LINE 08 COL 35 VALUE 'F6'.
743 GC0712 05 LINE 09 COL 35 VALUE 'F7'.
744 GC0712 05 LINE 10 COL 35 VALUE 'F8'.
745 GC0712 05 LINE 11 COL 35 VALUE 'F9'.
746 *>
747 *> MIDDLE LEFT SECTION SWITCHES
748 *>
749 03 BACKGROUND-COLOR COB-COLOR-BLACK
750 FOREGROUND-COLOR COB-COLOR-RED HIGHLIGHT.
751 GC0712 05 LINE 08 COL 06 PIC X(1) FROM WS-CS-DEBUG-CHR.
752 GC0712 05 LINE 09 COL 06 PIC X(1) FROM WS-CS-TRACEALL-CHR.
753 GC0712 05 LINE 10 COL 06 PIC X(1) FROM WS-CS-LIBRARY-CHR.
754 GC0712 05 LINE 11 COL 06 PIC X(1) FROM WS-CS-EXECUTE-CHR.
755 GC0712 05 LINE 12 COL 06 PIC X(1) FROM WS-CS-LISTING-CHR.
756
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 15
757 GC0712 05 LINE 08 COL 38 PIC X(1) FROM WS-CS-NOFUNC-CHR.
758 GC0712 05 LINE 09 COL 38 PIC X(1) FROM WS-CS-WARNALL-CHR.
759 GC0712 05 LINE 10 COL 38 PIC X(1) FROM WS-CS-FREE-CHR.
760 GC0712 05 LINE 11 COL 38 PIC X(1) FROM WS-CS-NOTRUNC-CHR.
761 *>
762 *> MIDDLE LEFT SECTION BACKGROUND
763 *>
764 03 BACKGROUND-COLOR COB-COLOR-BLACK
765 FOREGROUND-COLOR COB-COLOR-GREEN HIGHLIGHT.
766 GC0712 05 LINE 08 COL 07 VALUE 'Assume WITH DEBUGGING MODE'.
767 GC0712 05 LINE 09 COL 07 VALUE 'Procedure+Statement Trace '.
768 GC0712 05 LINE 10 COL 07 VALUE 'Make a Library ('.
769 GC0712 05 COL 23 VALUE WS-OS-Lib-Type-CONST.
770 GC0712 05 LINE 11 COL 07 VALUE 'Execute If Compilation OK '.
771 GC1213 05 LINE 12 COL 07 FROM WS-Listing-TXT.
772
773 GC0712 05 LINE 08 COL 39 VALUE '"FUNCTION" Is Optional '.
774 GC0712 05 LINE 09 COL 39 VALUE 'Enable All Warnings '.
775 GC0712 05 LINE 10 COL 39 VALUE 'Source Is Free-Format '.
776 GC0712 05 LINE 11 COL 39 VALUE 'No COMP/BINARY Truncation '.
777 *>
778 *> MIDDLE RIGHT SECTION Text
779 *>
780 03 BACKGROUND-COLOR COB-COLOR-BLACK
781 FOREGROUND-COLOR COB-COLOR-GREEN HIGHLIGHT.
782 GC0712 05 LINE 08 COL 69 VALUE 'Current'.
783 GC0712 05 LINE 09 COL 69 VALUE 'Config:'.
784 *>
785 *> MIDDLE RIGHT SECTION CONFIG FILE
786 *>
787 03 BACKGROUND-COLOR COB-COLOR-BLACK
788 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
789 GC0712 05 LINE 10 COL 69 PIC X(10)
790 GC0712 FROM WS-CS-Filename-TXT (WS-CS-Config-NUM).
791 *>
792 *> FREE-FORM OPTIONS FIELDS
793 *>
794 03 BACKGROUND-COLOR COB-COLOR-BLACK
795 FOREGROUND-COLOR COB-COLOR-WHITE HIGHLIGHT.
796 GC0712 05 LINE 16 COL 03 PIC X(76) USING WS-CS-Extra-H1-TXT.
797 GC0712 05 LINE 17 COL 03 PIC X(76) USING WS-CS-Extra-H2-TXT.
798 GC0712 05 LINE 21 COL 03 PIC X(76) USING WS-CS-Arg-H1-TXT.
799 GC0712 05 LINE 22 COL 03 PIC X(76) USING WS-CS-Arg-H2-TXT.
800 /
801 PROCEDURE DIVISION.
802 *>***************************************************************
803 *> Legend to procedure names: **
804 *> **
805 *> 00x-xxx All MAIN driver procedures **
806 *> 0xx-xxx All GLOBAL UTILITY procedures **
807 *> 1xx-xxx All INITIALIZATION procedures **
808 *> 2xx-xxx All CORE PROCESSING procedures **
809 *> 9xx-xxx All TERMINATION procedures **
810 *>***************************************************************
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 16
811 DECLARATIVES.
812 000-File-Error SECTION.
813 USE AFTER STANDARD ERROR PROCEDURE ON F-Source-Code-FILE.
814 * COPY FileStat-Msgs
815 * REPLACING STATUS BY WS-FSM-Status-CD
816 * MSG BY WS-FSM-Msg-TXT.
817 *> ***************************************************************
818 *> ** Author: Gary L. Cutler **
819 *> ** CutlerGL@gmail.com **
820 *> ** **
821 *> ** This copybook defines an EVALUATE statement capable of **
822 *> ** translating two-digit FILE-STATUS codes to a message. **
823 *> ** **
824 *> ** Use the REPLACING option to COPY to change the names of **
825 *> ** the MSG and STATUS identifiers to the names your program **
826 *> ** needs. **
827 *> ***************************************************************
828 EVALUATE WS-FSM-Status-CD
829 WHEN 00 MOVE 'SUCCESS ' TO WS-FSM-Msg-TXT
830 WHEN 02 MOVE 'SUCCESS DUPLICATE ' TO WS-FSM-Msg-TXT
831 WHEN 04 MOVE 'SUCCESS INCOMPLETE ' TO WS-FSM-Msg-TXT
832 WHEN 05 MOVE 'SUCCESS OPTIONAL ' TO WS-FSM-Msg-TXT
833 WHEN 07 MOVE 'SUCCESS NO UNIT ' TO WS-FSM-Msg-TXT
834 WHEN 10 MOVE 'END OF FILE ' TO WS-FSM-Msg-TXT
835 WHEN 14 MOVE 'OUT OF KEY RANGE ' TO WS-FSM-Msg-TXT
836 WHEN 21 MOVE 'KEY INVALID ' TO WS-FSM-Msg-TXT
837 WHEN 22 MOVE 'KEY EXISTS ' TO WS-FSM-Msg-TXT
838 WHEN 23 MOVE 'KEY NOT EXISTS ' TO WS-FSM-Msg-TXT
839 WHEN 30 MOVE 'PERMANENT ERROR ' TO WS-FSM-Msg-TXT
840 WHEN 31 MOVE 'INCONSISTENT FILENAME ' TO WS-FSM-Msg-TXT
841 WHEN 34 MOVE 'BOUNDARY VIOLATION ' TO WS-FSM-Msg-TXT
842 WHEN 35 MOVE 'FILE NOT FOUND ' TO WS-FSM-Msg-TXT
843 WHEN 37 MOVE 'PERMISSION DENIED ' TO WS-FSM-Msg-TXT
844 WHEN 38 MOVE 'CLOSED WITH LOCK ' TO WS-FSM-Msg-TXT
845 WHEN 39 MOVE 'CONFLICT ATTRIBUTE ' TO WS-FSM-Msg-TXT
846 WHEN 41 MOVE 'ALREADY OPEN ' TO WS-FSM-Msg-TXT
847 WHEN 42 MOVE 'NOT OPEN ' TO WS-FSM-Msg-TXT
848 WHEN 43 MOVE 'READ NOT DONE ' TO WS-FSM-Msg-TXT
849 WHEN 44 MOVE 'RECORD OVERFLOW ' TO WS-FSM-Msg-TXT
850 WHEN 46 MOVE 'READ ERROR ' TO WS-FSM-Msg-TXT
851 WHEN 47 MOVE 'INPUT DENIED ' TO WS-FSM-Msg-TXT
852 WHEN 48 MOVE 'OUTPUT DENIED ' TO WS-FSM-Msg-TXT
853 WHEN 49 MOVE 'I/O DENIED ' TO WS-FSM-Msg-TXT
854 WHEN 51 MOVE 'RECORD LOCKED ' TO WS-FSM-Msg-TXT
855 WHEN 52 MOVE 'END-OF-PAGE ' TO WS-FSM-Msg-TXT
856 WHEN 57 MOVE 'I/O LINAGE ' TO WS-FSM-Msg-TXT
857 WHEN 61 MOVE 'FILE SHARING FAILURE ' TO WS-FSM-Msg-TXT
858 WHEN 91 MOVE 'FILE NOT AVAILABLE ' TO WS-FSM-Msg-TXT
859 END-EVALUATE.
860 *>>W Msg29 Caution: One or more replacing sources not found
861 MOVE SPACES TO WS-Output-Msg-TXT
862 IF WS-FSM-Status-CD = 35
863 DISPLAY
864 'File not found: "'
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 17
865 TRIM(WS-File-Name-TXT,TRAILING)
866 '"'
867 ELSE
868 DISPLAY
869 'Error accessing file: "'
870 TRIM(WS-File-Name-TXT,TRAILING)
871 '"'
872 END-IF
873 GOBACK
874 .
875 END DECLARATIVES.
876
877 000-Main SECTION.
878 PERFORM 100-Initialization
879 GC0609 SET WS-RS-Not-Complete-BOOL TO TRUE
880 GC0609 PERFORM UNTIL WS-RS-Complete-BOOL
881 GC0609 PERFORM 200-Let-User-Set-Switches
882 GC0609 PERFORM 210-Run-Compiler
883 GC0410 IF (WS-RS-Compile-OK-BOOL OR WS-RS-Compile-OK-Warn-BOOL)
884 GC0712 AND (WS-CS-LISTING-CHR > SPACE)
885 GC0712 DISPLAY S-Blank-SCR
886 GC0410 PERFORM 220-Make-Listing
887 GC0410 END-IF
888 GC0709 IF (WS-CS-EXECUTE-CHR NOT = SPACES)
889 GC0709 AND (WS-RS-Output-File-Avail-BOOL)
890 GC0609 PERFORM 230-Run-Program
891 GC0609 END-IF
892 GC0712 PERFORM 250-Autoload-Listing
893 GC0609 END-PERFORM
894 PERFORM 900-Terminate
895 * -- Control will NOT return
896 .
897 /
898 *>***************************************************************
899 *> Perform all program-wide initialization operations **
900 *>***************************************************************
901 100-Initialization SECTION.
902 *>***************************************************************
903 *> Make sure full screen-handling is in effect **
904 *>***************************************************************
905 SET ENVIRONMENT 'COB_SCREEN_EXCEPTIONS' TO 'Y'
906 SET ENVIRONMENT 'COB_SCREEN_ESC' TO 'Y'
907 VC0617 SET ENVIRONMENT "COB_EXIT_WAIT" TO "0".
908 *>***************************************************************
909 *> Get GCic Compilation Date/Time **
910 *>***************************************************************
911 MOVE WHEN-COMPILED (1:12) TO WS-OC-Compile-DT
912 INSPECT WS-OC-Compile-DT
913 REPLACING ALL '/' BY ':'
914 AFTER INITIAL SPACE
915 *>***************************************************************
916 *> Convert WS-CS-All-Switches-TXT to Needed Alphanumeric Values**
917 *>***************************************************************
918 INSPECT WS-CS-All-Switches-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 18
919 REPLACING ALL '0' BY SPACE
920 ALL '1' BY SELCHAR
921 GC1213 ALL '2' BY SELCHAR
922 *>***************************************************************
923 *> Process filename (the only command-line argument) **
924 *>***************************************************************
925 GC0712 ACCEPT WS-Cmd-Args-TXT FROM COMMAND-LINE
926 GC0712 MOVE 1 TO WS-Cmd-SUB
927 GC0712 IF WS-Cmd-Args-TXT(WS-Cmd-SUB:1) = '"' OR "'"
928 GC0712 MOVE WS-Cmd-Args-TXT(WS-Cmd-SUB:1)
929 GC0712 TO WS-Cmd-End-Quote-CHR
930 GC0712 ADD 1 TO WS-Cmd-SUB
931 GC0712 UNSTRING WS-Cmd-Args-TXT
932 GC0712 DELIMITED BY WS-Cmd-End-Quote-CHR
933 GC0712 INTO WS-File-Name-TXT
934 GC0712 WITH POINTER WS-Cmd-SUB
935 GC0712 ELSE
936 GC0712 UNSTRING WS-Cmd-Args-TXT
937 GC0712 DELIMITED BY ALL SPACES
938 GC0712 INTO WS-File-Name-TXT
939 GC0712 WITH POINTER WS-Cmd-SUB
940 GC0712 END-IF
941 IF WS-File-Name-TXT = SPACES
942 GC0712 DISPLAY 'No program filename was specified'
943 PERFORM 900-Terminate
944 * ------ Control will NOT return
945 END-IF
946 *>***************************************************************
947 *> Determine if 'Make A Library' feature should be forced 'ON' **
948 *>***************************************************************
949 PERFORM 240-Find-LINKAGE-SECTION
950 *>***************************************************************
951 *> Split 'WS-File-Name-TXT' into 'WS-Prog-Folder-TXT' and **
952 *> 'WS-Prog-File-Name-TXT' **
953 *>***************************************************************
954 GC0909 IF WS-OS-Cygwin-BOOL AND WS-File-Name-TXT (2:1) = ':'
955 GC0712 MOVE '\' TO WS-OS-Dir-CHR
956 GC0909 END-IF
957 GC0712 MOVE LENGTH(WS-File-Name-TXT) TO WS-I-SUB
958 GC0712 PERFORM UNTIL WS-I-SUB = 0
959 GC0712 OR WS-FN-CHR (WS-I-SUB) = WS-OS-Dir-CHR
960 SUBTRACT 1 FROM WS-I-SUB
961 END-PERFORM
962 IF WS-I-SUB = 0
963 MOVE SPACES TO WS-Prog-Folder-TXT
964 MOVE WS-File-Name-TXT TO WS-Prog-File-Name-TXT
965 ELSE
966 MOVE '*' TO WS-FN-CHR (WS-I-SUB)
967 UNSTRING WS-File-Name-TXT DELIMITED BY '*'
968 INTO WS-Prog-Folder-TXT
969 WS-Prog-File-Name-TXT
970 GC0712 MOVE WS-OS-Dir-CHR TO WS-FN-CHR (WS-I-SUB)
971 END-IF
972 IF WS-Prog-Folder-TXT = SPACES
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 19
973 ACCEPT WS-Prog-Folder-TXT FROM ENVIRONMENT 'CD'
974 GC0909 ELSE
975 GC0909 CALL 'CBL_CHANGE_DIR'
976 GC0909 USING TRIM(WS-Prog-Folder-TXT,TRAILING)
977 END-IF
978 GC0909 IF WS-OS-Cygwin-BOOL AND WS-File-Name-TXT (2:1) = ':'
979 GC0712 MOVE '/' TO WS-OS-Dir-CHR
980 GC0909 END-IF
981 *>***************************************************************
982 *> Split 'WS-Prog-File-Name-TXT' into 'WS-Pgm-Nm-TXT' & **
983 *> 'WS-Prog-Extension-TXT' **
984 *>***************************************************************
985 GC0712 MOVE LENGTH(WS-Prog-File-Name-TXT) TO WS-I-SUB
986 GC0712 PERFORM UNTIL WS-I-SUB = 0
987 GC0712 OR WS-PFN-CHR (WS-I-SUB) = '.'
988 GC0712 SUBTRACT 1 FROM WS-I-SUB
989 GC0712 END-PERFORM
990 GC0712 IF WS-I-SUB = 0
991 GC0712 MOVE WS-Prog-File-Name-TXT TO WS-Pgm-Nm-TXT
992 GC0712 MOVE SPACES TO WS-Prog-Extension-TXT
993 GC0712 ELSE
994 GC0712 MOVE '*' TO WS-PFN-CHR (WS-I-SUB)
995 GC0712 UNSTRING WS-Prog-File-Name-TXT DELIMITED BY '*'
996 GC0712 INTO WS-Pgm-Nm-TXT
997 GC0712 WS-Prog-Extension-TXT
998 GC0712 MOVE '.' TO WS-PFN-CHR (WS-I-SUB)
999 GC0712 END-IF
1000 *>***************************************************************
1001 *> Build initial Line 24 Message **
1002 *>***************************************************************
1003 GC0909 MOVE ALL LD-Horiz-Line TO WS-Horizontal-Line-TXT.
1004 GC0410 MOVE CONCATENATE(' GCic for '
1005 GC0410 TRIM(WS-OS-Type-TXT(WS-OS-Type-CD),Trailing)
1006 VC0811 ' Copyright (C) 2009-2022, Gary L. '
1007 GC0410 'Cutler, GPL')
1008 GC0410 TO WS-Output-Msg-TXT.
1009 GC0909
1010 /
1011 *>***************************************************************
1012 *> Show the user the current switch settings and allow them to **
1013 *> be changed. **
1014 *>***************************************************************
1015 200-Let-User-Set-Switches SECTION.
1016 SET WS-RS-Switch-Changes-BOOL TO TRUE
1017 PERFORM UNTIL WS-RS-No-Switch-Changes-BOOL
1018 GC1213 EVALUATE WS-Listing-CD
1019 GC1213 WHEN 0
1020 GC1213 MOVE 'Listing Off' TO WS-Listing-TXT
1021 GC1213 MOVE SPACE TO WS-CS-LISTING-CHR
1022 GC1213 WHEN 1
1023 GC1213 MOVE 'Listing On (Landscape)' TO WS-Listing-TXT
1024 GC1213 MOVE SELCHAR TO WS-CS-LISTING-CHR
1025 GC1213 WHEN 2
1026 GC1213 MOVE 'Listing On (Portrait)' TO WS-Listing-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 20
1027 GC1213 MOVE SELCHAR TO WS-CS-LISTING-CHR
1028 GC1213 END-EVALUATE
1029 ACCEPT S-Switches-SCR
1030 IF COB-CRT-STATUS > 0
1031 EVALUATE COB-CRT-STATUS
1032 WHEN COB-SCR-F1
1033 IF WS-CS-DEBUG-CHR = SPACE
1034 GC0712 MOVE SELCHAR TO WS-CS-DEBUG-CHR
1035 ELSE
1036 MOVE ' ' TO WS-CS-DEBUG-CHR
1037 END-IF
1038 GC0712 WHEN COB-SCR-F2
1039 GC0712 IF WS-CS-TRACEALL-CHR = SPACE
1040 GC0712 MOVE SELCHAR TO WS-CS-TRACEALL-CHR
1041 GC0712 ELSE
1042 GC0712 MOVE ' ' TO WS-CS-TRACEALL-CHR
1043 GC0712 END-IF
1044 WHEN COB-SCR-F3
1045 GC0712 IF WS-CS-LIBRARY-CHR = SPACE
1046 GC0712 MOVE SELCHAR TO WS-CS-LIBRARY-CHR
1047 ELSE
1048 GC0712 MOVE ' ' TO WS-CS-LIBRARY-CHR
1049 END-IF
1050 WHEN COB-SCR-F4
1051 IF WS-CS-EXECUTE-CHR = SPACE
1052 GC0712 MOVE SELCHAR TO WS-CS-EXECUTE-CHR
1053 ELSE
1054 MOVE ' ' TO WS-CS-EXECUTE-CHR
1055 END-IF
1056 GC0712 WHEN COB-SCR-F5
1057 GC1213 ADD 1 TO WS-Listing-CD
1058 GC1213 IF WS-Listing-CD > 2
1059 GC1213 MOVE 0 TO WS-Listing-CD
1060 GC1213 END-IF
1061 GC0712 WHEN COB-SCR-F6
1062 GC0712 IF WS-CS-NOFUNC-CHR = SPACE
1063 GC0712 MOVE SELCHAR TO WS-CS-NOFUNC-CHR
1064 GC0712 ELSE
1065 GC0712 MOVE ' ' TO WS-CS-NOFUNC-CHR
1066 GC0712 END-IF
1067 GC0712 WHEN COB-SCR-F7
1068 GC0712 IF WS-CS-WARNALL-CHR = SPACE
1069 GC0712 MOVE SELCHAR TO WS-CS-WARNALL-CHR
1070 GC0712 ELSE
1071 GC0712 MOVE ' ' TO WS-CS-WARNALL-CHR
1072 GC0712 END-IF
1073 GC0712 WHEN COB-SCR-F8
1074 GC0712 IF WS-CS-FREE-CHR = SPACE
1075 GC0712 MOVE SELCHAR TO WS-CS-FREE-CHR
1076 GC0712 ELSE
1077 GC0712 MOVE ' ' TO WS-CS-FREE-CHR
1078 GC0712 END-IF
1079 GC0712 WHEN COB-SCR-F9
1080 GC0712 IF WS-CS-NOTRUNC-CHR = SPACE
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:98 Page 21
1081 GC0712 MOVE SELCHAR TO WS-CS-NOTRUNC-CHR
1082 GC0712 ELSE
1083 GC0712 MOVE ' ' TO WS-CS-NOTRUNC-CHR
1084 GC0712 END-IF
1085 WHEN COB-SCR-ESC
1086 PERFORM 900-Terminate
1087 * ------------------ Control will NOT return
1088 GC0712 WHEN COB-SCR-F12
1089 GC0712 ADD 1 TO WS-CS-Config-NUM
1090 GC0712 IF WS-CS-Config-NUM > 7
1091 GC0712 MOVE 1 TO WS-CS-Config-NUM
1092 GC0712 END-IF
1093 WHEN OTHER
1094 MOVE 'An unsupported key was pressed'
1095 TO WS-Output-Msg-TXT
1096 END-EVALUATE
1097 ELSE
1098 SET WS-RS-No-Switch-Changes-BOOL TO TRUE
1099 END-IF
1100 END-PERFORM
1101 .
1102 /
1103 *>***************************************************************
1104 *> Run the compiler using the switch settings we've prepared. **
1105 *>***************************************************************
1106 210-Run-Compiler SECTION.
1107 MOVE SPACES TO WS-Cmd-TXT
1108 WS-Cobc-Cmd-TXT
1109 WS-Output-Msg-TXT
1110 DISPLAY S-Switches-SCR
1111 MOVE 1 TO WS-I-SUB
1112 GC0712 MOVE LOWER-CASE(WS-CS-Filename-TXT (WS-CS-Config-NUM))
1113 GC0712 TO WS-Config-Fn-TXT
1114 *>***************************************************************
1115 *> Build the 'cobc' command **
1116 *>***************************************************************
1117 GC0909 MOVE SPACES TO WS-Cobc-Cmd-TXT
1118 GC0909 STRING 'cobc -v -std='
1119 GC0909 TRIM(WS-Config-Fn-TXT,TRAILING)
1120 GC0909 ' '
1121 GC0909 INTO WS-Cobc-Cmd-TXT
1122 GC0909 WITH POINTER WS-I-SUB
1123 IF WS-CS-LIBRARY-CHR NOT = ' '
1124 STRING '-m '
1125 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1126 WITH POINTER WS-I-SUB
1127 ELSE
1128 STRING '-x '
1129 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1130 WITH POINTER WS-I-SUB
1131 END-IF
1132 IF WS-CS-DEBUG-CHR NOT = ' '
1133 STRING '-fdebugging-line '
1134 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 22
1135 WITH POINTER WS-I-SUB
1136 END-IF
1137 IF WS-CS-NOTRUNC-CHR NOT = ' '
1138 STRING '-fnotrunc '
1139 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1140 WITH POINTER WS-I-SUB
1141 END-IF
1142 IF WS-CS-TRACEALL-CHR NOT = ' '
1143 GC0809 STRING '-ftraceall '
1144 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1145 WITH POINTER WS-I-SUB
1146 END-IF
1147 GC0712 IF WS-CS-NOFUNC-CHR NOT = ' '
1148 VC0717 STRING '-fintrinsics=ALL '
1149 GC0712 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1150 GC0712 WITH POINTER WS-I-SUB
1151 GC0712 END-IF
1152 GC0712 IF WS-CS-WARNALL-CHR NOT = ' '
1153 GC0712 STRING '-Wall '
1154 GC0712 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1155 GC0712 WITH POINTER WS-I-SUB
1156 GC0712 END-IF
1157 GC0712 IF WS-CS-FREE-CHR NOT = ' '
1158 GC0712 STRING '-free '
1159 GC0712 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1160 GC0712 WITH POINTER WS-I-SUB
1161 GC0712 ELSE
1162 GC0712 STRING '-fixed '
1163 GC0712 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1164 GC0712 WITH POINTER WS-I-SUB
1165 GC0712 END-IF
1166
1167 GC0712 MOVE 0 TO WS-Tally-QTY
1168 GC0712 INSPECT WS-CS-Extra-TXT
1169 GC0712 TALLYING WS-Tally-QTY FOR ALL '-save-temps'
1170 GC0712 IF WS-CS-LISTING-CHR > SPACE
1171 GC0712 AND WS-Tally-QTY > 0
1172 GC0712 MOVE SPACE TO WS-CS-LISTING-CHR *> Can't generate listing if -save-temps used
1173 GC0712 END-IF
1174 GC0712 IF WS-CS-LISTING-CHR > SPACE
1175 GC1010 STRING '-save-temps '
1176 GC1010 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1177 GC1010 WITH POINTER WS-I-SUB
1178 GC1010 END-IF
1179
1180 GC0709 IF WS-CS-Extra-TXT > SPACES
1181 GC0709 STRING ' '
1182 GC0709 TRIM(WS-CS-Extra-TXT,TRAILING)
1183 GC0709 ' '
1184 GC0709 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
1185 GC0709 WITH POINTER WS-I-SUB
1186 GC0709 END-IF
1187 GC0909 STRING TRIM(WS-Prog-File-Name-TXT,TRAILING)
1188 GC0909 DELIMITED SIZE INTO WS-Cobc-Cmd-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 23
1189 GC0909 WITH POINTER WS-I-SUB
1190 *>***************************************************************
1191 *> Prepare the compilation listing file **
1192 *>***************************************************************
1193 GC1113 MOVE CONCATENATE(TRIM(WS-Pgm-Nm-TXT,Trailing),'.gclst')
1194 GC0712 TO WS-Listing-Filename-TXT
1195 GC0712 CALL 'CBL_DELETE_FILE' USING WS-Listing-Filename-TXT
1196 *>***************************************************************
1197 *> Now execute the 'cobc' command **
1198 *>***************************************************************
1199 GC0410 MOVE ' Compiling...' TO WS-Output-Msg-TXT
1200 GC0410 DISPLAY S-Switches-SCR
1201 GC0609 SET WS-RS-Output-File-Avail-BOOL TO TRUE
1202 MOVE SPACES TO WS-Cmd-TXT
1203 STRING TRIM(WS-Cobc-Cmd-TXT,TRAILING)
1204 GC0712 ' >' WS-Listing-Filename-TXT
1205 GC0712 ' 2>&1'
1206 DELIMITED SIZE
1207 INTO WS-Cmd-TXT
1208 DEBUG D DISPLAY WS-Cmd-TXT UPON SYSERR
1209 CALL 'SYSTEM' USING TRIM(WS-Cmd-TXT,TRAILING)
1210 GC0712 OPEN EXTEND F-Cobc-Output-FILE
1211 GC0712 WRITE F-Cobc-Output-REC FROM SPACES
1212 GC0712 IF RETURN-CODE = 0
1213 GC0712 SET WS-RS-Compile-OK-BOOL TO TRUE
1214 GC0712 MOVE ' Compilation Was Successful' TO WS-Output-Msg-TXT
1215 GC0712 MOVE CONCATENATE('GNU COBOL',WS-Output-Msg-TXT)
1216 GC0712 TO F-Cobc-Output-REC
1217 GC0712 WRITE F-Cobc-Output-REC
1218 GC0712 SET WS-RS-Complete-BOOL TO TRUE
1219 GC0712 ELSE
1220 GC0712 SET WS-RS-Compile-Failed-BOOL TO TRUE
1221 GC0712 MOVE CONCATENATE(' Compilation Failed - See ',
1222 GC0712 TRIM(WS-Listing-Filename-TXT,Trailing))
1223 GC0712 TO WS-Output-Msg-TXT
1224 GC0712 MOVE 'GNU COBOL Compilation HAS FAILED - See Above'
1225 GC0712 TO F-Cobc-Output-REC
1226 GC0712 WRITE F-Cobc-Output-REC
1227 GC0712 END-IF
1228 GC0712 CLOSE F-Cobc-Output-FILE
1229 GC0712 DISPLAY S-Switches-SCR
1230 GC0712 CALL 'C$SLEEP' USING 2
1231 GC0712 MOVE SPACES TO WS-Output-Msg-TXT
1232 IF WS-RS-Compile-Failed-BOOL
1233 GC0712 PERFORM 250-Autoload-Listing
1234 PERFORM 900-Terminate
1235 *> ----- Control will not return
1236 END-IF
1237 .
1238 /
1239 *>***************************************************************
1240 *> Generate a source + xref listing using 'LISTING' subroutine **
1241 *>***************************************************************
1242 GC0410 220-Make-Listing SECTION.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 24
1243 GC0410 MOVE ' Generating listing...' TO WS-Output-Msg-TXT
1244 GC0410 DISPLAY S-Switches-SCR
1245 GC0410 MOVE 0 TO RETURN-CODE
1246 *>***************************************************************
1247 *> Create the listing **
1248 *>***************************************************************
1249 GC0410 MOVE SPACES TO WS-Output-Msg-TXT
1250 GC0410 CALL 'LISTING' USING WS-Listing-Filename-TXT
1251 GC0712 WS-File-Name-TXT
1252 GC0712 WS-OS-Type-CD
1253 GC1213 LPP
1254 GC1213 LPPP
1255 GC1213 WS-Listing-CD
1256 GC0410 ON EXCEPTION
1257 GC0410 MOVE ' LISTING module is not available'
1258 GC0410 TO WS-Output-Msg-TXT
1259 GC0410 MOVE 1 TO RETURN-CODE
1260 GC0410 END-CALL
1261 GC0410 IF RETURN-CODE = 0
1262 GC0712 MOVE ' Source+Xref listing generated '
1263 GC0712 TO WS-Output-Msg-TXT
1264 GC0410 END-IF
1265 GC0712 DISPLAY S-Switches-SCR
1266 GC0712 CALL 'C$SLEEP' USING 2
1267 GC0712 PERFORM 250-Autoload-Listing
1268 GC0410 .
1269 /
1270 *>***************************************************************
1271 *> Run the compiled program **
1272 *>***************************************************************
1273 230-Run-Program SECTION.
1274 GC0114 MOVE ' Preparing to run program ... press ENTER to close '
1275 GC0114 TO WS-Output-Msg-TXT
1276 GC0114 DISPLAY S-Switches-SCR
1277 GC0114 CALL 'C$SLEEP' USING 3
1278 GC0909 MOVE SPACES TO WS-Cmd-TXT
1279 GC0909 MOVE 1 TO WS-I-SUB
1280 *>***************************************************************
1281 *> If necessary, start with 'cobcrun' command **
1282 *>***************************************************************
1283 GC0712 IF WS-CS-LIBRARY-CHR NOT = ' '
1284 STRING 'cobcrun ' DELIMITED SIZE
1285 INTO WS-Cmd-TXT
1286 WITH POINTER WS-I-SUB
1287 END-IF
1288 *>***************************************************************
1289 *> Add any necessary path prefix **
1290 *>***************************************************************
1291 GC0712 SET WS-RS-Double-Quote-Used-BOOL TO FALSE
1292 IF WS-Prog-Folder-TXT NOT = SPACES
1293 GC0909 IF WS-OS-Cygwin-BOOL AND WS-Prog-Folder-TXT (2:1) = ':'
1294 GC0909 STRING '/cygdrive/'
1295 GC0909 INTO WS-Cmd-TXT
1296 GC0909 WITH POINTER WS-I-SUB
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 25
1297 GC0909 STRING LOWER-CASE(WS-Prog-Folder-TXT (1:1))
1298 GC0909 INTO WS-Cmd-TXT
1299 GC0909 WITH POINTER WS-I-SUB
1300 GC0909 PERFORM
1301 GC0909 VARYING WS-J-SUB FROM 3 BY 1
1302 GC0909 UNTIL WS-J-SUB > LENGTH(TRIM(WS-Prog-Folder-TXT))
1303 GC0909 IF WS-Prog-Folder-TXT (WS-J-SUB:1) = '\'
1304 GC0909 STRING '/'
1305 GC0909 INTO WS-Cmd-TXT
1306 GC0909 WITH POINTER WS-I-SUB
1307 GC0909 ELSE
1308 GC0909 STRING WS-Prog-Folder-TXT (WS-J-SUB:1)
1309 GC0909 INTO WS-Cmd-TXT
1310 GC0909 WITH POINTER WS-I-SUB
1311 GC0909 END-IF
1312 GC0909 END-PERFORM
1313 GC0909 ELSE
1314 GC0410 STRING '"' TRIM(WS-Prog-Folder-TXT,TRAILING)
1315 GC0909 INTO WS-Cmd-TXT
1316 GC0909 WITH POINTER WS-I-SUB
1317 GC0712 SET WS-RS-Double-Quote-Used-BOOL TO TRUE
1318 GC0909 END-IF
1319 GC0712 STRING WS-OS-Dir-CHR
1320 GC0909 INTO WS-Cmd-TXT
1321 GC0909 WITH POINTER WS-I-SUB
1322 GC0909 ELSE
1323 GC0909 IF WS-OS-Cygwin-BOOL OR WS-OS-UNIX-BOOL
1324 GC0909 STRING './'
1325 GC0909 INTO WS-Cmd-TXT
1326 GC0909 WITH POINTER WS-I-SUB
1327 GC0909 END-IF
1328 END-IF
1329 *>***************************************************************
1330 *> Insert program filename **
1331 *>***************************************************************
1332 GC0909 STRING TRIM(WS-Pgm-Nm-TXT,TRAILING)
1333 GC0909 INTO WS-Cmd-TXT
1334 GC0909 WITH POINTER WS-I-SUB
1335 *>***************************************************************
1336 *> Insert proper extension **
1337 *>***************************************************************
1338 GC0712 IF WS-CS-LIBRARY-CHR = ' '
1339 GC0712 IF WS-OS-Exe-Ext-CONST > ' '
1340 GC0712 STRING WS-OS-Exe-Ext-CONST DELIMITED SPACE
1341 GC0712 INTO WS-Cmd-TXT
1342 GC0712 WITH POINTER WS-I-SUB
1343 GC0712 END-IF
1344 GC0712 ELSE
1345 GC0712 IF WS-OS-Lib-Ext-CONST > ' '
1346 GC0712 STRING WS-OS-Lib-Ext-CONST DELIMITED SPACE
1347 GC0712 INTO WS-Cmd-TXT
1348 GC0712 WITH POINTER WS-I-SUB
1349 GC0712 END-IF
1350 GC0712 END-IF
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 26
1351 GC0712 IF WS-RS-Double-Quote-Used-BOOL
1352 GC0712 STRING '"' DELIMITED SIZE
1353 GC0712 INTO WS-Cmd-TXT
1354 GC0712 WITH POINTER WS-I-SUB
1355 GC0712 END-IF
1356 IF WS-CS-Args-TXT NOT = SPACES
1357 GC0809 STRING ' ' TRIM(WS-CS-Args-TXT,TRAILING)
1358 INTO WS-Cmd-TXT
1359 WITH POINTER WS-I-SUB
1360 END-IF
1361 *>***************************************************************
1362 *> Run the program **
1363 *>***************************************************************
1364 GC0114 CALL X'E4'
1365 CALL 'SYSTEM' USING TRIM(WS-Cmd-TXT,TRAILING)
1366 GC0712 MOVE SPACES TO WS-Output-Msg-TXT
1367 GC0114 ACCEPT WS-Output-Msg-TXT(1:1) AT 0101
1368 PERFORM 900-Terminate
1369 * -- Control will NOT return
1370 .
1371 /
1372 *>***************************************************************
1373 *> Determine if the program being compiled is a MAIN program **
1374 *>***************************************************************
1375 240-Find-LINKAGE-SECTION SECTION.
1376 OPEN INPUT F-Source-Code-FILE
1377 GC0712 MOVE ' ' TO WS-CS-LIBRARY-CHR
1378 SET WS-RS-More-To-1st-Prog-BOOL TO TRUE
1379 PERFORM UNTIL WS-RS-1st-Prog-Complete-BOOL
1380 READ F-Source-Code-FILE AT END
1381 CLOSE F-Source-Code-FILE
1382 EXIT SECTION
1383 END-READ
1384 GC0712 CALL 'CHECKSRC'
1385 GC0712 USING BY CONTENT F-Source-Code-REC
1386 GC0712 BY REFERENCE WS-RS-Source-Record-Type-CHR
1387 IF WS-RS-Source-Rec-Ident-BOOL
1388 SET WS-RS-1st-Prog-Complete-BOOL TO TRUE
1389 END-IF
1390 END-PERFORM
1391 GC0712 SET WS-RS-Source-Rec-Ignored-BOOL TO TRUE
1392 PERFORM UNTIL WS-RS-Source-Rec-Linkage-BOOL
1393 OR WS-RS-Source-Rec-Ident-BOOL
1394 READ F-Source-Code-FILE AT END
1395 CLOSE F-Source-Code-FILE
1396 EXIT SECTION
1397 END-READ
1398 GC0712 CALL 'CHECKSRC'
1399 GC0712 USING BY CONTENT F-Source-Code-REC
1400 GC0712 BY REFERENCE WS-RS-Source-Record-Type-CHR
1401 END-PERFORM
1402 CLOSE F-Source-Code-FILE
1403 IF WS-RS-Source-Rec-Linkage-BOOL
1404 GC0712 MOVE SELCHAR TO WS-CS-LIBRARY-CHR
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 27
1405 END-IF
1406 .
1407 /
1408 GC0712*>***************************************************************
1409 GC0712*> Attempt to open the listing file as a command. This will - **
1410 GC1113*> if the user has associated filetype/extension 'gclst' with **
1411 GC0712*> an application - invoke the appropriate application to **
1412 GC0712*> allow the user to view the listing. **
1413 GC0712*>***************************************************************'
1414 GC0712 250-Autoload-Listing SECTION.
1415 GC0712 EVALUATE TRUE
1416 GC0712 WHEN WS-OS-Windows-BOOL OR WS-OS-Cygwin-BOOL
1417 GC0712 MOVE SPACES TO WS-Cmd-TXT
1418 GC0712 STRING
1419 GC0712 'cmd /c '
1420 GC0712 TRIM(WS-Listing-Filename-TXT,TRAILING)
1421 GC0712 DELIMITED SIZE INTO WS-Cmd-TXT
1422 GC0712 CALL 'SYSTEM' USING TRIM(WS-Cmd-TXT,TRAILING)
1423 GC0712 WHEN WS-OS-OSX-BOOL
1424 GC0712 MOVE SPACES TO WS-Cmd-TXT
1425 GC0712 STRING
1426 GC0712 'open -t '
1427 GC0712 TRIM(WS-Listing-Filename-TXT,TRAILING)
1428 GC0712 DELIMITED SIZE INTO WS-Cmd-TXT
1429 GC0712 CALL 'SYSTEM' USING TRIM(WS-Cmd-TXT,TRAILING)
1430 GC0712 END-EVALUATE
1431 GC0712*> ************************************************************
1432 GC0712*> ** Since we had to do our own '-save-temps' when we **
1433 GC0712*> ** compiled (in order to generate the cross-reference **
1434 GC0712*> ** listing) we now need to clean up after ourselves. **
1435 GC0712*> ************************************************************
1436 GC1112 DISPLAY S-Blank-SCR
1437 GC0712 IF WS-OS-Windows-BOOL
1438 GC0712 MOVE CONCATENATE('del ',TRIM(WS-Pgm-Nm-TXT,TRAILING))
1439 GC0712 TO WS-Cmd-TXT
1440 GC0712 ELSE
1441 GC0712 MOVE CONCATENATE('rm ',TRIM(WS-Pgm-Nm-TXT,TRAILING))
1442 GC0712 TO WS-Cmd-TXT
1443 GC0712 END-IF
1444 GC0712 CALL 'SYSTEM'
1445 GC0712 USING CONCATENATE(TRIM(WS-Cmd-TXT,TRAILING),'.c')
1446 GC0712 CALL 'SYSTEM'
1447 GC0712 USING CONCATENATE(TRIM(WS-Cmd-TXT,TRAILING),'.c.h')
1448 GC0712 CALL 'SYSTEM'
1449 GC0712 USING CONCATENATE(TRIM(WS-Cmd-TXT,TRAILING),'.c.l*.h')
1450 GC0712 CALL 'SYSTEM'
1451 GC0712 USING CONCATENATE(TRIM(WS-Cmd-TXT,TRAILING),'.i')
1452 GC0712 CALL 'SYSTEM'
1453 GC0712 USING CONCATENATE(TRIM(WS-Cmd-TXT,TRAILING),'.o')
1454
1455 GC0712 .
1456 /
1457 *>***************************************************************
1458 *> Display a message and halt the program **
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 28
1459 *>***************************************************************
1460 900-Terminate SECTION.
1461 GC0909 IF WS-Output-Msg-TXT > SPACES
1462 GC0909 DISPLAY S-Switches-SCR
1463 GC0909 CALL 'C$SLEEP' USING 2
1464 GC0909 END-IF
1465 DISPLAY S-Blank-SCR
1466 STOP RUN
1467 .
1468
1469 END PROGRAM GCic.
1470 /
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:10:99 Page 29
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (FILE) Defn Locations
-------------------------------+---------------------------------------------------------------
F-COBC-OUTPUT-FILE 000192F 000201 001210 001228
F-COBC-OUTPUT-REC 000202F 001211 001216 001217 001225 001226
F-SOURCE-CODE-FILE 000195F 000204 000813 001376 001380 001381 001394 001395 001402
F-SOURCE-CODE-REC 000205F 001385 001399
WS-FILE-NAME-TXT 000195F 000399 000865 000870 000933 000938 000941 000954 000957
000964 000967 000978 001251
WS-FSM-STATUS-CD 000197F 000405 000828 000862
WS-LISTING-FILENAME-TXT 000192F 000417 001194 001195 001204 001222 001250 001420 001427
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 30
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
COB-COLOR-BLACK 000232W 000597 000602 000692 000702 000712 000717 000727 000734
000749 000764 000780 000787 000794
COB-COLOR-BLUE 000233W 000680
COB-COLOR-CYAN 000235W 000693
COB-COLOR-GREEN 000234W 000603 000718 000765 000781
COB-COLOR-MAGENTA 000237W
COB-COLOR-RED 000236W 000686 000750
COB-COLOR-WHITE 000239W 000598 000681 000687 000703 000713 000728 000735 000788
000795
COB-COLOR-YELLOW 000238W
COB-SCR-BACK-TAB 000321W
COB-SCR-BACKSPACE 000328W
COB-SCR-DELETE 000327W
COB-SCR-ESC 000318W 001085
COB-SCR-F1 000245W 001032
COB-SCR-F10 000254W
COB-SCR-F11 000255W
COB-SCR-F12 000256W 001088
COB-SCR-F13 000257W
COB-SCR-F14 000258W
COB-SCR-F15 000259W
COB-SCR-F16 000260W
COB-SCR-F17 000261W
COB-SCR-F18 000262W
COB-SCR-F19 000263W
COB-SCR-F2 000246W 001038
COB-SCR-F20 000264W
COB-SCR-F21 000265W
COB-SCR-F22 000266W
COB-SCR-F23 000267W
COB-SCR-F24 000268W
COB-SCR-F25 000269W
COB-SCR-F26 000270W
COB-SCR-F27 000271W
COB-SCR-F28 000272W
COB-SCR-F29 000273W
COB-SCR-F3 000247W 001044
COB-SCR-F30 000274W
COB-SCR-F31 000275W
COB-SCR-F32 000276W
COB-SCR-F33 000277W
COB-SCR-F34 000278W
COB-SCR-F35 000279W
COB-SCR-F36 000280W
COB-SCR-F37 000281W
COB-SCR-F38 000282W
COB-SCR-F39 000283W
COB-SCR-F4 000248W 001050
COB-SCR-F40 000284W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 31
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
COB-SCR-F41 000285W
COB-SCR-F42 000286W
COB-SCR-F43 000287W
COB-SCR-F44 000288W
COB-SCR-F45 000289W
COB-SCR-F46 000290W
COB-SCR-F47 000291W
COB-SCR-F48 000292W
COB-SCR-F49 000293W
COB-SCR-F5 000249W 001056
COB-SCR-F50 000294W
COB-SCR-F51 000295W
COB-SCR-F52 000296W
COB-SCR-F53 000297W
COB-SCR-F54 000298W
COB-SCR-F55 000299W
COB-SCR-F56 000300W
COB-SCR-F57 000301W
COB-SCR-F58 000302W
COB-SCR-F59 000303W
COB-SCR-F6 000250W 001061
COB-SCR-F60 000304W
COB-SCR-F61 000305W
COB-SCR-F62 000306W
COB-SCR-F63 000307W
COB-SCR-F64 000308W
COB-SCR-F7 000251W 001067
COB-SCR-F8 000252W 001073
COB-SCR-F9 000253W 001079
COB-SCR-FATAL 000335W
COB-SCR-INSERT 000326W
COB-SCR-KEY-DOWN 000316W
COB-SCR-KEY-END 000330W
COB-SCR-KEY-HOME 000329W
COB-SCR-KEY-LEFT 000322W
COB-SCR-KEY-RIGHT 000323W
COB-SCR-KEY-UP 000314W
COB-SCR-KEY_DOWN 000317W
COB-SCR-KEY_UP 000315W
COB-SCR-MAX-FIELD 000336W
COB-SCR-NO-FIELD 000332W
COB-SCR-OK 000243W
COB-SCR-PAGE-DOWN 000312W
COB-SCR-PAGE-UP 000310W
COB-SCR-PAGE_DOWN 000313W
COB-SCR-PAGE_UP 000311W
COB-SCR-PRINT 000319W
COB-SCR-TAB 000320W
COB-SCR-TIME-OUT 000333W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 32
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
F1 000364W
F12 000358W
F2 000371W
F3 000367W
F4 000365W
F5 000368W 000415
F6 000369W
F7 000372W
F8 000366W
F9 000370W
WS-CMD-ARGS-TXT 000387W 000925 000927 000928 000931 000936
WS-CMD-END-QUOTE-CHR 000389W 000929 000932
WS-CMD-SUB 000391W 000926 000930 000934 000939
WS-CMD-TXT 000385W 001107 001202 001207 001208 001209 001278 001285 001295
001298 001305 001309 001315 001320 001325 001333 001341
001347 001353 001358 001365 001417 001421 001422 001424
001428 001429 001439 001442 001445 001447 001449 001451
001453
WS-COBC-CMD-TXT 000393W 001108 001117 001121 001125 001129 001134 001139 001144
001149 001154 001159 001163 001176 001184 001188 001203
WS-COMPILATION-SWITCHES-TXT 000338W
WS-CONFIG-FN-TXT 000395W 001113 001119
WS-CS-ALL-SWITCHES-TXT 000373W 000918
WS-CS-ARG-H1-TXT 000340W 000798
WS-CS-ARG-H2-TXT 000341W 000799
WS-CS-ARGS-TXT 000339W 001356 001357
WS-CS-CONFIG-NUM 000354W 000356 000358 001089 001090 001091 001112
WS-CS-DEBUG-CHR 000375W 000751 001033 001034 001036 001132
WS-CS-EXECUTE-CHR 000376W 000754 000888 001051 001052 001054
WS-CS-EXTRA-H1-TXT 000361W 000796
WS-CS-EXTRA-H2-TXT 000362W 000797
WS-CS-EXTRA-TXT 000360W 001168 001180 001182
WS-CS-FILENAME-TXT 000351W 000790 001112
WS-CS-FILENAMES-TABLE-TXT 000350W
WS-CS-FILENAMES-TXT 000342W 000350
WS-CS-FREE-CHR 000377W 000759 001074 001075 001077 001157
WS-CS-LIBRARY-CHR 000378W 000753 001045 001046 001048 001123 001283 001338 001377
001404
WS-CS-LISTING-CHR 000379W 000755 000884 001021 001024 001027 001170 001172 001174
WS-CS-NOFUNC-CHR 000380W 000757 001062 001063 001065 001147
WS-CS-NOTRUNC-CHR 000381W 000760 001080 001081 001083 001137
WS-CS-SWITCH-DEFAULTS-TXT 000363W 000374
WS-CS-TRACEALL-CHR 000382W 000752 001039 001040 001042 001142
WS-CS-WARNALL-CHR 000383W 000758 001068 001069 001071 001152
WS-DELETE-FN-TXT 000397W
WS-FILE-NAME-TXT 000399W 000865 000870 000933 000938 000941 000954 000957 000964
000967 000978 001251
WS-FILE-STATUS-MESSAGE-TXT 000403W
WS-FN-CHR 000400W 000959 000966 000970
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 33
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
WS-FSM-MSG-TXT 000407W 000829 000830 000831 000832 000833 000834 000835 000836
000837 000838 000839 000840 000841 000842 000843 000844
000845 000846 000847 000848 000849 000850 000851 000852
000853 000854 000855 000856 000857 000858
WS-FSM-STATUS-CD 000405W 000828 000862
WS-HORIZONTAL-LINE-TXT 000409W 000605 000615 000619 000621 000645 000647 000651 000661
000665 000675 001003
WS-I-SUB 000411W 000957 000958 000959 000960 000962 000966 000970 000985
000986 000987 000988 000990 000994 000998 001111 001122
001126 001130 001135 001140 001145 001150 001155 001160
001164 001177 001185 001189 001279 001286 001296 001299
001306 001310 001316 001321 001326 001334 001342 001348
001354 001359
WS-J-SUB 000413W 001301 001302
WS-LISTING-CD 000415W 001018 001057 001058 001059 001255
WS-LISTING-FILENAME-TXT 000417W 001194 001195 001204 001222 001250 001420 001427
WS-LISTING-TXT 000419W 000771 001020 001023 001026
WS-OC-COMPILE-DT 000421W 000683 000911 000912
WS-OS-CYGWIN-BOOL 000455W 000954 000978 001293 001323 001416
WS-OS-DIR-CHR 000424W 000430 000436 000442 000448 000955 000959 000970 000979
001319
WS-OS-EXE-EXT-CONST 000425W 000431 000437 000443 000449 001339 001340
WS-OS-LIB-EXT-CONST 000426W 000432 000438 000444 000450 001345 001346
WS-OS-LIB-TYPE-CONST 000427W 000433 000439 000445 000451 000769
WS-OS-OSX-BOOL 000457W 001423
WS-OS-TYPE-CD 000428W 000434 000440 000446 000452 001005 001252
WS-OS-TYPE-FILLER-TXT 000459W 000465
WS-OS-TYPE-TXT 000466W 001005
WS-OS-TYPES-TXT 000465W
WS-OS-UNIX-BOOL 000456W 001323
WS-OS-WINDOWS-BOOL 000454W 001416 001437
WS-OUTPUT-MSG-TXT 000469W 000688 000861 001008 001095 001109 001199 001214 001215
001223 001231 001243 001249 001258 001263 001275 001366
001367 001461
WS-PATH-DELIMITER-CHR 000471W
WS-PFN-CHR 000478W 000987 000994 000998
WS-PGM-NM-TXT 000481W 000991 000996 001193 001332 001438 001441
WS-PROG-EXTENSION-TXT 000473W 000992 000997
WS-PROG-FILE-NAME-TXT 000477W 000729 000964 000969 000985 000991 000995 001187
WS-PROG-FOLDER-TXT 000475W 000730 000963 000968 000972 000973 000976 001292 001293
001297 001302 001303 001308 001314
WS-RS-1ST-PROG-COMPLETE-BOOL 000494W 001379 001388
WS-RS-COMPILE-FAILED-BOOL 000487W 001220 001232
WS-RS-COMPILE-OK-BOOL 000485W 000883 001213
WS-RS-COMPILE-OK-CHR 000484W
WS-RS-COMPILE-OK-WARN-BOOL 000486W 000883
WS-RS-COMPLETE-BOOL 000489W 000880 001218
WS-RS-COMPLETE-CHR 000488W
WS-RS-DOUBLE-QUOTE-USED-BOOL 000492W 001291 001317 001351
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 34
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
WS-RS-IDENT-DIV-CHR 000493W
WS-RS-MORE-TO-1ST-PROG-BOOL 000495W 001378
WS-RS-NO-SWITCH-CHANGES-BOOL 000497W 001017 001098
WS-RS-NO-SWITCH-CHGS-CHR 000496W
WS-RS-NOT-COMPLETE-BOOL 000490W 000879
WS-RS-OUTPUT-FILE-AVAIL-BOOL 000501W 000889 001201
WS-RS-OUTPUT-FILE-BUSY-BOOL 000500W
WS-RS-OUTPUT-FILE-BUSY-CHR 000499W
WS-RS-QUOTE-CHR 000491W
WS-RS-SOURCE-REC-IDENT-BOOL 000504W 001387 001393
WS-RS-SOURCE-REC-IGNORED-BOOL 000505W 001391
WS-RS-SOURCE-REC-LINKAGE-BOOL 000503W 001392 001403
WS-RS-SOURCE-RECORD-TYPE-CHR 000502W 001386 001400
WS-RS-SWITCH-CHANGES-BOOL 000498W 001016
WS-RS-SWITCH-ERROR-CHR 000506W
WS-RS-SWITCH-IS-BAD-BOOL 000507W
WS-RS-SWITCH-IS-GOOD-BOOL 000508W
WS-RUNTIME-SWITCHES-TXT 000483W
WS-TALLY-QTY 000510W 001167 001169 001171
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 35
Symbols of Module: GCIC (GCIC)
------------------------------
Data Section (SCREEN) Defn Locations
-------------------------------+---------------------------------------------------------------
COB-COLOR-BLACK 000597S 000602 000692 000702 000712 000717 000727 000734 000749
000764 000780 000787 000794
COB-COLOR-BLUE 000680S
COB-COLOR-CYAN 000693S
COB-COLOR-GREEN 000603S 000718 000765 000781
COB-COLOR-RED 000686S 000750
COB-COLOR-WHITE 000598S 000681 000687 000703 000713 000728 000735 000788 000795
LD-HORIZ-LINE 000573S 000582 000591 001003
LD-LL-CORNER 000568S 000577 000586 000614 000644 000660 000674
LD-LOWER-T 000572S 000581 000590 000646
LD-LR-CORNER 000570S 000579 000588 000616 000648 000662 000676
LD-UL-CORNER 000567S 000576 000585 000604 000618 000650 000664
LD-UPPER-T 000571S 000580 000589 000620
LD-UR-CORNER 000569S 000578 000587 000606 000622 000652 000666
LD-VERT-LINE 000574S 000583 000592 000608 000609 000611 000612 000624 000625
000626 000628 000629 000630 000632 000633 000634 000636
000637 000638 000640 000641 000642 000654 000655 000657
000658 000668 000669 000671 000672
S-BLANK-SCR 000595S 000885 001436 001465
S-SWITCHES-SCR 000597S 001029 001110 001200 001229 001244 001265 001276 001462
WS-CS-ARG-H1-TXT 000798S
WS-CS-ARG-H2-TXT 000799S
WS-CS-DEBUG-CHR 000751S 001033 001034 001036 001132
WS-CS-EXECUTE-CHR 000754S 000888 001051 001052 001054
WS-CS-EXTRA-H1-TXT 000796S
WS-CS-EXTRA-H2-TXT 000797S
WS-CS-FILENAME-TXT 000790S 001112
WS-CS-FREE-CHR 000759S 001074 001075 001077 001157
WS-CS-LIBRARY-CHR 000753S 001045 001046 001048 001123 001283 001338 001377 001404
WS-CS-LISTING-CHR 000755S 000884 001021 001024 001027 001170 001172 001174
WS-CS-NOFUNC-CHR 000757S 001062 001063 001065 001147
WS-CS-NOTRUNC-CHR 000760S 001080 001081 001083 001137
WS-CS-TRACEALL-CHR 000752S 001039 001040 001042 001142
WS-CS-WARNALL-CHR 000758S 001068 001069 001071 001152
WS-HORIZONTAL-LINE-TXT 000605S 000615 000619 000621 000645 000647 000651 000661 000665
000675 001003
WS-LISTING-TXT 000771S 001020 001023 001026
WS-OC-COMPILE-DT 000683S 000911 000912
WS-OS-LIB-TYPE-CONST 000769S
WS-OUTPUT-MSG-TXT 000688S 000861 001008 001095 001109 001199 001214 001215 001223
001231 001243 001249 001258 001263 001275 001366 001367
001461
WS-PROG-FILE-NAME-TXT 000729S 000964 000969 000985 000991 000995 001187
WS-PROG-FOLDER-TXT 000730S 000963 000968 000972 000973 000976 001292 001293 001297
001302 001303 001308 001314
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 36
Symbols of Module: GCIC (GCIC)
------------------------------
Variable Tested [S] Symbol (88-Conditions)
--------------------------------------------------------------
WS-OS-TYPE-CD WS-OS-WINDOWS-BOOL
WS-OS-TYPE-CD WS-OS-CYGWIN-BOOL
WS-OS-TYPE-CD WS-OS-UNIX-BOOL
WS-OS-TYPE-CD WS-OS-OSX-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-OK-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-OK-WARN-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-FAILED-BOOL
WS-RS-COMPLETE-CHR WS-RS-COMPLETE-BOOL
WS-RS-COMPLETE-CHR WS-RS-NOT-COMPLETE-BOOL
WS-RS-IDENT-DIV-CHR WS-RS-1ST-PROG-COMPLETE-BOOL
WS-RS-IDENT-DIV-CHR WS-RS-MORE-TO-1ST-PROG-BOOL
WS-RS-NO-SWITCH-CHGS-CHR WS-RS-NO-SWITCH-CHANGES-BOOL
WS-RS-NO-SWITCH-CHGS-CHR WS-RS-SWITCH-CHANGES-BOOL
WS-RS-OUTPUT-FILE-BUSY-CHR WS-RS-OUTPUT-FILE-BUSY-BOOL
WS-RS-OUTPUT-FILE-BUSY-CHR WS-RS-OUTPUT-FILE-AVAIL-BOOL
WS-RS-QUOTE-CHR WS-RS-DOUBLE-QUOTE-USED-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-LINKAGE-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-IDENT-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-IGNORED-BOOL
WS-RS-SWITCH-ERROR-CHR WS-RS-SWITCH-IS-BAD-BOOL
WS-RS-SWITCH-ERROR-CHR WS-RS-SWITCH-IS-GOOD-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 37
Symbols of Module: GCIC (GCIC)
------------------------------
Variable Tested Symbol (88-Conditions) [S]
--------------------------------------------------------------
WS-OS-TYPE-CD WS-OS-CYGWIN-BOOL
WS-OS-TYPE-CD WS-OS-OSX-BOOL
WS-OS-TYPE-CD WS-OS-UNIX-BOOL
WS-OS-TYPE-CD WS-OS-WINDOWS-BOOL
WS-RS-IDENT-DIV-CHR WS-RS-1ST-PROG-COMPLETE-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-FAILED-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-OK-BOOL
WS-RS-COMPILE-OK-CHR WS-RS-COMPILE-OK-WARN-BOOL
WS-RS-COMPLETE-CHR WS-RS-COMPLETE-BOOL
WS-RS-QUOTE-CHR WS-RS-DOUBLE-QUOTE-USED-BOOL
WS-RS-IDENT-DIV-CHR WS-RS-MORE-TO-1ST-PROG-BOOL
WS-RS-NO-SWITCH-CHGS-CHR WS-RS-NO-SWITCH-CHANGES-BOOL
WS-RS-COMPLETE-CHR WS-RS-NOT-COMPLETE-BOOL
WS-RS-OUTPUT-FILE-BUSY-CHR WS-RS-OUTPUT-FILE-AVAIL-BOOL
WS-RS-OUTPUT-FILE-BUSY-CHR WS-RS-OUTPUT-FILE-BUSY-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-IDENT-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-IGNORED-BOOL
WS-RS-SOURCE-RECORD-TYPE-CHR WS-RS-SOURCE-REC-LINKAGE-BOOL
WS-RS-NO-SWITCH-CHGS-CHR WS-RS-SWITCH-CHANGES-BOOL
WS-RS-SWITCH-ERROR-CHR WS-RS-SWITCH-IS-BAD-BOOL
WS-RS-SWITCH-ERROR-CHR WS-RS-SWITCH-IS-GOOD-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 38
Symbols of Module: GCIC (GCIC)
------------------------------
Functions Defn Locations
-------------------------------+---------------------------------------------------------------
CONCATENATE 001004I 001193 001215 001221 001438 001441 001445 001447 001449
001451 001453
LOWER-CASE 001112I 001297
TRIM 000865I 000870 000976 001005 001119 001182 001187 001193 001203
001209 001222 001302 001314 001332 001357 001365 001420
001422 001427 001429 001438 001441 001445 001447 001449
001451 001453
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 39
Symbols of Module: GCIC (GCIC)
------------------------------
Called Procedures Type Locations
-------------------------------+--------------------------------------------------------
C$SLEEP SYSTEM 001230 001266 001277 001463
CBL_CHANGE_DIR SYSTEM 000975
CBL_DELETE_FILE SYSTEM 001195
CHECKSRC USER 001384 001398
E4 SYSTEM 001364
LISTING USER 001250
SYSTEM SYSTEM 001209 001365 001422 001429 001444 001446 001448 001450
001452
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 40
Symbols of Module: GCIC (GCIC)
------------------------------
Procedure Defn Locations
-------------------------------+---------------------------------------------------------------
CAUTION: 000860P
FOUND 000860P
G29 000860P
LPP 001253P
LPPP 001254P
MORE 000860P
ONE 000860P
SELCHAR 000920P 000921 001024 001027 001034 001040 001046 001052 001063
001069 001075 001081 001404
SYSERR 001208P
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 41
Symbols of Module: GCIC (GCIC)
------------------------------
Unreferenced Working Storage Symbols
CBL_CHANGE_DIR 000975C
CBL_DELETE_FILE 001195C
COB-COLOR-MAGENTA 000237W
COB-COLOR-YELLOW 000238W
COB-SCR-BACK-TAB 000321W
COB-SCR-BACKSPACE 000328W
COB-SCR-DELETE 000327W
COB-SCR-F10 000254W
COB-SCR-F11 000255W
COB-SCR-F13 000257W
COB-SCR-F14 000258W
COB-SCR-F15 000259W
COB-SCR-F16 000260W
COB-SCR-F17 000261W
COB-SCR-F18 000262W
COB-SCR-F19 000263W
COB-SCR-F20 000264W
COB-SCR-F21 000265W
COB-SCR-F22 000266W
COB-SCR-F23 000267W
COB-SCR-F24 000268W
COB-SCR-F25 000269W
COB-SCR-F26 000270W
COB-SCR-F27 000271W
COB-SCR-F28 000272W
COB-SCR-F29 000273W
COB-SCR-F30 000274W
COB-SCR-F31 000275W
COB-SCR-F32 000276W
COB-SCR-F33 000277W
COB-SCR-F34 000278W
COB-SCR-F35 000279W
COB-SCR-F36 000280W
COB-SCR-F37 000281W
COB-SCR-F38 000282W
COB-SCR-F39 000283W
COB-SCR-F40 000284W
COB-SCR-F41 000285W
COB-SCR-F42 000286W
COB-SCR-F43 000287W
COB-SCR-F44 000288W
COB-SCR-F45 000289W
COB-SCR-F46 000290W
COB-SCR-F47 000291W
COB-SCR-F48 000292W
COB-SCR-F49 000293W
COB-SCR-F50 000294W
COB-SCR-F51 000295W
COB-SCR-F52 000296W
COB-SCR-F53 000297W
COB-SCR-F54 000298W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 42
Symbols of Module: GCIC (GCIC)
------------------------------
Unreferenced Working Storage Symbols
COB-SCR-F55 000299W
COB-SCR-F56 000300W
COB-SCR-F57 000301W
COB-SCR-F58 000302W
COB-SCR-F59 000303W
COB-SCR-F60 000304W
COB-SCR-F61 000305W
COB-SCR-F62 000306W
COB-SCR-F63 000307W
COB-SCR-F64 000308W
COB-SCR-FATAL 000335W
COB-SCR-INSERT 000326W
COB-SCR-KEY-DOWN 000316W
COB-SCR-KEY-END 000330W
COB-SCR-KEY-HOME 000329W
COB-SCR-KEY-LEFT 000322W
COB-SCR-KEY-RIGHT 000323W
COB-SCR-KEY-UP 000314W
COB-SCR-KEY_DOWN 000317W
COB-SCR-KEY_UP 000315W
COB-SCR-MAX-FIELD 000336W
COB-SCR-NO-FIELD 000332W
COB-SCR-OK 000243W
COB-SCR-PAGE-DOWN 000312W
COB-SCR-PAGE-UP 000310W
COB-SCR-PAGE_DOWN 000313W
COB-SCR-PAGE_UP 000311W
COB-SCR-PRINT 000319W
COB-SCR-TAB 000320W
COB-SCR-TIME-OUT 000333W
E4 001364C
F1 000364W
F12 000358W
F2 000371W
F3 000367W
F4 000365W
F6 000369W
F7 000372W
F8 000366W
F9 000370W
LISTING 001250C
WS-COMPILATION-SWITCHES-TXT 000338W
WS-CS-FILENAMES-TABLE-TXT 000350W
WS-DELETE-FN-TXT 000397W
WS-FILE-STATUS-MESSAGE-TXT 000403W
WS-OS-TYPES-TXT 000465W
WS-PATH-DELIMITER-CHR 000471W
WS-RS-COMPILE-OK-CHR 000484W
WS-RS-COMPLETE-CHR 000488W
WS-RS-IDENT-DIV-CHR 000493W
WS-RS-NO-SWITCH-CHGS-CHR 000496W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 43
Symbols of Module: GCIC (GCIC)
------------------------------
Unreferenced Working Storage Symbols
WS-RS-OUTPUT-FILE-BUSY-BOOL 000500W
WS-RS-OUTPUT-FILE-BUSY-CHR 000499W
WS-RS-QUOTE-CHR 000491W
WS-RS-SWITCH-ERROR-CHR 000506W
WS-RS-SWITCH-IS-BAD-BOOL 000507W
WS-RS-SWITCH-IS-GOOD-BOOL 000508W
WS-RUNTIME-SWITCHES-TXT 000483W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 44
Symbols of Module: GCIC (GCIC)
------------------------------
Unreferenced Procedures
CAUTION: 000860P
FOUND 000860P
G29 000860P
LPP 001253P
LPPP 001254P
MORE 000860P
ONE 000860P
SYSERR 001208P
ACS Cobol Xref v2.02.04 Dictionary File for GCIC 06/03/2022 23:09:11:00 Page 45
1471 IDENTIFICATION DIVISION.
1472 PROGRAM-ID. CHECKSRC.
1473 *>***************************************************************
1474 *> This subprogram will scan a line of source code it is given **
1475 *> looking for 'LINKAGE SECTION' or 'IDENTIFICATION DIVISION'. **
1476 *> **
1477 *> ****NOTE**** ****NOTE**** ****NOTE**** ****NOTE*** **
1478 *> **
1479 *> These two strings must be found IN THEIR ENTIRETY within **
1480 *> the 1st 80 columns of program source records, and cannot **
1481 *> follow either a '*>' sequence OR a '*' in col 7. **
1482 *>***************************************************************
1483 *> DATE CHANGE DESCRIPTION **
1484 *> ====== ==================================================== **
1485 *> GC0809 Initial coding. **
1486 *>***************************************************************
1487 ENVIRONMENT DIVISION.
1488 CONFIGURATION SECTION.
1489 REPOSITORY.
1490 FUNCTION ALL INTRINSIC.
1491 DATA DIVISION.
1492 WORKING-STORAGE SECTION.
1493 01 WS-Compressed-Src-TXT.
1494 05 WS-CS-CHR OCCURS 80 TIMES
1495 PIC X(1).
1496
1497 01 WS-Runtime-Switches-TXT.
1498 05 WS-RS-Found-SPACE-CHR PIC X(1).
1499 88 WS-RS-Skipping-SPACE-BOOL VALUE 'Y'.
1500 88 WS-RS-Not-Skipping-SPACE-BOOL VALUE 'N'.
1501
1502 01 WS-I-SUB USAGE BINARY-CHAR.
1503
1504 01 WS-J-SUB USAGE BINARY-CHAR.
1505 LINKAGE SECTION.
1506 01 L-Argument-1-TXT.
1507 02 L-A1-CHR OCCURS 80 TIMES
1508 PIC X(1).
1509
1510 01 L-Argument-2-CHR PIC X(1).
1511 88 L-A2-LINKAGE-SECTION-BOOL VALUE 'L'.
1512 88 L-A2-IDENT-DIVISION-BOOL VALUE 'I'.
1513 88 L-A2-Nothing-Special-BOOL VALUE ' '.
1514 /
1515 GC0712 PROCEDURE DIVISION USING BY VALUE L-Argument-1-TXT
1516 GC0712 BY REFERENCE L-Argument-2-CHR.
1517 000-Main SECTION.
1518 SET L-A2-Nothing-Special-BOOL TO TRUE
1519 IF L-A1-CHR (7) = '*'
1520 GOBACK
1521 END-IF
1522 .
1523 *>
1524 *> Compress multiple consecutive spaces
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 46
1525 *>
1526 SET WS-RS-Not-Skipping-SPACE-BOOL TO TRUE
1527 MOVE 0 TO WS-J-SUB
1528 MOVE SPACES TO WS-Compressed-Src-TXT
1529 PERFORM VARYING WS-I-SUB FROM 1 BY 1
1530 UNTIL WS-I-SUB > 80
1531 IF L-A1-CHR (WS-I-SUB) = SPACE
1532 IF WS-RS-Not-Skipping-SPACE-BOOL
1533 ADD 1 TO WS-J-SUB
1534 MOVE UPPER-CASE(L-A1-CHR (WS-I-SUB))
1535 TO WS-CS-CHR (WS-J-SUB)
1536 SET WS-RS-Skipping-SPACE-BOOL TO TRUE
1537 END-IF
1538 ELSE
1539 SET WS-RS-Not-Skipping-SPACE-BOOL TO TRUE
1540 ADD 1 TO WS-J-SUB
1541 MOVE L-A1-CHR (WS-I-SUB) TO WS-CS-CHR (WS-J-SUB)
1542 END-IF
1543 END-PERFORM
1544 *>
1545 *> Scan the compressed source line
1546 *>
1547 PERFORM VARYING WS-I-SUB FROM 1 BY 1
1548 UNTIL WS-I-SUB > 66
1549 EVALUATE TRUE
1550 WHEN WS-CS-CHR (WS-I-SUB) = '*'
1551 IF WS-Compressed-Src-TXT (WS-I-SUB : 2) = '*>'
1552 GOBACK
1553 END-IF
1554 WHEN (WS-CS-CHR (WS-I-SUB) = 'L') AND (WS-I-SUB < 66)
1555 IF WS-Compressed-Src-TXT (WS-I-SUB : 15)
1556 = 'LINKAGE SECTION'
1557 SET L-A2-LINKAGE-SECTION-BOOL TO TRUE
1558 GOBACK
1559 END-IF
1560 WHEN (WS-CS-CHR (WS-I-SUB) = 'I') AND (WS-I-SUB < 58)
1561 IF WS-Compressed-Src-TXT (WS-I-SUB : 23)
1562 = 'IDENTIFICATION DIVISION'
1563 SET L-A2-IDENT-DIVISION-BOOL TO TRUE
1564 GOBACK
1565 END-IF
1566 END-EVALUATE
1567 END-PERFORM
1568 *>
1569 *> If we get to here, we never found anything!
1570 *>
1571 + GOBACK
1572 .
1573 END PROGRAM CHECKSRC.
1574
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 47
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
WS-COMPRESSED-SRC-TXT 001493W 001528 001551 001555 001561
WS-CS-CHR 001494W 001535 001541 001550 001554 001560
WS-I-SUB 001502W 001529 001530 001531 001534 001541 001547 001548 001550
001551 001554 001555 001560 001561
WS-J-SUB 001504W 001527 001533 001535 001540 001541
WS-RS-FOUND-SPACE-CHR 001498W
WS-RS-NOT-SKIPPING-SPACE-BOOL 001500W 001526 001532 001539
WS-RS-SKIPPING-SPACE-BOOL 001499W 001536
WS-RUNTIME-SWITCHES-TXT 001497W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 48
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Data Section (LINKAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
L-A1-CHR 001507K 001519 001531 001534 001541
L-A2-IDENT-DIVISION-BOOL 001512K 001563
L-A2-LINKAGE-SECTION-BOOL 001511K 001557
L-A2-NOTHING-SPECIAL-BOOL 001513K 001518
L-ARGUMENT-1-TXT 001506K 001515
L-ARGUMENT-2-CHR 001510K 001516
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 49
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Variable Tested [S] Symbol (88-Conditions)
--------------------------------------------------------------
L-ARGUMENT-2-CHR L-A2-LINKAGE-SECTION-BOOL
L-ARGUMENT-2-CHR L-A2-IDENT-DIVISION-BOOL
L-ARGUMENT-2-CHR L-A2-NOTHING-SPECIAL-BOOL
WS-RS-FOUND-SPACE-CHR WS-RS-SKIPPING-SPACE-BOOL
WS-RS-FOUND-SPACE-CHR WS-RS-NOT-SKIPPING-SPACE-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 50
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Variable Tested Symbol (88-Conditions) [S]
--------------------------------------------------------------
L-ARGUMENT-2-CHR L-A2-IDENT-DIVISION-BOOL
L-ARGUMENT-2-CHR L-A2-LINKAGE-SECTION-BOOL
L-ARGUMENT-2-CHR L-A2-NOTHING-SPECIAL-BOOL
WS-RS-FOUND-SPACE-CHR WS-RS-NOT-SKIPPING-SPACE-BOOL
WS-RS-FOUND-SPACE-CHR WS-RS-SKIPPING-SPACE-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 51
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Functions Defn Locations
-------------------------------+---------------------------------------------------------------
UPPER-CASE 001534I
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 52
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Procedure Defn Locations
-------------------------------+---------------------------------------------------------------
None
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 53
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Unreferenced Working Storage Symbols
WS-RS-FOUND-SPACE-CHR 001498W
WS-RUNTIME-SWITCHES-TXT 001497W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 54
Symbols of Module: GCIC (CHECKSRC)
----------------------------------
Unreferenced Procedures
None
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (CHECKSRC) 06/03/2022 23:09:11:00 Page 55
1575 IDENTIFICATION DIVISION.
1576 PROGRAM-ID. LISTING.
1577 *>***************************************************************
1578 *> This subprogram generates a cross-reference listing of an **
1579 *> GNU COBOL program. **
1580 *>***************************************************************
1581 *> **
1582 *> AUTHOR: GARY L. CUTLER **
1583 *> Copyright (C) 2010, Gary L. Cutler, GPL **
1584 *> **
1585 *> DATE-WRITTEN: April 1, 2010 **
1586 *> **
1587 *>***************************************************************
1588 *> DATE CHANGE DESCRIPTION **
1589 *> ====== ==================================================== **
1590 *> GC0410 Initial coding **
1591 *> GC0711 Updates to accommodate the 12MAR2010 version of OC **
1592 *> GC0710 Handle duplicate data names (i.e. 'CORRESPONDING' or **
1593 *> qualified items) better; ignore 'END PROGRAM' recs **
1594 *> so program name doesn't appear in listing. **
1595 *> GC0313 Fix problem where the first procedure name defined **
1596 *> in the PROCEDURE DIVISION lacks a "Defined" line **
1597 *> number. **
1598 *> GC1213 Updated for 23NOV2013 version of GNU COBOL 2.1; Stop **
1599 *> showing functions as if they were identifiers in the **
1600 *> xref listing; Flag all CALL argument references with **
1601 *> a "C" rather than "*" because they aren't necessari- **
1602 *> ly altered; Fixed assorted formatting bugs; DOWN- **
1603 *> WARD COMPATIBLE WITH GNU COBOL 2.0 SYNTAX **
1604 *> GC0314 Fix problem where 1st char of 1st token on a line is **
1605 *> lost if >>SOURCE MODE IS FREE is in effect and the **
1606 *> 1st character is non-blank. **
1607 *> VC1217 Updated compiler version & date to v3.0 & 24DEC2017. **
1608 *> VC0720 Updated compiler to 3.1 July2020 and the copyright. **
1609 *> VC0322 Updated compiler to 3.1.2 March2022 & the copyright. **
1610 *>***************************************************************
1611 ENVIRONMENT DIVISION.
1612 CONFIGURATION SECTION.
1613 REPOSITORY.
1614 FUNCTION ALL INTRINSIC.
1615 INPUT-OUTPUT SECTION.
1616 FILE-CONTROL.
1617 SELECT F-Expanded-Src-FILE ASSIGN TO WS-Expanded-Src-Fn-TXT
1618 ORGANIZATION IS LINE SEQUENTIAL.
1619 GC0712 SELECT F-Listing-FILE ASSIGN TO L-Listing-Fn-TXT
1620 ORGANIZATION IS LINE SEQUENTIAL.
1621 SELECT F-Original-Src-FILE ASSIGN TO L-Src-Fn-TXT
1622 ORGANIZATION IS LINE SEQUENTIAL.
1623 SELECT F-Sort-Work-FILE ASSIGN TO DISK.
1624 DATA DIVISION.
1625 FILE SECTION.
1626 FD F-Expanded-Src-FILE.
1627 01 F-Expanded-Src-REC.
1628 05 F-ES-1-CHR PIC X.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:00 Page 56
1629 05 F-ES-2-256-TXT-256 PIC X(256).
1630 GC0712 01 F-Expanded-Src2-REC.
1631 GC0712 05 F-ES-1-7-TXT PIC X(7).
1632 GC0712 05 F-ES-8-256-TXT PIC X(249).
1633
1634 GC0712 FD F-Listing-FILE.
1635 GC1213 01 F-Listing-96-REC PIC X(96).
1636 GC1213 01 F-Listing-135-REC PIC X(135).
1637 01 F-Listing-REC PIC X(135).
1638
1639 FD F-Original-Src-FILE.
1640 01 F-Original-Src-REC.
1641 GC0410 05 F-OS-1-128-TXT.
1642 GC0410 10 FILLER PIC X(6).
1643 GC0410 10 F-OS-7-CHR PIC X(1).
1644 GC0712 10 F-OS-8-72-TXT PIC X(65).
1645 GC0712 10 FILLER PIC X(56).
1646 05 F-OS-129-256-TXT PIC X(128).
1647
1648 SD F-Sort-Work-FILE.
1649 01 F-Sort-Work-REC.
1650 05 F-SW-Prog-ID-TXT PIC X(15).
1651 05 F-SW-Token-Uc-TXT PIC X(32).
1652 05 F-SW-Token-TXT PIC X(32).
1653 05 F-SW-Section-TXT PIC X(15).
1654 05 F-SW-Def-Line-NUM PIC 9(6).
1655 05 F-SW-Reference-TXT.
1656 10 F-SW-Ref-Line-NUM PIC 9(6).
1657 10 F-SW-Ref-Flag-CHR PIC X(1).
1658
1659 WORKING-STORAGE SECTION.
1660 GC1213 01 WS-Copyright-TXT PIC X(86).
1661
1662 01 WS-Curr-CHR PIC X(1).
1663 88 WS-Curr-Char-Is-Punct-BOOL VALUE '=', '(', ')',
1664 '*', '/', '&',
1665 ';', ',', '<',
1666 '>', ':'.
1667 88 WS-Curr-Char-Is-Quote-BOOL VALUE "'", '"'.
1668 88 WS-Curr-Char-Is-X-BOOL VALUE 'x', 'X'.
1669 88 WS-Curr-Char-Is-Z-BOOL VALUE 'z', 'Z'.
1670
1671 01 WS-Curr-Division-TXT PIC X(1).
1672 GC1010 88 WS-CD-In-IDENT-DIV-BOOL VALUE 'i', 'I', '?'.
1673 GC1010 88 WS-CD-In-ENV-DIV-BOOL VALUE 'e', 'E'.
1674 GC1010 88 WS-CD-In-DATA-DIV-BOOL VALUE 'd', 'D'.
1675 GC1010 88 WS-CD-In-PROC-DIV-BOOL VALUE 'p', 'P'.
1676
1677 01 WS-Curr-Line-NUM PIC 9(6).
1678
1679 01 WS-Curr-Prog-ID-TXT.
1680 05 FILLER PIC X(12).
1681 05 WS-CPI-13-15-TXT PIC X(3).
1682 GC0712 05 WS-CPI-16-CHR PIC X(1).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:00 Page 57
1683
1684 01 WS-Curr-Section-TXT.
1685 05 WS-CS-1-CHR PIC X(1).
1686 05 WS-CS-2-14-TXT.
1687 10 FILLER PIC X(10).
1688 10 WS-CS-11-14-TXT PIC X(3).
1689 05 WS-CS-15-CHR PIC X(1).
1690
1691 01 WS-Curr-Verb-TXT PIC X(12).
1692
1693 01 WS-Delim-TXT PIC X(2).
1694
1695 01 WS-Dummy-TXT PIC X(1).
1696
1697 01 WS-Expanded-Src-Fn-TXT PIC X(256).
1698
1699 01 WS-Filename-TXT PIC X(256).
1700
1701 GC1213 01 WS-Flags-TXT.
1702 GC1213 05 WS-Suppress-FF-CHR PIC X(1).
1703
1704 GC1213 01 WS-Formatted-DT PIC 9999/99/99.
1705
1706 01 WS-Group-Indicators-TXT.
1707 05 WS-GI-Prog-ID-TXT PIC X(15).
1708 05 WS-GI-Token-TXT PIC X(32).
1709
1710 01 WS-Held-Reference-TXT PIC X(100).
1711
1712 01 WS-I-SUB USAGE BINARY-LONG.
1713
1714 01 WS-J-SUB USAGE BINARY-LONG.
1715
1716 01 WS-Lines-Left-NUM USAGE BINARY-LONG.
1717
1718 01 WS-Lines-Per-Page-NUM USAGE BINARY-LONG.
1719
1720 01 WS-Lines-Per-Page-Env-TXT PIC X(256).
1721
1722 GC1010 01 WS-Main-Module-Name-TXT PIC X(256).
1723
1724 01 WS-Next-CHR PIC X(1).
1725 88 WS-Next-Char-Is-Quote-BOOL VALUE '"', "'".
1726
1727 01 WS-OS-Type-FILLER-TXT.
1728 05 VALUE 'Windows' PIC X(14).
1729 05 VALUE 'Windows/Cygwin' PIC X(14).
1730 05 VALUE 'UNIX/Linux' PIC X(14).
1731 05 VALUE 'OSX' PIC X(14).
1732 05 VALUE 'Windows/MinGW' PIC X(14).
1733 01 WS-OS-Types-TXT REDEFINES WS-OS-Type-FILLER-TXT.
1734 05 WS-OS-Type-TXT PIC X(14)
1735 OCCURS 5 TIMES .
1736
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:00 Page 58
1737 GC0712 01 WS-Page-NUM USAGE BINARY-LONG.
1738
1739 GC0712 01 WS-Page-No-TXT.
1740 GC0712 05 WS-PN-Literal-TXT PIC X(6).
1741 GC0712 05 WS-PN-Page-NUM PIC Z(3)9.
1742
1743 GC1213 01 WS-Program-Path-TXT PIC X(135).
1744
1745 01 WS-Reserved-Words-TXT.
1746 05 VALUE ' ' PIC X(33).
1747 GC1213 05 VALUE 'FABS ' PIC X(33).
1748 05 VALUE 'VACCEPT ' PIC X(33).
1749 05 VALUE ' ACCESS ' PIC X(33).
1750 GC1213 05 VALUE 'FACOS ' PIC X(33).
1751 05 VALUE ' ACTIVE-CLASS ' PIC X(33). UNIMPLEMENTED
1752 05 VALUE 'VADD ' PIC X(33).
1753 05 VALUE ' ADDRESS ' PIC X(33).
1754 05 VALUE ' ADVANCING ' PIC X(33).
1755 05 VALUE 'KAFTER ' PIC X(33).
1756 05 VALUE ' ALIGNED ' PIC X(33). UNIMPLEMENTED
1757 05 VALUE ' ALL ' PIC X(33).
1758 05 VALUE 'VALLOCATE ' PIC X(33).
1759 05 VALUE ' ALPHABET ' PIC X(33).
1760 05 VALUE ' ALPHABETIC ' PIC X(33).
1761 05 VALUE ' ALPHABETIC-LOWER ' PIC X(33).
1762 05 VALUE ' ALPHABETIC-UPPER ' PIC X(33).
1763 05 VALUE ' ALPHANUMERIC ' PIC X(33).
1764 05 VALUE ' ALPHANUMERIC-EDITED ' PIC X(33).
1765 05 VALUE ' ALSO ' PIC X(33).
1766 05 VALUE 'VALTER ' PIC X(33).
1767 05 VALUE ' ALTERNATE ' PIC X(33).
1768 05 VALUE ' AND ' PIC X(33).
1769 GC1213 05 VALUE 'FANNUITY ' PIC X(33).
1770 05 VALUE ' ANY ' PIC X(33).
1771 05 VALUE ' ANYCASE ' PIC X(33). UNIMPLEMENTED
1772 05 VALUE ' ARE ' PIC X(33).
1773 05 VALUE ' AREA ' PIC X(33).
1774 05 VALUE ' AREAS ' PIC X(33).
1775 05 VALUE ' ARGUMENT-NUMBER ' PIC X(33).
1776 05 VALUE ' ARGUMENT-VALUE ' PIC X(33).
1777 05 VALUE ' ARITHMETIC ' PIC X(33). UNIMPLEMENTED
1778 05 VALUE ' AS ' PIC X(33).
1779 05 VALUE ' ASCENDING ' PIC X(33).
1780 05 VALUE ' ASCII ' PIC X(33).
1781 GC1213 05 VALUE 'FASIN ' PIC X(33).
1782 05 VALUE ' ASSIGN ' PIC X(33).
1783 05 VALUE ' AT ' PIC X(33).
1784 GC1213 05 VALUE 'FATAN ' PIC X(33).
1785 GC0711 05 VALUE ' ATTRIBUTE ' PIC X(33).
1786 05 VALUE ' AUTHOR ' PIC X(33). OBSOLETE
1787 05 VALUE ' AUTO ' PIC X(33).
1788 05 VALUE ' AUTO-SKIP ' PIC X(33).
1789 05 VALUE ' AUTOMATIC ' PIC X(33).
1790 05 VALUE ' AUTOTERMINATE ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 59
1791 05 VALUE ' AWAY-FROM-ZERO ' PIC X(33).
1792 05 VALUE ' B-AND ' PIC X(33). UNIMPLEMENTED
1793 05 VALUE ' B-NOT ' PIC X(33). UNIMPLEMENTED
1794 05 VALUE ' B-OR ' PIC X(33). UNIMPLEMENTED
1795 05 VALUE ' B-XOR ' PIC X(33). UNIMPLEMENTED
1796 05 VALUE ' BACKGROUND-COLOR ' PIC X(33).
1797 05 VALUE ' BACKGROUND-COLOUR ' PIC X(33).
1798 05 VALUE ' BASED ' PIC X(33).
1799 05 VALUE ' BEEP ' PIC X(33).
1800 05 VALUE ' BEFORE ' PIC X(33).
1801 05 VALUE ' BELL ' PIC X(33).
1802 05 VALUE ' BINARY ' PIC X(33).
1803 05 VALUE ' BINARY-C-LONG ' PIC X(33).
1804 05 VALUE ' BINARY-CHAR ' PIC X(33).
1805 05 VALUE ' BINARY-DOUBLE ' PIC X(33).
1806 05 VALUE ' BINARY-INT ' PIC X(33).
1807 05 VALUE ' BINARY-LONG ' PIC X(33).
1808 05 VALUE ' BINARY-LONG-LONG ' PIC X(33).
1809 05 VALUE ' BINARY-SHORT ' PIC X(33).
1810 05 VALUE ' BIT ' PIC X(33). UNIMPLEMENTED
1811 05 VALUE ' BLANK ' PIC X(33).
1812 05 VALUE ' BLINK ' PIC X(33).
1813 05 VALUE ' BLOCK ' PIC X(33).
1814 05 VALUE ' BOOLEAN ' PIC X(33). UNIMPLEMENTED
1815 GC1213 05 VALUE 'FBOOLEAN-OF-INTEGER ' PIC X(33). UNIMPLEMENTED
1816 05 VALUE ' BOTTOM ' PIC X(33).
1817 05 VALUE 'YBY ' PIC X(33).
1818 GC1213 05 VALUE 'FBYTE-LENGTH ' PIC X(33).
1819 05 VALUE 'MC01 ' PIC X(33).
1820 05 VALUE 'MC02 ' PIC X(33).
1821 05 VALUE 'MC03 ' PIC X(33).
1822 05 VALUE 'MC04 ' PIC X(33).
1823 05 VALUE 'MC05 ' PIC X(33).
1824 05 VALUE 'MC06 ' PIC X(33).
1825 05 VALUE 'MC07 ' PIC X(33).
1826 05 VALUE 'MC08 ' PIC X(33).
1827 05 VALUE 'MC09 ' PIC X(33).
1828 05 VALUE 'MC10 ' PIC X(33).
1829 05 VALUE 'MC11 ' PIC X(33).
1830 05 VALUE 'MC12 ' PIC X(33).
1831 05 VALUE 'VCALL ' PIC X(33).
1832 05 VALUE 'MCALL-CONVENTION ' PIC X(33).
1833 05 VALUE 'VCANCEL ' PIC X(33).
1834 05 VALUE ' CAPACITY ' PIC X(33). UNIMPLEMENTED
1835 05 VALUE ' CD ' PIC X(33). OBSOLETE
1836 05 VALUE ' CENTER ' PIC X(33). UNIMPLEMENTED
1837 05 VALUE ' CF ' PIC X(33).
1838 05 VALUE ' CH ' PIC X(33).
1839 05 VALUE ' CHAIN ' PIC X(33). UNIMPLEMENTED
1840 05 VALUE ' CHAINING ' PIC X(33).
1841 GC1213 05 VALUE 'FCHAR ' PIC X(33).
1842 GC1213 05 VALUE 'FCHAR-NATIONAL ' PIC X(33). UNIMPLEMENTED
1843 05 VALUE ' CHARACTER ' PIC X(33).
1844 05 VALUE ' CHARACTERS ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 60
1845 05 VALUE ' CLASS ' PIC X(33).
1846 05 VALUE ' CLASS-ID ' PIC X(33). UNIMPLEMENTED
1847 GC0711 05 VALUE ' CLASSIFICATION ' PIC X(33).
1848 05 VALUE 'VCLOSE ' PIC X(33).
1849 GC1213 05 VALUE 'FCOB-CRT-STATUS ' PIC X(33).
1850 05 VALUE ' CODE ' PIC X(33).
1851 05 VALUE ' CODE-SET ' PIC X(33).
1852 05 VALUE ' COL ' PIC X(33).
1853 05 VALUE ' COLLATING ' PIC X(33).
1854 05 VALUE ' COLS ' PIC X(33).
1855 05 VALUE ' COLUMN ' PIC X(33).
1856 05 VALUE ' COLUMNS ' PIC X(33).
1857 GC1213 05 VALUE 'FCOMBINED-DATETIME ' PIC X(33).
1858 05 VALUE ' COMMA ' PIC X(33).
1859 05 VALUE ' COMMAND-LINE ' PIC X(33).
1860 05 VALUE 'VCOMMIT ' PIC X(33).
1861 05 VALUE ' COMMON ' PIC X(33).
1862 05 VALUE ' COMMUNICATION ' PIC X(33). OBSOLETE
1863 05 VALUE ' COMP ' PIC X(33).
1864 05 VALUE ' COMP-1 ' PIC X(33).
1865 05 VALUE ' COMP-2 ' PIC X(33).
1866 05 VALUE ' COMP-3 ' PIC X(33).
1867 05 VALUE ' COMP-4 ' PIC X(33).
1868 05 VALUE ' COMP-5 ' PIC X(33).
1869 05 VALUE ' COMP-6 ' PIC X(33).
1870 05 VALUE ' COMP-X ' PIC X(33).
1871 05 VALUE ' COMPUTATIONAL ' PIC X(33).
1872 05 VALUE ' COMPUTATIONAL-1 ' PIC X(33).
1873 05 VALUE ' COMPUTATIONAL-2 ' PIC X(33).
1874 05 VALUE ' COMPUTATIONAL-3 ' PIC X(33).
1875 05 VALUE ' COMPUTATIONAL-4 ' PIC X(33).
1876 05 VALUE ' COMPUTATIONAL-5 ' PIC X(33).
1877 05 VALUE ' COMPUTATIONAL-X ' PIC X(33).
1878 05 VALUE 'VCOMPUTE ' PIC X(33).
1879 GC1213 05 VALUE 'FCONCATENATE ' PIC X(33).
1880 GC0712 05 VALUE ' CONDITION ' PIC X(33).
1881 05 VALUE 'KCONFIGURATION ' PIC X(33).
1882 05 VALUE 'MCONSOLE ' PIC X(33).
1883 05 VALUE ' CONSTANT ' PIC X(33).
1884 05 VALUE ' CONTAINS ' PIC X(33).
1885 GC0712 05 VALUE 'ACONTENT ' PIC X(33).
1886 05 VALUE 'VCONTINUE ' PIC X(33).
1887 05 VALUE ' CONTROL ' PIC X(33).
1888 05 VALUE ' CONTROLS ' PIC X(33).
1889 GC0711 05 VALUE ' CONVERSION ' PIC X(33).
1890 05 VALUE 'KCONVERTING ' PIC X(33).
1891 * 05 VALUE ' COPY ' PIC X(33).
1892 05 VALUE ' CORR ' PIC X(33).
1893 05 VALUE ' CORRESPONDING ' PIC X(33).
1894 GC1213 05 VALUE 'FCOS ' PIC X(33).
1895 05 VALUE 'KCOUNT ' PIC X(33).
1896 05 VALUE ' CRT ' PIC X(33).
1897 05 VALUE ' CRT-UNDER ' PIC X(33).
1898 05 VALUE 'MCSP ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 61
1899 05 VALUE ' CURRENCY ' PIC X(33).
1900 GC1213 05 VALUE 'FCURRENCY-SYMBOL ' PIC X(33).
1901 GC1213 05 VALUE 'FCURRENT-DATE ' PIC X(33).
1902 05 VALUE ' CURSOR ' PIC X(33).
1903 05 VALUE ' CYCLE ' PIC X(33).
1904 05 VALUE 'KDATA ' PIC X(33).
1905 05 VALUE ' DATA-POINTER ' PIC X(33). UNIMPLEMENTED
1906 05 VALUE ' DATE ' PIC X(33).
1907 05 VALUE ' DATE-COMPILED ' PIC X(33). OBSOLETE
1908 05 VALUE ' DATE-MODIFIED ' PIC X(33). OBSOLETE
1909 GC1213 05 VALUE 'FDATE-OF-INTEGER ' PIC X(33).
1910 GC1213 05 VALUE 'FDATE-TO-YYYYMMDD ' PIC X(33).
1911 05 VALUE ' DATE-WRITTEN ' PIC X(33). OBSOLETE
1912 05 VALUE ' DAY ' PIC X(33).
1913 GC1213 05 VALUE 'FDAY-OF-INTEGER ' PIC X(33).
1914 05 VALUE ' DAY-OF-WEEK ' PIC X(33).
1915 GC1213 05 VALUE 'IDAY-TO-YYYYDDD ' PIC X(33).
1916 05 VALUE ' DE ' PIC X(33).
1917 GC0712 05 VALUE 'IDEBUG-CONTENTS ' PIC X(33).
1918 GC0712 05 VALUE 'IDEBUG-ITEM ' PIC X(33).
1919 GC0712 05 VALUE 'IDEBUG-LINE ' PIC X(33).
1920 GC0712 05 VALUE 'IDEBUG-NAME ' PIC X(33).
1921 GC0712 05 VALUE 'IDEBUG-SUB-1 ' PIC X(33).
1922 GC0712 05 VALUE 'IDEBUG-SUB-2 ' PIC X(33).
1923 GC0712 05 VALUE 'IDEBUG-SUB-3 ' PIC X(33).
1924 05 VALUE ' DEBUGGING ' PIC X(33).
1925 05 VALUE ' DECIMAL-POINT ' PIC X(33).
1926 05 VALUE ' DECLARATIVES ' PIC X(33).
1927 05 VALUE ' DEFAULT ' PIC X(33).
1928 05 VALUE 'VDELETE ' PIC X(33).
1929 05 VALUE ' DELIMITED ' PIC X(33).
1930 05 VALUE 'KDELIMITER ' PIC X(33).
1931 05 VALUE ' DEPENDING ' PIC X(33).
1932 05 VALUE ' DESCENDING ' PIC X(33).
1933 05 VALUE ' DESTINATION ' PIC X(33). UNIMPLEMENTED
1934 05 VALUE ' DETAIL ' PIC X(33).
1935 GC0711 05 VALUE ' DISC ' PIC X(33).
1936 05 VALUE ' DISK ' PIC X(33).
1937 05 VALUE 'VDISPLAY ' PIC X(33).
1938 GC1213 05 VALUE 'FDISPLAY-OF ' PIC X(33). UNIMPLEMENTED
1939 05 VALUE 'VDIVIDE ' PIC X(33).
1940 05 VALUE 'KDIVISION ' PIC X(33).
1941 05 VALUE 'KDOWN ' PIC X(33).
1942 05 VALUE ' DUPLICATES ' PIC X(33).
1943 05 VALUE ' DYNAMIC ' PIC X(33).
1944 GC1213 05 VALUE 'FE ' PIC X(33).
1945 05 VALUE ' EBCDIC ' PIC X(33).
1946 GC0712 05 VALUE ' EC ' PIC X(33).
1947 05 VALUE ' EGI ' PIC X(33). OBSOLETE
1948 05 VALUE 'VELSE ' PIC X(33).
1949 05 VALUE ' EMI ' PIC X(33). OBSOLETE
1950 05 VALUE ' EMPTY-CHECK ' PIC X(33).
1951 05 VALUE 'VENABLE ' PIC X(33). OBSOLETE
1952 GC0710 05 VALUE 'KEND ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 62
1953 05 VALUE ' END-ACCEPT ' PIC X(33).
1954 05 VALUE ' END-ADD ' PIC X(33).
1955 05 VALUE ' END-CALL ' PIC X(33).
1956 05 VALUE ' END-CHAIN ' PIC X(33). UNIMPLEMENTED
1957 05 VALUE ' END-COMPUTE ' PIC X(33).
1958 05 VALUE ' END-DELETE ' PIC X(33).
1959 05 VALUE ' END-DISPLAY ' PIC X(33).
1960 05 VALUE ' END-DIVIDE ' PIC X(33).
1961 05 VALUE ' END-EVALUATE ' PIC X(33).
1962 05 VALUE ' END-IF ' PIC X(33).
1963 05 VALUE ' END-MULTIPLY ' PIC X(33).
1964 05 VALUE ' END-OF-PAGE ' PIC X(33).
1965 05 VALUE ' END-PERFORM ' PIC X(33).
1966 05 VALUE ' END-READ ' PIC X(33).
1967 05 VALUE ' END-RECEIVE ' PIC X(33). OBSOLETE
1968 05 VALUE ' END-RETURN ' PIC X(33).
1969 05 VALUE ' END-REWRITE ' PIC X(33).
1970 05 VALUE ' END-SEARCH ' PIC X(33).
1971 05 VALUE ' END-START ' PIC X(33).
1972 05 VALUE ' END-STRING ' PIC X(33).
1973 05 VALUE ' END-SUBTRACT ' PIC X(33).
1974 05 VALUE ' END-UNSTRING ' PIC X(33).
1975 05 VALUE ' END-WRITE ' PIC X(33).
1976 05 VALUE 'VENTRY ' PIC X(33).
1977 05 VALUE ' ENTRY-CONVENTION ' PIC X(33). UNIMPLEMENTED
1978 05 VALUE 'KENVIRONMENT ' PIC X(33).
1979 05 VALUE ' ENVIRONMENT-NAME ' PIC X(33).
1980 05 VALUE ' ENVIRONMENT-VALUE ' PIC X(33).
1981 05 VALUE ' EO ' PIC X(33). UNIMPLEMENTED
1982 05 VALUE ' EOL ' PIC X(33).
1983 05 VALUE ' EOP ' PIC X(33).
1984 05 VALUE ' EOS ' PIC X(33).
1985 05 VALUE ' EQUAL ' PIC X(33).
1986 05 VALUE 'KEQUALS ' PIC X(33).
1987 05 VALUE ' ERASE ' PIC X(33).
1988 05 VALUE ' ERROR ' PIC X(33).
1989 05 VALUE ' ESCAPE ' PIC X(33).
1990 05 VALUE ' ESI ' PIC X(33). OBSOLETE
1991 05 VALUE 'VEVALUATE ' PIC X(33).
1992 05 VALUE ' EXCEPTION ' PIC X(33).
1993 GC1213 05 VALUE 'FEXCEPTION-FILE ' PIC X(33).
1994 GC1213 05 VALUE 'FEXCEPTION-FILE-N ' PIC X(33). UNIMPLEMENTED
1995 GC1213 05 VALUE 'FEXCEPTION-LOCATION ' PIC X(33).
1996 GC1213 05 VALUE 'FEXCEPTION-LOCATION-N ' PIC X(33). UNIMPLEMENTED
1997 05 VALUE ' EXCEPTION-OBJECT ' PIC X(33). UNIMPLEMENTED
1998 GC1213 05 VALUE 'FEXCEPTION-STATEMENT ' PIC X(33).
1999 GC1213 05 VALUE 'FEXCEPTION-STATUS ' PIC X(33).
2000 05 VALUE ' EXCLUSIVE ' PIC X(33).
2001 05 VALUE 'VEXIT ' PIC X(33).
2002 GC1213 05 VALUE 'FEXP ' PIC X(33).
2003 GC1213 05 VALUE 'FEXP10 ' PIC X(33).
2004 05 VALUE ' EXPANDS ' PIC X(33). UNIMPLEMENTED
2005 05 VALUE ' EXTEND ' PIC X(33).
2006 05 VALUE ' EXTERNAL ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 63
2007 GC1213 05 VALUE 'FFACTORIAL ' PIC X(33).
2008 05 VALUE ' FACTORY ' PIC X(33). UNIMPLEMENTED
2009 05 VALUE ' FALSE ' PIC X(33).
2010 05 VALUE 'KFD ' PIC X(33).
2011 05 VALUE 'KFILE ' PIC X(33).
2012 05 VALUE ' FILE-CONTROL ' PIC X(33).
2013 05 VALUE ' FILE-ID ' PIC X(33).
2014 GC1113 05 VALUE ' FILLER ' PIC X(33).
2015 05 VALUE ' FINAL ' PIC X(33).
2016 05 VALUE ' FIRST ' PIC X(33).
2017 GC0712 05 VALUE ' FLOAT-BINARY-128 ' PIC X(33). UNIMPLEMENTED
2018 GC0712 05 VALUE ' FLOAT-BINARY-32 ' PIC X(33). UNIMPLEMENTED
2019 GC0712 05 VALUE ' FLOAT-BINARY-64 ' PIC X(33). UNIMPLEMENTED
2020 05 VALUE ' FLOAT-DECIMAL-16 ' PIC X(33).
2021 05 VALUE ' FLOAT-DECIMAL-34 ' PIC X(33).
2022 05 VALUE ' FLOAT-EXTENDED ' PIC X(33). UNIMPLEMENTED
2023 GC0712 05 VALUE ' FLOAT-INFINITY ' PIC X(33). UNIMPLEMENTED
2024 05 VALUE ' FLOAT-LONG ' PIC X(33).
2025 GC0712 05 VALUE ' FLOAT-NOT-A-NUMBER ' PIC X(33). UNIMPLEMENTED
2026 05 VALUE ' FLOAT-SHORT ' PIC X(33).
2027 05 VALUE ' FOOTING ' PIC X(33).
2028 05 VALUE ' FOR ' PIC X(33).
2029 05 VALUE ' FOREGROUND-COLOR ' PIC X(33).
2030 05 VALUE ' FOREGROUND-COLOUR ' PIC X(33).
2031 GC0711 05 VALUE ' FOREVER ' PIC X(33).
2032 05 VALUE ' FORMAT ' PIC X(33). UNIMPLEMENTED
2033 GC1213 05 VALUE 'FFORMATTED-CURRENT-DATE ' PIC X(33). UNIMPLEMENTED
2034 GC1213 05 VALUE 'FFORMATTED-DATE ' PIC X(33). UNIMPLEMENTED
2035 GC1213 05 VALUE 'FFORMATTED-DATETIME ' PIC X(33). UNIMPLEMENTED
2036 GC1213 05 VALUE 'FFORMATTED-TIME ' PIC X(33). UNIMPLEMENTED
2037 05 VALUE 'MFORMFEED ' PIC X(33).
2038 GC1213 05 VALUE 'FFRACTION-PART ' PIC X(33).
2039 05 VALUE 'VFREE ' PIC X(33).
2040 05 VALUE ' FROM ' PIC X(33).
2041 05 VALUE ' FULL ' PIC X(33).
2042 05 VALUE ' FUNCTION ' PIC X(33).
2043 GC0712 05 VALUE 'KFUNCTION-ID ' PIC X(33).
2044 05 VALUE ' FUNCTION-POINTER ' PIC X(33). UNIMPLEMENTED
2045 05 VALUE 'VGENERATE ' PIC X(33).
2046 05 VALUE ' GET ' PIC X(33). UNIMPLEMENTED
2047 05 VALUE 'KGIVING ' PIC X(33).
2048 05 VALUE ' GLOBAL ' PIC X(33).
2049 05 VALUE 'VGO ' PIC X(33).
2050 05 VALUE 'VGOBACK ' PIC X(33).
2051 05 VALUE ' GREATER ' PIC X(33).
2052 05 VALUE ' GROUP ' PIC X(33).
2053 05 VALUE ' GROUP-USAGE ' PIC X(33). UNIMPLEMENTED
2054 05 VALUE ' HEADING ' PIC X(33).
2055 05 VALUE ' HIGH-VALUE ' PIC X(33).
2056 05 VALUE ' HIGH-VALUES ' PIC X(33).
2057 GC1213 05 VALUE 'FHIGHEST-ALGEBRAIC ' PIC X(33).
2058 05 VALUE ' HIGHLIGHT ' PIC X(33).
2059 05 VALUE ' I-O ' PIC X(33).
2060 05 VALUE ' I-O-CONTROL ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:01 Page 64
2061 05 VALUE 'KID ' PIC X(33).
2062 05 VALUE 'KIDENTIFICATION ' PIC X(33).
2063 05 VALUE 'VIF ' PIC X(33).
2064 05 VALUE ' IGNORE ' PIC X(33).
2065 05 VALUE ' IGNORING ' PIC X(33).
2066 05 VALUE ' IMPLEMENTS ' PIC X(33). UNIMPLEMENTED
2067 05 VALUE ' IN ' PIC X(33).
2068 05 VALUE ' INDEX ' PIC X(33).
2069 05 VALUE 'KINDEXED ' PIC X(33).
2070 05 VALUE ' INDICATE ' PIC X(33).
2071 05 VALUE ' INDIRECT ' PIC X(33). UNIMPLEMENTED
2072 05 VALUE ' INHERITS ' PIC X(33). UNIMPLEMENTED
2073 05 VALUE ' INITIAL ' PIC X(33).
2074 05 VALUE 'VINITIALISE ' PIC X(33).
2075 05 VALUE ' INITIALISED ' PIC X(33).
2076 05 VALUE 'VINITIALIZE ' PIC X(33).
2077 05 VALUE ' INITIALIZED ' PIC X(33).
2078 05 VALUE 'VINITIATE ' PIC X(33).
2079 05 VALUE ' INPUT ' PIC X(33).
2080 05 VALUE 'KINPUT-OUTPUT ' PIC X(33).
2081 05 VALUE 'VINSPECT ' PIC X(33).
2082 05 VALUE ' INSTALLATION ' PIC X(33). OBSOLETE
2083 GC1213 05 VALUE 'FINTEGER ' PIC X(33).
2084 GC1213 05 VALUE 'FINTEGER-OF-BOOLEAN ' PIC X(33). UNIMPLEMENTED
2085 GC1213 05 VALUE 'FINTEGER-OF-DATE ' PIC X(33).
2086 GC1213 05 VALUE 'FINTEGER-OF-DAY ' PIC X(33).
2087 GC1213 05 VALUE 'FINTEGER-OF-FORMATTED-DATE ' PIC X(33). UNIMPLEMENTED
2088 GC1213 05 VALUE 'FINTEGER-PART ' PIC X(33).
2089 05 VALUE ' INTERFACE ' PIC X(33). UNIMPLEMENTED
2090 05 VALUE ' INTERFACE-ID ' PIC X(33). UNIMPLEMENTED
2091 05 VALUE ' INTERMEDIATE ' PIC X(33). UNIMPLEMENTED
2092 05 VALUE 'KINTO ' PIC X(33).
2093 05 VALUE ' INTRINSIC ' PIC X(33).
2094 05 VALUE ' INVALID ' PIC X(33).
2095 05 VALUE ' INVOKE ' PIC X(33). UNIMPLEMENTED
2096 05 VALUE ' IS ' PIC X(33).
2097 05 VALUE ' JUST ' PIC X(33).
2098 05 VALUE ' JUSTIFIED ' PIC X(33).
2099 05 VALUE ' KEPT ' PIC X(33).
2100 05 VALUE ' KEY ' PIC X(33).
2101 05 VALUE ' KEYBOARD ' PIC X(33).
2102 05 VALUE ' LABEL ' PIC X(33).
2103 05 VALUE ' LAST ' PIC X(33).
2104 05 VALUE ' LC_ALL ' PIC X(33). UNIMPLEMENTED
2105 05 VALUE ' LC_COLLATE ' PIC X(33). UNIMPLEMENTED
2106 05 VALUE ' LC_CTYPE ' PIC X(33). UNIMPLEMENTED
2107 05 VALUE ' LC_MESSAGES ' PIC X(33). UNIMPLEMENTED
2108 05 VALUE ' LC_MONETARY ' PIC X(33). UNIMPLEMENTED
2109 05 VALUE ' LC_NUMERIC ' PIC X(33). UNIMPLEMENTED
2110 05 VALUE ' LC_TIME ' PIC X(33). UNIMPLEMENTED
2111 05 VALUE ' LEADING ' PIC X(33).
2112 05 VALUE ' LEFT ' PIC X(33).
2113 05 VALUE ' LEFT-JUSTIFY ' PIC X(33). UNIMPLEMENTED
2114 05 VALUE ' LEFTLINE ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 65
2115 GC1213 05 VALUE 'FLENGTH ' PIC X(33).
2116 GC1213 05 VALUE 'FLENGTH-AN ' PIC X(33).
2117 05 VALUE ' LENGTH-CHECK ' PIC X(33).
2118 05 VALUE ' LESS ' PIC X(33).
2119 05 VALUE ' LIMIT ' PIC X(33).
2120 05 VALUE ' LIMITS ' PIC X(33).
2121 05 VALUE ' LINAGE ' PIC X(33).
2122 05 VALUE 'ILINAGE-COUNTER ' PIC X(33).
2123 05 VALUE ' LINE ' PIC X(33).
2124 GC1213 05 VALUE 'ILINE-COUNTER ' PIC X(33).
2125 05 VALUE ' LINES ' PIC X(33).
2126 05 VALUE 'KLINKAGE ' PIC X(33).
2127 05 VALUE 'KLOCAL-STORAGE ' PIC X(33).
2128 05 VALUE ' LOCALE ' PIC X(33).
2129 GC1213 05 VALUE 'FLOCALE-COMPARE ' PIC X(33).
2130 GC1213 05 VALUE 'FLOCALE-DATE ' PIC X(33).
2131 GC1213 05 VALUE 'FLOCALE-TIME ' PIC X(33).
2132 GC1213 05 VALUE 'FLOCALE-TIME-FROM-SECONDS ' PIC X(33).
2133 05 VALUE ' LOCK ' PIC X(33).
2134 GC1213 05 VALUE 'FLOG ' PIC X(33).
2135 GC1213 05 VALUE 'FLOG10 ' PIC X(33).
2136 05 VALUE ' LOW-VALUE ' PIC X(33).
2137 05 VALUE ' LOW-VALUES ' PIC X(33).
2138 05 VALUE ' LOWER ' PIC X(33).
2139 GC1213 05 VALUE 'FLOWER-CASE ' PIC X(33).
2140 GC1213 05 VALUE 'FLOWEST-ALGEBRAIC ' PIC X(33).
2141 05 VALUE ' LOWLIGHT ' PIC X(33).
2142 05 VALUE ' MANUAL ' PIC X(33).
2143 GC1213 05 VALUE 'FMAX ' PIC X(33).
2144 GC1213 05 VALUE 'FMEAN ' PIC X(33).
2145 GC1213 05 VALUE 'FMEDIAN ' PIC X(33).
2146 05 VALUE ' MEMORY ' PIC X(33).
2147 05 VALUE 'VMERGE ' PIC X(33).
2148 05 VALUE ' MESSAGE ' PIC X(33). OBSOLETE
2149 05 VALUE ' METHOD ' PIC X(33). UNIMPLEMENTED
2150 05 VALUE ' METHOD-ID ' PIC X(33). UNIMPLEMENTED
2151 GC1213 05 VALUE 'FMIDRANGE ' PIC X(33).
2152 GC1213 05 VALUE 'FMIN ' PIC X(33).
2153 05 VALUE ' MINUS ' PIC X(33).
2154 GC1213 05 VALUE 'FMOD ' PIC X(33).
2155 05 VALUE ' MODE ' PIC X(33).
2156 GC1213 05 VALUE 'FMODULE-CALLER-ID ' PIC X(33).
2157 GC1213 05 VALUE 'FMODULE-DATE ' PIC X(33).
2158 GC1213 05 VALUE 'FMODULE-FORMATTED-DATE ' PIC X(33).
2159 GC1213 05 VALUE 'FMODULE-ID ' PIC X(33).
2160 GC1213 05 VALUE 'FMODULE-PATH ' PIC X(33).
2161 GC1213 05 VALUE 'FMODULE-SOURCE ' PIC X(33).
2162 GC1213 05 VALUE 'FMODULE-TIME ' PIC X(33).
2163 GC1213 05 VALUE 'FMONETARY-DECIMAL-POINT ' PIC X(33).
2164 GC1213 05 VALUE 'FMONETARY-THOUSANDS-SEPARATOR ' PIC X(33).
2165 05 VALUE 'VMOVE ' PIC X(33).
2166 05 VALUE ' MULTIPLE ' PIC X(33).
2167 05 VALUE 'VMULTIPLY ' PIC X(33).
2168 GC0711 05 VALUE ' NAME ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 66
2169 05 VALUE ' NATIONAL ' PIC X(33).
2170 05 VALUE ' NATIONAL-EDITED ' PIC X(33).
2171 GC1213 05 VALUE 'FNATIONAL-OF ' PIC X(33). UNIMPLEMENTED
2172 05 VALUE ' NATIVE ' PIC X(33).
2173 05 VALUE ' NEAREST-AWAY-FROM-ZERO ' PIC X(33).
2174 05 VALUE ' NEAREST-EVEN ' PIC X(33).
2175 05 VALUE ' NEAREST-TOWARD-ZERO ' PIC X(33).
2176 05 VALUE ' NEGATIVE ' PIC X(33).
2177 05 VALUE ' NESTED ' PIC X(33). UNIMPLEMENTED
2178 05 VALUE 'VNEXT ' PIC X(33).
2179 05 VALUE ' NO ' PIC X(33).
2180 05 VALUE ' NO-ECHO ' PIC X(33).
2181 05 VALUE ' NONE ' PIC X(33). UNIMPLEMENTED
2182 05 VALUE ' NORMAL ' PIC X(33).
2183 05 VALUE ' NOT ' PIC X(33).
2184 05 VALUE ' NULL ' PIC X(33).
2185 05 VALUE ' NULLS ' PIC X(33).
2186 05 VALUE ' NUMBER ' PIC X(33).
2187 05 VALUE 'INUMBER-OF-CALL-PARAMETERS ' PIC X(33).
2188 05 VALUE ' NUMBERS ' PIC X(33).
2189 05 VALUE ' NUMERIC ' PIC X(33).
2190 GC1213 05 VALUE 'FNUMERIC-DECIMAL-POINT ' PIC X(33).
2191 05 VALUE ' NUMERIC-EDITED ' PIC X(33).
2192 GC1213 05 VALUE 'FNUMERIC-THOUSANDS-SEPARATOR ' PIC X(33).
2193 GC1213 05 VALUE 'FNUMVAL ' PIC X(33).
2194 GC1213 05 VALUE 'FNUMVAL-C ' PIC X(33).
2195 GC1213 05 VALUE 'FNUMVAL-F ' PIC X(33).
2196 05 VALUE ' OBJECT ' PIC X(33). UNIMPLEMENTED
2197 05 VALUE ' OBJECT-COMPUTER ' PIC X(33).
2198 05 VALUE ' OBJECT-REFERENCE ' PIC X(33). UNIMPLEMENTED
2199 05 VALUE ' OCCURS ' PIC X(33).
2200 05 VALUE ' OF ' PIC X(33).
2201 05 VALUE ' OFF ' PIC X(33).
2202 05 VALUE ' OMITTED ' PIC X(33).
2203 05 VALUE ' ON ' PIC X(33).
2204 05 VALUE ' ONLY ' PIC X(33).
2205 05 VALUE 'VOPEN ' PIC X(33).
2206 05 VALUE ' OPTIONAL ' PIC X(33).
2207 05 VALUE ' OPTIONS ' PIC X(33). UNIMPLEMENTED
2208 05 VALUE ' OR ' PIC X(33).
2209 GC1213 05 VALUE 'FORD ' PIC X(33).
2210 GC1213 05 VALUE 'FORD-MAX ' PIC X(33).
2211 GC1213 05 VALUE 'FORD-MIN ' PIC X(33).
2212 05 VALUE ' ORDER ' PIC X(33).
2213 05 VALUE ' ORGANISATION ' PIC X(33).
2214 05 VALUE ' ORGANIZATION ' PIC X(33).
2215 05 VALUE ' OTHER ' PIC X(33).
2216 05 VALUE ' OUTPUT ' PIC X(33).
2217 05 VALUE ' OVERFLOW ' PIC X(33).
2218 05 VALUE ' OVERLINE ' PIC X(33).
2219 05 VALUE ' OVERRIDE ' PIC X(33).
2220 05 VALUE ' PACKED-DECIMAL ' PIC X(33).
2221 05 VALUE ' PADDING ' PIC X(33).
2222 05 VALUE ' PAGE ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 67
2223 GC1213 05 VALUE 'IPAGE-COUNTER ' PIC X(33).
2224 05 VALUE ' PARAGRAPH ' PIC X(33).
2225 05 VALUE 'VPERFORM ' PIC X(33).
2226 05 VALUE ' PF ' PIC X(33).
2227 05 VALUE ' PH ' PIC X(33).
2228 GC1213 05 VALUE 'FPI ' PIC X(33).
2229 05 VALUE 'KPIC ' PIC X(33).
2230 05 VALUE 'KPICTURE ' PIC X(33).
2231 05 VALUE ' PLUS ' PIC X(33).
2232 05 VALUE 'KPOINTER ' PIC X(33).
2233 05 VALUE ' POSITION ' PIC X(33).
2234 05 VALUE ' POSITIVE ' PIC X(33).
2235 05 VALUE ' PREFIXED ' PIC X(33). UNIMPLEMENTED
2236 05 VALUE ' PRESENT ' PIC X(33).
2237 GC1213 05 VALUE 'FPRESENT-VALUE ' PIC X(33).
2238 05 VALUE ' PREVIOUS ' PIC X(33).
2239 05 VALUE 'MPRINTER ' PIC X(33).
2240 05 VALUE ' PRINTING ' PIC X(33).
2241 05 VALUE 'KPROCEDURE ' PIC X(33).
2242 05 VALUE ' PROCEDURE-POINTER ' PIC X(33).
2243 05 VALUE ' PROCEDURES ' PIC X(33).
2244 05 VALUE ' PROCEED ' PIC X(33).
2245 05 VALUE ' PROGRAM ' PIC X(33).
2246 05 VALUE 'KPROGRAM-ID ' PIC X(33).
2247 05 VALUE ' PROGRAM-POINTER ' PIC X(33).
2248 05 VALUE ' PROHIBITED ' PIC X(33).
2249 05 VALUE ' PROMPT ' PIC X(33).
2250 05 VALUE ' PROPERTY ' PIC X(33). UNIMPLEMENTED
2251 05 VALUE ' PROTOTYPE ' PIC X(33). UNIMPLEMENTED
2252 05 VALUE ' PURGE ' PIC X(33). OBSOLETE
2253 05 VALUE ' QUEUE ' PIC X(33). OBSOLETE
2254 05 VALUE ' QUOTE ' PIC X(33).
2255 05 VALUE ' QUOTES ' PIC X(33).
2256 05 VALUE ' RAISE ' PIC X(33). UNIMPLEMENTED
2257 05 VALUE ' RAISING ' PIC X(33). UNIMPLEMENTED
2258 GC1213 05 VALUE 'FRANDOM ' PIC X(33).
2259 GC1213 05 VALUE 'FRANGE ' PIC X(33).
2260 GC1213 05 VALUE 'KRD ' PIC X(33).
2261 05 VALUE 'VREAD ' PIC X(33).
2262 05 VALUE 'VREADY ' PIC X(33).
2263 05 VALUE 'VRECEIVE ' PIC X(33). OBSOLETE
2264 05 VALUE ' RECORD ' PIC X(33).
2265 05 VALUE ' RECORDING ' PIC X(33).
2266 05 VALUE ' RECORDS ' PIC X(33).
2267 05 VALUE ' RECURSIVE ' PIC X(33).
2268 05 VALUE 'KREDEFINES ' PIC X(33).
2269 05 VALUE ' REEL ' PIC X(33).
2270 GC0712 05 VALUE 'AREFERENCE ' PIC X(33).
2271 05 VALUE ' REFERENCES ' PIC X(33).
2272 05 VALUE ' RELATION ' PIC X(33). UNIMPLEMENTED
2273 05 VALUE ' RELATIVE ' PIC X(33).
2274 05 VALUE 'VRELEASE ' PIC X(33).
2275 GC1213 05 VALUE 'FREM ' PIC X(33).
2276 05 VALUE ' REMAINDER ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 68
2277 05 VALUE ' REMARKS ' PIC X(33). OBSOLETE
2278 05 VALUE ' REMOVAL ' PIC X(33).
2279 05 VALUE 'KRENAMES ' PIC X(33).
2280 05 VALUE ' REPLACE ' PIC X(33).
2281 05 VALUE 'KREPLACING ' PIC X(33).
2282 05 VALUE 'KREPORT ' PIC X(33).
2283 05 VALUE ' REPORTING ' PIC X(33).
2284 05 VALUE ' REPORTS ' PIC X(33).
2285 05 VALUE ' REPOSITORY ' PIC X(33).
2286 05 VALUE ' REQUIRED ' PIC X(33).
2287 05 VALUE ' RESERVE ' PIC X(33).
2288 05 VALUE 'VRESET ' PIC X(33).
2289 05 VALUE ' RESUME ' PIC X(33). UNIMPLEMENTED
2290 05 VALUE ' RETRY ' PIC X(33). UNIMPLEMENTED
2291 05 VALUE 'VRETURN ' PIC X(33).
2292 05 VALUE 'IRETURN-CODE ' PIC X(33).
2293 05 VALUE 'KRETURNING ' PIC X(33).
2294 GC1213 05 VALUE 'FREVERSE ' PIC X(33).
2295 05 VALUE ' REVERSE-VIDEO ' PIC X(33).
2296 05 VALUE ' REVERSED ' PIC X(33).
2297 05 VALUE ' REWIND ' PIC X(33).
2298 05 VALUE 'VREWRITE ' PIC X(33).
2299 05 VALUE ' RF ' PIC X(33).
2300 05 VALUE ' RH ' PIC X(33).
2301 05 VALUE ' RIGHT ' PIC X(33).
2302 05 VALUE ' RIGHT-JUSTIFY ' PIC X(33). UNIMPLEMENTED
2303 05 VALUE 'VROLLBACK ' PIC X(33).
2304 05 VALUE ' ROUNDED ' PIC X(33).
2305 05 VALUE ' ROUNDING ' PIC X(33). UNIMPLEMENTED
2306 05 VALUE ' RUN ' PIC X(33).
2307 05 VALUE ' SAME ' PIC X(33).
2308 05 VALUE 'KSCREEN ' PIC X(33).
2309 05 VALUE ' SCROLL ' PIC X(33).
2310 05 VALUE 'KSD ' PIC X(33).
2311 05 VALUE 'VSEARCH ' PIC X(33).
2312 05 VALUE ' SECONDS ' PIC X(33). UNIMPLEMENTED
2313 GC1213 05 VALUE 'FSECONDS-FROM-FORMATTED-TIME ' PIC X(33).
2314 GC1213 05 VALUE 'FSECONDS-PAST-MIDNIGHT ' PIC X(33).
2315 05 VALUE 'KSECTION ' PIC X(33).
2316 05 VALUE ' SECURE ' PIC X(33).
2317 05 VALUE ' SECURITY ' PIC X(33). OBSOLETE
2318 05 VALUE ' SEGMENT ' PIC X(33). OBSOLETE
2319 05 VALUE ' SEGMENT-LIMIT ' PIC X(33).
2320 05 VALUE ' SELECT ' PIC X(33).
2321 05 VALUE ' SELF ' PIC X(33). UNIMPLEMENTED
2322 05 VALUE 'VSEND ' PIC X(33). OBSOLETE
2323 05 VALUE ' SENTENCE ' PIC X(33).
2324 05 VALUE ' SEPARATE ' PIC X(33).
2325 05 VALUE ' SEQUENCE ' PIC X(33).
2326 05 VALUE ' SEQUENTIAL ' PIC X(33).
2327 05 VALUE 'VSET ' PIC X(33).
2328 05 VALUE ' SHARING ' PIC X(33).
2329 GC1213 05 VALUE 'FSIGN ' PIC X(33).
2330 05 VALUE ' SIGNED ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 69
2331 05 VALUE ' SIGNED-INT ' PIC X(33).
2332 05 VALUE ' SIGNED-LONG ' PIC X(33).
2333 05 VALUE ' SIGNED-SHORT ' PIC X(33).
2334 GC1213 05 VALUE 'FSIN ' PIC X(33).
2335 05 VALUE ' SIZE ' PIC X(33).
2336 05 VALUE 'VSORT ' PIC X(33).
2337 05 VALUE ' SORT-MERGE ' PIC X(33).
2338 05 VALUE 'ISORT-RETURN ' PIC X(33).
2339 05 VALUE ' SOURCE ' PIC X(33).
2340 05 VALUE ' SOURCE-COMPUTER ' PIC X(33).
2341 05 VALUE ' SOURCES ' PIC X(33). UNIMPLEMENTED
2342 05 VALUE ' SPACE ' PIC X(33).
2343 05 VALUE ' SPACE-FILL ' PIC X(33). UNIMPLEMENTED
2344 05 VALUE ' SPACES ' PIC X(33).
2345 05 VALUE ' SPECIAL-NAMES ' PIC X(33).
2346 GC1213 05 VALUE 'FSQRT ' PIC X(33).
2347 05 VALUE ' STANDARD ' PIC X(33).
2348 05 VALUE ' STANDARD-1 ' PIC X(33).
2349 05 VALUE ' STANDARD-2 ' PIC X(33).
2350 05 VALUE ' STANDARD-BINARY ' PIC X(33). UNIMPLEMENTED
2351 GC1213 05 VALUE 'FSTANDARD-COMPARE ' PIC X(33). UNIMPLEMENTED
2352 05 VALUE ' STANDARD-DECIMAL ' PIC X(33). UNIMPLEMENTED
2353 GC1213 05 VALUE 'FSTANDARD-DEVIATION ' PIC X(33).
2354 05 VALUE 'VSTART ' PIC X(33).
2355 05 VALUE ' STATEMENT ' PIC X(33). UNIMPLEMENTED
2356 05 VALUE ' STATIC ' PIC X(33).
2357 05 VALUE ' STATUS ' PIC X(33).
2358 05 VALUE ' STDCALL ' PIC X(33).
2359 05 VALUE 'MSTDERR ' PIC X(33).
2360 05 VALUE 'MSTDIN ' PIC X(33).
2361 05 VALUE 'MSTDOUT ' PIC X(33).
2362 05 VALUE ' STEP ' PIC X(33).
2363 05 VALUE 'VSTOP ' PIC X(33).
2364 GC1213 05 VALUE 'FSTORED-CHAR-LENGTH ' PIC X(33).
2365 05 VALUE 'VSTRING ' PIC X(33).
2366 05 VALUE ' STRONG ' PIC X(33). UNIMPLEMENTED
2367 05 VALUE ' SUB-QUEUE-1 ' PIC X(33). OBSOLETE
2368 05 VALUE ' SUB-QUEUE-2 ' PIC X(33). OBSOLETE
2369 05 VALUE ' SUB-QUEUE-3 ' PIC X(33). OBSOLETE
2370 GC1213 05 VALUE 'FSUBSTITUTE ' PIC X(33).
2371 GC1213 05 VALUE 'FSUBSTITUTE-CASE ' PIC X(33).
2372 05 VALUE 'VSUBTRACT ' PIC X(33).
2373 GC1213 05 VALUE 'FSUM ' PIC X(33).
2374 05 VALUE ' SUPER ' PIC X(33). UNIMPLEMENTED
2375 05 VALUE 'VSUPPRESS ' PIC X(33).
2376 05 VALUE 'MSW0 ' PIC X(33).
2377 05 VALUE 'MSW1 ' PIC X(33).
2378 05 VALUE 'MSW10 ' PIC X(33).
2379 05 VALUE 'MSW11 ' PIC X(33).
2380 05 VALUE 'MSW12 ' PIC X(33).
2381 05 VALUE 'MSW13 ' PIC X(33).
2382 05 VALUE 'MSW14 ' PIC X(33).
2383 05 VALUE 'MSW15 ' PIC X(33).
2384 05 VALUE 'MSW2 ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:02 Page 70
2385 05 VALUE 'MSW3 ' PIC X(33).
2386 05 VALUE 'MSW4 ' PIC X(33).
2387 05 VALUE 'MSW5 ' PIC X(33).
2388 05 VALUE 'MSW6 ' PIC X(33).
2389 05 VALUE 'MSW7 ' PIC X(33).
2390 05 VALUE 'MSW8 ' PIC X(33).
2391 05 VALUE 'MSW9 ' PIC X(33).
2392 05 VALUE 'MSWITCH-0 ' PIC X(33).
2393 05 VALUE 'MSWITCH-1 ' PIC X(33).
2394 05 VALUE 'MSWITCH-10 ' PIC X(33).
2395 05 VALUE 'MSWITCH-11 ' PIC X(33).
2396 05 VALUE 'MSWITCH-12 ' PIC X(33).
2397 05 VALUE 'MSWITCH-13 ' PIC X(33).
2398 05 VALUE 'MSWITCH-14 ' PIC X(33).
2399 05 VALUE 'MSWITCH-15 ' PIC X(33).
2400 05 VALUE 'MSWITCH-2 ' PIC X(33).
2401 05 VALUE 'MSWITCH-3 ' PIC X(33).
2402 05 VALUE 'MSWITCH-4 ' PIC X(33).
2403 05 VALUE 'MSWITCH-5 ' PIC X(33).
2404 05 VALUE 'MSWITCH-6 ' PIC X(33).
2405 05 VALUE 'MSWITCH-7 ' PIC X(33).
2406 05 VALUE 'MSWITCH-8 ' PIC X(33).
2407 05 VALUE 'MSWITCH-9 ' PIC X(33).
2408 05 VALUE ' SYMBOL ' PIC X(33). UNIMPLEMENTED
2409 05 VALUE ' SYMBOLIC ' PIC X(33).
2410 05 VALUE ' SYNC ' PIC X(33).
2411 05 VALUE ' SYNCHRONISED ' PIC X(33).
2412 05 VALUE ' SYNCHRONIZED ' PIC X(33).
2413 05 VALUE 'MSYSERR ' PIC X(33).
2414 05 VALUE 'MSYSIN ' PIC X(33).
2415 05 VALUE 'MSYSIPT ' PIC X(33).
2416 05 VALUE 'MSYSLIST ' PIC X(33).
2417 05 VALUE 'MSYSLST ' PIC X(33).
2418 05 VALUE 'MSYSOUT ' PIC X(33).
2419 05 VALUE ' SYSTEM-DEFAULT ' PIC X(33).
2420 05 VALUE ' TABLE ' PIC X(33). UNIMPLEMENTED
2421 05 VALUE 'KTALLYING ' PIC X(33).
2422 GC1213 05 VALUE 'FTAN ' PIC X(33).
2423 05 VALUE ' TAPE ' PIC X(33).
2424 05 VALUE ' TERMINAL ' PIC X(33). OBSOLETE
2425 05 VALUE 'VTERMINATE ' PIC X(33).
2426 05 VALUE ' TEST ' PIC X(33).
2427 GC1213 05 VALUE 'FTEST-DATE-YYYYMMDD ' PIC X(33).
2428 GC1213 05 VALUE 'FTEST-DAY-YYYYDDD ' PIC X(33).
2429 GC1213 05 VALUE 'FTEST-FORMATTED-DATETIME ' PIC X(33). UNIMPLEMENTED
2430 GC1213 05 VALUE 'FTEST-NUMVAL ' PIC X(33).
2431 GC1213 05 VALUE 'FTEST-NUMVAL-C ' PIC X(33).
2432 GC1213 05 VALUE 'FTEST-NUMVAL-F ' PIC X(33).
2433 05 VALUE ' TEXT ' PIC X(33). OBSOLETE
2434 05 VALUE ' THAN ' PIC X(33).
2435 05 VALUE ' THEN ' PIC X(33).
2436 05 VALUE ' THROUGH ' PIC X(33).
2437 05 VALUE ' THRU ' PIC X(33).
2438 05 VALUE ' TIME ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 71
2439 GC0711 05 VALUE ' TIME-OUT ' PIC X(33).
2440 GC0711 05 VALUE ' TIMEOUT ' PIC X(33).
2441 05 VALUE ' TIMES ' PIC X(33).
2442 05 VALUE 'KTO ' PIC X(33).
2443 05 VALUE ' TOP ' PIC X(33).
2444 05 VALUE ' TOWARD-GREATER ' PIC X(33).
2445 05 VALUE ' TOWARD-LESSER ' PIC X(33).
2446 05 VALUE ' TRAILING ' PIC X(33).
2447 05 VALUE ' TRAILING-SIGN ' PIC X(33). UNIMPLEMENTED
2448 05 VALUE 'VTRANSFORM ' PIC X(33).
2449 GC1213 05 VALUE 'FTRIM ' PIC X(33).
2450 05 VALUE ' TRUE ' PIC X(33).
2451 05 VALUE ' TRUNCATION ' PIC X(33).
2452 05 VALUE ' TYPE ' PIC X(33).
2453 05 VALUE ' TYPEDEF ' PIC X(33). UNIMPLEMENTED
2454 05 VALUE ' UCS-4 ' PIC X(33). UNIMPLEMENTED
2455 05 VALUE ' UNDERLINE ' PIC X(33).
2456 05 VALUE ' UNIT ' PIC X(33).
2457 05 VALUE ' UNIVERSAL ' PIC X(33). UNIMPLEMENTED
2458 05 VALUE 'VUNLOCK ' PIC X(33).
2459 05 VALUE ' UNSIGNED ' PIC X(33).
2460 05 VALUE ' UNSIGNED-INT ' PIC X(33).
2461 05 VALUE ' UNSIGNED-LONG ' PIC X(33).
2462 05 VALUE ' UNSIGNED-SHORT ' PIC X(33).
2463 05 VALUE 'VUNSTRING ' PIC X(33).
2464 05 VALUE ' UNTIL ' PIC X(33).
2465 05 VALUE 'KUP ' PIC X(33).
2466 05 VALUE ' UPDATE ' PIC X(33).
2467 05 VALUE ' UPON ' PIC X(33).
2468 05 VALUE ' UPPER ' PIC X(33).
2469 GC1213 05 VALUE 'FUPPER-CASE ' PIC X(33).
2470 05 VALUE ' USAGE ' PIC X(33).
2471 05 VALUE 'VUSE ' PIC X(33).
2472 GC0711 05 VALUE ' USER ' PIC X(33).
2473 05 VALUE ' USER-DEFAULT ' PIC X(33).
2474 05 VALUE 'KUSING ' PIC X(33).
2475 05 VALUE ' UTF-16 ' PIC X(33). UNIMPLEMENTED
2476 05 VALUE ' UTF-8 ' PIC X(33). UNIMPLEMENTED
2477 05 VALUE ' VAL-STATUS ' PIC X(33). UNIMPLEMENTED
2478 05 VALUE ' VALID ' PIC X(33). UNIMPLEMENTED
2479 05 VALUE ' VALIDATE ' PIC X(33). UNIMPLEMENTED
2480 05 VALUE ' VALIDATE-STATUS ' PIC X(33). UNIMPLEMENTED
2481 GC0712 05 VALUE 'AVALUE ' PIC X(33).
2482 05 VALUE ' VALUES ' PIC X(33).
2483 GC1213 05 VALUE 'FVARIANCE ' PIC X(33).
2484 05 VALUE 'KVARYING ' PIC X(33).
2485 05 VALUE ' VDISABLE ' PIC X(33). UNIMPLEMENTED
2486 05 VALUE ' WAIT ' PIC X(33).
2487 05 VALUE 'VWHEN ' PIC X(33).
2488 GC1213 05 VALUE 'FWHEN-COMPILED ' PIC X(33).
2489 05 VALUE ' WITH ' PIC X(33).
2490 05 VALUE ' WORDS ' PIC X(33).
2491 05 VALUE 'KWORKING-STORAGE ' PIC X(33).
2492 05 VALUE 'VWRITE ' PIC X(33).
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 72
2493 GC1213 05 VALUE 'FYEAR-TO-YYYY ' PIC X(33).
2494 05 VALUE ' YYYYDDD ' PIC X(33).
2495 05 VALUE ' YYYYMMDD ' PIC X(33).
2496 05 VALUE ' ZERO ' PIC X(33).
2497 05 VALUE ' ZERO-FILL ' PIC X(33). UNIMPLEMENTED
2498 05 VALUE ' ZEROES ' PIC X(33).
2499 05 VALUE ' ZEROS ' PIC X(33).
2500 01 WS-Reserved-Word-Table-TXT REDEFINES WS-Reserved-Words-TXT.
2501 GC1113 05 WS-Reserved-Word-TXT OCCURS 754 TIMES
2502 ASCENDING KEY
2503 WS-RW-Word-TXT
2504 INDEXED WS-RW-IDX.
2505 10 WS-RW-Type-CD PIC X(1).
2506 10 WS-RW-Word-TXT PIC X(32).
2507
2508 01 WS-Runtime-Switches.
2509 GC0710 05 WS-RS-Duplicate-CHR PIC X(1).
2510 05 WS-RS-In-Which-Pgm-CHR PIC X(1).
2511 88 WS-RS-In-Main-Module-BOOL VALUE 'M'.
2512 88 WS-RS-In-Copybook-BOOL VALUE 'C'.
2513 05 WS-RS-Last-Token-Ended-Sent-CHR PIC X(1).
2514 05 WS-RS-Processing-PICTURE-CHR PIC X(1).
2515 05 WS-RS-Token-Ended-Sentence-CHR PIC X(1).
2516 GC0710 05 WS-RS-Verb-Has-Been-Found-CHR PIC X(1).
2517
2518 01 WS-Saved-Section-TXT PIC X(15).
2519
2520 GC1213 01 WS-Src-Dashes-TXT.
2521 GC0712 05 VALUE '======' PIC X(7).
2522 GC0712 05 VALUE ALL '=' PIC X(128).
2523
2524 01 WS-Src-Detail-Line-TXT.
2525 05 WS-SDL-Line-NUM PIC ZZZZZ9.
2526 05 FILLER PIC X(1).
2527 05 WS-SDL-Statement-TXT PIC X(256).
2528
2529 GC1213 01 WS-Src-Hold-TXT PIC X(256).
2530
2531 01 WS-Src-Line-NUM PIC 9(6).
2532
2533 GC1213 01 WS-Src-Lines-NUM USAGE BINARY-LONG.
2534
2535 01 WS-Src-SUB USAGE BINARY-LONG.
2536
2537 01 WS-Tally-QTY USAGE BINARY-LONG.
2538
2539 01 WS-Temp-10-Chars-TXT PIC X(10).
2540
2541 01 WS-Temp-32-Chars-1-TXT PIC X(32).
2542
2543 GC0711 01 WS-Temp-32-Chars-2-TXT PIC X(32).
2544
2545 GC0711 01 WS-Temp-32-Chars-3-TXT PIC X(32).
2546
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 73
2547 GC0712 01 WS-Temp-65-Chars-TXT PIC X(65).
2548
2549 01 WS-Temp-256-Chars-TXT PIC X(256).
2550
2551 01 WS-Today-DT PIC 9(8).
2552
2553 01 WS-Token-Curr-TXT PIC X(32).
2554
2555 01 WS-Token-Curr-Uc-TXT PIC X(32).
2556
2557 01 WS-Token-Prev-TXT PIC X(32).
2558
2559 01 WS-Token-Search-TXT PIC X(32).
2560
2561 01 WS-Token-Type-CD PIC X(1).
2562 GC0712 88 WS-TT-Token-Is-Argtype-BOOL VALUE 'A'.
2563 88 WS-TT-Token-Is-EOF-BOOL VALUE HIGH-VALUES.
2564 GC1213 88 WS-TT-Token-Is-Function-BOOL VALUE 'F'.
2565 88 WS-TT-Token-Is-Identifier-BOOL VALUE 'I'.
2566 GC0712 88 WS-TT-Token-Is-Keyword-BOOL VALUE 'K', 'V', 'A'.
2567 88 WS-TT-Token-Is-Lit-Alpha-BOOL VALUE 'L'.
2568 88 WS-TT-Token-Is-Lit-Number-BOOL VALUE 'N'.
2569 88 WS-TT-Token-Is-Verb-BOOL VALUE 'V'.
2570 GC1213 88 WS-TT-Token-Is-Reserved-Wd-BOOL VALUE ' ', 'F'.
2571
2572 01 WS-Usernames-QTY USAGE BINARY-LONG.
2573
2574 01 WS-Version-TXT PIC X(23).
2575
2576 01 WS-Xref-Detail-Line-TXT.
2577 05 WS-XDL-Prog-ID-TXT PIC X(15).
2578 05 FILLER PIC X(1).
2579 05 WS-XDL-Token-TXT PIC X(32).
2580 05 FILLER PIC X(1).
2581 05 WS-XDL-Def-Line-NUM PIC ZZZZZ9.
2582 05 FILLER PIC X(1).
2583 05 WS-XDL-Section-TXT PIC X(15).
2584 05 FILLER PIC X(1).
2585 05 WS-XDL-Reference-TXT OCCURS 8 TIMES.
2586 10 WS-XDL-Ref-Line-NUM PIC ZZZZZ9.
2587 10 WS-XDL-Ref-Flag-CHR PIC X(1).
2588 10 FILLER PIC X(1).
2589
2590 GC1213 01 WS-Xref-Lines-Per-Rec-NUM PIC 9(1).
2591
2592 LINKAGE SECTION.
2593 GC0712 01 L-Listing-Fn-TXT PIC X(256).
2594
2595 01 L-Src-Fn-TXT PIC X(256).
2596
2597 GC0712 01 L-OS-Type-CD PIC 9(1).
2598
2599 GC1213 01 L-LPP-NUM USAGE BINARY-LONG.
2600
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 74
2601 GC1213 01 L-LPP-Port-NUM USAGE BINARY-LONG.
2602
2603 GC1213 01 L-Listing-CD PIC 9(1).
2604 /
2605 GC0712 PROCEDURE DIVISION USING L-Listing-Fn-TXT
2606 GC0712 L-Src-Fn-TXT
2607 GC0712 L-OS-Type-CD
2608 GC1213 L-LPP-NUM
2609 GC1213 L-LPP-Port-NUM
2610 GC1213 L-Listing-CD.
2611 000-Main SECTION.
2612 PERFORM 100-Initialization
2613 GC0712 OPEN OUTPUT F-Listing-FILE
2614 GC0712 PERFORM 500-Produce-Source-Listing
2615 GC0712 SORT F-Sort-Work-FILE
2616 GC0712 ASCENDING KEY F-SW-Prog-ID-TXT
2617 GC0712 F-SW-Token-Uc-TXT
2618 GC0712 F-SW-Ref-Line-NUM
2619 GC0712 INPUT PROCEDURE 300-Tokenize-Source
2620 GC0712 OUTPUT PROCEDURE 400-Produce-Xref-Listing
2621 GC0712 CLOSE F-Listing-FILE
2622 GOBACK
2623 .
2624 /
2625 *>***************************************************************
2626 *> Perform all program-wide initialization operations **
2627 *>***************************************************************
2628 100-Initialization SECTION.
2629 GC1213 MOVE 0 TO WS-Page-NUM
2630 GC1213 MOVE 'N' TO WS-Suppress-FF-CHR
2631 GC1213 MOVE SPACES TO WS-Copyright-TXT
2632 GC1213 STRING 'GCic for ' DELIMITED SIZE
2633 GC1213 WS-OS-Type-TXT(L-OS-Type-CD) DELIMITED SPACE
2634 VC0820 ' Copyright (C) 2009-' DELIMITED SIZE
2635 VC0322 COMP-YEAR DELIMITED SIZE
2636 VC0322 ', Gary L. Cutler, GPL' DELIMITED SIZE
2637 GC1213 INTO WS-Copyright-TXT
2638 VC0811*> See const-set-1.cpy for constants used
2639 VC0811*> MOVE 'GNUCOBOL 3.1.2 06MAR2022' TO WS-Version-TXT
2640 *>
2641 VC0811 move Comp-Vers to WS-Version-TXT.
2642 MOVE TRIM(L-Src-Fn-TXT,Leading) TO L-Src-Fn-TXT
2643 GC1010 PERFORM VARYING WS-I-SUB FROM LENGTH(L-Src-Fn-TXT) BY -1
2644 *> Locate last directory delimiter character so that the filename can be extracted
2645 GC1010 UNTIL L-Src-Fn-TXT(WS-I-SUB:1) = '/' OR '\'
2646 GC1010 OR WS-I-SUB = 0
2647 VC0322 continue
2648 GC1010 END-PERFORM
2649 GC1010 IF WS-I-SUB = 0
2650 GC1010 MOVE UPPER-CASE(L-Src-Fn-TXT) TO WS-Main-Module-Name-TXT
2651 *> No directory delimiter, whole thing is filename
2652 GC1010 ELSE
2653 GC1010 ADD 1 TO WS-I-SUB
2654 GC1010 MOVE UPPER-CASE(L-Src-Fn-TXT(WS-I-SUB:))
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 75
2655 GC1010 TO WS-Main-Module-Name-TXT *> Extract filename
2656 GC1010 END-IF
2657 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
2658 GC1213 MOVE 8 TO WS-Xref-Lines-Per-Rec-NUM
2659 GC1213 ACCEPT WS-Lines-Per-Page-Env-TXT
2660 GC1213 FROM ENVIRONMENT 'GCXREF_LINES'
2661 GC1213 ELSE *> PORTRAIT
2662 GC1213 MOVE 3 TO WS-Xref-Lines-Per-Rec-NUM
2663 GC1213 ACCEPT WS-Lines-Per-Page-Env-TXT
2664 GC1213 FROM ENVIRONMENT 'GCXREF_LINES_PORT'
2665 GC1213 END-IF
2666 INSPECT L-Src-Fn-TXT REPLACING ALL '\' BY '/'
2667 MOVE L-Src-Fn-TXT TO WS-Program-Path-TXT
2668 CALL 'C$JUSTIFY' USING WS-Program-Path-TXT, 'Right'
2669 MOVE LENGTH(TRIM(L-Src-Fn-TXT,Trailing)) TO WS-I-SUB
2670 MOVE 0 TO WS-J-SUB
2671 PERFORM UNTIL L-Src-Fn-TXT(WS-I-SUB:1) = '/'
2672 OR WS-I-SUB = 0
2673 SUBTRACT 1 FROM WS-I-SUB
2674 ADD 1 TO WS-J-SUB
2675 END-PERFORM
2676 UNSTRING L-Src-Fn-TXT((WS-I-SUB + 1):WS-J-SUB)
2677 DELIMITED BY '.'
2678 INTO WS-Filename-TXT
2679 WS-Dummy-TXT
2680 GC1010 STRING
2681 GC1010 TRIM(WS-Filename-TXT,Trailing)
2682 GC1010 '.i'
2683 GC1010 DELIMITED SIZE
2684 GC1010 INTO WS-Expanded-Src-Fn-TXT
2685 GC1010 CALL 'CBL_CHECK_FILE_EXIST' USING WS-Expanded-Src-Fn-TXT
2686 GC1010 WS-Temp-256-Chars-TXT
2687 GC1010 IF RETURN-CODE NOT = 0
2688 GC1010 GOBACK
2689 GC1010 END-IF
2690 IF WS-Lines-Per-Page-Env-TXT NOT = SPACES
2691 MOVE NUMVAL(WS-Lines-Per-Page-Env-TXT)
2692 TO WS-Lines-Per-Page-NUM
2693 ELSE
2694 GC1213 IF L-LISTING-CD = 1 *> LANDSCAPE
2695 GC1213 MOVE L-LPP-NUM TO WS-Lines-Per-Page-NUM
2696 GC1213 ELSE *> PORTRAIT
2697 GC1213 MOVE L-LPP-Port-NUM TO WS-Lines-Per-Page-NUM
2698 GC1213 END-IF
2699 END-IF
2700 GC1213 SUBTRACT 3 FROM WS-Lines-Per-Page-NUM *> FOR PAGE FOOTER
2701 ACCEPT WS-Today-DT FROM DATE YYYYMMDD
2702 GC1213 MOVE WS-Today-DT TO WS-Formatted-DT
2703 MOVE '????????????...' TO WS-Curr-Prog-ID-TXT
2704 MOVE SPACES TO WS-Curr-Verb-TXT
2705 WS-Held-Reference-TXT
2706 .
2707 /
2708 300-Tokenize-Source SECTION.
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 76
2709 OPEN INPUT F-Expanded-Src-FILE
2710 MOVE SPACES TO F-Expanded-Src-REC
2711 MOVE 256 TO WS-Src-SUB
2712 MOVE 0 TO WS-Usernames-QTY
2713 WS-Curr-Line-NUM
2714 MOVE '?' TO WS-Curr-Division-TXT
2715 GC0710 MOVE 'N' TO WS-RS-Verb-Has-Been-Found-CHR
2716 PERFORM FOREVER
2717 PERFORM 310-Get-Token
2718 IF WS-TT-Token-Is-EOF-BOOL
2719 EXIT PERFORM
2720 END-IF
2721 MOVE UPPER-CASE(WS-Token-Curr-TXT)
2722 TO WS-Token-Curr-Uc-TXT
2723 GC1010 IF WS-TT-Token-Is-Keyword-BOOL
2724 GC1010 OR WS-TT-Token-Is-Reserved-Wd-BOOL
2725 GC1010 MOVE WS-Token-Curr-Uc-TXT TO WS-Token-Curr-TXT
2726 GC1010 END-IF
2727 IF WS-TT-Token-Is-Verb-BOOL
2728 MOVE WS-Token-Curr-Uc-TXT TO WS-Curr-Verb-TXT
2729 WS-Token-Prev-TXT
2730 IF WS-Held-Reference-TXT NOT = SPACES
2731 MOVE WS-Held-Reference-TXT TO F-Sort-Work-REC
2732 MOVE SPACES TO WS-Held-Reference-TXT
2733 RELEASE F-Sort-Work-REC
2734 END-IF
2735 END-IF
2736 EVALUATE TRUE
2737 WHEN WS-CD-In-IDENT-DIV-BOOL
2738 PERFORM 320-IDENTIFICATION-DIVISION
2739 WHEN WS-CD-In-ENV-DIV-BOOL
2740 PERFORM 330-ENVIRONMENT-DIVISION
2741 WHEN WS-CD-In-DATA-DIV-BOOL
2742 PERFORM 340-DATA-DIVISION
2743 WHEN WS-CD-In-PROC-DIV-BOOL
2744 PERFORM 350-PROCEDURE-DIVISION
2745 END-EVALUATE
2746 IF WS-TT-Token-Is-Keyword-BOOL
2747 MOVE WS-Token-Curr-Uc-TXT TO WS-Token-Prev-TXT
2748 END-IF
2749 IF WS-RS-Token-Ended-Sentence-CHR = 'Y'
2750 AND WS-Curr-Division-TXT NOT = 'I'
2751 MOVE SPACES TO WS-Token-Prev-TXT
2752 WS-Curr-Verb-TXT
2753 END-IF
2754
2755 END-PERFORM
2756 CLOSE F-Expanded-Src-FILE
2757 .
2758 /
2759 310-Get-Token SECTION.
2760 *>-- Position to 1st non-blank character
2761 MOVE WS-RS-Token-Ended-Sentence-CHR
2762 TO WS-RS-Last-Token-Ended-Sent-CHR
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 77
2763 MOVE 'N' TO WS-RS-Token-Ended-Sentence-CHR
2764 PERFORM UNTIL F-Expanded-Src-REC(WS-Src-SUB : 1) NOT = SPACE
2765 IF WS-Src-SUB > 255
2766 READ F-Expanded-Src-FILE AT END
2767 IF WS-Held-Reference-TXT NOT = SPACES
2768 MOVE WS-Held-Reference-TXT TO F-Sort-Work-REC
2769 MOVE SPACES TO WS-Held-Reference-TXT
2770 RELEASE F-Sort-Work-REC
2771 END-IF
2772 SET WS-TT-Token-Is-EOF-BOOL TO TRUE
2773 MOVE 0 TO WS-Curr-Line-NUM
2774 EXIT SECTION
2775 END-READ
2776 GC0712 IF F-ES-1-7-TXT NOT = '#DEFLIT'
2777 GC0712 IF F-ES-1-CHR = '#'
2778 GC0712 PERFORM 311-Control-Record
2779 GC0712 ELSE
2780 GC0712 PERFORM 312-Expanded-Src-Record
2781 GC0712 END-IF
2782 GC0712 END-IF
2783 ELSE
2784 ADD 1 TO WS-Src-SUB
2785 END-IF
2786 END-PERFORM
2787 *>-- Extract token string
2788 MOVE F-Expanded-Src-REC(WS-Src-SUB : 1)
2789 TO WS-Curr-CHR
2790 MOVE F-Expanded-Src-REC(WS-Src-SUB + 1: 1)
2791 TO WS-Next-CHR
2792 IF WS-Curr-CHR = '.'
2793 ADD 1 TO WS-Src-SUB
2794 MOVE WS-Curr-CHR TO WS-Token-Curr-TXT
2795 MOVE SPACE TO WS-Token-Type-CD
2796 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2797 EXIT SECTION
2798 END-IF
2799 IF WS-Curr-Char-Is-Punct-BOOL
2800 AND WS-Curr-CHR = '='
2801 AND WS-Curr-Division-TXT = 'P'
2802 ADD 1 TO WS-Src-SUB
2803 MOVE 'EQUALS' TO WS-Token-Curr-TXT
2804 MOVE 'K' TO WS-Token-Type-CD
2805 EXIT SECTION
2806 END-IF
2807 IF WS-Curr-Char-Is-Punct-BOOL *> So subscripts don't get flagged w/ '*'
2808 AND WS-Curr-CHR = '('
2809 AND WS-Curr-Division-TXT = 'P'
2810 MOVE SPACES TO WS-Token-Prev-TXT
2811 END-IF
2812 IF WS-Curr-Char-Is-Punct-BOOL
2813 ADD 1 TO WS-Src-SUB
2814 MOVE WS-Curr-CHR TO WS-Token-Curr-TXT
2815 MOVE SPACE TO WS-Token-Type-CD
2816 EXIT SECTION
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:03 Page 78
2817 END-IF
2818 IF WS-Curr-Char-Is-Quote-BOOL
2819 ADD 1 TO WS-Src-SUB
2820 UNSTRING F-Expanded-Src-REC
2821 DELIMITED BY WS-Curr-CHR
2822 INTO WS-Token-Curr-TXT
2823 WITH POINTER WS-Src-SUB
2824 IF F-Expanded-Src-REC(WS-Src-SUB : 1) = '.'
2825 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2826 ADD 1 TO WS-Src-SUB
2827 END-IF
2828 SET WS-TT-Token-Is-Lit-Alpha-BOOL TO TRUE
2829 EXIT SECTION
2830 END-IF
2831 IF WS-Curr-Char-Is-X-BOOL AND WS-Next-Char-Is-Quote-BOOL
2832 ADD 2 TO WS-Src-SUB
2833 UNSTRING F-Expanded-Src-REC
2834 DELIMITED BY WS-Next-CHR
2835 INTO WS-Token-Curr-TXT
2836 WITH POINTER WS-Src-SUB
2837 IF F-Expanded-Src-REC(WS-Src-SUB : 1) = '.'
2838 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2839 ADD 1 TO WS-Src-SUB
2840 END-IF
2841 SET WS-TT-Token-Is-Lit-Number-BOOL TO TRUE
2842 EXIT SECTION
2843 END-IF
2844 IF WS-Curr-Char-Is-Z-BOOL AND WS-Next-Char-Is-Quote-BOOL
2845 ADD 2 TO WS-Src-SUB
2846 UNSTRING F-Expanded-Src-REC
2847 DELIMITED BY WS-Next-CHR
2848 INTO WS-Token-Curr-TXT
2849 WITH POINTER WS-Src-SUB
2850 IF F-Expanded-Src-REC(WS-Src-SUB : 1) = '.'
2851 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2852 ADD 1 TO WS-Src-SUB
2853 END-IF
2854 SET WS-TT-Token-Is-Lit-Alpha-BOOL TO TRUE
2855 EXIT SECTION
2856 END-IF
2857 IF WS-RS-Processing-PICTURE-CHR = 'Y'
2858 UNSTRING F-Expanded-Src-REC
2859 DELIMITED BY '. ' OR ' '
2860 INTO WS-Token-Curr-TXT
2861 DELIMITER IN WS-Delim-TXT
2862 WITH POINTER WS-Src-SUB
2863 IF WS-Delim-TXT = '. '
2864 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2865 ADD 1 TO WS-Src-SUB
2866 END-IF
2867 IF UPPER-CASE(WS-Token-Curr-TXT) = 'IS'
2868 MOVE SPACE TO WS-Token-Type-CD
2869 EXIT SECTION
2870 ELSE
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 79
2871 MOVE 'N' TO WS-RS-Processing-PICTURE-CHR
2872 MOVE SPACE TO WS-Token-Type-CD
2873 EXIT SECTION
2874 END-IF
2875 END-IF
2876 UNSTRING F-Expanded-Src-REC
2877 DELIMITED BY '. ' OR ' ' OR '=' OR '(' OR ')' OR '*'
2878 OR '/' OR '&' OR ';' OR ',' OR '<'
2879 OR '>' OR ':'
2880 INTO WS-Token-Curr-TXT
2881 DELIMITER IN WS-Delim-TXT
2882 WITH POINTER WS-Src-SUB
2883 IF WS-Delim-TXT = '. '
2884 MOVE 'Y' TO WS-RS-Token-Ended-Sentence-CHR
2885 END-IF
2886 IF WS-Delim-TXT NOT = '. ' AND ' '
2887 SUBTRACT 1 FROM WS-Src-SUB
2888 END-IF
2889 *>-- Classify Token
2890 MOVE UPPER-CASE(WS-Token-Curr-TXT) TO WS-Token-Search-TXT
2891 IF WS-Token-Search-TXT = 'EQUAL' OR 'EQUALS'
2892 MOVE 'EQUALS' TO WS-Token-Curr-TXT
2893 MOVE 'K' TO WS-Token-Type-CD
2894 EXIT SECTION
2895 END-IF
2896 SEARCH ALL WS-Reserved-Word-TXT
2897 WHEN WS-RW-Word-TXT (WS-RW-IDX) = WS-Token-Search-TXT
2898 MOVE WS-RW-Type-CD (WS-RW-IDX) TO WS-Token-Type-CD
2899 GC0710 IF WS-TT-Token-Is-Verb-BOOL
2900 GC0710 MOVE 'Y' TO WS-RS-Verb-Has-Been-Found-CHR
2901 GC0710 END-IF
2902 EXIT SECTION
2903 END-SEARCH
2904 *>-- Not a reserved word, must be a user name
2905 SET WS-TT-Token-Is-Identifier-BOOL TO TRUE
2906 PERFORM 313-Check-For-Numeric-Token
2907 IF WS-TT-Token-Is-Lit-Number-BOOL
2908 IF (WS-RS-Last-Token-Ended-Sent-CHR = 'Y')
2909 AND (WS-Curr-Division-TXT = 'D')
2910 MOVE 'LEVEL #' TO WS-Token-Curr-TXT
2911 MOVE 'K' TO WS-Token-Type-CD
2912 EXIT SECTION
2913 ELSE
2914 EXIT SECTION
2915 END-IF
2916 END-IF
2917 .
2918 /
2919 311-Control-Record SECTION.
2920 UNSTRING F-ES-2-256-TXT-256
2921 DELIMITED BY '"'
2922 INTO WS-Temp-10-Chars-TXT
2923 WS-Temp-256-Chars-TXT
2924 WS-Dummy-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 80
2925 INSPECT WS-Temp-10-Chars-TXT REPLACING ALL '"' BY SPACE
2926 GC0712 IF WS-Temp-10-Chars-TXT(1:4) = 'line'
2927 GC0712 MOVE SPACES TO WS-Temp-10-Chars-TXT(1:4)
2928 GC0712 END-IF
2929 COMPUTE WS-I-SUB = NUMVAL(WS-Temp-10-Chars-TXT) - 1
2930 GC1010 IF UPPER-CASE(TRIM(WS-Temp-256-Chars-TXT,Trailing)) =
2931 GC1010 TRIM(WS-Main-Module-Name-TXT)
2932 MOVE WS-I-SUB TO WS-Curr-Line-NUM
2933 SET WS-RS-In-Main-Module-BOOL TO TRUE
2934 IF WS-Saved-Section-TXT NOT = SPACES
2935 MOVE WS-Saved-Section-TXT TO WS-Curr-Section-TXT
2936 END-IF
2937 ELSE
2938 SET WS-RS-In-Copybook-BOOL TO TRUE
2939 IF WS-Saved-Section-TXT = SPACES
2940 MOVE WS-Curr-Section-TXT TO WS-Saved-Section-TXT
2941 END-IF
2942 MOVE LENGTH(TRIM(WS-Temp-256-Chars-TXT,Trailing))
2943 TO WS-I-SUB
2944 MOVE 0 TO WS-J-SUB
2945 PERFORM UNTIL WS-Temp-256-Chars-TXT(WS-I-SUB:1) = '/'
2946 OR WS-I-SUB = 0
2947 SUBTRACT 1 FROM WS-I-SUB
2948 ADD 1 TO WS-J-SUB
2949 END-PERFORM
2950 UNSTRING WS-Temp-256-Chars-TXT((WS-I-SUB + 1):WS-J-SUB)
2951 DELIMITED BY '.'
2952 INTO WS-Filename-TXT
2953 WS-Dummy-TXT
2954 MOVE '[' TO WS-CS-1-CHR
2955 MOVE WS-Filename-TXT TO WS-CS-2-14-TXT
2956 IF WS-CS-11-14-TXT NOT = SPACES
2957 MOVE '...' TO WS-CS-11-14-TXT
2958 END-IF
2959 MOVE ']' TO WS-CS-15-CHR
2960 END-IF
2961 MOVE SPACES TO F-Expanded-Src-REC *> Force another READ
2962 MOVE 256 TO WS-Src-SUB
2963 .
2964 /
2965 312-Expanded-Src-Record SECTION.
2966 GC0314 IF F-Expanded-Src-REC(1:1) = SPACE
2967 GC0314 MOVE 2 TO WS-Src-SUB
2968 GC0314 ELSE
2969 GC0314 MOVE 1 TO WS-Src-SUB
2970 GC0314 END-IF
2971 IF WS-RS-In-Main-Module-BOOL
2972 ADD 1 To WS-Curr-Line-NUM
2973 END-IF
2974 .
2975 /
2976 313-Check-For-Numeric-Token SECTION.
2977 MOVE WS-Token-Curr-TXT TO WS-Temp-32-Chars-1-TXT
2978 INSPECT WS-Temp-32-Chars-1-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 81
2979 GC0711 CONVERTING '0123456789' TO SPACES
2980 GC0711 IF WS-Temp-32-Chars-1-TXT = SPACES *> Simple Unsigned Integer
2981 SET WS-TT-Token-Is-Lit-Number-BOOL TO TRUE
2982 EXIT SECTION
2983 END-IF
2984 GC0711 MOVE SPACES TO WS-Temp-32-Chars-2-TXT
2985 GC0711 WS-Temp-32-Chars-3-TXT
2986 GC0711 WS-Dummy-TXT
2987 GC0711 UNSTRING WS-Temp-32-Chars-1-TXT
2988 GC0711 DELIMITED BY 'e' OR 'E'
2989 GC0711 INTO WS-Temp-32-Chars-2-TXT
2990 GC0711 WS-Temp-32-Chars-3-TXT
2991 GC0711 WS-Dummy-TXT
2992 GC0711 IF WS-Dummy-TXT NOT = SPACES *> More than one 'E' - Not Numeric
2993 GC0711 EXIT SECTION
2994 GC0711 END-IF
2995 GC0711 IF WS-Temp-32-Chars-2-TXT(1:1) = '+' OR '-'
2996 GC0711 MOVE SPACE TO WS-Temp-32-Chars-2-TXT(1:1)
2997 GC0711 END-IF
2998 GC0711 IF WS-Temp-32-Chars-3-TXT(1:1) = '+' OR '-'
2999 GC0711 MOVE SPACE TO WS-Temp-32-Chars-3-TXT(1:1)
3000 GC0711 END-IF
3001 MOVE 0 TO WS-Tally-QTY
3002 GC0711 INSPECT WS-Temp-32-Chars-2-TXT
3003 TALLYING WS-Tally-QTY FOR ALL '.'
3004 IF WS-Tally-QTY = 1
3005 GC0711 INSPECT WS-Temp-32-Chars-2-TXT REPLACING ALL '.' BY SPACE
3006 END-IF
3007 GC0711 INSPECT WS-Temp-32-Chars-3-TXT
3008 GC0711 TALLYING WS-Tally-QTY FOR ALL '.'
3009 GC0711 IF WS-Tally-QTY = 1
3010 GC0711 INSPECT WS-Temp-32-Chars-3-TXT REPLACING ALL '.' BY SPACE
3011 GC0711 END-IF
3012 GC0711 IF WS-Temp-32-Chars-2-TXT = SPACES AND WS-Temp-32-Chars-3-TXT = SPACES
3013 SET WS-TT-Token-Is-Lit-Number-BOOL TO TRUE
3014 EXIT SECTION
3015 END-IF
3016 .
3017 /
3018 320-IDENTIFICATION-DIVISION SECTION.
3019 GC0712 IF WS-TT-Token-Is-Argtype-BOOL
3020 GC0712 SET WS-TT-Token-Is-Reserved-Wd-BOOL TO TRUE
3021 GC0712 END-IF
3022 GC0710 MOVE 'N' TO WS-RS-Verb-Has-Been-Found-CHR
3023 IF WS-TT-Token-Is-Keyword-BOOL
3024 AND WS-Token-Curr-TXT = 'DIVISION'
3025 MOVE WS-Token-Prev-TXT TO WS-Curr-Division-TXT
3026 EXIT SECTION
3027 END-IF
3028 GC0712 IF WS-Token-Prev-TXT = 'PROGRAM-ID' OR 'FUNCTION-ID'
3029 MOVE SPACES TO WS-Token-Prev-TXT
3030 MOVE WS-Token-Curr-TXT TO WS-Curr-Prog-ID-TXT
3031 GC0712 IF WS-CPI-16-CHR NOT = SPACES
3032 MOVE '...' TO WS-CPI-13-15-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 82
3033 END-IF
3034 EXIT SECTION
3035 END-IF
3036 .
3037 /
3038 330-ENVIRONMENT-DIVISION SECTION.
3039 GC0712 IF WS-TT-Token-Is-Argtype-BOOL
3040 GC0712 SET WS-TT-Token-Is-Reserved-Wd-BOOL TO TRUE
3041 GC0712 END-IF
3042 IF WS-TT-Token-Is-Keyword-BOOL
3043 AND WS-Token-Curr-TXT = 'DIVISION'
3044 MOVE WS-Token-Prev-TXT TO WS-Curr-Division-TXT
3045 EXIT SECTION
3046 END-IF
3047 IF WS-TT-Token-Is-Keyword-BOOL
3048 AND WS-Token-Curr-TXT = 'SECTION'
3049 MOVE WS-Token-Prev-TXT TO WS-Curr-Section-TXT
3050 EXIT SECTION
3051 END-IF
3052 IF WS-TT-Token-Is-Identifier-BOOL
3053 GC0712 IF WS-Token-Prev-TXT = 'FUNCTION'
3054 GC0712 PERFORM 360-Release-Def
3055 GC0712 ELSE
3056 GC0712 PERFORM 361-Release-Ref
3057 GC0712 END-IF
3058 END-IF
3059 GC1213 IF WS-TT-Token-Is-Function-BOOL
3060 GC1213 PERFORM 361-Release-Ref
3061 GC1213 END-IF
3062 .
3063 /
3064 340-DATA-DIVISION SECTION.
3065 GC0712 IF WS-TT-Token-Is-Argtype-BOOL
3066 GC0712 SET WS-TT-Token-Is-Reserved-Wd-BOOL TO TRUE
3067 GC0712 END-IF
3068 IF WS-TT-Token-Is-Keyword-BOOL
3069 AND WS-Token-Curr-TXT = 'DIVISION'
3070 MOVE WS-Token-Prev-TXT TO WS-Curr-Division-TXT
3071 EXIT SECTION
3072 END-IF
3073 IF WS-TT-Token-Is-Keyword-BOOL
3074 AND WS-Token-Curr-TXT = 'SECTION'
3075 MOVE WS-Token-Prev-TXT TO WS-Curr-Section-TXT
3076 EXIT SECTION
3077 END-IF
3078 IF (WS-Token-Curr-TXT = 'PIC' OR 'PICTURE')
3079 AND (WS-TT-Token-Is-Keyword-BOOL)
3080 MOVE 'Y' TO WS-RS-Processing-PICTURE-CHR
3081 EXIT SECTION
3082 END-IF
3083 GC0710 IF WS-TT-Token-Is-Reserved-Wd-BOOL
3084 GC0710 AND WS-Token-Prev-TXT = 'LEVEL #'
3085 GC0710 MOVE SPACES TO WS-Token-Prev-TXT
3086 GC0710 EXIT SECTION
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 83
3087 GC0710 END-IF
3088 IF WS-TT-Token-Is-Identifier-BOOL
3089 EVALUATE WS-Token-Prev-TXT
3090 WHEN 'FD'
3091 PERFORM 360-Release-Def
3092 MOVE SPACES TO WS-Token-Prev-TXT
3093 GC1213 WHEN 'RD'
3094 GC1213 PERFORM 360-Release-Def
3095 GC1213 MOVE SPACES TO WS-Token-Prev-TXT
3096 WHEN 'SD'
3097 PERFORM 360-Release-Def
3098 MOVE SPACES TO WS-Token-Prev-TXT
3099 WHEN 'LEVEL #'
3100 PERFORM 360-Release-Def
3101 MOVE SPACES TO WS-Token-Prev-TXT
3102 WHEN 'INDEXED'
3103 PERFORM 360-Release-Def
3104 MOVE SPACES TO WS-Token-Prev-TXT
3105 WHEN 'USING'
3106 PERFORM 362-Release-Upd
3107 MOVE SPACES TO WS-Token-Prev-TXT
3108 WHEN 'INTO'
3109 PERFORM 362-Release-Upd
3110 MOVE SPACES TO WS-Token-Prev-TXT
3111 WHEN OTHER
3112 GC1213 IF WS-Token-Curr-TXT NOT = 'SUM'
3113 GC1213 PERFORM 361-Release-Ref
3114 GC1213 END-IF
3115 END-EVALUATE
3116 EXIT SECTION
3117 END-IF
3118 .
3119 /
3120 350-PROCEDURE-DIVISION SECTION.
3121 IF WS-Curr-Section-TXT NOT = 'PROCEDURE'
3122 MOVE 'PROCEDURE' TO WS-Curr-Section-TXT
3123 END-IF
3124 GC0710 IF WS-Token-Curr-Uc-TXT = 'PROGRAM'
3125 GC0710 AND WS-Token-Prev-TXT = 'END'
3126 GC0710 MOVE '?' TO WS-Curr-Division-TXT
3127 GC0710 EXIT SECTION
3128 GC0710 END-IF
3129 IF WS-TT-Token-Is-Keyword-BOOL
3130 AND WS-Token-Curr-TXT = 'DIVISION'
3131 MOVE WS-Token-Prev-TXT TO WS-Curr-Division-TXT
3132 EXIT SECTION
3133 END-IF
3134 GC0313 IF WS-TT-Token-Is-Identifier-BOOL
3135 GC0313 AND WS-Token-Prev-TXT = SPACES
3136 GC0313 AND WS-Curr-Verb-TXT = SPACES
3137 GC0313*> ----- Definition of a Paragraph or Section
3138 GC0313 PERFORM 360-Release-Def
3139 GC0313 MOVE SPACES TO WS-Token-Prev-TXT
3140 GC0313 EXIT SECTION
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 84
3141 GC0313 END-IF
3142 IF NOT WS-TT-Token-Is-Identifier-BOOL
3143 EXIT SECTION
3144 END-IF
3145 EVALUATE WS-Curr-Verb-TXT
3146 WHEN 'ACCEPT'
3147 PERFORM 351-ACCEPT
3148 WHEN 'ADD'
3149 PERFORM 351-ADD
3150 WHEN 'ALLOCATE'
3151 PERFORM 351-ALLOCATE
3152 WHEN 'CALL'
3153 PERFORM 351-CALL
3154 WHEN 'COMPUTE'
3155 PERFORM 351-COMPUTE
3156 WHEN 'DIVIDE'
3157 PERFORM 351-DIVIDE
3158 WHEN 'FREE'
3159 PERFORM 351-FREE
3160 GC1213 WHEN 'GENERATE'
3161 GC1213 PERFORM 351-GENERATE
3162 WHEN 'INITIALIZE'
3163 PERFORM 351-INITIALIZE
3164 GC1213 WHEN 'INITIATE'
3165 GC1213 PERFORM 351-GENERATE
3166 WHEN 'INSPECT'
3167 PERFORM 351-INSPECT
3168 WHEN 'MOVE'
3169 PERFORM 351-MOVE
3170 WHEN 'MULTIPLY'
3171 PERFORM 351-MULTIPLY
3172 WHEN 'PERFORM'
3173 PERFORM 351-PERFORM
3174 WHEN 'SET'
3175 PERFORM 351-SET
3176 WHEN 'STRING'
3177 PERFORM 351-STRING
3178 WHEN 'SUBTRACT'
3179 PERFORM 351-SUBTRACT
3180 GC1213 WHEN 'TERMINATE'
3181 GC1213 PERFORM 351-GENERATE
3182 WHEN 'TRANSFORM'
3183 PERFORM 351-TRANSFORM
3184 WHEN 'UNSTRING'
3185 PERFORM 351-UNSTRING
3186 WHEN OTHER
3187 PERFORM 361-Release-Ref
3188 END-EVALUATE
3189 .
3190 /
3191 351-ACCEPT SECTION.
3192 EVALUATE WS-Token-Prev-TXT
3193 WHEN 'ACCEPT'
3194 PERFORM 362-Release-Upd
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:04 Page 85
3195 MOVE SPACES TO WS-Token-Prev-TXT
3196 WHEN OTHER
3197 PERFORM 361-Release-Ref
3198 END-EVALUATE
3199 .
3200
3201 351-ADD SECTION.
3202 EVALUATE WS-Token-Prev-TXT
3203 WHEN 'GIVING'
3204 PERFORM 362-Release-Upd
3205 WHEN 'TO'
3206 PERFORM 362-Release-Upd
3207 WHEN OTHER
3208 PERFORM 361-Release-Ref
3209 END-EVALUATE
3210 .
3211
3212 351-ALLOCATE SECTION.
3213 EVALUATE WS-Token-Prev-TXT
3214 WHEN 'ALLOCATE'
3215 PERFORM 362-Release-Upd
3216 MOVE SPACES TO WS-Token-Prev-TXT
3217 WHEN 'RETURNING'
3218 PERFORM 362-Release-Upd
3219 WHEN OTHER
3220 PERFORM 361-Release-Ref
3221 END-EVALUATE
3222 .
3223
3224 351-CALL SECTION.
3225 EVALUATE WS-Token-Prev-TXT
3226 WHEN 'RETURNING'
3227 PERFORM 362-Release-Upd
3228 WHEN 'GIVING'
3229 PERFORM 362-Release-Upd
3230 WHEN OTHER
3231 GC1213 PERFORM 365-Release-Arg
3232 END-EVALUATE
3233 .
3234
3235 351-COMPUTE SECTION.
3236 EVALUATE WS-Token-Prev-TXT
3237 WHEN 'COMPUTE'
3238 PERFORM 362-Release-Upd
3239 WHEN OTHER
3240 PERFORM 361-Release-Ref
3241 END-EVALUATE
3242 .
3243
3244 351-DIVIDE SECTION.
3245 EVALUATE WS-Token-Prev-TXT
3246 WHEN 'INTO'
3247 PERFORM 363-Set-Upd
3248 MOVE F-Sort-Work-REC TO WS-Held-Reference-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 86
3249 WHEN 'GIVING'
3250 IF WS-Held-Reference-TXT NOT = SPACES
3251 MOVE WS-Held-Reference-TXT To F-Sort-Work-REC
3252 MOVE SPACES To WS-Held-Reference-TXT
3253 F-SW-Ref-Flag-CHR
3254 RELEASE F-Sort-Work-REC
3255 END-IF
3256 PERFORM 362-Release-Upd
3257 WHEN 'REMAINDER'
3258 PERFORM 362-Release-Upd
3259 WHEN OTHER
3260 PERFORM 361-Release-Ref
3261 END-EVALUATE
3262 .
3263
3264 351-FREE SECTION.
3265 PERFORM 362-Release-Upd
3266 .
3267
3268 GC1213 351-GENERATE SECTION.
3269 GC1213 PERFORM 362-Release-Upd
3270 GC1213 .
3271
3272 351-INITIALIZE SECTION.
3273 EVALUATE WS-Token-Prev-TXT
3274 WHEN 'INITIALIZE'
3275 PERFORM 362-Release-Upd
3276 WHEN 'REPLACING'
3277 PERFORM 361-Release-Ref
3278 END-EVALUATE
3279 .
3280
3281 GC1213 351-INITIATE SECTION.
3282 GC1213 PERFORM 362-Release-Upd
3283 GC1213 .
3284
3285 351-INSPECT SECTION.
3286 EVALUATE WS-Token-Prev-TXT
3287 WHEN 'INSPECT'
3288 PERFORM 364-Set-Ref
3289 MOVE SPACES TO WS-Held-Reference-TXT
3290 MOVE SPACES TO WS-Token-Prev-TXT
3291 WHEN 'TALLYING'
3292 PERFORM 362-Release-Upd
3293 MOVE SPACES TO WS-Token-Prev-TXT
3294 WHEN 'REPLACING'
3295 IF WS-Held-Reference-TXT NOT = SPACES
3296 MOVE WS-Held-Reference-TXT TO F-Sort-Work-REC
3297 MOVE SPACES TO WS-Held-Reference-TXT
3298 MOVE '*' TO F-SW-Ref-Flag-CHR
3299 RELEASE F-Sort-Work-REC
3300 END-IF
3301 MOVE SPACES TO WS-Token-Prev-TXT
3302 WHEN 'CONVERTING'
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 87
3303 IF WS-Held-Reference-TXT NOT = SPACES
3304 MOVE WS-Held-Reference-TXT TO F-Sort-Work-REC
3305 MOVE SPACES TO WS-Held-Reference-TXT
3306 MOVE '*' TO F-SW-Ref-Flag-CHR
3307 RELEASE F-Sort-Work-REC
3308 END-IF
3309 MOVE SPACES TO WS-Token-Prev-TXT
3310 WHEN OTHER
3311 PERFORM 361-Release-Ref
3312 END-EVALUATE
3313 .
3314
3315 351-MOVE SECTION.
3316 EVALUATE WS-Token-Prev-TXT
3317 WHEN 'TO'
3318 PERFORM 362-Release-Upd
3319 WHEN OTHER
3320 PERFORM 361-Release-Ref
3321 END-EVALUATE
3322 .
3323
3324 351-MULTIPLY SECTION.
3325 EVALUATE WS-Token-Prev-TXT
3326 WHEN 'BY'
3327 PERFORM 363-Set-Upd
3328 MOVE F-Sort-Work-REC TO WS-Held-Reference-TXT
3329 WHEN 'GIVING'
3330 MOVE WS-Held-Reference-TXT TO F-Sort-Work-REC
3331 MOVE SPACES TO WS-Held-Reference-TXT
3332 F-SW-Ref-Flag-CHR
3333 RELEASE F-Sort-Work-REC
3334 PERFORM 362-Release-Upd
3335 WHEN OTHER
3336 PERFORM 361-Release-Ref
3337 END-EVALUATE
3338 .
3339
3340 351-PERFORM SECTION.
3341 EVALUATE WS-Token-Prev-TXT
3342 WHEN 'VARYING'
3343 PERFORM 362-Release-Upd
3344 MOVE SPACES TO WS-Token-Prev-TXT
3345 WHEN 'AFTER'
3346 PERFORM 362-Release-Upd
3347 MOVE SPACES TO WS-Token-Prev-TXT
3348 WHEN OTHER
3349 PERFORM 361-Release-Ref
3350 END-EVALUATE
3351 .
3352
3353 351-SET SECTION.
3354 EVALUATE WS-Token-Prev-TXT
3355 WHEN 'SET'
3356 PERFORM 362-Release-Upd
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 88
3357 WHEN OTHER
3358 PERFORM 361-Release-Ref
3359 END-EVALUATE
3360 .
3361
3362 351-STRING SECTION.
3363 EVALUATE WS-Token-Prev-TXT
3364 WHEN 'INTO'
3365 PERFORM 362-Release-Upd
3366 WHEN 'POINTER'
3367 PERFORM 362-Release-Upd
3368 WHEN OTHER
3369 PERFORM 361-Release-Ref
3370 END-EVALUATE
3371 .
3372
3373 351-SUBTRACT SECTION.
3374 EVALUATE WS-Token-Prev-TXT
3375 WHEN 'GIVING'
3376 PERFORM 362-Release-Upd
3377 WHEN 'FROM'
3378 PERFORM 362-Release-Upd
3379 WHEN OTHER
3380 PERFORM 361-Release-Ref
3381 END-EVALUATE
3382 .
3383
3384 GC1213 351-TERMINATE SECTION.
3385 GC1213 PERFORM 362-Release-Upd
3386 GC1213 .
3387
3388 351-TRANSFORM SECTION.
3389 EVALUATE WS-Token-Prev-TXT
3390 WHEN 'TRANSFORM'
3391 PERFORM 362-Release-Upd
3392 MOVE SPACES TO WS-Token-Prev-TXT
3393 WHEN OTHER
3394 PERFORM 361-Release-Ref
3395 END-EVALUATE
3396 .
3397
3398 351-UNSTRING SECTION.
3399 EVALUATE WS-Token-Prev-TXT
3400 WHEN 'INTO'
3401 PERFORM 362-Release-Upd
3402 WHEN 'DELIMITER'
3403 PERFORM 362-Release-Upd
3404 WHEN 'COUNT'
3405 PERFORM 362-Release-Upd
3406 WHEN 'POINTER'
3407 PERFORM 362-Release-Upd
3408 WHEN 'TALLYING'
3409 PERFORM 362-Release-Upd
3410 WHEN OTHER
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 89
3411 PERFORM 361-Release-Ref
3412 END-EVALUATE
3413 .
3414
3415 360-Release-Def SECTION.
3416 MOVE SPACES TO F-Sort-Work-REC
3417 MOVE WS-Curr-Prog-ID-TXT TO F-SW-Prog-ID-TXT
3418 MOVE WS-Token-Curr-Uc-TXT TO F-SW-Token-Uc-TXT
3419 MOVE WS-Token-Curr-TXT TO F-SW-Token-TXT
3420 MOVE WS-Curr-Section-TXT TO F-SW-Section-TXT
3421 MOVE WS-Curr-Line-NUM TO F-SW-Def-Line-NUM
3422 MOVE 0 TO F-SW-Ref-Line-NUM
3423 RELEASE F-Sort-Work-REC
3424 .
3425
3426 361-Release-Ref SECTION.
3427 PERFORM 364-Set-Ref
3428 RELEASE F-Sort-Work-REC
3429 .
3430
3431 362-Release-Upd SECTION.
3432 PERFORM 363-Set-Upd
3433 RELEASE F-Sort-Work-REC
3434 .
3435
3436 363-Set-Upd SECTION.
3437 MOVE SPACES TO F-Sort-Work-REC
3438 MOVE WS-Curr-Prog-ID-TXT TO F-SW-Prog-ID-TXT
3439 MOVE WS-Token-Curr-Uc-TXT TO F-SW-Token-Uc-TXT
3440 MOVE WS-Token-Curr-TXT TO F-SW-Token-TXT
3441 MOVE WS-Curr-Section-TXT TO F-SW-Section-TXT
3442 MOVE WS-Curr-Line-NUM TO F-SW-Ref-Line-NUM
3443 MOVE '*' TO F-SW-Ref-Flag-CHR
3444 .
3445
3446 364-Set-Ref SECTION.
3447 MOVE SPACES TO F-Sort-Work-REC
3448 MOVE WS-Curr-Prog-ID-TXT TO F-SW-Prog-ID-TXT
3449 MOVE WS-Token-Curr-Uc-TXT TO F-SW-Token-Uc-TXT
3450 MOVE WS-Token-Curr-TXT TO F-SW-Token-TXT
3451 MOVE WS-Curr-Section-TXT TO F-SW-Section-TXT
3452 MOVE WS-Curr-Line-NUM TO F-SW-Ref-Line-NUM
3453 .
3454
3455 GC1213 365-Release-Arg SECTION.
3456 GC1213 PERFORM 366-Set-Arg
3457 GC1213 RELEASE F-Sort-Work-REC
3458 GC1213 .
3459
3460 GC1213 366-Set-Arg SECTION.
3461 GC1213 MOVE SPACES TO F-Sort-Work-REC
3462 GC1213 MOVE WS-Curr-Prog-ID-TXT TO F-SW-Prog-ID-TXT
3463 GC1213 MOVE WS-Token-Curr-Uc-TXT TO F-SW-Token-Uc-TXT
3464 GC1213 MOVE WS-Token-Curr-TXT TO F-SW-Token-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 90
3465 GC1213 MOVE WS-Curr-Section-TXT TO F-SW-Section-TXT
3466 GC1213 MOVE WS-Curr-Line-NUM TO F-SW-Ref-Line-NUM
3467 GC1213 MOVE 'C' TO F-SW-Ref-Flag-CHR
3468 GC1213 .
3469
3470 /
3471 400-Produce-Xref-Listing SECTION.
3472 MOVE SPACES TO WS-Xref-Detail-Line-TXT
3473 WS-Group-Indicators-TXT
3474 MOVE 0 TO WS-I-SUB
3475 WS-Lines-Left-NUM
3476 GC0710 MOVE 'N' TO WS-RS-Duplicate-CHR
3477 PERFORM FOREVER
3478 RETURN F-Sort-Work-FILE AT END
3479 GC1213 IF WS-Xref-Detail-Line-TXT NOT = SPACES
3480 GC1213 PERFORM 410-Generate-Report-Line
3481 GC1213 END-IF
3482 GC1213 MOVE SPACES TO WS-Xref-Detail-Line-TXT
3483 GC1213 PERFORM 410-Generate-Report-Line
3484 GC1213 UNTIL WS-Lines-Left-NUM = 0
3485 GC1213 MOVE 'Y' TO WS-Suppress-FF-CHR
3486 GC1213 PERFORM 420-Generate-Xref-Footer
3487 EXIT PERFORM
3488 END-RETURN
3489 IF F-SW-Prog-ID-TXT NOT = WS-GI-Prog-ID-TXT
3490 OR F-SW-Token-Uc-TXT NOT = WS-GI-Token-TXT
3491 GC0710 MOVE 'N' TO WS-RS-Duplicate-CHR
3492 IF WS-Xref-Detail-Line-TXT NOT = SPACES
3493 PERFORM 410-Generate-Report-Line
3494 END-IF
3495 IF F-SW-Prog-ID-TXT NOT = WS-GI-Prog-ID-TXT
3496 GC1213 MOVE SPACES TO WS-Xref-Detail-Line-TXT
3497 GC1213 PERFORM 410-Generate-Report-Line
3498 GC1213 UNTIL WS-Lines-Left-NUM = 0
3499 END-IF
3500 MOVE F-SW-Prog-ID-TXT TO WS-GI-Prog-ID-TXT
3501 MOVE F-SW-Token-Uc-TXT TO WS-GI-Token-TXT
3502 END-IF
3503 GC0710 IF F-SW-Token-Uc-TXT = WS-GI-Token-TXT
3504 GC0710 AND F-SW-Def-Line-NUM NOT = SPACES
3505 GC0710 AND WS-Xref-Detail-Line-TXT NOT = SPACES
3506 GC0710 MOVE 'Y' TO WS-RS-Duplicate-CHR
3507 GC0710 PERFORM 410-Generate-Report-Line
3508 GC0710 MOVE 0 TO WS-I-SUB
3509 GC0710 MOVE F-SW-Prog-ID-TXT TO WS-XDL-Prog-ID-TXT
3510 GC0710 MOVE ' (Duplicate Definition)' TO WS-XDL-Token-TXT
3511 GC0710 MOVE F-SW-Section-TXT TO WS-XDL-Section-TXT
3512 GC0710 MOVE F-SW-Def-Line-NUM TO WS-XDL-Def-Line-NUM
3513 GC0710 EXIT PERFORM CYCLE
3514 GC0710 END-IF
3515 GC0710 IF F-SW-Token-Uc-TXT = WS-GI-Token-TXT
3516 GC0710 AND F-SW-Def-Line-NUM = SPACES
3517 GC0710 AND WS-RS-Duplicate-CHR = 'Y'
3518 GC0710 MOVE 'N' TO WS-RS-Duplicate-CHR
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 91
3519 GC0710 PERFORM 410-Generate-Report-Line
3520 GC0710 MOVE 0 TO WS-I-SUB
3521 GC0710 MOVE F-SW-Prog-ID-TXT TO WS-XDL-Prog-ID-TXT
3522 GC0710 MOVE ' (Duplicate References)' TO WS-XDL-Token-TXT
3523 GC0710 END-IF
3524 IF WS-Xref-Detail-Line-TXT = SPACES
3525 MOVE F-SW-Prog-ID-TXT TO WS-XDL-Prog-ID-TXT
3526 MOVE F-SW-Token-TXT TO WS-XDL-Token-TXT
3527 MOVE F-SW-Section-TXT TO WS-XDL-Section-TXT
3528 IF F-SW-Def-Line-NUM NOT = SPACES
3529 MOVE F-SW-Def-Line-NUM TO WS-XDL-Def-Line-NUM
3530 END-IF
3531 END-IF
3532 IF F-SW-Reference-TXT > '000000'
3533 ADD 1 TO WS-I-SUB
3534 IF WS-I-SUB > WS-Xref-Lines-Per-Rec-NUM
3535 PERFORM 410-Generate-Report-Line
3536 MOVE 1 TO WS-I-SUB
3537 END-IF
3538 MOVE F-SW-Ref-Line-NUM
3539 TO WS-XDL-Ref-Line-NUM (WS-I-SUB)
3540 MOVE F-SW-Ref-Flag-CHR
3541 TO WS-XDL-Ref-Flag-CHR (WS-I-SUB)
3542 END-IF
3543 END-PERFORM
3544 IF WS-Xref-Detail-Line-TXT NOT = SPACES
3545 PERFORM 410-Generate-Report-Line
3546 END-IF
3547 .
3548 /
3549 410-Generate-Report-Line SECTION.
3550 IF WS-Lines-Left-NUM < 1
3551 GC1213 PERFORM 420-Generate-Xref-Footer
3552 GC1213 ADD 1 TO WS-Page-NUM
3553 GC1213 MOVE 'Page:' TO WS-PN-Literal-TXT
3554 GC1213 MOVE WS-Page-NUM TO WS-PN-Page-NUM
3555 GC1213 CALL 'C$JUSTIFY' USING WS-PN-Page-NUM, 'Left'
3556 GC1213 CALL 'C$JUSTIFY' USING WS-Page-No-TXT, 'Right'
3557 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3558 GC1213 MOVE WS-Version-TXT
3559 GC1213 TO F-Listing-135-REC
3560 GC1213 MOVE 'Cross-Reference Listing'
3561 GC1213 TO F-Listing-135-REC(25:23)
3562 GC1213 MOVE WS-Formatted-DT
3563 GC1213 TO F-Listing-135-REC(126:10)
3564 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #1
3565 GC1213 MOVE WS-Program-Path-TXT
3566 GC1213 TO F-Listing-135-REC
3567 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #2
3568 GC1213 MOVE 'PROGRAM-ID Identifier/Register/Function' &
3569 GC1213 ' Defn Where Defined References'
3570 GC1213 TO F-Listing-135-REC
3571 GC1213 MOVE WS-Page-No-TXT
3572 GC1213 TO F-Listing-135-REC(126:10)
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:05 Page 92
3573 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #3
3574 GC1213 MOVE ALL '=' TO F-Listing-135-REC
3575 GC1213 MOVE SPACE TO F-Listing-135-REC(16:1)
3576 GC1213 F-Listing-135-REC(49:1)
3577 GC1213 F-Listing-135-REC(56:1)
3578 GC1213 F-Listing-135-REC(72:1)
3579 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #4
3580 GC1213 ELSE *> PORTRAIT
3581 GC1213 MOVE WS-Version-TXT
3582 GC1213 TO F-Listing-96-REC
3583 GC1213 MOVE 'Cross-Reference Listing'
3584 GC1213 TO F-Listing-96-REC(25:23)
3585 GC1213 MOVE WS-Formatted-DT
3586 GC1213 TO F-Listing-96-REC(87:10)
3587 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #1
3588 GC1213 MOVE WS-Program-Path-TXT(40:96)
3589 GC1213 TO F-Listing-96-REC
3590 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #2
3591 GC1213 MOVE 'PROGRAM-ID Identifier/Register/Function' &
3592 GC1213 ' Defn Where Defined References'
3593 GC1213 TO F-Listing-96-REC
3594 GC1213 MOVE WS-Page-No-TXT
3595 GC1213 TO F-Listing-96-REC(87:10)
3596 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #3
3597 GC1213 MOVE ALL '=' TO F-Listing-96-REC
3598 GC1213 MOVE SPACE TO F-Listing-96-REC(16:1)
3599 GC1213 F-Listing-96-REC(49:1)
3600 GC1213 F-Listing-96-REC(56:1)
3601 GC1213 F-Listing-96-REC(72:1)
3602 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #4
3603 GC1213 END-IF
3604 GC1213 COMPUTE WS-Lines-Left-NUM = WS-Lines-Per-Page-NUM - 4
3605 END-IF
3606 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3607 GC1213 WRITE F-Listing-135-REC FROM WS-Xref-Detail-Line-TXT
3608 GC1213 BEFORE 1
3609 GC1213 ELSE *> PORTRAIT
3610 GC1213 WRITE F-Listing-96-REC FROM WS-Xref-Detail-Line-TXT
3611 GC1213 BEFORE 1
3612 GC1213 END-IF
3613 MOVE SPACES TO WS-Xref-Detail-Line-TXT
3614 MOVE 0 TO WS-I-SUB
3615 SUBTRACT 1 FROM WS-Lines-Left-NUM
3616 .
3617 GC1213 420-Generate-Xref-Footer SECTION.
3618 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3619 GC1213 WRITE F-Listing-135-REC FROM SPACES BEFORE 1 *> Footer Line #1
3620 GC1213 MOVE ALL '='
3621 GC1213 TO F-Listing-135-REC
3622 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Footer Line #2
3623 GC1213 MOVE WS-Copyright-TXT
3624 GC1213 TO F-Listing-135-REC
3625 GC1213 MOVE WS-Page-No-TXT
3626 GC1213 TO F-Listing-135-REC(126:10)
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 93
3627 GC1213 IF WS-Suppress-FF-CHR = 'Y'
3628 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Footer Line #3
3629 GC1213 ELSE
3630 GC1213 WRITE F-Listing-135-REC BEFORE PAGE *> Footer Line #3
3631 GC1213 WRITE F-Listing-135-REC FROM SPACES BEFORE 1 *> Spaces After FF Character
3632 GC1213 END-IF
3633 GC1213 ELSE *> PORTRAIT
3634 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1 *> Footer Line #1
3635 GC1213 MOVE ALL '='
3636 GC1213 TO F-Listing-96-REC
3637 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Footer Line #2
3638 GC1213 MOVE WS-Copyright-TXT
3639 GC1213 TO F-Listing-96-REC
3640 GC1213 MOVE WS-Page-No-TXT
3641 GC1213 TO F-Listing-96-REC(87:10)
3642 GC1213 IF WS-Suppress-FF-CHR = 'Y'
3643 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Footer Line #3
3644 GC1213 ELSE
3645 GC1213 WRITE F-Listing-96-REC BEFORE PAGE *> Footer Line #3
3646 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1 *> Spaces After FF Character
3647 GC1213 END-IF
3648 GC1213 END-IF
3649 GC1213 .
3650 /
3651 500-Produce-Source-Listing SECTION.
3652 OPEN INPUT F-Original-Src-FILE
3653 F-Expanded-Src-FILE
3654 MOVE 0 TO WS-Src-Line-NUM
3655 PERFORM FOREVER
3656 READ F-Expanded-Src-FILE AT END
3657 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3658 GC1213 PERFORM 530-Generate-Source-Line
3659 GC1213 UNTIL WS-Lines-Left-NUM = 0
3660 EXIT PERFORM
3661 END-READ
3662 GC0712 IF F-ES-1-7-TXT NOT = '#DEFLIT'
3663 GC0712 IF F-ES-1-CHR = '#'
3664 GC0712 PERFORM 510-Control-Record
3665 GC0712 ELSE
3666 GC0712 PERFORM 520-Expanded-Src-Record
3667 GC0712 END-IF
3668 GC0712 END-IF
3669 END-PERFORM
3670 CLOSE F-Original-Src-FILE
3671 F-Expanded-Src-FILE
3672 .
3673 /
3674 510-Control-Record SECTION.
3675 UNSTRING F-ES-2-256-TXT-256
3676 DELIMITED BY '"'
3677 INTO WS-Temp-10-Chars-TXT
3678 WS-Temp-256-Chars-TXT
3679 WS-Dummy-TXT
3680 GC1010 IF UPPER-CASE(TRIM(WS-Temp-256-Chars-TXT,Trailing)) =
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 94
3681 GC1010 TRIM(WS-Main-Module-Name-TXT) *> Main Pgm
3682 SET WS-RS-In-Main-Module-BOOL TO TRUE
3683 IF WS-Src-Line-NUM > 0
3684 READ F-Expanded-Src-FILE END-READ
3685 END-IF
3686 * ELSE *> COPY
3687 SET WS-RS-In-Copybook-BOOL TO TRUE
3688 END-IF
3689 .
3690 /
3691 520-Expanded-Src-Record SECTION.
3692 IF WS-RS-In-Main-Module-BOOL
3693 ADD 1 To WS-Curr-Line-NUM
3694 GC0712 READ F-Original-Src-FILE AT END CONTINUE END-READ
3695 ADD 1 TO WS-Src-Line-NUM
3696 MOVE SPACES TO WS-Src-Detail-Line-TXT
3697 MOVE WS-Src-Line-NUM TO WS-SDL-Line-NUM
3698 GC1213 MOVE F-Original-Src-REC TO WS-SDL-Statement-TXT
3699 GC0712 MOVE LOWER-CASE(TRIM(F-OS-8-72-TXT,LEADING))
3700 GC0712 TO WS-Temp-65-Chars-TXT
3701 GC0712 INSPECT WS-Temp-65-Chars-TXT REPLACING ALL '.' BY SPACE
3702 GC0712 EVALUATE TRUE
3703 GC0712 WHEN F-OS-7-CHR = '/'
3704 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3705 GC1213 PERFORM 530-Generate-Source-Line
3706 GC1213 UNTIL WS-Lines-Left-NUM = 0
3707 GC0712 WHEN WS-Temp-65-Chars-TXT = "eject"
3708 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3709 GC1213 PERFORM 530-Generate-Source-Line
3710 GC1213 UNTIL WS-Lines-Left-NUM = 0
3711 GC0712 EXIT SECTION
3712 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip1"
3713 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3714 GC0712 PERFORM 530-Generate-Source-Line
3715 GC0712 EXIT SECTION
3716 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip2"
3717 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3718 GC0712 PERFORM 530-Generate-Source-Line 2 TIMES
3719 GC0712 EXIT SECTION
3720 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip3"
3721 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3722 GC0712 PERFORM 530-Generate-Source-Line 3 TIMES
3723 GC0712 EXIT SECTION
3724 GC0712 END-EVALUATE
3725 PERFORM 530-Generate-Source-Line
3726 ELSE
3727 IF F-Expanded-Src-REC NOT = SPACES
3728 MOVE SPACES TO WS-Src-Detail-Line-TXT
3729 GC1213 MOVE F-Expanded-Src-REC
3730 TO WS-SDL-Statement-TXT
3731 GC0712 MOVE LOWER-CASE(TRIM(F-OS-8-72-TXT,LEADING))
3732 GC0712 TO WS-Temp-65-Chars-TXT
3733 GC0712 INSPECT WS-Temp-65-Chars-TXT
3734 GC0712 REPLACING ALL '.' BY SPACE
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 95
3735 GC0712 EVALUATE TRUE
3736 GC0712 WHEN WS-Temp-65-Chars-TXT = "eject"
3737 GC0712 MOVE 0 TO WS-Lines-Left-NUM
3738 GC0712 EXIT SECTION
3739 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip1"
3740 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3741 GC0712 PERFORM 530-Generate-Source-Line
3742 GC0712 EXIT SECTION
3743 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip2"
3744 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3745 GC0712 PERFORM 530-Generate-Source-Line 2 TIMES
3746 GC0712 EXIT SECTION
3747 GC0712 WHEN WS-Temp-65-Chars-TXT = "skip3"
3748 GC0712 MOVE SPACES TO WS-Src-Detail-Line-TXT
3749 GC0712 PERFORM 530-Generate-Source-Line 3 TIMES
3750 GC0712 EXIT SECTION
3751 GC0712 END-EVALUATE
3752 PERFORM 530-Generate-Source-Line
3753 END-IF
3754 END-IF
3755 .
3756 /
3757 530-Generate-Source-Line SECTION.
3758 GC1213 MOVE 1 TO WS-Src-Lines-NUM
3759 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3760 GC1213 IF WS-SDL-Statement-TXT(129:128) > SPACES
3761 GC1213 ADD 1 TO WS-Src-Lines-NUM
3762 GC1213 END-IF
3763 GC1213 ELSE *> PORTRAIT
3764 GC1213 IF WS-SDL-Statement-TXT(90:167) > SPACES
3765 GC1213 ADD 1 TO WS-Src-Lines-NUM
3766 GC1213 IF WS-SDL-Statement-TXT(179:78) > SPACES
3767 GC1213 ADD 1 TO WS-Src-Lines-NUM
3768 GC1213 END-IF
3769 GC1213 END-IF
3770 GC1213 END-IF
3771 GC1213 IF WS-Lines-Left-NUM < WS-Src-Lines-NUM
3772 GC1213 IF WS-Page-Num > 0 *> Don't print footer before page 1
3773 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3774 GC1213 IF WS-Src-Lines-NUM = 2
3775 GC1213 WRITE F-Listing-135-REC FROM SPACES BEFORE 1 *> Blank Line
3776 GC1213 END-IF
3777 GC1213 WRITE F-Listing-135-REC FROM SPACES BEFORE 1 *> Footer Line #1
3778 GC1213 MOVE ALL '='
3779 GC1213 TO F-Listing-135-REC
3780 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Footer Line #2
3781 GC1213 MOVE WS-Copyright-TXT
3782 GC1213 TO F-Listing-135-REC
3783 GC1213 MOVE WS-Page-No-TXT
3784 GC1213 TO F-Listing-135-REC(126:10)
3785 GC1213 WRITE F-Listing-135-REC BEFORE PAGE *> Footer Line #3
3786 GC1213 WRITE F-Listing-135-REC FROM SPACES BEFORE 1 *> Spaces After FF Character
3787 GC1213 ELSE *> PORTRAIT
3788 GC1213 EVALUATE WS-Src-Lines-NUM
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 96
3789 GC1213 WHEN 1 *> Need no extra blank lines
3790 GC1213 CONTINUE
3791 GC1213 WHEN 2 *> Need 1 extra blank line
3792 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1
3793 GC1213 WHEN 3 *> Need 2 extra blank lines
3794 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1
3795 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1
3796 GC1213 END-EVALUATE
3797 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1 *> Footer Line #1
3798 GC1213 MOVE ALL '='
3799 GC1213 TO F-Listing-96-REC
3800 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Footer Line #2
3801 GC1213 MOVE WS-Copyright-TXT
3802 GC1213 TO F-Listing-96-REC
3803 GC1213 MOVE WS-Page-No-TXT
3804 GC1213 TO F-Listing-96-REC(87:10)
3805 GC1213 WRITE F-Listing-96-REC BEFORE PAGE *> Footer Line #3
3806 GC1213 WRITE F-Listing-96-REC FROM SPACES BEFORE 1 *> Spaces After FF Character
3807 GC1213 END-IF
3808 GC1213 END-IF
3809 GC1213 ADD 1 TO WS-Page-NUM
3810 GC1213 MOVE 'Page:' TO WS-PN-Literal-TXT
3811 GC1213 MOVE WS-Page-NUM TO WS-PN-Page-NUM
3812 GC1213 CALL 'C$JUSTIFY' USING WS-PN-Page-NUM, 'Left'
3813 GC1213 CALL 'C$JUSTIFY' USING WS-Page-No-TXT, 'Right'
3814 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3815 GC1213 MOVE WS-Version-TXT
3816 GC1213 TO F-Listing-135-REC
3817 GC1213 MOVE 'Source Listing'
3818 GC1213 TO F-Listing-135-REC(25:14)
3819 GC1213 MOVE WS-Formatted-DT
3820 GC1213 TO F-Listing-135-REC(126:10)
3821 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #1
3822 GC1213 MOVE WS-Program-Path-TXT
3823 GC1213 TO F-Listing-135-REC
3824 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #2
3825 GC1213 MOVE 'Line Statement'
3826 GC1213 TO F-Listing-135-REC
3827 GC1213 MOVE WS-Page-No-TXT
3828 GC1213 TO F-Listing-135-REC(126:10)
3829 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #3
3830 GC1213 MOVE WS-Src-Dashes-TXT
3831 GC1213 TO F-Listing-135-REC
3832 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Page Header Line #4
3833 GC1213 ELSE *> PORTRAIT
3834 GC1213 MOVE WS-Version-TXT
3835 GC1213 TO F-Listing-96-REC
3836 GC1213 MOVE 'Source Listing'
3837 GC1213 TO F-Listing-96-REC(25:14)
3838 GC1213 MOVE WS-Formatted-DT
3839 GC1213 TO F-Listing-96-REC(87:10)
3840 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #1
3841 GC1213 MOVE WS-Program-Path-TXT(40:96)
3842 GC1213 TO F-Listing-96-REC
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 97
3843 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #2
3844 GC1213 MOVE 'Line Statement'
3845 GC1213 TO F-Listing-96-REC
3846 GC1213 MOVE WS-Page-No-TXT
3847 GC1213 TO F-Listing-96-REC(87:10)
3848 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #3
3849 GC1213 MOVE WS-Src-Dashes-TXT
3850 GC1213 TO F-Listing-96-REC
3851 GC1213 WRITE F-Listing-96-REC BEFORE 1 *> Page Header Line #4
3852 GC1213 END-IF
3853 GC1213 COMPUTE WS-Lines-Left-NUM = WS-Lines-Per-Page-NUM - 4
3854 GC1213 END-IF
3855 GC1213 IF L-Listing-CD = 1 *> LANDSCAPE
3856 GC1213 EVALUATE WS-Src-Lines-NUM
3857 GC1213 WHEN 1
3858 GC1213 MOVE WS-Src-Detail-Line-TXT TO F-Listing-135-REC
3859 GC1213 WRITE F-Listing-96-REC BEFORE 1
3860 GC1213 SUBTRACT 1 FROM WS-Lines-Left-NUM
3861 GC1213 WHEN 2
3862 GC1213 MOVE WS-SDL-Statement-TXT TO WS-Src-Hold-TXT
3863 GC1213 MOVE WS-Src-Detail-Line-TXT TO F-Listing-135-REC
3864 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Prints chars 1-128 of stmnt
3865 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3866 GC1213 MOVE WS-Src-Hold-TXT(129:128) TO WS-SDL-Statement-TXT
3867 GC1213 MOVE WS-Src-Detail-Line-TXT TO F-Listing-135-REC
3868 GC1213 WRITE F-Listing-135-REC BEFORE 1 *> Prints chars 129-256 of stmnt
3869 GC1213 SUBTRACT 2 FROM WS-Lines-Left-NUM
3870 GC1213 END-EVALUATE
3871 GC1213 ELSE *> PORTRAIT
3872 GC1213 EVALUATE WS-Src-Lines-NUM
3873 GC1213 WHEN 1 *> Print only chars 1-89 of stmnt
3874 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
3875 GC1213 BEFORE 1
3876 GC1213 SUBTRACT 1 FROM WS-Lines-Left-NUM
3877 GC1213 WHEN 2 *> Print only chars 1-89 and 90-178 of text
3878 GC1213 MOVE WS-SDL-Statement-TXT TO WS-Src-Hold-TXT
3879 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
3880 GC1213 BEFORE 1
3881 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3882 GC1213 MOVE WS-Src-Hold-TXT(90:89) TO WS-SDL-Statement-TXT
3883 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
3884 GC1213 BEFORE 1
3885 GC1213 SUBTRACT 2 FROM WS-Lines-Left-NUM
3886 GC1213 WHEN 3 *> Print chars 1-89, 90-178 and 179-256 of stmnt
3887 GC1213 MOVE WS-SDL-Statement-TXT TO WS-Src-Hold-TXT
3888 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
3889 GC1213 BEFORE 1
3890 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3891 GC1213 MOVE WS-Src-Hold-TXT(90:89) TO WS-SDL-Statement-TXT
3892 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
3893 GC1213 BEFORE 1
3894 GC1213 MOVE SPACES TO WS-Src-Detail-Line-TXT
3895 GC1213 MOVE WS-Src-Hold-TXT(179:78) TO WS-SDL-Statement-TXT
3896 GC1213 WRITE F-Listing-96-REC FROM WS-Src-Detail-Line-TXT
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:06 Page 98
3897 GC1213 BEFORE 1
3898 GC1213 SUBTRACT 3 FROM WS-Lines-Left-NUM
3899 GC1213 END-EVALUATE
3900 GC1213 END-IF
3901 MOVE SPACES TO WS-Src-Detail-Line-TXT
3902 .
3903
3904 END PROGRAM LISTING.
3905 *>>>Info: Total Copy Depth Used = 02; Caution messages issued = 1
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 99
Symbols of Module: GCIC (LISTING)
---------------------------------
Data Section (FILE) Defn Locations
-------------------------------+---------------------------------------------------------------
F-ES-1-7-TXT 001631F 002776 003662
F-ES-1-CHR 001628F 002777 003663
F-ES-2-256-TXT-256 001629F 002920 003675
F-ES-8-256-TXT 001632F
F-EXPANDED-SRC-FILE 001617F 001626 002709 002756 002766 003653 003656 003671 003684
F-EXPANDED-SRC-REC 001627F 002710 002764 002788 002790 002820 002824 002833 002837
002846 002850 002858 002876 002961 002966 003727 003729
F-EXPANDED-SRC2-REC 001630F
F-LISTING-135-REC 001636F 003559 003561 003563 003564 003566 003567 003570 003572
003573 003574 003575 003576 003577 003578 003579 003607
003619 003621 003622 003624 003626 003628 003630 003631
003775 003777 003779 003780 003782 003784 003785 003786
003816 003818 003820 003821 003823 003824 003826 003828
003829 003831 003832 003858 003863 003864 003867 003868
F-LISTING-96-REC 001635F 003582 003584 003586 003587 003589 003590 003593 003595
003596 003597 003598 003599 003600 003601 003602 003610
003634 003636 003637 003639 003641 003643 003645 003646
003792 003794 003795 003797 003799 003800 003802 003804
003805 003806 003835 003837 003839 003840 003842 003843
003845 003847 003848 003850 003851 003859 003874 003879
003883 003888 003892 003896
F-LISTING-FILE 001619F 001634 002613 002621
F-LISTING-REC 001637F
F-ORIGINAL-SRC-FILE 001621F 001639 003652 003670 003694
F-ORIGINAL-SRC-REC 001640F 003698
F-OS-1-128-TXT 001641F
F-OS-129-256-TXT 001646F
F-OS-7-CHR 001643F 003703
F-OS-8-72-TXT 001644F 003699 003731
F-SORT-WORK-FILE 001623F 001648 002615 003478
F-SORT-WORK-REC 001649F 002731 002733 002768 002770 003248 003251 003254 003296
003299 003304 003307 003328 003330 003333 003416 003423
003428 003433 003437 003447 003457 003461
F-SW-DEF-LINE-NUM 001654F 003421 003504 003512 003516 003528 003529
F-SW-PROG-ID-TXT 001650F 002616 003417 003438 003448 003462 003489 003495 003500
003509 003521 003525
F-SW-REF-FLAG-CHR 001657F 003253 003298 003306 003332 003443 003467 003540
F-SW-REF-LINE-NUM 001656F 002618 003422 003442 003452 003466 003538
F-SW-REFERENCE-TXT 001655F 003532
F-SW-SECTION-TXT 001653F 003420 003441 003451 003465 003511 003527
F-SW-TOKEN-TXT 001652F 003419 003440 003450 003464 003526
F-SW-TOKEN-UC-TXT 001651F 002617 003418 003439 003449 003463 003490 003501 003503
003515
L-LISTING-FN-TXT 001619F 002593 002605
L-SRC-FN-TXT 001621F 002595 002606 002642 002643 002645 002650 002654 002666
002667 002669 002671 002676
WS-EXPANDED-SRC-FN-TXT 001617F 001697 002684 002685
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 100
Symbols of Module: GCIC (LISTING)
---------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
WS-CD-IN-DATA-DIV-BOOL 001674W 002741
WS-CD-IN-ENV-DIV-BOOL 001673W 002739
WS-CD-IN-IDENT-DIV-BOOL 001672W 002737
WS-CD-IN-PROC-DIV-BOOL 001675W 002743
WS-COPYRIGHT-TXT 001660W 002631 002637 003623 003638 003781 003801
WS-CPI-13-15-TXT 001681W 003032
WS-CPI-16-CHR 001682W 003031
WS-CS-1-CHR 001685W 002954
WS-CS-11-14-TXT 001688W 002956 002957
WS-CS-15-CHR 001689W 002959
WS-CS-2-14-TXT 001686W 002955
WS-CURR-CHAR-IS-PUNCT-BOOL 001663W 002799 002807 002812
WS-CURR-CHAR-IS-QUOTE-BOOL 001667W 002818
WS-CURR-CHAR-IS-X-BOOL 001668W 002831
WS-CURR-CHAR-IS-Z-BOOL 001669W 002844
WS-CURR-CHR 001662W 002789 002792 002794 002800 002808 002814 002821
WS-CURR-DIVISION-TXT 001671W 002714 002750 002801 002809 002909 003025 003044 003070
003126 003131
WS-CURR-LINE-NUM 001677W 002713 002773 002932 002972 003421 003442 003452 003466
003693
WS-CURR-PROG-ID-TXT 001679W 002703 003030 003417 003438 003448 003462
WS-CURR-SECTION-TXT 001684W 002935 002940 003049 003075 003121 003122 003420 003441
003451 003465
WS-CURR-VERB-TXT 001691W 002704 002728 002752 003136 003145
WS-DELIM-TXT 001693W 002861 002863 002881 002883 002886
WS-DUMMY-TXT 001695W 002679 002924 002953 002986 002991 002992 003679
WS-EXPANDED-SRC-FN-TXT 001697W 002684 002685
WS-FILENAME-TXT 001699W 002678 002681 002952 002955
WS-FLAGS-TXT 001701W
WS-FORMATTED-DT 001704W 002702 003562 003585 003819 003838
WS-GI-PROG-ID-TXT 001707W 003489 003495 003500
WS-GI-TOKEN-TXT 001708W 003490 003501 003503 003515
WS-GROUP-INDICATORS-TXT 001706W 003473
WS-HELD-REFERENCE-TXT 001710W 002705 002730 002731 002732 002767 002768 002769 003248
003250 003251 003252 003289 003295 003296 003297 003303
003304 003305 003328 003330 003331
WS-I-SUB 001712W 002643 002646 002649 002653 002669 002672 002673 002676
002929 002932 002943 002946 002947 002950 003474 003508
003520 003533 003534 003536 003539 003541 003614
WS-J-SUB 001714W 002670 002674 002944 002948
WS-LINES-LEFT-NUM 001716W 003475 003484 003498 003550 003604 003615 003659 003706
003710 003737 003771 003853 003860 003869 003876 003885
003898
WS-LINES-PER-PAGE-ENV-TXT 001720W 002659 002663 002690 002691
WS-LINES-PER-PAGE-NUM 001718W 002692 002695 002697 002700 003604 003853
WS-MAIN-MODULE-NAME-TXT 001722W 002650 002655 002931 003681
WS-NEXT-CHAR-IS-QUOTE-BOOL 001725W 002831 002844
WS-NEXT-CHR 001724W 002791 002834 002847
WS-OS-TYPE-FILLER-TXT 001727W 001733
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 101
Symbols of Module: GCIC (LISTING)
---------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
WS-OS-TYPE-TXT 001734W 002633
WS-OS-TYPES-TXT 001733W
WS-PAGE-NO-TXT 001739W 003556 003571 003594 003625 003640 003783 003803 003813
003827 003846
WS-PAGE-NUM 001737W 002629 003552 003554 003772 003809 003811
WS-PN-LITERAL-TXT 001740W 003553 003810
WS-PN-PAGE-NUM 001741W 003554 003555 003811 003812
WS-PROGRAM-PATH-TXT 001743W 002667 002668 003565 003588 003822 003841
WS-RESERVED-WORD-TABLE-TXT 002500W
WS-RESERVED-WORD-TXT 002501W 002896
WS-RESERVED-WORDS-TXT 001745W 002500
WS-RS-DUPLICATE-CHR 002509W 003476 003491 003506 003517 003518
WS-RS-IN-COPYBOOK-BOOL 002512W 002938 003687
WS-RS-IN-MAIN-MODULE-BOOL 002511W 002933 002971 003682 003692
WS-RS-IN-WHICH-PGM-CHR 002510W
WS-RS-LAST-TOKEN-ENDED-SENT-CHR 002513W 002762 002908
WS-RS-PROCESSING-PICTURE-CHR 002514W 002857 002871 003080
WS-RS-TOKEN-ENDED-SENTENCE-CHR 002515W 002749 002761 002763 002796 002825 002838 002851 002864
002884
WS-RS-VERB-HAS-BEEN-FOUND-CHR 002516W 002715 002900 003022
WS-RUNTIME-SWITCHES 002508W
WS-RW-IDX 002504W 002897 002898
WS-RW-TYPE-CD 002505W 002898
WS-RW-WORD-TXT 002503W 002506 002897
WS-SAVED-SECTION-TXT 002518W 002934 002935 002939 002940
WS-SDL-LINE-NUM 002525W 003697
WS-SDL-STATEMENT-TXT 002527W 003698 003730 003760 003764 003766 003862 003866 003878
003882 003887 003891 003895
WS-SRC-DASHES-TXT 002520W 003830 003849
WS-SRC-DETAIL-LINE-TXT 002524W 003657 003696 003704 003708 003713 003717 003721 003728
003740 003744 003748 003858 003863 003865 003867 003874
003879 003881 003883 003888 003890 003892 003894 003896
003901
WS-SRC-HOLD-TXT 002529W 003862 003866 003878 003882 003887 003891 003895
WS-SRC-LINE-NUM 002531W 003654 003683 003695 003697
WS-SRC-LINES-NUM 002533W 003758 003761 003765 003767 003771 003774 003788 003856
003872
WS-SRC-SUB 002535W 002711 002764 002765 002784 002788 002790 002793 002802
002813 002819 002823 002824 002826 002832 002836 002837
002839 002845 002849 002850 002852 002862 002865 002882
002887 002962 002967 002969
WS-SUPPRESS-FF-CHR 001702W 002630 003485 003627 003642
WS-TALLY-QTY 002537W 003001 003003 003004 003008 003009
WS-TEMP-10-CHARS-TXT 002539W 002922 002925 002926 002927 002929 003677
WS-TEMP-256-CHARS-TXT 002549W 002686 002923 002930 002942 002945 002950 003678 003680
WS-TEMP-32-CHARS-1-TXT 002541W 002977 002978 002980 002987
WS-TEMP-32-CHARS-2-TXT 002543W 002984 002989 002995 002996 003002 003005 003012
WS-TEMP-32-CHARS-3-TXT 002545W 002985 002990 002998 002999 003007 003010 003012
WS-TEMP-65-CHARS-TXT 002547W 003700 003701 003707 003712 003716 003720 003732 003733
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 102
Symbols of Module: GCIC (LISTING)
---------------------------------
Data Section (WORKING-STORAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
003736 003739 003743 003747
WS-TODAY-DT 002551W 002701 002702
WS-TOKEN-CURR-TXT 002553W 002721 002725 002794 002803 002814 002822 002835 002848
002860 002867 002880 002890 002892 002910 002977 003024
003030 003043 003048 003069 003074 003078 003112 003130
003419 003440 003450 003464
WS-TOKEN-CURR-UC-TXT 002555W 002722 002725 002728 002747 003124 003418 003439 003449
003463
WS-TOKEN-PREV-TXT 002557W 002729 002747 002751 002810 003025 003028 003029 003044
003049 003053 003070 003075 003084 003085 003089 003092
003095 003098 003101 003104 003107 003110 003125 003131
003135 003139 003192 003195 003202 003213 003216 003225
003236 003245 003273 003286 003290 003293 003301 003309
003316 003325 003341 003344 003347 003354 003363 003374
003389 003392 003399
WS-TOKEN-SEARCH-TXT 002559W 002890 002891 002897
WS-TOKEN-TYPE-CD 002561W 002795 002804 002815 002868 002872 002893 002898 002911
WS-TT-TOKEN-IS-ARGTYPE-BOOL 002562W 003019 003039 003065
WS-TT-TOKEN-IS-EOF-BOOL 002563W 002718 002772
WS-TT-TOKEN-IS-FUNCTION-BOOL 002564W 003059
WS-TT-TOKEN-IS-IDENTIFIER-BOOL 002565W 002905 003052 003088 003134 003142
WS-TT-TOKEN-IS-KEYWORD-BOOL 002566W 002723 002746 003023 003042 003047 003068 003073 003079
003129
WS-TT-TOKEN-IS-LIT-ALPHA-BOOL 002567W 002828 002854
WS-TT-TOKEN-IS-LIT-NUMBER-BOOL 002568W 002841 002907 002981 003013
WS-TT-TOKEN-IS-RESERVED-WD-BOOL 002570W 002724 003020 003040 003066 003083
WS-TT-TOKEN-IS-VERB-BOOL 002569W 002727 002899
WS-USERNAMES-QTY 002572W 002712
WS-VERSION-TXT 002574W 002641 003558 003581 003815 003834
WS-XDL-DEF-LINE-NUM 002581W 003512 003529
WS-XDL-PROG-ID-TXT 002577W 003509 003521 003525
WS-XDL-REF-FLAG-CHR 002587W 003541
WS-XDL-REF-LINE-NUM 002586W 003539
WS-XDL-REFERENCE-TXT 002585W
WS-XDL-SECTION-TXT 002583W 003511 003527
WS-XDL-TOKEN-TXT 002579W 003510 003522 003526
WS-XREF-DETAIL-LINE-TXT 002576W 003472 003479 003482 003492 003496 003505 003524 003544
003607 003610 003613
WS-XREF-LINES-PER-REC-NUM 002590W 002658 002662 003534
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 103
Symbols of Module: GCIC (LISTING)
---------------------------------
Data Section (LINKAGE) Defn Locations
-------------------------------+---------------------------------------------------------------
L-LISTING-CD 002603K 002610 002657 002694 003557 003606 003618 003759 003773
003814 003855
L-LISTING-FN-TXT 002593K 002605
L-LPP-NUM 002599K 002608 002695
L-LPP-PORT-NUM 002601K 002609 002697
L-OS-TYPE-CD 002597K 002607 002633
L-SRC-FN-TXT 002595K 002606 002642 002643 002645 002650 002654 002666 002667
002669 002671 002676
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 104
Symbols of Module: GCIC (LISTING)
---------------------------------
Variable Tested [S] Symbol (88-Conditions)
--------------------------------------------------------------
WS-CURR-CHR WS-CURR-CHAR-IS-PUNCT-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-QUOTE-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-X-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-Z-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-IDENT-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-ENV-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-DATA-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-PROC-DIV-BOOL
WS-NEXT-CHR WS-NEXT-CHAR-IS-QUOTE-BOOL
WS-RS-IN-WHICH-PGM-CHR WS-RS-IN-MAIN-MODULE-BOOL
WS-RS-IN-WHICH-PGM-CHR WS-RS-IN-COPYBOOK-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-ARGTYPE-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-EOF-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-FUNCTION-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-IDENTIFIER-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-KEYWORD-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-LIT-ALPHA-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-LIT-NUMBER-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-VERB-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-RESERVED-WD-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 105
Symbols of Module: GCIC (LISTING)
---------------------------------
Variable Tested Symbol (88-Conditions) [S]
--------------------------------------------------------------
WS-CURR-DIVISION-TXT WS-CD-IN-DATA-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-ENV-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-IDENT-DIV-BOOL
WS-CURR-DIVISION-TXT WS-CD-IN-PROC-DIV-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-PUNCT-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-QUOTE-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-X-BOOL
WS-CURR-CHR WS-CURR-CHAR-IS-Z-BOOL
WS-NEXT-CHR WS-NEXT-CHAR-IS-QUOTE-BOOL
WS-RS-IN-WHICH-PGM-CHR WS-RS-IN-COPYBOOK-BOOL
WS-RS-IN-WHICH-PGM-CHR WS-RS-IN-MAIN-MODULE-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-ARGTYPE-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-EOF-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-FUNCTION-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-IDENTIFIER-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-KEYWORD-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-LIT-ALPHA-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-LIT-NUMBER-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-RESERVED-WD-BOOL
WS-TOKEN-TYPE-CD WS-TT-TOKEN-IS-VERB-BOOL
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 106
Symbols of Module: GCIC (LISTING)
---------------------------------
Functions Defn Locations
-------------------------------+---------------------------------------------------------------
LOWER-CASE 003699I 003731
NUMVAL 002691I 002929
TRIM 002642I 002669 002681 002930 002931 002942 003680 003681 003699
003731
UPPER-CASE 002650I 002654 002721 002867 002890 002930 003680
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 107
Symbols of Module: GCIC (LISTING)
---------------------------------
Called Procedures Type Locations
-------------------------------+--------------------------------------------------------
C$JUSTIFY SYSTEM 002668 003555 003556 003812 003813
CBL_CHECK_FILE_EXIST SYSTEM 002685
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 108
Symbols of Module: GCIC (LISTING)
---------------------------------
Procedure Defn Locations
-------------------------------+---------------------------------------------------------------
COMP-VERS 002641P
COMP-YEAR 002635P
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 109
Symbols of Module: GCIC (LISTING)
---------------------------------
Unreferenced Working Storage Symbols
CBL_CHECK_FILE_EXIST 002685C
F-ES-8-256-TXT 001632F
F-EXPANDED-SRC2-REC 001630F
F-LISTING-REC 001637F
F-OS-1-128-TXT 001641F
F-OS-129-256-TXT 001646F
WS-FLAGS-TXT 001701W
WS-OS-TYPES-TXT 001733W
WS-RESERVED-WORD-TABLE-TXT 002500W
WS-RS-IN-WHICH-PGM-CHR 002510W
WS-RUNTIME-SWITCHES 002508W
WS-XDL-REFERENCE-TXT 002585W
ACS Cobol Xref v2.02.04 Dictionary File for GCIC (LISTING) 06/03/2022 23:09:11:07 Page 110
Symbols of Module: GCIC (LISTING)
---------------------------------
Unreferenced Procedures
COMP-VERS 002641P
COMP-YEAR 002635P