Filter
Top Products
Search by Zip Code
SCHZIP: RPG Source
*****************************************************************
* PROGRAM NAME: SCHZIP *
* RELATED FILES: CUSMSTL2 (LOGICAL FILE) *
* SZIPMENU (WORKSTN FILE) *
* DESCRIPTION: THIS PROGRAM SHOWS A CUSTOMER MASTER SEARCH *
* PROGRAM USING WORKSTN SUBFILE PROCESSING. *
* THIS PROGRAM PROMPTS THE USER FOR THE ZIP CODE*
* AND DISPLAYS THE CUSTOMER MASTER RECORD BY *
* ZIP CODE. *
* ROLL UP KEY CAN BE USED TO LOOK AT ANOTHER *
* PAGE. PF3 IS USED TO QUIT THE PROGRAM. *
*****************************************************************
FCUSMSTL2 IF E K DISK
FSZIPMENU CF E WORKSTN SFILE(SUBFILE:RECNUM)
C CSTKEY KLIST
C KFLD ZIP
********************************************************************
* MAINLINE *
********************************************************************
C WRITE FOOT1
C WRITE HEAD
C EXFMT PROMPT
C*
C DOW NOT *IN03
C MOVE *OFF *IN61
C CSTKEY SETLL CMLREC2 20
C IF NOT *IN20
C MOVE *ON *IN61
C ELSE
C EXSR SFLPRC
C END
C IF (NOT *IN03) AND (NOT *IN04)
C IF NOT *IN61
C WRITE FOOT1
C WRITE HEAD
C ENDIF
C EXFMT PROMPT
C ENDIF
C ENDDO
C*
C SETON LR
Figure 184 (Part 1 of 2). Source for module SCHZIP
Chapter 19. Example of an Interactive Application 361