Re: SetLLs and Logical File Issues

The Setll just positions you before the first record with that key (or 
between records where that key would fit if there were no records with 
that key). 

You still have to validate that the record read actually has that key.

You can do a READE with your key or just check the value after the read to 
see if the record still has the key you want. If it isn't then get out of 
your loop.

Matt Hopkins 
Sr. Programmer/Analyst 
Web: www.pdpgroupinc.com 
Email: MWHopkins@xxxxxxxxxxxxxxx 
Office: 410-584-0330 
Fax: 410-584-0336 





"Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/12/2007 12:16 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
SetLLs and Logical File Issues






Hi List,

 

I'm having a Friday afternoon brain cramp, and I'm wondering if someone
can offer advice?

 

I have a logical file composed of three fields (SST05A7):

RAPLCD (Plant Code)

RAQRL (Quick Receive Serial Number)

RACSN (Serial Number)

 

I have a key (QRLKEY) defined in my program as:

PLCD (Plant Code)

QRLNO (Quick Receive Serial Number)

 

When I use the SQL interpreter and check a specific QRL number and plant
code against the logical file, I get back 13 records.  However, when I
run the following code, I get back the 13 records plus a whole bunch of
other records that are not associated with the same QRL.  Anyone have
any ideas where I am going wrong, I'd appreciate some comments.  Code
snippet is to follow.  Thanks!

 

///

 

          if LABELTYPE = 'QRL';

            setll QRLKEY sst05a7;

            if not %eof(sst05a7);

              read sst05a7;

              DoW not %eof(sst05a7);

      /end-free

     C* Get the current part name

     C/Exec SQL

     C+ Select PNPTNM, PNSUPP, PNSPLC into

     C+ :partname, :suppnum, :supploc from ssm05

     C+ where pnplcd = :raplcd and pnptno = :raptno

     C+ and pnptcl = :raptcl

     C/End-exec

     C*

      /free

                If SQLCod = 100;

                  partname = '';

                  suppnum = '';

                  supploc = '';

                endif;

                select;

                  when stockloc = 'P1';

                    SSTOCKLOC='1';

                  when stockloc = 'P2';

                    SSTOCKLOC='2';

                  when stockloc = 'QC';

                    SSTOCKLOC='C';

                  when stockloc = 'TR';

                    SSTOCKLOC = 'T';

                endsl;

                serialno = racsn;

                osdatein = %timestamp;

                osdateout = *loval;

                write oss_fmt;

                read sst05a7;

              ENDDO;

      /end-free

     C*

     C* Add the location to SST05

     C/Exec SQL

     C+ UPDATE SST05a4 set RASF01=:SSTOCKLOC

     C+ where raplcd = :plcd

     C+ and raqrl = :QRLNO

     C/End-exec

     C*

      /free

 

            ENDIF;

///

 

/b;

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Assistant Mgr. - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

-=-=-=-=-=-=-=-=-=-=-=-=-=-