Filter
Top Products
File Maintenance
********************************************************************
* SUBROUTINE - ADDSUB *
* PURPOSE - ADD NEW CUSTOMER TO FILE *
********************************************************************
C ADDSUB BEGSR
C CSTKEY CHAIN CMLREC1 50
C IF NOT *IN50
C MOVE *ON *IN51
C ELSE
C MOVE *OFF *IN51
C MOVE *BLANK NAME
C MOVE *BLANK ADDR1
C MOVE *BLANK ADDR2
C MOVE *BLANK CITY
C MOVE *BLANK STATE
C Z-ADD *ZERO ZIP
C EXFMT CSTBLD
C IF NOT *IN12
C WRITE CMLREC1
C ENDIF
C ENDIF
C ENDSR
********************************************************************
* SUBROUTINE - UPDSUB *
* PURPOSE - UPDATE CUSTOMER MASTER RECORD *
********************************************************************
C UPDSUB BEGSR
C MOVE *OFF *IN04
C CSTKEY CHAIN CMLREC1 52
C IF NOT *IN52
C EXFMT CSTINQ
C IF NOT *IN12
C UPDATE CUSMSTL1
C ELSE
C UNLOCK CUSMSTL1
C ENDIF
C ENDIF
C ENDSR
Figure 175 (Part 2 of 3). Source for module CUSMNT
Chapter 19. Example of an Interactive Application 353