gistfile1.txt

Declare Subroutine Create_Symbolic, Set_Status, FsMsg
Declare Function Get_Status

table = "INVENTORY"
column = "NUMKEY"

Overwrite = 1

formula = "@ans = {@ID}" : @fm
dType = "INTEGER"
colHead = "Key"
mvFlag = ""
conv = ""
just = "R"
length = 19
descr = "Numeric Key Right Justification"

Exists = Xlate('DICT.' : TABLE, Column, '', 'X')

If Exists NE '' And Overwrite NE 1 Then
	Call Msg(@WINDOW, 'Dictionary already exists')
	Return
End

errCodes = ""

Set_Status(0)
Create_Symbolic(table, column, formula, dType, colHead, mvFlag, conv, just, length, descr)
If Get_Status(errCodes) Then
 * Error Handling
 FSMsg(errCodes)
end