Hello,
I'm a noob and I'm trying to understand why my chain is failing to retrieve a record, any help would be appreciated.
I am just trying to test reading from the same file whilst keeping the original read intact but I can't even get my crappy little test program to work, very disheartening...
Some info;
SICOMP is a 2 decimal field
SISITE is a 4 character field
I have tried defining RKCOMP and RKSITE manually as well as using LIKE() - same results.
SiteF1 is a logical of SiteF, they share the same record format (SITEFR) and are both keyed by SICOMP and SISITE;
The records I am trying to find 100% exist in both files, I have checked 1823 times and my library list is correct so they are the files I am expecting.
What I am doing is running the below program in debug
When the debug lands on a chain, I step the program to the next line and then do EVAL SISITE or EVAL RK_SISITE (depending on the chain) but the result is always ' '...
I am completely baffled as to why nothing is found.
Many Thanks,
Ryan
I'm a noob and I'm trying to understand why my chain is failing to retrieve a record, any help would be appreciated.
I am just trying to test reading from the same file whilst keeping the original read intact but I can't even get my crappy little test program to work, very disheartening...
Some info;
SICOMP is a 2 decimal field
SISITE is a 4 character field
I have tried defining RKCOMP and RKSITE manually as well as using LIKE() - same results.
SiteF1 is a logical of SiteF, they share the same record format (SITEFR) and are both keyed by SICOMP and SISITE;
Code:
Record format . . . . . . . . . . . . . . . : SITEFR Key field . . . . . . . . . . . . . . . . : SICOMP Sequence . . . . . . . . . . . . . . . : Ascending Sign specified . . . . . . . . . . . . : SIGNED Zone/digit specified . . . . . . . . . : *NONE Alternative collating sequence . . . . : No Key field . . . . . . . . . . . . . . . . : SISITE Sequence . . . . . . . . . . . . . . . : Ascending Sign specified . . . . . . . . . . . . : UNSIGNED Zone/digit specified . . . . . . . . . : *NONE Alternative collating sequence . . . . : No
What I am doing is running the below program in debug
When the debug lands on a chain, I step the program to the next line and then do EVAL SISITE or EVAL RK_SISITE (depending on the chain) but the result is always ' '...
I am completely baffled as to why nothing is found.
Code:
H option(*nodebugio) * FSiteF If e k disk FSiteF1 If e k disk prefix(rk_) F rename(sitefr:sitefrk) * D rkcomp s like(SICOMP) D rksite s like(SISITE) * C C Eval rkcomp=04 C Eval rksite='AB01' * C Key1 Chain SITEF * C Eval rksite='AT01' * C Key1 Chain SITEF1 C eval *inlr=*on ********************************** * Sub Routines ********************************** C *INZSR BegSr C C Key1 klist C kfld RKCOMP C kfld RKSITE C C EndSr
Ryan
Comment