A
Akshay Guleria
Guest
My aim is to create a Temp-Table for a DB table by removing N number of named (and valid) fields. An example of how I'm trying to achieve this using sports2000 DB. DEF VAR hTempTable AS HANDLE NO-UNDO. DEF VAR cTableName AS CHAR NO-UNDO INIT "Customer". DEF VAR cSkipList AS CHAR NO-UNDO INIT "Fax, Comments". DEF VAR hBuffer AS HANDLE NO-UNDO. DEF VAR lii AS INT NO-UNDO. /* Create TEMP-TABLE */ CREATE TEMP-TABLE hTempTable. hTempTable:ADD-FIELDS-FROM(cTableName, cSkipList). hTempTable:TEMP-TABLE-PREPARE(cTableName). hBuffer = hTemptable
EFAULT-BUFFER-HANDLE. REPEAT lii = 1 TO hBuffer:NUM-FIELDS: DISP SUBST("&1. &2", lii, hBuffer:BUFFER-FIELD (lii):NAME). END. Method ADD-FIELDS-FROM except list expression does not remove all fields from resulting TempTable. it only removes the first field from the given list of fields. Is this a known bug or something wrong with my way of doing it?
Continue reading...
EFAULT-BUFFER-HANDLE. REPEAT lii = 1 TO hBuffer:NUM-FIELDS: DISP SUBST("&1. &2", lii, hBuffer:BUFFER-FIELD (lii):NAME). END. Method ADD-FIELDS-FROM except list expression does not remove all fields from resulting TempTable. it only removes the first field from the given list of fields. Is this a known bug or something wrong with my way of doing it?Continue reading...