Try this code:

eval effect_date = *hival
fsKey2 setll fsstandl2
insco reade fsstandl2
if not %eof(fsstandl2)
eval errorLine = 'No Rates Found'
else
clear errorLine
endif

That seems to have done it.  The chain should have been setll and the readp should have been reade.  Now I just need to incorporate this in to my loop and I should be good.  Thanks for your help Brian!

I just noticed a small logic error.

The line:  if not %eof(fsstandl2)

should be:   if %eof(fsstandl2)

Glad I could help.

chain requires an exact hit. setll places the file pointer to the match, or just before the next up in sequence. That is why in this example chain doesn't work (often), but setll always works.

The *HIVAL symbol along with your opcodes is what is wrong.

Use this to read the first record:

setll *start myfile;
read myfile; 

  

Use this to read the last record in the file/key sequence:

setll *end myfile;
readp myfile;

It looks like John wants to retrieve the record with the highest effective date within a subset of records in the file limited to whatever the value of the INSCO field is.  If that's the case, using *START would not work since it would position you to the beginning of the file, and you want to be at the beginning of the group equal to the value of INSCO.

Yes Brian, you are correct.  The insco field is a specific field, and I am wanting to retrieve the records in descending date order for the insco.

For some reason this lf with a descending date access path is a real thorn in my side.  In the same program when I am loading my dspf it isn't stopping when it reaches the end of the set value for the insco field.  So, I have several records where **** is the insco and several records where ADCM is the insco.  But, when the dspf loads both **** and ADCM are showing up even if insco is set to ****.  Here is how things are set:

fsKey2        klist                                      

              kfld                    insco              

              kfld                    effect_date        

              eval      effect_date = *hival                             

fsKey2        setll     fsstandl2                                        

              reade     fsstandl2                              95        

              dow       not %eof(fsstandl2)                                

              eval      sflrcd = rec# + 1                                  

              do        13                                                 

              eval      rec# = rec# + 1                                    

              write     sfData                                             

              read      fsstandl2                              95          

              if        *in95 = *on                                        

              leave                                                        

              endif                                                        

              enddo                                                        

              enddo                                                        

Once again, thanks in advance!!!

Sounds like your nested read fsstandl2 should be a reade on insco as the only key. By using read, you're accepting any record that comes next, whether it's for the same insco or not. Here's an excerpt...

     C                   Write     sfData
     C     fsKey3        KList
     C                   KFld                    insco
     C     fsKey3        ReadE     fsstandl2                              95
     C                   If        %EOF
     C                   Leave
     C                   EndIf

If I may expand on Dale's example (I took out the uneccessary indicator and eliminated the extra key list):

fsKey2 klist
       kfld  insco
       kfld  effect_date

       eval  effect_date = *hival

fsKey2 setll fsstandl2
insco  reade fsstandl2
       dow   not %eof(fsstandl2)
       eval  sflrcd = sflrcd + 1
       write sfData
insco  reade fsstandl2
       enddo

D'oh! Yes, if you only have one field in a KList, just use it directly. I've been using free format long enough that I overlooked this. However...

I intentionally left the *IN95 on the READE. If he's using 95 for something in the DSPF DDS, such as SFLEND, or even somewhere else in his program, he still needs it.

I think the loop still isn't quite correct, though. He originally had the Do 13, which would quit after no more than 13 reads, unless you hit EOF first. But if he reached 13 reads without EOF, the outer loop would keep going. The inner loop does seem unnecessary, but I wonder if he was trying to load only 13 rows?

Also, it seems like rec# is the SFILE() from the F-spec, and sflrcd could be SFLRCDNBR from the DDS. In which case you still need to do something with both of them in or near this loop.

Hi Dale,

You make some valid points.  I was just trying to show the basic concept of writing subfile records from within a READE loop rather than trying to guess at what John's example code needed to accomplish, and hopefully he can adapt it to his situation. 

Thanks all, things are working great now.  I appreciate the help.  I have been RPG coding for a number of years, but this lf with descending dates was causing me trouble.

Thanks again