Scholl Consulting Group, Inc.
ServicesHIPAA-EDIDatabasesMHCDeliveryDownloadsContactshadow
shadow
 

Convert.dict

       
UniVerse
  UniData
  JBase
  PICK Systems
  Restaurant Delivery System
  ODBC Setup
  Universe GUI Dictionary Editor
  Data Warehousing
  Visual Basic Solutions
   

I wrote CONVERT.DICT to facilitate the setup of a UniVerse system for ODBC. I concluded that I didn't want to use the existing dictionary files for the system. They were 20 years old and full of junk attributes that nobody used anymore. So I created a new account and created new, empty dictionaries for all the files that I wished to expose.

CREATE.FILE DICT filename 3 2 1
Then I logged to the original account and ran CONVERT.DICT to convert A and S style descriptors to D types and copied them over into the new account.

* PROGRAM CONVERT.DICT
0001: * CONVERT A TYPE TO D TYPE AND COPY I TYPES TO A NEW DICTIONARY IN ANOTHER ACCOUNT
0002: * MARTIN SCHOLL 5/16/2000
0003: OPEN "","VOC" TO VOC ELSE STOP 201, "VOC"
0004: COUNTER = 0
0005: PRINT @(-1)
0006: PRINT @(30,1):"DICTIONARY CONVERTER"
0007: PRINT @(3,3):"ENTER FILE FILE TO BE CONVERTED: " : ; INPUT FN
0008: IF FN = "X" THEN STOP
0009: OPEN "DICT ":FN TO FILE ELSE STOP 201, FN
0010: PRINT @(3,5):"ENTER DESTINATION ACCOUNT: ": ; INPUT DEST
0011: IF DEST = "X" THEN STOP
0012: OPEN "DICT ":"SQL":FN TO DESTFILE ELSE
0013: PRINT " CREATING TEMPORARY Q POINTER"
0014: VOCITEM = ""
0015: VOCITEM<1> = "Q"
0016: VOCITEM<2> = DEST
0017: VOCITEM<3> = FN
0018: WRITE VOCITEM ON VOC,"SQL":FN ELSE NULL
0019: OPEN "DICT ":"SQL":FN TO DESTFILE ELSE STOP 201, DESTFILE
0020: END
0021: SELECT FILE
0022: LOOP
0023: READNEXT ID ELSE EXIT
0024: READ DITEM FROM FILE, ID ELSE CONTINUE
0025: COUNTER +=1
0026: IF DITEM<8> # "" THEN CONTINUE ; * CAN'T USE CORRELATIVE
0027: BEGIN CASE
0028: CASE DITEM<1>[1,1] = "A"
0029: NEWITEM = ""
0030: NEWITEM<1> = "D"
0031: NEWITEM<2> = DITEM<2>
0032: NEWITEM<4> = DITEM<3>
0033: NEWITEM<3> = DITEM<7>
0034: NEWITEM<5> = DITEM<10>:DITEM<9>
0035: NEWITEM<6> = DITEM<5>
0036: NEWITEM<7> = ""
0037: NEWITEM<8> = DITEM<6>
0038: WRITE NEWITEM ON DESTFILE,ID ELSE NULL
0039: CASE DITEM<1>[1,1] = "Z"
0040: CONTINUE
0041: CASE 1
0042: WRITE DITEM ON DESTFILE,ID ELSE NULL
0043: END CASE
0044: REPEAT
0045: PRINT " ":COUNTER:" DICTIONARY ITEMS HAVE BEEN COPIED"
0046: DELETE VOC,"SQL":FN THEN
0047: PRINT " TEMPORARY Q POINTER DELETED"
0048: END
0049: END
Bottom at line 49.

 
         
    Back to TopBack to Top    
  18910 New Hampshire Ave | Brinklow, MD 20862 | (301) 924-5537 | Contact