Re: Record Buffer question after file open and close

Please introduce your programmer to the CLEAR opcode. Closing the file will not cause clearing of fields.
++
Dennis
++
"Swimming teachers required. For both Children and Adults, ASA qualified. Must be prepared to go in the water."
-- advertisement in the Hendon (U.K.) Times



Bravely sent from my Galaxy tablet phone.
++


Gerald Kern <jp2558@xxxxxxxxx> wrote:

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;