How to read muiltple selected records in scroll able panel

[zingysayal1985]

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.

[zingysayal1985]

Code details :

Code: Select all

! 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                                                
 

Rexx code:

Code: Select all

DO WHILE ZTDSELS > 0                        
 SAY ZTDSELS                                
SE = STRIP(SE)                              
UPPER SE                                    
UPPER CNF                                    
SAY CNF                                      
 "CONTROL DISPLAY SAVE"                      
 IF SE ='S' THEN                            
 DO                                          
 SAY PDATA                                  
/*"TBSKIP" PDATA    "ROW("ZTDSELS")" */      
 END                                        
 "ISPEXEC TBDISPL"PDATA                      
 ZTDSELS = ZTDSELS - 1                      
 IF ZTDSELS = 1 THEN ZTDSELS = 0            
 IF RC = 8 THEN LEAVE                        
 "CONTROL DISPLAY RESTORE"                  
END

CODE' d

[Pedro]

There are no comments in the code!

The key thing is that you have to issue TBDISPL service without specifying the panel name. It will retrieve the next row selected.

[zingysayal1985]

Many Thanks Pedro. Its working fine now.