Weird Target Too Small error

[GKern@xxxxxxxxxxxxxxxx]

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.