TBDISP problem while processing multiple selections
118 views
Skip to first unread message
Ward Able, Grant
May 4, 2020, 7:53:33 AM5/4/20
to ispf-...@nd.edu
Hi ISPF-ers,
A lot of the code below may seem rather simplistic to the more experienced of you, so please go easy on me!
I have built a table (in my tests it contains 4 rows).
I display the data and it shows me the four rows.
I select 2 of these rows & I am able to process the first just fine, but when I drop down to the statement to re-display the table, in order to process any further entries (as per ztdsels), I get an error and it blows my REXX exec away. (see error below the REXX code snippet).
Any help/suggestions (including how I have coded this!) will be greatly appreciated.
do while RC = 0
ISPEXEC "TBDISPL "deft" PANEL(RBCHNL01) "
if ((RC = 8) | (zcmd = 'CAN')) then leave ii
ISPEXEC "VGET (ztdsels)"
if ztdsels = 0 then
do
ispexec addpop
ISPEXEC 'DISPLAY PANEL(RBCHNL03)'
zrc = rc
ispexec rempop
if zrc = 8 then signal LetsBlowThisJoint
else call svrdsp
end
chgsels = ztdsels
do loopip = 1 to chgsels
peer = left(peer||COPIES(' ',256),256)
parse var peer P1 34 P2 96 P3 156 P4 214 P5
ISPEXEC "VPUT (QM,chnl,ciph,auth,P1,P2,P3,P4,P5)" PROFILE
ISPEXEC "DISPLAY PANEL(RBCHNL02) "
if ((RC = 8) | (zcmd = 'CAN')) then iterate loopip
else do
ISPEXEC "VGET (QM,chnl,ciph,auth,P1,P2,P3,P4,P5)" PROFILE
peer = "'"||P1||P2||P3||P4||P5||"'"
call Create_update_MQSC_statements
end
if loopip = chgsels then leave loopip
ispexec "TBDISPL "deft
end
end
******************************************************************************
* ISPT050 *
* *
* Table panel unavailable *
* Unable to process reinvocation. Enter HELP for more information. *
* *
* Current dialog statement: *
* TBDISPL RBCHTABL *
* *
* Enter HELP command for further information regarding this error. *
* Press ENTER key to terminate the dialog. *
******************************************************************************
Regards – Grant.
.
DTCC Public (White)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email.
A lot of the code below may seem rather simplistic to the more experienced of you, so please go easy on me!
I have built a table (in my tests it contains 4 rows).
I display the data and it shows me the four rows.
I select 2 of these rows & I am able to process the first just fine, but when I drop down to the statement to re-display the table, in order to process any further entries (as per ztdsels), I get an error and it blows my REXX exec away. (see error below the REXX code snippet).
Any help/suggestions (including how I have coded this!) will be greatly appreciated.
do while RC = 0
ISPEXEC "TBDISPL "deft" PANEL(RBCHNL01) "
if ((RC = 8) | (zcmd = 'CAN')) then leave ii
ISPEXEC "VGET (ztdsels)"
if ztdsels = 0 then
do
ispexec addpop
ISPEXEC 'DISPLAY PANEL(RBCHNL03)'
zrc = rc
ispexec rempop
if zrc = 8 then signal LetsBlowThisJoint
else call svrdsp
end
chgsels = ztdsels
do loopip = 1 to chgsels
peer = left(peer||COPIES(' ',256),256)
parse var peer P1 34 P2 96 P3 156 P4 214 P5
ISPEXEC "VPUT (QM,chnl,ciph,auth,P1,P2,P3,P4,P5)" PROFILE
ISPEXEC "DISPLAY PANEL(RBCHNL02) "
if ((RC = 8) | (zcmd = 'CAN')) then iterate loopip
else do
ISPEXEC "VGET (QM,chnl,ciph,auth,P1,P2,P3,P4,P5)" PROFILE
peer = "'"||P1||P2||P3||P4||P5||"'"
call Create_update_MQSC_statements
end
if loopip = chgsels then leave loopip
ispexec "TBDISPL "deft
end
end
******************************************************************************
* ISPT050 *
* *
* Table panel unavailable *
* Unable to process reinvocation. Enter HELP for more information. *
* *
* Current dialog statement: *
* TBDISPL RBCHTABL *
* *
* Enter HELP command for further information regarding this error. *
* Press ENTER key to terminate the dialog. *
******************************************************************************
Regards – Grant.
.
DTCC Public (White)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email.
lbd...@gmail.com
May 4, 2020, 8:03:26 AM5/4/20
to ispf-...@nd.edu
Take a look at this package of tips: http://lbdsoftware.com/ISPF%20Developer%20Tips%20and%20Tricks%20v1r6.zip
You'll find a document that should help and there is a PDS with a LOT of examples in TSO Transmit format. I didn't spend a lot of time (don't have it) reviewing your code but I didn't see anything obvious while at the same time I couldn't tell what the code is doing as that is only part of it - depending on what happens on return from svrdsp it appears to fall into the section of code for multiple selections. I think the RXTAB example in the above package will provide you with some help.
Lionel B. Dyck <sdg><
Website: https://www.lbdsoftware.com
"Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden
--
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/SA0PR15MB404815811887D8BD811EC0CEC8A60%40SA0PR15MB4048.namprd15.prod.outlook.com.
You'll find a document that should help and there is a PDS with a LOT of examples in TSO Transmit format. I didn't spend a lot of time (don't have it) reviewing your code but I didn't see anything obvious while at the same time I couldn't tell what the code is doing as that is only part of it - depending on what happens on return from svrdsp it appears to fall into the section of code for multiple selections. I think the RXTAB example in the above package will provide you with some help.
Lionel B. Dyck <sdg><
Website: https://www.lbdsoftware.com
"Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/SA0PR15MB404815811887D8BD811EC0CEC8A60%40SA0PR15MB4048.namprd15.prod.outlook.com.
Ward Able, Grant
May 4, 2020, 8:24:31 AM5/4/20
to ispf-...@nd.edu
Thanks a lot Lionel, will go and look at that now.
Regards – Grant.
DTCC Internal (Green)
-----Original Message-----
From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of lbd...@gmail.com
Sent: 04 May 2020 13:03
To: ispf-...@nd.edu
Subject: RE: [ISPF-L] TBDISP problem while processing multiple selections
ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests for Login Information.
Take a look at this package of tips: https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Flbdsoftware.com%2FISPF%2520Developer%2520Tips%2520and%2520Tricks%2520v1r6.zip&data=02%7C01%7Cgwardable%40dtcc.com%7C743bbd33b300401e1ef808d7f02327a7%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637241906089230859&sdata=6fe5PWXf%2F4FUWnY5LVjDzAjDBYvKsLnCxfiP84XQ4JA%3D&reserved=0
You'll find a document that should help and there is a PDS with a LOT of examples in TSO Transmit format. I didn't spend a lot of time (don't have it) reviewing your code but I didn't see anything obvious while at the same time I couldn't tell what the code is doing as that is only part of it - depending on what happens on return from svrdsp it appears to fall into the section of code for multiple selections. I think the RXTAB example in the above package will provide you with some help.
Lionel B. Dyck <sdg><
Website: https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.lbdsoftware.com%2F&data=02%7C01%7Cgwardable%40dtcc.com%7C743bbd33b300401e1ef808d7f02327a7%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637241906089230859&sdata=QXrcbb53VEmu2qDSOM16HncAoMHx7fUgTHIFVih85II%3D&reserved=0
To view this discussion on the web visit https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgroups.google.com%2Fa%2Fnd.edu%2Fd%2Fmsgid%2Fispf-l-list%2FSA0PR15MB404815811887D8BD811EC0CEC8A60%2540SA0PR15MB4048.namprd15.prod.outlook.com&data=02%7C01%7Cgwardable%40dtcc.com%7C743bbd33b300401e1ef808d7f02327a7%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637241906089230859&sdata=O%2BWqKwG8tsKDC88T1nViJfJrMZLllhcFOtAhx%2F%2B6v3A%3D&reserved=0.
--
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
To view this discussion on the web visit https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgroups.google.com%2Fa%2Fnd.edu%2Fd%2Fmsgid%2Fispf-l-list%2F012e01d6220c%252401e539c0%252405afad40%2524%2540gmail.com&data=02%7C01%7Cgwardable%40dtcc.com%7C743bbd33b300401e1ef808d7f02327a7%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637241906089230859&sdata=1cDVwhMePG4EyUQySDHoqXawFSiKTeTYPHiyFmpsJTI%3D&reserved=0.
Regards – Grant.
DTCC Internal (Green)
-----Original Message-----
From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of lbd...@gmail.com
Sent: 04 May 2020 13:03
To: ispf-...@nd.edu
Subject: RE: [ISPF-L] TBDISP problem while processing multiple selections
ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests for Login Information.
Take a look at this package of tips: https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Flbdsoftware.com%2FISPF%2520Developer%2520Tips%2520and%2520Tricks%2520v1r6.zip&data=02%7C01%7Cgwardable%40dtcc.com%7C743bbd33b300401e1ef808d7f02327a7%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637241906089230859&sdata=6fe5PWXf%2F4FUWnY5LVjDzAjDBYvKsLnCxfiP84XQ4JA%3D&reserved=0
You'll find a document that should help and there is a PDS with a LOT of examples in TSO Transmit format. I didn't spend a lot of time (don't have it) reviewing your code but I didn't see anything obvious while at the same time I couldn't tell what the code is doing as that is only part of it - depending on what happens on return from svrdsp it appears to fall into the section of code for multiple selections. I think the RXTAB example in the above package will provide you with some help.
Lionel B. Dyck <sdg><
--
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
Frank Clarke
May 4, 2020, 9:14:56 AM5/4/20
to ispf-...@nd.edu
You don’t have to VGET ztdsels, it’s set by the TBdispl. Then you can just
do ztdsels
but since ztdsels identifies the number of rows including the one handed to you by the initial tbdispl, loop one cycle less.
Lots of examples at the REXXLA.org/freerepo/rexx (I think)
Sent from my iPhone
> On May 4, 2020, at 7:53 AM, Ward Able, Grant <GWar...@dtcc.com> wrote:
>
> Hi ISPF-ers,
do ztdsels
but since ztdsels identifies the number of rows including the one handed to you by the initial tbdispl, loop one cycle less.
Lots of examples at the REXXLA.org/freerepo/rexx (I think)
Sent from my iPhone
> On May 4, 2020, at 7:53 AM, Ward Able, Grant <GWar...@dtcc.com> wrote:
>
> Hi ISPF-ers,
> --
> You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
> To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/SA0PR15MB404815811887D8BD811EC0CEC8A60%40SA0PR15MB4048.namprd15.prod.outlook.com.
> You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
Marvin Knight
May 4, 2020, 9:27:53 AM5/4/20
to ispf-...@nd.edu
Grant,
Just from glancing at your REXX code I suspect you need to put a CONTROL DISPLAY SAVE/RESTORE around your DISPLAY requests inside the TBDISPL loop.
Doing a DISPLAY request inside a TBDISPL loop that does not use the panel name after the first time will require using a CONTROL DISPLAY SAVE .. CONTROL DISPLAY RESTORE around the DISPLAY request
Inside the TBDISPL TBL loop you might have something like the following to process selections
..
ADDRESS ISPEXEC
If sel = 'V' then
do
"CONTROL DISPLAY SAVE"
"VIEW DATASET("dsn")"
"CONTROL DISPLAY RESTORE"
end
IF sel = 'S' then
do
"CONTROL DISPLAY SAVE"
"DISPLAY PANEL(xxx)"
"CONTROL DISPLAY RESTORE"
end
....
The CONTROL DISPLAY SAVE/RESTORE is needed to preserve the TBDISPL panel environment since no panel name is being specified for the TBDISPL loop.
Marvin Knight
Just from glancing at your REXX code I suspect you need to put a CONTROL DISPLAY SAVE/RESTORE around your DISPLAY requests inside the TBDISPL loop.
Doing a DISPLAY request inside a TBDISPL loop that does not use the panel name after the first time will require using a CONTROL DISPLAY SAVE .. CONTROL DISPLAY RESTORE around the DISPLAY request
Inside the TBDISPL TBL loop you might have something like the following to process selections
..
ADDRESS ISPEXEC
If sel = 'V' then
do
"CONTROL DISPLAY SAVE"
"VIEW DATASET("dsn")"
"CONTROL DISPLAY RESTORE"
end
IF sel = 'S' then
do
"CONTROL DISPLAY SAVE"
"DISPLAY PANEL(xxx)"
"CONTROL DISPLAY RESTORE"
end
....
The CONTROL DISPLAY SAVE/RESTORE is needed to preserve the TBDISPL panel environment since no panel name is being specified for the TBDISPL loop.
Marvin Knight
Frank Clarke
May 4, 2020, 3:49:57 PM5/4/20
to ispf-...@nd.edu
> To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list+unsub...@nd.edu.
> To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/SA0PR15MB404815811887D8BD811EC0CEC8A60%40SA0PR15MB4048.namprd15.prod.outlook.com.
--
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list+unsub...@nd.edu.
To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/950EBAA8-FD28-4537-81CE-170E047B2475%40yahoo.com.
Reply all
Reply to author
Forward
0 new messages