home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / dbms_mag / 9106 / ehrmann1 < prev    next >
Text File  |  1991-04-29  |  2KB  |  74 lines
  1.  
  2. LISTING 1
  3.  
  4.    ; ------------------------------------------------------------
  5.    ; Create a CUSTOMER procedure library
  6.    ; DBMS - Speaking of PAL - June, 1991 - Listing 1
  7.    ; ------------------------------------------------------------
  8.  
  9.    clear                                    ; blank the Canvas
  10.    @ 0,0 ?? "Generating CUSTOMER library"   ; tell user
  11.    @ 1,0                                    ; reposition cursor
  12.  
  13.    CreateLib "CUSTOMER"                     ; create the library
  14.  
  15.    ; ------------------------------------------------------------
  16.         ; Display menu and process user selection
  17.    ; ------------------------------------------------------------
  18.         Proc CUSTOMER_MENU()
  19.  
  20.       ; menu routine
  21.  
  22.         EndProc
  23.  
  24.    WriteLib "CUSTOMER" CUSTOMER_MENU   ; write proc to lib
  25.         Release Procs  CUSTOMER_MENU        ; release proc from memory
  26.    ?? "."                              ; a sign of life!
  27.  
  28.  
  29.    ; ------------------------------------------------------------
  30.         ; Allow Customer to enter data into table
  31.    ; ------------------------------------------------------------
  32.         Proc CUSTOMER_EDIT()
  33.  
  34.       ; data entry routine
  35.  
  36.         EndProc
  37.  
  38.    WriteLib "CUSTOMER" CUSTOMER_EDIT
  39.         Release Procs  CUSTOMER_EDIT
  40.    ?? "."
  41.  
  42.  
  43.    ; ------------------------------------------------------------
  44.         ; Query for Customers in CA
  45.    ; ------------------------------------------------------------
  46.         Proc CUSTOMER_QUERY()
  47.  
  48.       ; query and report routine
  49.  
  50.         EndProc
  51.  
  52.    WriteLib "CUSTOMER" CUSTOMER_QUERY
  53.         Release Procs  CUSTOMER_QUERY
  54.    ?? "."
  55.  
  56.  
  57.    ; ------------------------------------------------------------
  58.         ; Export Customers to an ASCII table
  59.    ; ------------------------------------------------------------
  60.         Proc CUSTOMER_EXPORT()
  61.  
  62.       ; mainframe export routine
  63.  
  64.         EndProc
  65.  
  66.    WriteLib "CUSTOMER" CUSTOMER_EXPORT
  67.         Release Procs  CUSTOMER_EXPORT
  68.    ?? "."
  69.  
  70.  
  71.    reset
  72.    ; ---------------------------------------------- end of script
  73.  
  74.