The following is a portion of the code we use to create views programmatically. Use of a temporary DBC will be necessary.

Research the following...

* lcSql is equal to a paramatarized Sql Statement
CREATE SQL VIEW (lcView) AS &lcSql

llResult = CURSORSETPROP("SendUpdates", THIS.lSendUpdates) AND ;
CURSORSETPROP("Buffering", THIS.nBuffering) AND ;
CURSORSETPROP("CompareMemo", THIS.lCompareMemo) AND ;
CURSORSETPROP("BatchUpdateCount", THIS.nBatchCount)

* only perform the following if updating the table
GO BOTTOM
GO TOP
IF llResult AND THIS.lSendUpdates
* Go bottom to ensure we have all records, then place pointer back at the top
IF EMPTY(THIS.cUpdatableFieldList)
THIS.cStoreUpdatableFieldList = THIS.GetUpdatable()
ELSE
THIS.cStoreUpdatableFieldList = THIS.cUpdatableFieldList
ENDIF
llResult = CURSORSETPROP("UpdatableFieldList", THIS.cStoreUpdatableFieldList)

IF llResult
THIS.cKeyFieldList = THIS.getKeyFieldList()
ENDIF
IF llResult AND !EMPTY(THIS.cKeyFieldList)
llResult = CURSORSETPROP("KeyFieldList", THIS.cKeyFieldList)
ENDIF
IF llResult AND !EMPTY(THIS.cTables)
llResult = CURSORSETPROP("Tables", THIS.cTables)
ENDIF
IF llResult AND !EMPTY(THIS.cUpdateNameList)
llResult = CURSORSETPROP("UpdateNameList", THIS.cUpdateNameList)
ENDIF
ENDIF