Hi Pawan,
As it's been already told its of no use doing this thing, first of all due to AppServer and if you work with Dynamic Temp-Table then you have to work with Dynamic Query, that is little bit boring and doesn't provide so much of freedom as we have working with normal tables. Though here is one sample of Code, see if it can solve your purpose -
/* Here in this code fields Comments & Address will not be included, If you want to check just uncomment the commented code and you will see error */
DEF VAR tth AS HANDLE NO-UNDO.
DEF VAR bf_handle AS HANDLE NO-UNDO.
DEF VAR bf_handle_cust AS HANDLE NO-UNDO.
DEF VAR qh AS HANDLE NO-UNDO.
DEF VAR fld1 AS HANDLE NO-UNDO.
DEF VAR fld2 AS HANDLE NO-UNDO.
DEF VAR fld3 AS HANDLE NO-UNDO.
bf_handle_cust = BUFFER customer:HANDLE.
CREATE TEMP-TABLE tth.
tth:ADD-FIELDS-FROM("Customer", ",Comments,Address,").
tth:TEMP-TABLE-PREPARE("tCust").
bf_handle = tth
EFAULT-BUFFER-HANDLE.
FOR EACH customer WHERE CustNum < 15:
bf_handle:BUFFER-CREATE().
bf_handle:BUFFER-COPY(bf_handle_cust).
END.
CREATE QUERY qh.
qh:SET-BUFFERS(bf_handle).
qh:QUERY-PREPARE("FOR EACH tCust").
qh:QUERY-OPEN().
fld1 = bf_handle:BUFFER-FIELD("CustNum").
fld2 = bf_handle:BUFFER-FIELD("Name").
/* fld3 = bf_handle:BUFFER-FIELD("Comments"). */
REPEAT:
qh:GET-NEXT().
IF qh:QUERY-OFF-END THEN LEAVE.
DISPLAY fld1:BUFFER-VALUE() FORMAT "X(10)".
DISPLAY fld2:BUFFER-VALUE() FORMAT "X(20)".
/* DISPLAY fld3:BUFFER-VALUE() FORMAT "X(20)". */
END