DDS SST function in logical file

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.
--
[ Picked text/plain from multipart/alternative ]
I have a beautiful file that dates back to either punch cards or a
programmer who learned on punch cards.  One of the wonderful things he did
was create a 4 0 field that means different things in different situations.
The last digit of the field can be 0 thru 4 and that is the information I
need to break on in a report I'm writing.  Unfortunately that means that I
have to read through all of the records and then compare the last digit for
a match otherwise I loop back and read again....  Needless to say this
creates a phenominal amount of extra I/O AND it screws me up when I'm trying
to hold onto other data from valid passes.

So I got out my handy dandy DDS manual and looked into the SST keyword for
logical files.  Seems straightforward enough so I give it a try.

I created this:

      A          R F_DETLHIST                PFILE(DETLHIST)
<snip>
      A            DHOLOC         4S 0
      A            SPPRICE        1A  I      SST(DHOLOC 4 1)
      A          K DHSDAY
      A          K DHHOT#
      A          K DHSHOW
      A          K DHSRC
      A          K SPPRICE
      A          O DHSTAT                    VALUES('D')

and now my logical file has a field tacked on the end which SQL lists as 1
char and only lets me search for valid char data.  Everything looks good and
the values of SPPRICE are the last digit of DHOLOC.

But when I add this logical file to my program and try to compile it it says
that the KFLD at sequence number xxx is CHAR but key field is NUMERIC.

If I change my key field to numeric in my program then it won't compile
because it says that the KFLD at sequence number 946 is 1 long, Key field is
4 long.

4 long is the size of the field that I did the SST on to create the SPPRICE
key....

If I change my key field to 4 long then it will compile but it doesn't
include the substring function... it still returns the full 4 digit number
as if it were just using DHOLOC and not using my substring of the DHOLOC.

What gives????


Jim Sneddon
AS/400 Development Manager
Allstate Ticketing
1421 Sunset Road Suite 4
Las Vegas, NV 89119
702-617-5540
www.showtickets.com