Conditional Display [TBDISPL] before using any panel
Posted: Tue Jul 19, 2016 5:03 pm
Hi,
In a program I display an ISPF table using below code (which is working fine :-) )...
display_coll:
do forever
zcmd = ''
ztdsels = 0
"ISPEXEC TBDISPL COLLDATA PANEL(SIAELM98)"
prc = rc
SELECT
WHEN ztdsels > 0 THEN DO
"ADDPOP ROW(01) COLUMN(03)"
"DISPLAY PANEL(SIAELM97)"
prc = rc
"REMPOP ALL"
END
WHEN prc <> 0 then do
leave
end
OTHERWISE NOP
END
I want to display contents of the table "COLLDATA" conditionally using the panel "SIAELM98" when table has more than 1 row...Else I want to display the data using panel "SIAELM97"
Could you please help ?
In a program I display an ISPF table using below code (which is working fine :-) )...
display_coll:
do forever
zcmd = ''
ztdsels = 0
"ISPEXEC TBDISPL COLLDATA PANEL(SIAELM98)"
prc = rc
SELECT
WHEN ztdsels > 0 THEN DO
"ADDPOP ROW(01) COLUMN(03)"
"DISPLAY PANEL(SIAELM97)"
prc = rc
"REMPOP ALL"
END
WHEN prc <> 0 then do
leave
end
OTHERWISE NOP
END
I want to display contents of the table "COLLDATA" conditionally using the panel "SIAELM98" when table has more than 1 row...Else I want to display the data using panel "SIAELM97"
Could you please help ?