How to disallow selection of more than 1 row on a panel.

David Hadden · New User Joined: 16 Mar 2010 Posts: 1 Location: Virginia

I'm trying to limit the number of rows that can be selected on an ISPF panel. I can add a panel edit, but do not have access to the underlying programming code.

The following will prevent more than 1 row from being selected, but I can't find a way to reset or ignore ZTDSELS automatically. If I manually clear the ABCDEF variable and also the selected rows and press 'enter', or exit the panel and re-enter, it works, but it's very clunky.

Ranjithkumar · New User Joined: 10 Sep 2008 Posts: 93 Location: India

If only one row is to be selected from the panel, you can LIST the options in the panel and allow the user to select only one option from the LIST. Hope the below example helps.

)ATTR
? TYPE(NEF)
% TYPE(TEXT) INTENS(HIGH)
)BODY EXPAND($$) WINDOW(60,13)
%$-$SELECTION PANEL$-$
+
+ Select Option :?Z
+1.OPTION1
+2.OPTION2
+3.OPTION3
+4.OPTION4
+
+
)INIT
.ZVARS = '(SELECT)'
&SELECT = ''
)PROC
VER (&SELECT,LIST,1,2,3,4)
VER (&SELECT,NB)
)END

expat · Posted: Mon Mar 29, 2010 1:20 pm

Ranjithkumar

What has your reply got to do with the original question. The original question is regarding the display and selection from ISPF tables.

Please explain to me where your solution deals with the ISPF table.

Dave, not sure if this will help, I can not try this as I'm not back in the office until Wednesday, but in the PROC section of the panel

Marso · Posted: Mon Mar 29, 2010 1:57 pm

Good thinking, expat.
"&ZTDSELS = 1" worked well on the test case I built last week.
I tried a few other things before but couldn't find the solution.

Ranjithkumar, good thinking too, but you missed 2 things:
In addition to the table thing, one condition is:

Ranjithkumar · New User Joined: 10 Sep 2008 Posts: 93 Location: India

@expat & Marso

yep i missed that.. Thanks for pointing out

PeterHolland · Posted: Mon Mar 29, 2010 2:09 pm

ZTDTOP and ZTDSELS Variables
ZTDTOP and ZTDSELS are variables in the function pool. A command procedure
can access them directly. A program can access them through use of the VDEFINE
or VCOPY service. If a program function uses the VCOPY service to access the
variable, the value will be in character string format. It will not be in fixed binary
format.
If the application user selected more than one row in a single interaction, the
variable ZTDSELS is 2 or greater, which indicates that selected rows remain to be
processed. These rows are called pending selected rows. A call to TBDISPL is
required to position the CRP to each pending selected row, retrieve the row from
the table, and store input fields from the corresponding model set. After the CRP is
positioned to each selected row, the function can process the row, for example, by
issuing a TBPUT request to update the table. For these calls, neither the
panel-name nor the message-id should be specified. The processing sequence for
each of these calls is as described above, except that the next selected row is
processed.
Whenever selected rows remain to be processed, the dialog can choose to ignore
them by calling TBDISPL with a specified (non-blank) panel name. This clears out
any remaining information about previous calls. If the dialog wants to display
another screen before processing pending selected rows from the first display, and
then resume processing of several selected rows from the first display, it must
invoke the CONTROL service to save and restore the display environment.