I am extracting data from an HP3000 file with filecode FAK using QTP.
This is the relevant information:
2017 Oct 02 Harte & Lyne Limited
Page 1
R E C O R D R E P O R T
For DICTIONARY: PDHARTLC.OBJ839
Record: ALIASES
of File: ALIASES
Organization: INDEXED
Type: KSAMXL (ASCII,REUSE)
Open: ACCTK02D
Record Size: 62 Bytes
-- Record Contents --
Item Type Size Occ Offset
DESCRIPTION CHARACTER 30 0
SOUNDEX-CODE CHARACTER 8 30
KEY-VALUE CHARACTER 20 38
.ACCOUNT-NUMBER ZONED UNSIGNED 8 38
RECORD-TYPE CHARACTER 4 58
This file is accessed by multiple QUICK users through the following
file equation:
FILE ACCTK02D=ACCTK02D.DATA;SHR;BUF=6;GMULTI
If I view the unsorted contents of this file using QUIZ then I see this:
. . .
ACCORD A263 00000150 CUST
ACCOUNTANT A253 00200666 VEND
ACCOUNTEMPS A253 00200462 VEND
ACCURIDE CANADA INC. A263 00000182 CUST
ACEL A240 00000336 CUST
. . .
Likewise, if I scroll sequentially through the records using a simple
purpose built QUICK screen I can see ACCOUNTEMPS followed immediately
by
ACCURIDE with no intervening record.
However, when I try to extract the same data via QTP as follows:
ACCESS ALIASES ALIAS AA
SUBFILE QPCSVAA1 NODICTIONARY KEEP PORTABLE NOAPPEND SIZE 15000 &
INCLUDE &
QUOTE, &
DESCRIPTION OF AA, &
QDELIMQ, &
SOUNDEX-CODE OF AA, &
QDELIMQ, &
KEY-VALUE OF AA, &
QDELIMQ, &
RECORD-TYPE OF AA, &
QUOTE
Then I get this output:
*ACCORD *,*A263 *,*00000150 *,*CUST*
*ACCOUNTANT *,*A253 *,*00200666 *,*VEND*
*ACCOUNTEMPS *,*A253 *,*00200462 *,*VEND*
for Jan re IN340958 of July 26
*,*RAMNRAIN*,*AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
*ACCURIDE CANADA INC. *,*A263 *,*00000182 *,*CUST*
*ACEL *,*A240 *,*00000336 *,*CUST*
Note that there is no leading or training * for the deviant record but
that the internal delimiters are present.
I have repeated this QTP extract several times with the same result.
How does this happen?
--
*** e-Mail is NOT a SECURE channel ***
Do NOT transmit sensitive data via e-Mail
Do NOT open attachments nor follow links sent by e-Mail
James B. Byrne mailto:[log in to unmask]
Harte & Lyne Limited http://www.harte-lyne.ca
9 Brockley Drive vox: +1 905 561 1241
Hamilton, Ontario fax: +1 905 561 0757
Canada L8E 3C3
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|