IBM Mainframe Forum

by **eprasad629** » Thu Aug 06, 2009 9:50 pm

Hi,

Good Day!!!

I have designed a panel which reads an ISPF table and displays rows. I have provided command option in front of the displayed rows which will enable a user to enter an action.

Here I'm unable to get the row which user has opted for and I got struck up this point?

Could you please let me on how to proceed further?

In case if you require more information please let me know.

Many thanks in advance.

by **expat** » Fri Aug 07, 2009 12:17 pm

What is happening, or not happening as appears to be the case.

The user selects a row to process and nothing happens ?

Please show your table definition, and the selection processing code.

by **eprasad629** » Fri Aug 07, 2009 12:52 pm

Hi Expat,

Thanks for replying.

Please find the code below,

Select all

/**** rexx ****/
"clr3270"
trace R?
ADDRESS "ISPEXEC"
"LIBDEF ISPPLIB DATASET ID('PAJX.PLIB')"
"LIBDEF ISPTLIB DATASET ID('PAJX.TLIB')"

/** create a new table **/
"TBOpen ABUILD nowrite"

If rc=0 Then
do
signal srt
end
Else If rc=8 Then
do
say "Table doesn't exists"
exit 0
end
else if rc = 12 Then
do
say "ENQ failed; table was in use by another",
" user or the current user"
exit 0
end
else if rc = 16 Then
do
say "Table allocation error"
exit 0
end

srt:

do forever
"tbdispl ABUILD panel(INSP#TAB)",
"AutoSel(No)"

say 'Value of row ' row

if rc > 4 Then leave
do ztdsels
"CONTROL DISPLAY SAVE"
select
when action = "D" Then
call del#mem
otherwise
nop
end /* Select */
"CONTROL DISPLAY RESTORE"
if ztdsels = 1 then, /* no more rows to do */
ztdsels = 0
else
"TBDISPL ABUILD" /* next row */
end /* ztdsels */
action = ''
end

"TBClose ABUILD" /* Saves the table onto the disk" */

/*"TBClose ABUILD"*/
exit 0

The panel has the following ZVARS defined in )MODEL
zpgname, zload, zcics and zdb2

When a user enters a option D (for delete) and hits enter, the control flows to the following code

Select all

when action = "D" Then
call del#mem

However the variables zpgname, zload, zcics and zdb2 doesn't carry the corresponding row value. I need to capture the row selected a user for further processing

Please let me know if you require further information on this.

Many thanks in advance.

by **expat** » Fri Aug 07, 2009 1:12 pm

Ok, we all have our own coding methods, and this is the one that I prefer to use when playing with tables.

I build a variable into the table, usually O for operation, and use that in my processing code. This stores the required action code in the table and does not do anything until the user has hit PF3 to quit the table selection process. This allows for a review of what has been requested and also allows corrections to be made before processing. Let's face it, the option of not to delete a selected record sure beats deleting the record immediately without asking questions.

Basically our code is very similar, the initial panel display - if no records selected it bypasses the table process, if rows are selected the DO FOREVER loop happens until the user is satisfied with the options entered and only when they hit PF3 to exit the table displays does the program actually do the requested work.

I appreciate you have your own coding preferences and if the code below helps you ...........

Select all

"ISPEXEC TBDISPL ENVLIST PANEL(TABLTEST)"
IF RC <> 8 THEN DO
DO FOREVER
DO WHILE ZTDSELS > 0
UPPER O
IF O = 'S' THEN DO
"ISPEXEC TBPUT ENVLIST"
END
ELSE IF O = 'U' THEN DO
O = ' '
"ISPEXEC TBPUT ENVLIST"
END
"ISPEXEC TBDISPL ENVLIST"
END
"ISPEXEC TBDISPL ENVLIST"
IF RC = 8 THEN LEAVE
END
END

Logic to process requested actions against the table goes here.

IBM Mainframe Forum

TBDISPL Value Select

TBDISPL Value Select

Re: TBDISPL Value Select

Re: TBDISPL Value Select

Re: TBDISPL Value Select