AW: GET-statement with or without VIA option.
RessingM@unive.nl
RessingM@unive.nl
Wed, 13 Feb 2002 14:03:40 +0100
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01C1B48E.DB87CB70
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Chris,
the GET-statement I showed is performed from within an internal =
procedure.
That procedure is called from within the INITIALIZE-procedure, inside a
While retrieving on the file GEDD037Z (sequential).
The file DES1_GEDD037Z is an alias of GEDD037Z. I already put the OPEN
option on one of these files, to prevent a possible conflict.
Merol made a good suggestion that PowerHouse possibly can't match =
TNUENDRMNT
to the second index-item. I tested that (by providing ENUENDRMNT of =
GEDD037Z
instead of TNUENDRMNT), but that doesn't seem to be the case. It still =
goes
wrong.
Although it looks like the get-statement only retrieves using the first
key-item.
Here's the definition of GEDD037Z:
<<Gedd037z.txt>>=20
Greetings,
Martie Ressing
> ----------
> Van: Chris Sharman[SMTP:chris.sharman@ccagroup.co.uk]
> Verzonden: woensdag 13 februari 2002 11:56
> Aan: ressingm@unive.nl; powerh-l@lists.swau.edu
> Onderwerp: RE: GET-statement with or without VIA option.
>=20
>=20
> Yes, I think it should be the same.
> I don't think there were any relevant issues in 7.10.F2.
> What access statements have you got on the file ?
> Please post output of
> Qshow> sho rec des1_gedd037z
> as well as the quick file statement, access statements, field =
statement,
> and which procedure you're in.
> GET can conflict with lookup clauses during input/edit processing - =
if
> this
> is the case you're better with another file "alias other open 1".
>=20
> Chris
> -----Original Message-----
> From: ressingm@unive.nl [mailto:ressingm@unive.nl]
> Sent: 13 February 2002 09:18
> To: mx% powerh-l@lists.swau.edu
> Subject: GET-statement with or without VIA option.
>=20
>=20
> Hello,
>=20
> I have a question about using the VIA option on a GET-statement in =
Quick.
> In
> most cases I use only the VIAINDEX and the USING options to define a =
get
> statement. For example:
>=20
> GET DES1_GEDD037Z &
> VIAINDEX GEDD037A &
> USING ENUPLC OF GEDD037Z, &
> TNUENDRMNT &
> OPTIONAL
>=20
> But this statement doesn't always retrieve the correct record and the
> problem is solved by adding the VIA option:
>=20
> GET DES1_GEDD037Z &
> VIAINDEX GEDD037A &
> VIA ENUPLC, ENUENDRMNT &
> USING ENUPLC OF GEDD037Z, &
> TNUENDRMNT &
> OPTIONAL
>=20
> In my opinion both constructions should work identical (both using =
the
> same
> index-fields), but they don't, according to my test results.
> Does anyone have a suggestion what causes the difference ?
>=20
> Additional information:
> PowerHouse version 7.10.F2
> Platform: OpenVMS 7.1 (DEC-Alpha)
> File-type: RMS, indexed
>=20
> Greetings,
>=20
> Martie Ressing
> Univ=E9 Verzekeringen
> Zwolle, The Netherlands
>=20
> =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to =
powerh-l-request@lists.swau.edu
> Unsubscribe: "unsubscribe" in message body to
> powerh-l-request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a =
subscriber.
> =
------------------------------------------------------------------------=
--
> --
> ----
> Date: Wed, 13 Feb 2002 10:04:05 +0100
>=20
>=20
>=20
> =
-----------------------------------------------------------------------
>=20
> Any views expressed in this message are those of the sender and not
> necessarily those of CCA Group. The unauthorized use, disclosure,
> copying or alteration of this message is forbidden. The contents of
> this message may be confidential and/or privileged, copyright CCA =
Group
> and are intended solely for the use of the individual or entity to =
whom
> they are addressed. Whilst this message has been scanned, CCA Group
> cannot guarantee that it is virus free or compatible with your =
systems
> and accepts no responsibility for any loss or damage arising from its
> use. The recipient is advised to run their own anti-virus software. =
If
> you receive this message in error please contact
> postmaster@ccagroup.co.uk immediately, destroy any copies and delete =
it
> from your computer systems.
>=20
------_=_NextPart_000_01C1B48E.DB87CB70
Content-Type: text/plain;
name="Gedd037z.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="Gedd037z.txt"
13/02/2002 Alive Page =
1
R E C O R D R E P O R T
For DICTIONARY: ONT00000A:[BS.PHD]BISNL.PHD;
=
=20
Record: GEDD037Z
of File: GEDD037Z
Organization: INDEXED
Type: RMS
Open: BS_DAT:GEDD037Z
Record Format: Fixed
Supersede: No
Description:
Algemene polisgegevens
Record Size: 638 Bytes
-- Record Contents --
Item Type Size Occ =
Offset
ECOPRDCT CHARACTER 5 =
0
ECOCTGR CHARACTER 2 =
5
ECORGSTOFF CHARACTER 2 =
7
ECOUSRNM CHARACTER 12 =
9
ENUPLC CHARACTER 12 =
21
ENUENDRMNT ZONED UNSIGNED 4 =
33
ECOSTTN CHARACTER 2 =
37
ENUINTRMDR CHARACTER 12 =
39
ENUPLCHLDR CHARACTER 12 =
51
EDADMND ZONED UNSIGNED 8 =
63
EDACRTPLC ZONED UNSIGNED 8 =
71
EDAINCPTN3 ZONED UNSIGNED 8 =
79
ETIINCPHR ZONED UNSIGNED 4 =
87
EDAINCENDR ZONED UNSIGNED 8 =
91
EDDPRDYRS ZONED UNSIGNED 3 =
99
EDMPRDMNTH ZONED UNSIGNED 2 =
102
EDDPRDDS ZONED UNSIGNED 3 =
104
EDAEXPPLCY ZONED UNSIGNED 8 =
107
ECOMTHPMNT CHARACTER 2 =
115
ECOSPLTTNG CHARACTER 2 =
117
EDAPRNCDUE ZONED UNSIGNED 8 =
119
ECOCRRNC CHARACTER 3 =
127
ECORVSNPLC CHARACTER 2 =
130
EDAREVPLCY ZONED UNSIGNED 8 =
132
EFLPLCAUTH CHARACTER 1 =
140
EFLOTINSPR CHARACTER 1 =
141
ECOSSPNSN CHARACTER 2 =
142
EDAINCSSPL ZONED UNSIGNED 8 =
144
=0C
13/02/2002 Alive Page =
2
R E C O R D R E P O R T
For DICTIONARY: ONT00000A:[BS.PHD]BISNL.PHD;
=
=20
Item Type Size Occ =
Offset
EDARNCSSPL ZONED UNSIGNED 8 =
152
ECOCNCLLTN CHARACTER 2 =
160
EDACNCLPLC ZONED UNSIGNED 8 =
162
EBCDRCTDBT CHARACTER 2 =
170
EDADRCTDBT ZONED UNSIGNED 8 =
172
ECOOVRRCMM CHARACTER 2 =
180
ECORSNEXCL CHARACTER 2 =
182
EFLOVRCMPR CHARACTER 1 =
184
ECOAUTMEXT CHARACTER 2 =
185
EDACRTN ZONED UNSIGNED 8 =
187
ETIHRCRTN ZONED UNSIGNED 4 =
195
ECOINPDRPL CHARACTER 12 =
199
EDALSTRVPL ZONED UNSIGNED 8 =
211
ECOINPRVPL CHARACTER 12 =
219
EDAACCPTNC ZONED UNSIGNED 8 =
231
ETIHRACCP ZONED UNSIGNED 4 =
239
ECOUSRACCP CHARACTER 12 =
243
EFLACCPBEN CHARACTER 1 =
255
EBCSTTSPLC CHARACTER 2 =
256
EBCINCTV CHARACTER 2 =
258
EDAPLCINCT ZONED UNSIGNED 8 =
260
EDAPRPMINC ZONED UNSIGNED 8 =
268
EBCDNNGPLC CHARACTER 2 =
276
EDADNNPLCY ZONED UNSIGNED 8 =
278
ECOINCTV CHARACTER 2 =
286
ECODMNDMOD CHARACTER 2 =
288
EBCPLCPRNT CHARACTER 2 =
290
EFLOBNIPLH CHARACTER 1 =
292
ENUINSPCTR CHARACTER 12 =
293
ECORSNENDR CHARACTER 2 =
305
EFLPRINSRN CHARACTER 1 =
307
ENUPRPSL CHARACTER 12 =
308
ECOSBCMPPR CHARACTER 2 =
320
ECOSBSCMDM CHARACTER 2 =
322
ECOSBSPLCH CHARACTER 2 =
324
EDSRFRPLCH CHARACTER 20 =
326
EDSRFPLCHL CHARACTER 20 =
346
ENUENDRPRV ZONED UNSIGNED 4 =
366
ECOMNGMNT CHARACTER 2 =
370
ECOCTGACCT CHARACTER 4 =
372
ECOINSPCTR CHARACTER 4 =
376
EPERDCTN FLOAT 8 =
380
ECOCLCRDCT CHARACTER 2 =
388
ECODRCTSTT CHARACTER 2 =
390
ENUBNFCRSV CHARACTER 12 =
392
EPEACCBNFC FLOAT 8 =
404
ECORDCPRCM CHARACTER 2 =
412
ECORDCSTTL CHARACTER 2 =
414
ECODDTMNGM CHARACTER 2 =
416
ECOCTGEMPL CHARACTER 4 =
418
ECODGREMPL CHARACTER 4 =
422
=0C
13/02/2002 Alive Page =
3
R E C O R D R E P O R T
For DICTIONARY: ONT00000A:[BS.PHD]BISNL.PHD;
=
=20
Item Type Size Occ =
Offset
ECOCPMNT CHARACTER 2 =
426
ENUACDRDBT CHARACTER 35 =
428
ENUSBPLC ZONED UNSIGNED 4 =
463
ENURSKGRP ZONED UNSIGNED 4 =
467
ENURSK ZONED UNSIGNED 4 =
471
ENUMSTRPOL CHARACTER 12 =
475
ENUPRNENDR ZONED UNSIGNED 4 =
487
EFLMSTRPLC CHARACTER 1 =
491
EDASGNINVC ZONED UNSIGNED 8 =
492
EDALSTPRPM ZONED UNSIGNED 8 =
500
EFLONLINVC CHARACTER 1 =
508
ECOLNGG CHARACTER 2 =
509
ENUINTOCMP CHARACTER 12 =
511
EFLTXIMMNI CHARACTER 1 =
523
ECOTXIMM CHARACTER 2 =
524
ECTCPSPLC ZONED UNSIGNED 2 =
526
ECOTMPMN CHARACTER 2 =
528
EDANXTTRN ZONED UNSIGNED 8 =
530
EDANXWFCST ZONED UNSIGNED 8 =
538
EDANXWACST ZONED UNSIGNED 8 =
546
EDANXWPCST ZONED UNSIGNED 8 =
554
ECOFILLER CHARACTER 10 =
562
EDANXWPRMF ZONED UNSIGNED 8 =
572
EDANXWCHLD ZONED UNSIGNED 8 =
580
EDANXWACC ZONED UNSIGNED 8 =
588
EDANXWRSCS ZONED UNSIGNED 8 =
596
EDANXEXPRM ZONED UNSIGNED 8 =
604
ECORSNRFSL CHARACTER 2 =
612
EDARFSL ZONED UNSIGNED 8 =
614
ETIHRRFSL ZONED UNSIGNED 4 =
622
ECOUSRRFSL CHARACTER 12 =
626
-- Index Contents --
** GEDD037A is a 16 byte UNIQUE PRIMARY ASCENDING index **
Segment Type Size
ENUPLC CHARACTER 12
ENUENDRMNT ZONED UNSIGNED 4
** GEDD037B is a 28 byte UNIQUE ALTERNATE ASCENDING index **
=0C
13/02/2002 Alive Page =
4
R E C O R D R E P O R T
For DICTIONARY: ONT00000A:[BS.PHD]BISNL.PHD;
=
=20
Segment Type Size
ENUPLCHLDR CHARACTER 12
ENUPLC CHARACTER 12
ENUENDRMNT ZONED UNSIGNED 4
** GEDD037D is a 20 byte REPEATING ALTERNATE ASCENDING index **
Segment Type Size
EDSRFPLCHL CHARACTER 20
** GEDD037E is a 2 byte REPEATING ALTERNATE ASCENDING index **
Segment Type Size
ECOSTTN CHARACTER 2
** GEDD037F is a 12 byte REPEATING ALTERNATE ASCENDING index **
Segment Type Size
ENUINTRMDR CHARACTER 12
** GEDD037G is a 16 byte REPEATING ALTERNATE ASCENDING index **
Segment Type Size
ENUMSTRPOL CHARACTER 12
ENUPRNENDR ZONED UNSIGNED 4
------_=_NextPart_000_01C1B48E.DB87CB70--