[A3/PROJ1]:run ppsldsur;debug
DEBUG/iX C.05.08
DEBUG Intrinsic at: 5a8.0000d294 ?$START$
$1 ($a3) nmdebug > b FFINDBYKEY
added: NM [1] SYS a.00e982e4 FFINDBYKEY
$2 ($a3) nmdebug > c
The current date is: 12/04/00
The current time is: 16:05
Opening M
Database opened successfully.
Opening A
Database opened successfully.
Opening P
Database opened successfully.
DPSLDSUR; opened as number 24
KS.DATA; opened as number 25
RPSLDSUR; opened as number 28
Enter the BIN/CardType processing table as follows:
BBBBBB <- the ISO/BIN, 999999 ends table
C <- ATCH Card type (ex: D,P,V)
tttt <- GNIN record type (ex: VISA or ATM)
O <- ATM-FILE member number offset (30, for type D)
PP <- PAN length for cards of this BIN (11-20)
541234
D
VISA
VISA
30
16
Table Entry Accepted: 1
999999
Total BIN entries read: 1
Report TimeStamp is: 11/06 19:34
Unique TimeStamp.
FILE ID for this run is: 258
Begin Input File read....
Break at: NM [1] SYS a.00e982e4 FFINDBYKEY
$3 ($a3) nmdebug > c
Break at: NM [1] SYS a.00e982e4 FFINDBYKEY
$4 ($a3) nmdebug > =r26
$19
$5 ($a3) nmdebug > =r23.r24
LPTR $0.0
$6 ($a3) nmdebug > dv r23.r24, 10, b
VIRT $0.0 $
Error displaying value(s) (check ERRLIST). (error #3800)
$7 ($a3) nmdebug > dv sp-$3a,3
VIRT $ca5.41847774 $ 4163fef8 0001ff00 00000000
$8 ($a3) nmdebug > exit
INVALID KEY LENGTH (FSERR 186)´
+-F-I-L-E---I-N-F-O-R-M-A-T-I-O-N---D-I-S-P-L-A-Y+
! FILE NAME IS KS1.DATA.A3 !
! FOPTIONS: SYS,ASCII,FORMAL,F,NOCCTL,DEQ,KSM !
! NOLABEL !
! AOPTIONS: INPUT,NOMR,LOCK,SHR,NOBUF,NOMULTI !
! WAIT,NOCOPY !
! DEVICE TYPE: 3 DEVICE SUBTYPE: 8 !
! LDEV: 2 DRT: 8 UNIT: 0 !
! RECORD SIZE: 38 BLOCK SIZE: 874 (BYTES) !
! EXTENT SIZE: 220 MAX EXTENTS: 32 !
! RECPTR: 0 RECLIMIT: 40000 !
! LOGCOUNT: 2 PHYSCOUNT: 1 !
! EOF AT: 14896 LABEL ADDR: %00000000000 !
! FILE CODE: 0 ULABELS: 0 !
! FILE OWNER: MGR.CU1 !
! ERROR NUMBER: 186 RESIDUE: 0 !
! BLOCK NUMBER: 0 NUMREC: 0 !
+------------------------------------------------+
**** PROCESS QUIT; PARAM = 1101
ABORT: PPSLDSUR.PROJ1.A3
NM SYS a.00a8e288 dbg_abort_trace+$24
NM PROG 5a8.0000d894 MPEerr+$a0
Program terminated in an error state. (CIERR 976)
[A3/PROJ1]:hex2int fef8
fef8 is the hexidecimal equivalent of 65272
[A3/PROJ1]:hex2int ff00
ff00 is the hexidecimal equivalent of 65280
[A3/PROJ1]:hex2int 0000
0000 is the hexidecimal equivalent of 0
Stan,
I'm not a debug savvy person. What does the above mean?
Rs~
----- Original Message -----
From: "Stan Sieler" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, December 04, 2000 2:54 PM
Subject: Re: [HP3000-L] KSAM Intrinsic help
> Re:
> > 2) I've tried the instrinsic call with FindKey specified as an address
> > (preceeded with "&"), both qualified with an instance/positional pointer
> > "[0]" and not; and as a variable (no preceeding "&").
> ...
> > The error doesn't change. It is consistently "186 - Invalid Key
Length".
>
> CSEQ says:
>
> Procedure FFINDBYKEY (
> filenum : int16 ; {R26}
> keyvalue : anyvar record ; {(skip R25)
> R23, R24}
> {Address type = LongAddr}
> keylocation : int16 ; {SP-$0032}
> keylength : int16 ; {SP-$0036}
> relop : int16 ) {SP-$003a}
> { CCE: ok }
> { CCG: (past EOF or before beginning) }
> { CCL: error (I/O err; relop not satisfied, key not found) }
> {relop values: }
> { 0 --> equal (= ) }
> { 1 --> greater than (> ) }
> { 2 --> greater than or equal to (>=) }
>
> I'd try:
>
> logon as user with PM (or run a "god" program)
>
> :run prog; debug
> b FFINDBYKEY
> c
> ... do whatever is necessary to get the FFINDBYKEY to be called.
>
> = r26
> ...should be your file#
>
> = r23.r24
> ... should be a valid 64-bit address.
>
> dv r23.r24, 10, b
> ... should display the key value in hex and ASCII (and, incidentally,
> validate the address for us)
>
> dv sp-$3a, 3
> ... should show the last 3 parameters. Will be of the form:
>
> xxxxnnnn xxxxnnnn xxxxnnnn
> where we don't care what the "xxxx" values are.
>
> Stan Sieler [log in to unmask]
> www.allegro.com/sieler/wanted/index.html www.allegro.com/sieler
>
|
