Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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?
- .
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement