daily pastebin goal
81%
SHARE
TWEET

Untitled

a guest Dec 13th, 2018 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  B700-REWRITE-MASTER.                                  
  2. ******************************************            
  3. *                                                      
  4. *   WRITE THE UPDATED MASTER BACK TO THE VSAM FILE    
  5. *     * IF CODE = 10 RUN THIS                          
  6. ******************************************            
  7. D    DISPLAY "B700-REWRITE-MASTER"                    
  8. * FIND ALL MAST RECS WITH THE SAME KEY AND UPDATE      
  9. ***         CHECK FOR CREDIT OVER LIMIT                
  10. * IF NOT BLANK MOVE HOW EVER MANY TIMES.              
  11.      IF W02-UT-ACCT-TYPE NOT = SPACE                  
  12.         MOVE W02-UT-ACCT-TYPE TO W03-CM-ACCT-TYPE      
  13.      END-IF                                            
  14.      IF W02-UT-BILL-CYC NOT = SPACE                    
  15.         MOVE W02-UT-BILL-CYC TO W03-CM-BILL-CYC        
  16.      END-IF                                            
  17.      IF W02-UT-CRED-RTE NOT = SPACE                    
  18.         MOVE W02-UT-CRED-RTE TO W03-CM-CRED-RTE        
  19.      END-IF                                            
  20.      IF W02-UT-CRED-LIMIT NOT = SPACE                  
  21.         MOVE W02-UT-CRED-LIMIT TO W03-CM-CRED-LIMIT    
  22.      END-IF                                            
  23.      IF W02-UT-NAME NOT = SPACE                        
  24.         MOVE W02-UT-NAME TO W03-CM-NAME                
  25.      END-IF                                            
  26.      IF W02-UT-ADDR NOT = SPACE                        
  27.         MOVE W02-UT-ADDR TO W03-CM-ADDR                
  28.      END-IF                                            
  29.                                                        
  30.      MOVE W03-CUSTMAST-RECORD TO F02-CUSTMAST-RECORD  
  31.      WRITE F02-CUSTMAST-RECORD                        
  32. * UPDATE RECORD SLOT WITH CURRENT RECORD              
  33.                                                        
  34. * READ NEXT?                                          
  35.      .
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top