Ramesh Chand Rebari
New Member
Code:
DEFINE VARIABLE lcInfo as character no-undo.
DEFINE VARIABLE lcTableName AS CHARACTER NO-UNDO.
DEFINE variable htt as handle no-undo.
DEFINE variable hBuf_TT_Empl as handle.
input from "C:\Users\rrebari\Desktop\input3.txt".
IMPORT UNFORMATTED lcInfo.
IF TRIM(lcInfo) > "" THEN
DO:
ASSIGN
lcTableName = TRIM(lcInfo).
CREATE TEMP-TABLE htt.
END.
IF lcTableName > "" THEN
DO:
repeat:
import unformatted lcInfo.
IF TRIM(lcInfo) > "" THEN
DO:
htt:add-new-field ( TRIM(lcInfo), "character").
END.
end.
/*DISP lcInfo.
*/
END.
htt:temp-table-prepare(lcTableName).
hBuf_TT_Empl = htt:default-buffer-handle.
do transaction:
hBuf_TT_Empl:buffer-create().
hBuf_TT_Empl:buffer-field ("Ename"):buffer-value= "Ramesh".
hBuf_TT_Empl:BUFFER-FIELD ("Eid"):buffer-value= "123".
hBuf_TT_Empl:BUFFER-FIELD ("Ecity"):buffer-value= "Jaipur".
end.
DEFINE VARIABLE qh4 AS HANDLE.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE fldh AS HANDLE EXTENT 3.
/* Create Query */
CREATE QUERY qh4.
qh4:SET-BUFFERS(hBuf_TT_Empl).
qh4:QUERY-PREPARE("for each abc").
qh4:QUERY-OPEN.
REPEAT WITH FRAME zz DOWN:
qh4:GET-NEXT.
IF qh4:QUERY-OFF-END THEN LEAVE.
REPEAT i = 1 TO 3:
fldh = hBuf_TT_Empl:BUFFER-FIELD(i).
DISPLAY fldh:NAME FORMAT "x(15)"
fldh:BUFFER-VALUE FORMAT "x(20)".
END.
END.
hBuf_TT_Empl:BUFFER-RELEASE.
DELETE OBJECT qh4.
input close.
Attachments
Last edited by a moderator: