|
Hello, My Next assignment requires a generic search for customer's Last Name. Would I use *HIVAL and *LOVAL, and it so, how do I incorporate it? I have learned much from all of you in this form, and your help would be greatly appreciated. Thank You Phil
F***************** FILE SPECIFICATIONS *********************** F* F* Progam Name: R1002 F* Author: Phil Hayes F* Completion Date: 11/7/99 F* F* Purpose: Display customers based on search criteria of first two F* letters of the last name. User can then select the F* customer in which they want to view the complete information F* on in another display record. F* F* DISPLAY AND SUBFILE RECORD FORMATS: F* F* PROMPT: Initial Department Entry Screen F* LOOKUP: Subfile to customers found F* CTLOOK: Subfile Control Record F* FOOTER: Text for command action keys F* F* F* F* F* F* FCSCSTPLFIF E K DISK FC1002DSPCF E WORKSTN F RRN KSFILE LOOKUP F* F* * *Arrays to store name values * E NAM 2 1 E CNM 2 1 * C*************** CALCULATION SPECIFICATIONS ****************** * * C MOVEL*BLANKS HRANK 15 * C *IN03 DOUEQ*ON * *Display initial screen * C EXFMTPROMPT C MOVELNAME NAM C *IN03 IFEQ *ON C LEAVE C END * * *Clear the subfile * C MOVE *ON *IN55 C WRITECTLDEP C MOVE *OFF *IN55 * *Initialize Relative Record Number * C Z-ADD*ZERO RRN 40 C READ CSCSTPLF 90 C *IN90 DOWEQ*OFF C MOVELCLNAME CNM * C NAM,1 IFEQ CNM,1 C NAM,2 ANDEQCNM,2 C NAM,2 OREQ *BLANK C ADD 1 RRN C END * C MOVELCLNAME SLNAME C MOVELCFNAME SFNAME C Z-ADDCUSTNO SCUST C WRITELOOKUP C READECSCSTPLF 90 C END C ENDDO * C WRITEFOOTER C EXFMTCTLOOK C *IN07 IFEQ *ON C EXSR DSPLAY C END C ENDDO * C MOVE *ON *INLR * * *************** SUBFILE LOAD ROUTINE ************************ * C DSPLAY BEGSR C READCLOOKUP 95 * C *IN95 IFEQ *ON C LEAVE C END * C SLNAME CHAINCSCSTPLF 40 C Z-ADDCUSTNO DCUST C MOVELCLNAME DLNAME C MOVELCFNAME DFNAME C MOVELCSTRET DSTRET C MOVELCCITY DCITY C MOVELCSTATE DSTATE C Z-ADDCZIP DZIP C Z-ADDCPHONE DPHONE C Z-ADDORDDAT DORDAT C Z-ADDBALDUE DBLDUE C EXFMTDSPLY C ENDSR
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.