RE: Fields are blank after %FOUND CHAIN

Are you using the fields Name, Item#, Group# in the program.  If not, I
believe they will appear as blank when trying to display their contents
in debug. 

-----Original Message-----
From: fkany@xxxxxxxxxxxxxxxxxx [mailto:fkany@xxxxxxxxxxxxxxxxxx] 
Sent: Friday, March 19, 2004 10:20 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: Fields are blank after %FOUND CHAIN



Hello,

When in debug, I noticed that after the CHAIN operation below, the
record is %FOUND, but the file fields for SCIP are blank. The field
CACHED seems to be the only field that has a value.  All other fields
such as NAME, ITEM#, GROUP#, etc... are blank. I ran a query on the file
SCIP and noticed the record does exist and none of the fields are blank.
Any ideas on what's happening?

Thanks,

Frank

0467.35                                 // Find Image File Name
0467.36                                 CHAIN ALSTGI SCIP;
0467.37
0467.38                                       // Found Image
0467.39                                       IF %FOUND(SCIP);
0467.40
0467.41                                          // Image IS Cached
0467.42                                          IF CACHED = 'Y';
0467.43                                             EXSR VSFTP;
0467.44                                          // Image NOT Cached
0467.45                                          ELSE;
0467.46                                          // EXSR VSGETITEM
0467.47                                          LEAVE;
0467.48                                          ENDIF; //IF CACHED =
'Y'
0467.49
0467.50                                        ENDIF; //IF %FOUND(SCIP)


_______________________________________________
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.