000100
000200*    BOFLF.DS   CUSTOMER CREDIT CARD MASTER FILE
000300
000400 Z-BOFLF SECTION.
000500     USE AFTER ERROR PROCEDURE ON BOFLF.
000600 Z-BOFLF-D.
      *     IF BOFLF-STATUS = NO-FILE
      *        OPEN OUTPUT BOFLF
      *        CLOSE BOFLF
      *        OPEN I-O BOFLF
      *        GO TO STATUS-EXIT.
010606*    MOVE BOFLF-FULLPATH TO FILE-NAME.
010606     MOVE BOFLF-FULLPATH TO FILE-NAME.
000800     MOVE BOFLF-STATUS TO FILE-STATUS.
000900     PERFORM STATUS-CHECK THRU STATUS-EXIT.
