7.14.3 CLOSE Examples

Example 1: Close the customer master file CUSTMST.

   CLOSE       FILE(CUSTMST)

Example 2: Close all files which are active at this time.

   CLOSE

Example 3: A temporary work file must be closed in order to clear the data.

   CLOSE       FILE(WORKFILE.QTEMP) 
   EXEC_CPF    COMMAND('CLRPFM FILE(QTEMP/WORKFILE)')