I am trying to display the content of an ISPF table to ISPF panel. All my codes are working but data is not displaying in the Panel screen. Panel shows the number of rows a the top but no data display. I am beginer, please help..
Rexx Code
ADDRESS ISPEXEC "TBOPEN TOOLTB NOWRITE SHARE"
ADDRESS ISPEXEC "TBTOP TOOLTB"
ADDRESS ISPEXEC "TBSKIP TOOLTB NUMBER(+1) POSITION(TBCRP)"
ADDRESS ISPEXEC "TBGET TOOLTB POSITION(TBCRP)"
ADDRESS ISPEXEC "TBDISPL TOOLTB PANEL(RPANEL0)"
ADDRESS ISPEXEC "TBCLOSE TOOLTB"
Table looks like below
TOOLNME TOOLCMD TOOLDET
----+----1 ----+----1----+----2----+----3 ----+----1----+----2----+----3---
AB G 6
A F G
BB GG A
Panel Code
% COMMAND INPUT ===>_COMOPTN %SCROLL ===>
%-----------------------------------------------------------------------
% TOOL NAME TOOL COMMAND TOOL DESC.
%---------- --------------------------- ----------------------------
%
)MODEL
@DSNDATA
)INIT
&COMOPTN = ''
&AMT = PAGE
)PROC
&PFKEYV = .PFKEY
VER(&COMOPTN,NONBLANK,LIST,'ENTER',MSG=test1)