'DCL_DATABASE, Utilities, A DCL DatabaseLAST UPDATE - 13th June 19947Its only simple so I'm not going to explain, best thing6to do is to read the headers at the top of the command2procedures BUILD_DATABASE.COM and USE_DATABASE.COM/Basically you'll need to run BUILD_DATABASE.COM/first - this allows you to define the different-fields for each record in your database. Once%this is done and setup to use it do :"@use_database name_of_database.FDL2If you have any suggestions/enhancements/ comments mail me on :MVANBELLEN@JABBA.HNS.COMRegards, Mark Van-BellenBp.s. Let me know if you find this useful (I'm just kinda curious!)6====================================================== NEW FEATURESOCustomisation, create a file with the same name as the database but of type CUSIts easier if I illustrate :!ie. if you have a database calledLAT_PORT_CREATIONSits definition will be calledLAT_PORT_CREATIONS.FDL#the database information will be inLAT_PORT_CREATIONS.DAT/The customisation file will be (where required)LAT_PORT_CREATIONS.CUS The example below is a .CUS file2=DEFAULT_DATE.DB3=DEFAULT_USER.DB4=LAST_ENTRY.DB5=LAST_ENTRY.DBKThen each time the database has additions or modifications made to it, whenOyou come to enter field 2, the program default_date.db is called, the same withFfield 3. Field 4 fills in the last entry you used for this field etc..This is default_date.dbD$date=f$cvtime("TODAY","ABSOLUTE","DATE") ! <- todays dateF$write sys$output "›''p1';''p2'H''date'" ! <- p1 and p2 are passed" ! by use_database as the# ! location where the info! ! is being prompted forK$write sys$output "›22;30HPRESS RETURN TO ACCEPT TODAYS DATE "+$read sys$command a /prompt="›''p1';''p2'H"$if a .eqs. ""$ then,$ a="''date'" ! basically if you push%$ else ! return, this date is$ a="''a'" ! accepted$endif-$result:=='a ! your response returned#$exit ! in a global symbolLYou can write your own custom programs providing they return a result in theglobal symbol result.KMail me any custom bits you might think useful to others and I'll repackageFand send back to fileserv@wkuvx1.bitnet (I won't do this immediately). Logical Names =============KDBASE$PROGS should be defined to point to where your custom programs (*.DB)(are, otherwise it defaults to sys$login.HDBASE$EXTRA should be defined if you wish to pass options on the requestto print line. For example? define dbase$extra "\queue=lineprinter\form=continuous\notify"L============================================================================