Re: UIM More Options

David L Clark/it/crp/WinWholesale wrote on 11/28/2018 01:42:38 PM:

OK, thanks. I didn't notice that I could use truth tables for the
options row(s). I've used them to change the columns shown in the
list area. So, I know what I am in for. ;-)

Alright, what am I doing wrong? I was sent the source for one of
Carsten's UIM panels for an example of implimenting F23=More Options and I
coded it up and even ran it through debug. Everything appears to be
working from RPG's point of view (all the RPG does is retrieve the
variable, toggle it, and send the variable back to the dialog). Also, the
UIM options line displays correctly for the first time -- but then the UIM
options line is not changing when F23 is pressed (no errors at either
compile-time or run-time).

Anyone see anything wrong in the following snipped definitions?
Thanks.


:class name=BIN4 basetype='BIN 15'.
:eclass.
:var name=OPTVIEW class=BIN4.
:varrcd name=VARPOOL vars='OPTVIEW'.

:cond name=OPTVIEW0 expr='OPTVIEW=0'.
:cond name=OPTVIEW1 expr='OPTVIEW=1'.
:tt name=SHOWOPTS conds='OPTVIEW0 OPTVIEW1'.
:ttrow values=' 1 0 '.
:ttrow values=' 0 1 '.
:ett.

:keyi key=F23 help=MOREOPTS action='RETURN 4'.
F23=More options

:panel name=WRKJBCTL help=JLIST keyl=KEYS enter='RETURN 1'
panelid=PNLID depth=FIT width=80 topsep=SYSNAM
tt=SHOWOPTS.
Work with Job Control Options

:listact option=1 actfor=EXTACTE help='JLIST/OPT1' cond=OPTVIEW0.
1=Add
:listact option=1 actfor=EXTACTE help='JLIST/OPT1' cond=OPTVIEW1.
:listact option=2 actfor=LISTE help='JLIST/OPT2' cond=OPTVIEW0.
2=Change
:listact option=2 actfor=LISTE help='JLIST/OPT2' cond=OPTVIEW1.
... 2=Change
:listact option=3 actfor=LISTE help='JLIST/OPT3'.
3=Copy
:listact option=4 actfor=LISTE help='JLIST/OPT4'.
4=Delete
:listact option=5 actfor=LISTE help='JLIST/OPT5'.
5=Display
:listact option=9 actfor=LISTE help='JLIST/OPT9' cond=OPTVIEW0.
9=Replicate ...
:listact option=9 actfor=LISTE help='JLIST/OPT9' cond=OPTVIEW1.
9=Replicate
:listact option=10 actfor=LISTE help='JLIST/OPT10' cond=OPTVIEW0.
:listact option=10 actfor=LISTE help='JLIST/OPT10' cond=OPTVIEW1.
10=Defaults


Sincerely,

Dave Clark