× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Hello list -

My COBOL skills are quite a bit rusty and I have a production problem that
needs solving. I have an old COBOL program that is our ODBC/SQL log
program. It makes some references to some fields in QSYSINC/EZDAEP that
must have changed between V4R4 (the last time the program was compiled) and
V5R4 (the release we are on now).

First - I reference these fields:

LIB-NAME OF QZDA-NDB-FORMAT2 (1)
LIB-NAME OF QZDA-NDB-FORMAT2 (2)
LIB-NAME OF QZDA-NDB-FORMAT2 (3)
LIB-NAME OF QZDA-NDB-FORMAT2 (4)
LIB-NAME OF QZDA-NDB-FORMAT2 (5)

This used to work but the copybook now is defined as:

05 NBR-OF-LIBRARIES PIC S9(00009) BINARY.
* Number of libraries in list
* 05 LIB-NAME PIC X(00010)
* OCCURS xxxxx TIMES.
* Varying number
* of library names

with LIB-NAME commented out. How can I readily access the first 'x' number
of occurrences of LIB-NAME (up to 5 of them) so I can move these fields to
the logfile record.

Second - I reference this field:
SQL-STATEMENT-TEXT OF QZDA-SQL-FORMAT2

which now is defined as:

05 SQL-STATEMENT-TEXT-LEN PIC S9(00009) BINARY.
* Length of SQL Stmt text
* 05 SQL-STATEMENT-TEXT PIC X(xxxxx).
* Varying length
* SQL statement text

Again, SQL-STATEMENT-TEXT is now commented out. How I can reference the
SQL-STATEMENT-TEXT?

TIA for pointing me in the correct direction,
Scott




This electronic mail message and all attachments to it contain information
intended only for the use of the individual to whom it is addressed and may
include confidential and / or legally privileged information. If you are
not the intended recipient, you have received this message and all
attachments in error, and any review, use, dissemination, distribution or
copying of any item is strictly prohibited. If you have received this
communication in error, please notify the sender immediately by return
email and delete this electronic mail message and all attachments from your
computer, including all copies.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.