Hi All,
Please find my requirment below.
1.Displays rows in the ISPF panel from the table using TBDISPL command.
2.Allows user to select any number of rows displayed in the panel. When the user presses 'enter' key, the selected rows should be copied in an ARRAY.
3.Allows user to scroll up/down to select rows in the next pages.
Problem statement :
I am able to select rows from the ISPF table displayed in the panel but when i am trying to read the selected rows ; it is able to ready only the first record and next other
records are not getting read in the Rexx program.
! TYPE(INPUT) INTENS(HIGH) CAPS(ON ) JUST(LEFT ) PAD('_')
# TYPE (NT)
% TYPE (TEXT)
_ TYPE (OUTPUT) COLOR(BLUE)
$ TYPE (NEF)
)BODY CMD(PCMD)
%COMMAND===> $PCMD
#SE DETAILS #
#------------------------------#
)MODEL
!Z _PDATA #
)INIT
.ZVARS = 'SE'
.CURSOR= SE
)REINIT
REFRESH(*)
.CURSOR=&CURS
)PROC
&ROW = .CSRROW
IF (&ZTDSELS ¬=0000)
VER (&SE,LIST,S,B,M,R,V)
&ROW = .CSRROW
IF (&ROW NE 0)
IF (&SE = &Z)
&SE = S
