Re: Weird Target Too Small error -- RPG400-L

I had a case like this once.  It was invalid data in a field on the record 
side.  Check the actual record that it's trying to read.  Just a thought.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




GKern@xxxxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/07/21 10:33 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

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.