Re: Weird Target Too Small error

Hi Jerry,

I don't see how you could get target too small on a SETLL since there is no
input on the statement - it only positions the pointer on the file.

Are you sure it is the SETLL that is causing the problem? Does the program
have Option(*SRCSTMT) in the H Spec? If not, the line number it is giving
you is the compile line number as opposed to the source line number.

Just one more thing to check :-)

HTH

Paul

----- Original Message -----
From: <GKern@xxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, July 21, 2005 2:03 PM
Subject: Weird Target Too Small error


> Unusually I can figure out and correct the dreaded target too small error.
>
> But twice in the last two weeks I got this error message in a program that
> has been running just fine for almost a year. My last mod was to put the
> monitor statement in to the code so that in the event the record was
> locked it would drop out of the sr.
>
> The Data12 DS gets its data from a 12 byte data queue. Status field never
> changes. The key is defined as shown below, but the error occurs on the
> SETLL statement. Anyone with any clue as to why a fixed length key, with
> all fields with valid values would generate a target too small error on
> the SETLL statement?
>
> D Data12          DS
> D  Data_Loc               1      1
> D  Data_Clno              2      4
> D  Data_Clno_N            2      4  0
> D  Data_Pat#              5     12
> D  Data_Pat#_N            5     12  0
>
> D Status          S              1    INZ('A')
>
> C     PxKey01       Klist
> C                   Kfld                    Status
> C                   Kfld                    Data_Loc
> C                   Kfld                    Data_Clno_N
> C                   Kfld                    Data_Pat#_N
>
> C                   Monitor
> C     PXkey01       Setll     Oilpmext01
> C                   On-Error  1299
> C                   LeaveSr
> C                   Endmon
>
> Values from the Dump:
>
> DATA12                DS
>   DATA_CLNO           CHAR(3)              '000'            'F0F0F0'X
>   DATA_CLNO_N         ZONED(3,0)           000.             'F0F0F0'X
>   DATA_LOC            CHAR(1)              '0'              'F0'X
>   DATA_PAT#           CHAR(8)              '06628887'
> 'F0F6F6F2F8F8F8F7'X
>   DATA_PAT#_N         ZONED(8,0)           06628887. 'F0F6F6F2F8F8F8F7'X
>
> STATUS                CHAR(1)              'A'
>
> Regards, Jerry
>
> Gerald Kern
> IBM Certified AS/400 RPG IV Developer & RPG IV Programmer
> MIS Project Leader, Lotus Notes/Domino Administrator
> The Toledo Clinic, Inc.
> 4235 Secor Road
> Toledo, OH 43623-4299
> Phone 419-479-5535
> gkern@xxxxxxxxxxxxxxxx
> *****
> This email message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or distribution is
prohibited. If you are not the intended recipient, please contact the sender
by reply email and destroy all copies of the original message.


----------------------------------------------------------------------------
----


> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>