home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
dbms_mag
/
9106
/
ehrmann1
< prev
next >
Wrap
Text File
|
1991-04-29
|
2KB
|
74 lines
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