IBM Mainframe Forum

by **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:

Select all

"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

by **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.

IBM Mainframe Forum

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

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

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