Possible to use "locate/find" in a PANEL like with DSLIST ?



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Possible to use "locate/find" in a PANEL like with DSLIST ?

Postby oldnick » Thu Aug 26, 2010 6:18 pm

1) I built a little application with rexx and ispf panels that displays a list of all members in a dataset to select some of them and then execute a macro on each of the selected ones,

however if I type "f abc" or "locate abc" in the command field it wont find any member with the abc sting like DSLIST would.

is it even possible to have those commands work in my own panels ever ? Do I need to do something to enable it ?

because scrolling through 5000 JCLs to select some is not practical for the end users


Sorry if my question is "noob", I'm an intern ( and my internship master is too busy today to answer anything <_< )


2) Also, an other quick question instead of making an other topic:

Is there any reason why "LMINIT DATAID(DSET) DATASET('"DDN"')" would work with DDN = "DMONT.ISPF.REXX" and the dataset members successfully display with the application But won't work with DDN = "APP.BBE.CTMH.JCL" ? Too long ? Too many dots ? (The mainframe just freezes forever and have to halt the application)

Or should it work ? (so at least I know its my fault)

Code just in case:
"LMINIT DATAID(DSET) DATASET('"DDN"')"
"LMOPEN DATAID("DSET")"                           
                                                   
"TBCreate" table_name "keys(dsn)" ,               
"names(act)" ,                                     
"Share Replace Nowrite"                           
do forever                                         
                                       
"LMMLIST DATAID("DSET") OPTION(LIST)",             
"MEMBER(dsn) STATS(YES)"                           
"TBadd" table_name       
trc = rc                 
if trc > 0 then do       

"LMCLOSE DATAID("DSET")"
leave                   
end   
end                                                   
                                                 
end                                                   
else do                                               
"DISPLAY PANEL(test03)"                               
if pfk =="PF03" then exit;if pfk =="PF04" then exit   
end                                                   
mult_sels = 0                                         
crp = 1                                               
rowcrp = 0                                             
                                                       
                                                       
do until done == "GO"                                 
                                                       
sharfind = "PASSTHRU"                                 
sel = null                                             
if mult_sels = 0 then do 
if mult_sels = 0 then do                             
"TBTop" table_name                                   
"TBSkip" table_name "Number("crp") "                 
"TBDispl" table_name "Panel(test02)" ,               
"Csrrow("rowcrp") AutoSel(No)"                       
if pfk =="PF03" then exit;if pfk =="PF04" then exit   
end                                                   
else                                                 
"TBDispl" table_name                                 
if pfk =="PF03" then exit;if pfk =="PF04" then exit   
t_rc = rc                                             
crp = ztdtop                                         
mult_sels = ztdsels                                   
multi = mult_sels                                     
if row <> null then                                   
if row > 0 then do                                   
"TBTop" table_name                                   
"TBSkip" table_name "NUMBER("row")"                   
end                                                   
if t_rc > 7 then do 
"TBEnd" table_name     
leave                   
end                     
sharfind = null         
                       
act = sel               
"TBPut" table_name     
end 

...                                                                                                   


thanks
oldnick
 
Posts: 19
Joined: Wed Apr 21, 2010 1:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Possible to use "locate/find" in a PANEL like with DSLIST ?

Postby expat » Fri Aug 27, 2010 11:41 am

Use TRACE to see what is happening when the error occurs and from there you can change the REXX so that it will work.
expat
 
Posts: 459
Joined: Sat Jun 09, 2007 3:21 pm
Has thanked: 0 time
Been thanked: 8 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post