RE: Record Buffer question after file open and close

Closing the file won't clear the fields. If the file spec is global
then the fields will be also so they will still have their values when
the sub-procedure is called again. Should be easy enough to make a
quick test case and verify.

Scott

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gerald Kern
Sent: Thursday, July 12, 2012 11:10 AM
To: RPG
Subject: Re: Record Buffer question after file open and close

This is the meat of the code - I asked the programmer who wrote this
what was missing, and his response was 'clearing the rest of the
fields... but I thought closing the file would take care of it'.

Begsr UpdateRfmast;

Chain %KDS(RF_KEY) RFMAST;
IF %FOUND(RFMAST);
AST402_DS=AST402;
RFPCPNPI= ast402_DS.NPI;
RFB1=AST402_DS.UPIN ;
RFA1=AST402_DS.NAME ;
UPDATE RFREC %Fields(RFPCPNPI:RFA1:RFB1);
else;
AST402_DS=AST402;
rfloc= loc_PR;
rfclno = clno_pr;
rfptno = pat_PR;
RFPCPNPI= ast402_DS.NPI;
RFB1=AST402_DS.UPIN ;
RFA1=AST402_DS.NAME ;
write RFREC ;
ENDIF;

ENDSR;