Filter
Top Products
File Maintenance
********************************************************************
* SUBROUTINE - DELSUB *
* PURPOSE - DELETE CUSTOMER MASTER RECORD *
********************************************************************
C DELSUB BEGSR
C MOVE *ON *IN04
C CSTKEY CHAIN CMLREC1 52
C IF NOT *IN52
C EXFMT CSTINQ
C IF NOT *IN12
C DELETE CMLREC1
C ELSE
C UNLOCK CUSMSTL1
C ENDIF
C ENDIF
C ENDSR
********************************************************************
* SUBROUTINE - INQSUB *
* PURPOSE - DISPLAY CUSTOMER MASTER RECORD *
********************************************************************
C INQSUB BEGSR
C MOVE *ON *IN04
C CSTKEY CHAIN CMLREC1 52
C IF NOT *IN52
C EXFMT CSTINQ
C UNLOCK CUSMSTL1
C ENDIF
C ENDSR
********************************************************************
* SUBROUTINE - SETMOD *
* PURPOSE - SET MAINTENANCE MODE *
********************************************************************
C SETMOD BEGSR
C SELECT
C WHEN *IN05
C MOVE 'ADD ' MODE
C WHEN *IN06
C MOVE 'UPDATE ' MODE
C WHEN *IN07
C MOVE 'DELETE ' MODE
C WHEN *IN08
C MOVE 'DISPLAY ' MODE
C ENDSL
C*
C MOVE MODE MODE1
C ENDSR
Figure 175 (Part 3 of 3). Source for module CUSMNT
This program maintains a customer master file for additions, changes, and
deletions. The program can also be used for inquiry.
The program first sets the default (display) mode of processing and displays the
customer maintenance prompt screen. The workstation user can press F3, which
turns on indicator 03, to request end of job. Otherwise, to work with customer infor-
mation, the user enters a customer number and presses Enter. The user can
354 ILE RPG for AS/400 Programmer's Guide