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_001_01C15592.22D9F4A0 Content-Type: text/plain; charset="iso-8859-1" Hi Katie, regarding your question relating to the syntax below, being an old programmer I couldn't put this one down. file crsksam primary access sequential viaindex c-index request beg-index, end-index select if c-index >= beg-index and c-index <= end-index Removal of a cobweb or two uncovered the technique below which should do the trick, can cle set default screen endidx temp beg-index char*15 reset at mode temp end-index char*15 reset at mode temp path-eq-1 int *1 reset at mode file EMPLOYEEs primary access viaindex LAST-NAME & using truncate ( beg-index ) + "@@" request beg-index, end-index access sequential align ( 1,,4 ) ( ,,30) ( ,,50) FIELD last-name FIELD beg-index FIELD end-index proc postpath begin if path = 1 then let path-eq-1 = 1 if end-index = beg-index then let end-index = truncate ( end-index ) + "zzzzzzzzzzzzzzz" end proc input end-index begin if fieldtext lt beg-index then let fieldtext = "zzzzzzzzzzzzzzz" end proc postfind begin if ( path-eq-1 = 1 ) and last-name gt end-index then error = "You have seen all records in range " + & truncate (beg-index) + " to " + truncate (end-index) if ( path-eq-1 = 1 ) then warn = "Press return to see next record" end build list detail regards, Joe Boyle. ____________________________________________________ Software specialist. Cognos Customer Support UK. Cognos Ltd. Phone: +44 / (0)1344 / 707 799 Westerly Point Fax: +44 / (0)1344 / 707 962 ____________________________________________________ Market Street e-mail: Joe.Boyle@cognos.com Bracknell Homepage: http://www.cognos.com Cognos Support Page: http://support.cognos.com Cognos Limited. Registered in England, number 1635598. Registered office: Westerly Point, Market Street, Bracknell, Berkshire, RG12 1QB Please send any e-mail response regarding this communication to support.uk@cognos.com and it will be directed to the specialist dealing with your call. Please make sure that you include the call reference number in the subject line of your e-mail. This message may contain privileged and/or confidential information. If you have received this e-mail in error or are not the intended recipient, you may not use, copy, disseminate or distribute it; do not open any attachments, delete it immediately from your system and notify the sender promptly by e-mail that you have done so. Thank you. ------_=_NextPart_001_01C15592.22D9F4A0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">RE: Very Slow Access Time for KSAM-XL File Hi Katie,
regarding your question relating to = the syntax below, being an old programmer I couldn't put this one = down.
file crsksam primary
access sequential viaindex =
c-index request beg-index, end-index
select if c-index >=3D =
beg-index and c-index <=3D end-index
Removal of a cobweb or two uncovered = the technique below which should do the trick,
can cle
set default
screen endidx
temp beg-index char*15 reset at =
mode
temp end-index char*15 reset at =
mode
temp path-eq-1 int *1 reset at =
mode
file EMPLOYEEs =
primary
access viaindex =
LAST-NAME &
using truncate ( beg-index ) + =
"@@" request beg-index, end-index
access sequential
align ( 1,,4 ) = ( ,,30) ( ,,50)
FIELD last-name
FIELD beg-index
FIELD end-index
proc postpath
begin
if path =3D 1
then let path-eq-1 =3D 1
if end-index =3D =
beg-index
then let end-index =3D truncate =
( end-index ) + "zzzzzzzzzzzzzzz"
end
proc input end-index =
begin
if fieldtext lt beg-index
then let fieldtext =3D =
"zzzzzzzzzzzzzzz"
end
proc postfind
begin
if ( path-eq-1 =3D 1 ) and =
last-name gt end-index
then error =3D "You have seen =
all records in range " + &
truncate (beg-index) + " to =
" + truncate (end-index)
if ( path-eq-1 =3D 1 )
then warn =3D "Press return to =
see next record"
end
build list detail
regards,
Joe =
Boyle.
____________________________________________________
Software =
specialist.
Cognos Customer =
Support UK.
Cognos =
Ltd. &nb=
sp; Phone: =
+44 / (0)1344 / 707 799
Westerly =
Point &=
nbsp; =
Fax: +44 / (0)1344 / =
707 962
____________________________________________________
Market =
Street =
=
e-mail: Joe.Boyle@cognos.com
Bracknell =
=
Homepage: http://www.cognos.com
Cognos &nb=
sp; Support =
Page: http://support.cognos.com
Cognos Limited. Registered in England, =
number 1635598.
Registered office: Westerly =
Point, Market Street, Bracknell, Berkshire, RG12 1QB
Please send any e-mail response = regarding this communication to support.uk@cognos.com and it will be = directed to the specialist dealing with your call. Please make sure = that you include the call reference number in the subject line of your = e-mail.
This message may = contain privileged and/or confidential information. If you have = received this e-mail in error or are not the intended recipient, you = may not use, copy, disseminate or distribute it; do not open any = attachments, delete it immediately from your system and notify the = sender promptly by e-mail that you have done so. Thank = you.
------_=_NextPart_001_01C15592.22D9F4A0--