Filter
Top Products
Search and Inquiry by Name
********************************************************************
* MAINLINE *
********************************************************************
C WRITE FOOT1
C WRITE HEAD
C EXFMT PROMPT
C DOW NOT *IN03
C CSTKEY SETLL CUSREC
C EXSR SFLPRC
C EXSR SFLCHG
C IF (NOT *IN03) AND (NOT *IN04)
C WRITE FOOT1
C WRITE HEAD
C EXFMT PROMPT
C ENDIF
C ENDDO
C*
C SETON LR
********************************************************************
* SUBROUTINE - SFLPRC *
* PURPOSE - PROCESS SUBFILE AND DISPLAY *
********************************************************************
C SFLPRC BEGSR
C NXTPAG TAG
C EXSR SFLCLR
C EXSR SFLFIL
C SAMPAG TAG
C WRITE FOOT2
C WRITE HEAD
C EXFMT SUBCTL
C IF *IN95
C IF NOT *IN71
C GOTO NXTPAG
C ELSE
C GOTO SAMPAG
C ENDIF
C ENDIF
C ENDSR
********************************************************************
* SUBROUTINE - SFLFIL *
* PURPOSE - FILL SUBFILE *
********************************************************************
C SFLFIL BEGSR
C DOW NOT *IN21
C READ CUSREC 71
C IF *IN71
C MOVE *ON *IN21
C ELSE
C ADD 1 RECNUM
C MOVE *BLANK SEL
C WRITE SUBFILE 21
C ENDIF
C ENDDO
C ENDSR
Figure 189 (Part 2 of 3). Source for module SCHNAM
Chapter 19. Example of an Interactive Application 367