MEMBER() MAP END ! MAP INCLUDE('jmSQLName.INC'),ONCE !----------------------------------------------------------------------------------- jm::GetSQLName.SQLName PROCEDURE(FILE pFile) ! RETURNs File's External Name = SQL TableName File:ExternalName CSTRING(64),AUTO CODE ! Includes call to (pFile,pField) version of this method in order to assign RecordStructureRef SELF.SQLName(pFile,File:ExternalName) ! Assign RecordStructureRef as reference to this File ! File:ExternalName = pFile{Prop:Name} ! pFile's External Name = its SQL table-name IF File:ExternalName IF INSTRING('\',File:ExternalName,,) ! File has a DOS pathname (probably a TPS file) File:ExternalName = 'FILE is not a reference to a SQL table' . ELSE File:ExternalName = 'No External Name for specified FILE' . RETURN File:ExternalName ! CLIPed via CSTRING !----------------------------------------------------------------------------------- jm::GetSQLName.SQLName PROCEDURE(, *? pField, BYTE pWoC=0) ! RETURNs Field's External Name = SQL Column-name Field:ExternalName CSTRING(64),AUTO CODE ! Basic concept from ViewManager.GetFieldName (ABFILE.CLW) IF NOT OMITTED(pFile) SELF:RecordStructureRef &= pFile{Prop:Record} ! Reference to RECORD structure of the incoming FILE SELF:Filename = pFile{Prop:Name} ! pFile's External Name = its SQL table-name . IF SELF:RecordStructureRef &= NULL OR NOT SELF:Filename Field:ExternalName = 'Unknown FILE or has no External Name' ELSE Field:ExternalName = WHO(SELF:RecordStructureRef,WHERE(SELF:RecordStructureRef,pField)) IF NOT Field:ExternalName Field:ExternalName = 'FIELD does not belong to specified FILE' ELSE Pos# = INSTRING(':',Field:ExternalName,,); IF Pos# ! Strip off the Clarion PRE(~) qualifer Field:ExternalName = SUB(Field:ExternalName,(Pos#+1),LEN(Field:ExternalName)) . Field:ExternalName = SELF:Filename &'.'& Field:ExternalName ! Prepend with SQL table-name qualifier IF NOT pWoC ! IF NOT [Without-Comma] ... Field:ExternalName = Field:ExternalName &',' ! THEN add trailing comma . . . RETURN Field:ExternalName ! CLIPed via CSTRING !-----------------------------------------------------------------------------------