Category : Files from Magazines
Archive   : DBMS9106.ZIP
Filename : EHRMANN1

LISTING 1

; ------------------------------------------------------------
; Create a CUSTOMER procedure library
; DBMS - Speaking of PAL - June, 1991 - Listing 1
; ------------------------------------------------------------

clear ; blank the Canvas
@ 0,0 ?? "Generating CUSTOMER library" ; tell user
@ 1,0 ; reposition cursor

CreateLib "CUSTOMER" ; create the library

; ------------------------------------------------------------
; Display menu and process user selection
; ------------------------------------------------------------
Proc CUSTOMER_MENU()

; menu routine

EndProc

WriteLib "CUSTOMER" CUSTOMER_MENU ; write proc to lib
Release Procs CUSTOMER_MENU ; release proc from memory
?? "." ; a sign of life!


; ------------------------------------------------------------
; Allow Customer to enter data into table
; ------------------------------------------------------------
Proc CUSTOMER_EDIT()

; data entry routine

EndProc

WriteLib "CUSTOMER" CUSTOMER_EDIT
Release Procs CUSTOMER_EDIT
?? "."


; ------------------------------------------------------------
; Query for Customers in CA
; ------------------------------------------------------------
Proc CUSTOMER_QUERY()

; query and report routine

EndProc

WriteLib "CUSTOMER" CUSTOMER_QUERY
Release Procs CUSTOMER_QUERY
?? "."


; ------------------------------------------------------------
; Export Customers to an ASCII table
; ------------------------------------------------------------
Proc CUSTOMER_EXPORT()

; mainframe export routine

EndProc

WriteLib "CUSTOMER" CUSTOMER_EXPORT
Release Procs CUSTOMER_EXPORT
?? "."


reset
; ---------------------------------------------- end of script