279 lines
8.8 KiB
Plaintext
Executable File
279 lines
8.8 KiB
Plaintext
Executable File
********************************************************************************
|
|
*
|
|
* Setup this account as a demonstration account
|
|
*
|
|
* Module %M% Version %I% Date %H%
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenence log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 01/17/89 5716 GPS Replace /u1/uv/sample by UV.SAMPLE
|
|
* 10/04/88 5486 fix syntax error
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
|
*
|
|
*******************************************************************************
|
|
|
|
$OPTIONS DEFAULT
|
|
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
|
|
|
|
*******************************************************************************
|
|
*
|
|
*
|
|
* To set up an account for demonstration purposes, one must create
|
|
* the files INVENTORY, CUSTOMERS, and ORDERS.
|
|
*
|
|
* This program calls "updaccount" to insure that the user's VOC
|
|
* contains consistent entries; any extra entries created by the user
|
|
* are left intact. It then attempts to open and clear the files
|
|
* if they are files from a previous demo; if they not files from a
|
|
* previous demo, a warning is printed and the user is asked if he
|
|
* would like to proceed. If they cannot be opened, it creates them.
|
|
* It next copies all entries from INIT.INVENTORY, INIT.CUSTOMERS,
|
|
* INIT.ORDERS, D_INIT.INVENTORY, D_INIT.CUSTOMERS and D_INIT.ORDERS
|
|
* (which reside in the sample directory) into the local files.
|
|
* Finally, it attempts to open the ACCOUNTS file; if it can, it prompts
|
|
* the users to delete the file (since users must create it
|
|
* as part of the demo).
|
|
*
|
|
************************************************************************
|
|
*
|
|
EQU TRUE TO 1, FALSE TO 0
|
|
ERRMSG = " Consult your system administrator."
|
|
*
|
|
*
|
|
* Clear the screen, announce our intentions, and get the
|
|
* user's go-ahead.
|
|
*
|
|
EXECUTE "CLR"
|
|
PROMPT "?"
|
|
PRINT @( 0, 4 ):"INITIALIZE.DEMO"
|
|
PRINT @( 0, 6 ):"This program updates your VOC and restores demo ":
|
|
PRINT "files to their initial state."
|
|
PRINT "Continue (Y/N) ":
|
|
INPUT ANS
|
|
IF ANS <> "y" AND ANS <> "Y" THEN STOP
|
|
PRINT; PRINT
|
|
*
|
|
*
|
|
* Update the user's VOC.
|
|
*
|
|
EXECUTE "UPDATE.ACCOUNT"
|
|
*
|
|
*
|
|
* Open both portions of the INIT.files. If they won't open,
|
|
* we have no option but to stop.
|
|
* Now open and clear both portions of the accounts files.
|
|
* If they won't open, create them. Then copy in the entries from
|
|
* the INIT.files.
|
|
*
|
|
PRINT
|
|
PRINT "Initializing INVENTORY file."
|
|
OPENPATH UV.SAMPLE:"/INIT.INVN" TO FVINIT ELSE
|
|
STOP "Unable to open 'INIT.INVN'.":ERRMSG
|
|
END
|
|
*
|
|
*
|
|
* determine what CREATE.FILE syntax to use
|
|
*
|
|
OPEN "", "VOC" TO VOC ELSE
|
|
STOP "Unable to open 'VOC'.":ERRMSG
|
|
END
|
|
READV CREATE.SYNTAX FROM VOC, "CREATE.FILE" , 5 ELSE CREATE.SYNTAX = ""
|
|
*
|
|
*
|
|
OPEN "", "INVENTORY" TO FVLOCAL THEN
|
|
READV TYPE.DESC FROM VOC, "INVENTORY" , 1 ELSE
|
|
STOP "Unable to open 'VOC'.":ERRMSG
|
|
END
|
|
IF TYPE.DESC <> "F Demo File " THEN
|
|
PRINT "A file with the name INVENTORY exists"
|
|
PRINT "Continue (Y/N) ":
|
|
INPUT ANS
|
|
IF ANS <> "y" AND ANS <> "Y" THEN STOP
|
|
PRINT
|
|
END
|
|
END ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DATA INVENTORY 2,2,2 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DATA INVENTORY 2 2 2 Demo File"
|
|
END
|
|
OPEN "", "INVENTORY" TO FVLOCAL ELSE STOP "STOP 1"
|
|
END
|
|
EXECUTE "CLEAR.FILE INVENTORY"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
*
|
|
*
|
|
OPENPATH UV.SAMPLE:"/D_INIT.INVN" TO FVINIT ELSE
|
|
STOP "Unable to open 'DICT INIT.INVN'.":ERRMSG
|
|
END
|
|
OPEN "DICT", "INVENTORY" TO FVLOCAL ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DICT INVENTORY 1,2,3 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DICT INVENTORY 3 1 2 Demo File"
|
|
END
|
|
OPEN "DICT", "INVENTORY" TO FVLOCAL ELSE STOP "STOP 2"
|
|
END
|
|
EXECUTE "CLEAR.FILE DICT INVENTORY"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
PRINT
|
|
PRINT "Compiling dictionary part of INVENTORY."
|
|
PRINT
|
|
EXECUTE "CD INVENTORY"
|
|
*
|
|
*
|
|
PRINT
|
|
PRINT "Initializing CUSTOMERS file."
|
|
OPENPATH UV.SAMPLE:"/INIT.CUST" TO FVINIT ELSE
|
|
STOP "Unable to open 'INIT.CUST'.":ERRMSG
|
|
END
|
|
*
|
|
*
|
|
OPEN "", "CUSTOMERS" TO FVLOCAL THEN
|
|
READV TYPE.DESC FROM VOC, "CUSTOMERS" , 1 ELSE
|
|
STOP "Unable to open 'VOC'.":ERRMSG
|
|
END
|
|
IF TYPE.DESC <> "F Demo File " THEN
|
|
PRINT "A file with the name CUSTOMERS exists"
|
|
PRINT "Continue (Y/N) ":
|
|
INPUT ANS
|
|
IF ANS <> "y" AND ANS <> "Y" THEN STOP
|
|
PRINT
|
|
END
|
|
END ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DATA CUSTOMERS 2,2,2 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DATA CUSTOMERS 2 2 2 Demo File"
|
|
END
|
|
OPEN "", "CUSTOMERS" TO FVLOCAL ELSE STOP "STOP 3"
|
|
END
|
|
EXECUTE "CLEAR.FILE CUSTOMERS"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
*
|
|
*
|
|
OPENPATH UV.SAMPLE:"/D_INIT.CUST" TO FVINIT ELSE
|
|
STOP "Unable to open 'DICT INIT.CUST'.":ERRMSG
|
|
END
|
|
OPEN "DICT", "CUSTOMERS" TO FVLOCAL ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DICT CUSTOMERS 1,2,3 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DICT CUSTOMERS 3 1 2 Demo File"
|
|
END
|
|
OPEN "DICT", "CUSTOMERS" TO FVLOCAL ELSE STOP "STOP 4"
|
|
END
|
|
EXECUTE "CLEAR.FILE DICT CUSTOMERS"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
PRINT
|
|
PRINT "Compiling dictionary part of CUSTOMERS."
|
|
PRINT
|
|
EXECUTE "CD CUSTOMERS"
|
|
*
|
|
*
|
|
PRINT
|
|
PRINT "Initializing ORDERS file."
|
|
OPENPATH UV.SAMPLE:"/INIT.ORDR" TO FVINIT ELSE
|
|
STOP "Unable to open 'INIT.ORDR'.":ERRMSG
|
|
END
|
|
*
|
|
*
|
|
OPEN "", "ORDERS" TO FVLOCAL THEN
|
|
READV TYPE.DESC FROM VOC, "ORDERS" , 1 ELSE
|
|
STOP "Unable to open 'VOC'.":ERRMSG
|
|
END
|
|
IF TYPE.DESC <> "F Demo File " THEN
|
|
PRINT "A file with the name ORDERS exists"
|
|
PRINT "Continue (Y/N) ":
|
|
INPUT ANS
|
|
IF ANS <> "y" AND ANS <> "Y" THEN STOP
|
|
PRINT
|
|
END
|
|
END ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DATA ORDERS 2,2,2 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DATA ORDERS 2 2 2 Demo File"
|
|
END
|
|
OPEN "", "ORDERS" TO FVLOCAL ELSE STOP "STOP 5"
|
|
END
|
|
EXECUTE "CLEAR.FILE ORDERS"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
*
|
|
*
|
|
OPENPATH UV.SAMPLE:"/D_INIT.ORDR" TO FVINIT ELSE
|
|
STOP "Unable to open 'DICT INIT.ORDR'.":ERRMSG
|
|
END
|
|
OPEN "DICT", "ORDERS" TO FVLOCAL ELSE
|
|
IF CREATE.SYNTAX = "PICK" THEN
|
|
EXECUTE "CREATE.FILE DICT ORDERS 1,2,3 Demo File"
|
|
END ELSE
|
|
EXECUTE "CREATE.FILE DICT ORDERS 3 1 2 Demo File"
|
|
END
|
|
OPEN "DICT", "ORDERS" TO FVLOCAL ELSE STOP "STOP 6"
|
|
END
|
|
EXECUTE "CLEAR.FILE DICT ORDERS"
|
|
GOSUB 100; * Copy from the INIT.file to the local file
|
|
PRINT
|
|
PRINT "Compiling dictionary part of ORDERS"
|
|
PRINT
|
|
EXECUTE "CD ORDERS"
|
|
*
|
|
*
|
|
*
|
|
* Now open the ACCOUNTS file. If it won't open, all is right with the
|
|
* world. If it does open, delete it.
|
|
*
|
|
PRINT
|
|
PRINT "Deleting demo ACCOUNTS file."
|
|
OPEN "", "ACCOUNTS" TO FVLOCAL THEN
|
|
READV TYPE.DESC FROM VOC, "ACCOUNTS" , 1 ELSE
|
|
STOP "Unable to open 'VOC'.":ERRMSG
|
|
END
|
|
IF TYPE.DESC <> "F Demo File " THEN
|
|
PRINT "A file with the name ACCOUNTS exists"
|
|
PRINT "Continue (Y/N) ":
|
|
INPUT ANS
|
|
IF ANS <> "y" AND ANS <> "Y" THEN STOP
|
|
PRINT
|
|
END
|
|
EXECUTE "DELETE.FILE ACCOUNTS"
|
|
END
|
|
*
|
|
*
|
|
PRINT
|
|
PRINT
|
|
PRINT "Initialization complete."
|
|
PRINT
|
|
PRINT
|
|
STOP
|
|
*
|
|
******************************************************************************
|
|
* S U B R O U T I N E S
|
|
******************************************************************************
|
|
*
|
|
100
|
|
* << Copy the items from the INIT.file to the local file. >>
|
|
*
|
|
SELECT FVINIT
|
|
EOF = FALSE
|
|
LOOP
|
|
READNEXT ID ELSE EOF = TRUE
|
|
UNTIL EOF DO
|
|
READ REC FROM FVINIT, ID THEN WRITE REC ON FVLOCAL, ID
|
|
else NULL
|
|
REPEAT
|
|
RETURN
|
|
*
|
|
*
|
|
END
|