B700-REWRITE-MASTER.
******************************************
*
*   WRITE THE UPDATED MASTER BACK TO THE VSAM FILE
*     * IF CODE = 10 RUN THIS
******************************************
D    DISPLAY "B700-REWRITE-MASTER"
* FIND ALL MAST RECS WITH THE SAME KEY AND UPDATE
***         CHECK FOR CREDIT OVER LIMIT
* IF NOT BLANK MOVE HOW EVER MANY TIMES.
     IF W02-UT-ACCT-TYPE NOT = SPACE
        MOVE W02-UT-ACCT-TYPE TO W03-CM-ACCT-TYPE
     END-IF
     IF W02-UT-BILL-CYC NOT = SPACE
        MOVE W02-UT-BILL-CYC TO W03-CM-BILL-CYC
     END-IF
     IF W02-UT-CRED-RTE NOT = SPACE
        MOVE W02-UT-CRED-RTE TO W03-CM-CRED-RTE
     END-IF
     IF W02-UT-CRED-LIMIT NOT = SPACE
        MOVE W02-UT-CRED-LIMIT TO W03-CM-CRED-LIMIT
     END-IF
     IF W02-UT-NAME NOT = SPACE
        MOVE W02-UT-NAME TO W03-CM-NAME
     END-IF
     IF W02-UT-ADDR NOT = SPACE
        MOVE W02-UT-ADDR TO W03-CM-ADDR
     END-IF

     MOVE W03-CUSTMAST-RECORD TO F02-CUSTMAST-RECORD
     WRITE F02-CUSTMAST-RECORD
* UPDATE RECORD SLOT WITH CURRENT RECORD

* READ NEXT?
     .