Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Scrollable Fields
69 views
Skip to first unread message
Steve Coalbran
Sep 27, 2011, 9:51:06 AM9/27/11
to
This is probably a dumb question but I have been trying for some time now.
Has anyone toyed with Scrollable Fields on a panel ?
DB2 TBCREATOR and TBNAME values have a limit of VARCHAR(128) - hence the need for these type of fields.
I can get this 99% working but I'm absolutely failing to control the individual scroll values.
For some time the panel was even zapping the first non-scrollable field with 'DATA' the default value for scrolling.
I added a SCROLL input field of ZSCRLB - don't remember why, copied it from somewhere I suspect!? :-/
The panel below has a lot of detail (*REXX sections) removed for simplicity...
***PANEL(TBDESCR)***************************************************************
| )ATTR DEFAULT(%+_)
| @ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| £ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| } TYPE(TEXT) COLOR(GREEN) INTENS(LOW)
| § TYPE(OUTPUT) CAPS(OFF) JUST(ASIS)
| )BODY DEFAULT(%+_)
| }------------------------ Check Table Exists ----------------------------------+
| +Command ===>_ZCMD +Scroll ===>_ZSCRB
| +
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
| } §TBNS +§NAI+
| } Table name . . . . . . . . . . £TBNA +
|
| +
| )INIT
| &ZERRALRM = 'YES'
| &ZERRHM = 'LOADTAB'
| .HELP = '&ZERRHM'
| &SSIDS = 'DB2A,DB2B,DB2C'
| IF( VER(&SSID,LISTV,&SSIDS) )
| ELSE
| &SSID = 'DB2A'
| )REINIT
| REFRESH(*)
| )PROC
| &ZERRSM = &Z
| VER(&SSID,NB,NAME)
| VER(&SSID,LISTV,&SSIDS)
| VER(&TBCR,NONBLANK)
| VER(&TBNA,NONBLANK)
| )FIELD
| FIELD(TBCR) LEN(128) IND(CRI,'<>') SCALE(TBCS)
| FIELD(TBNA) LEN(128) IND(NAI,'<>') SCALE(TBNS)
| )END
Has anyone toyed with Scrollable Fields on a panel ?
DB2 TBCREATOR and TBNAME values have a limit of VARCHAR(128) - hence the need for these type of fields.
I can get this 99% working but I'm absolutely failing to control the individual scroll values.
For some time the panel was even zapping the first non-scrollable field with 'DATA' the default value for scrolling.
I added a SCROLL input field of ZSCRLB - don't remember why, copied it from somewhere I suspect!? :-/
The panel below has a lot of detail (*REXX sections) removed for simplicity...
***PANEL(TBDESCR)***************************************************************
| )ATTR DEFAULT(%+_)
| @ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| £ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| } TYPE(TEXT) COLOR(GREEN) INTENS(LOW)
| § TYPE(OUTPUT) CAPS(OFF) JUST(ASIS)
| )BODY DEFAULT(%+_)
| }------------------------ Check Table Exists ----------------------------------+
| +Command ===>_ZCMD +Scroll ===>_ZSCRB
| +
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
| } §TBNS +§NAI+
| } Table name . . . . . . . . . . £TBNA +
|
| +
| )INIT
| &ZERRALRM = 'YES'
| &ZERRHM = 'LOADTAB'
| .HELP = '&ZERRHM'
| &SSIDS = 'DB2A,DB2B,DB2C'
| IF( VER(&SSID,LISTV,&SSIDS) )
| ELSE
| &SSID = 'DB2A'
| )REINIT
| REFRESH(*)
| )PROC
| &ZERRSM = &Z
| VER(&SSID,NB,NAME)
| VER(&SSID,LISTV,&SSIDS)
| VER(&TBCR,NONBLANK)
| VER(&TBNA,NONBLANK)
| )FIELD
| FIELD(TBCR) LEN(128) IND(CRI,'<>') SCALE(TBCS)
| FIELD(TBNA) LEN(128) IND(NAI,'<>') SCALE(TBNS)
| )END
Steve Comstock
Sep 27, 2011, 10:17:58 AM9/27/11
to
On 9/27/2011 7:50 AM, Steve Coalbran wrote:
> This is probably a dumb question but I have been trying for some time now.
> Has anyone toyed with Scrollable Fields on a panel ?
> DB2 TBCREATOR and TBNAME values have a limit of VARCHAR(128) - hence the need for these type of fields.
>
> I can get this 99% working but I'm absolutely failing to control the individual scroll values.
I don't understand what is failing. Are you saying you can't
> This is probably a dumb question but I have been trying for some time now.
> Has anyone toyed with Scrollable Fields on a panel ?
> DB2 TBCREATOR and TBNAME values have a limit of VARCHAR(128) - hence the need for these type of fields.
>
> I can get this 99% working but I'm absolutely failing to control the individual scroll values.
get the scrollable fields to work at all? Are you saying the
scroll amount is not working?
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
Pedro Vera
Sep 27, 2011, 2:49:32 PM9/27/11
to
> I'm absolutely failing to control the individual scroll values.
Take a look at chapter 7 of Dialog Developers Guide and Reference, which
describes the )FIELD section. It mentions the LCOL() parameter which is
used to specify the leftmost position of the displayed value. There is
also an example with rexx and panel (hey, the examples are not
numbered??). Playing with the example shows the use of LCOL. You set the
value of the left position and at the next display, the field has been
scrolled to that position. Each field can have a unique LCOL() value. Or
some can share the same LCOL() value and the fields will scroll in unison.
Pedro Vera
DB2 Admin Tool
http://www-01.ibm.com/software/data/db2imstools/db2tools/db2admin/
Steve Coalbran
Sep 28, 2011, 1:43:14 AM9/28/11
to
Thanks Pedro (Steve - this is the problem) - Controlling the scroll amounts for the FIELDs...
I read LCOL as a display only value ...and I thought I had done a serious amount of RTFMing! :-)
I did not see anything to do with controlling the scroll amount.
(Clearly I need new glasses, ...probably a new brain too!?)
I will "toy" with setting LCOL to LCOL+something, it seems to default to the displayed-field-length.
> Date: Tue, 27 Sep 2011 11:48:10 -0700
> From: pe...@US.IBM.COM
> Subject: Re: Scrollable Fields
> To: ISP...@LISTSERV.ND.EDU
I read LCOL as a display only value ...and I thought I had done a serious amount of RTFMing! :-)
I did not see anything to do with controlling the scroll amount.
(Clearly I need new glasses, ...probably a new brain too!?)
I will "toy" with setting LCOL to LCOL+something, it seems to default to the displayed-field-length.
> Date: Tue, 27 Sep 2011 11:48:10 -0700
> From: pe...@US.IBM.COM
> Subject: Re: Scrollable Fields
> To: ISP...@LISTSERV.ND.EDU
Steve Coalbran
Sep 28, 2011, 3:42:58 AM9/28/11
to
OK - I can see that setting LCOL is supposed to set the start position for that FIELD..
Here I test this out by hardcoding start values in the INIT section...
| )ATTR DEFAULT(%+_)
| @ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| £ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| } TYPE(TEXT) COLOR(GREEN) INTENS(LOW)
| § TYPE(OUTPUT) CAPS(OFF) JUST(ASIS)
| )BODY DEFAULT(%+_)
| }------------------------ Check Table Exists ----------------------------------+
| +Command ===>_ZCMD +Scroll ===>_ZSCRB
| +
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
| } §TBNS +§NAI+
| } Table name . . . . . . . . . . £TBNA +
| }
| - - - - - - - - - - - - - - - - 2 Line(s) not Displayed
| )INIT
| - - - - - - - - - - - - - - - - 8 Line(s) not Displayed
| &TBCL = 33
| &TBNL = 55
| - - - - - - - - - - - - - - - - 80 Line(s) not Displayed
| )FIELD
| FIELD(TBCR) LEN(128) IND(CRI,'<>') SCALE(TBCS) LCOL(TBCL)
| FIELD(TBNA) LEN(128) IND(NAI,'<>') SCALE(TBNS) LCOL(TBNL)
| )END
|
gives...
| ------------------------ Check Table Exists ----------------------------------
| Command ===> Scroll ===>
|
| Report Options:
| DB2 SubSystem Id. . . . . . . . DB2A
| --+----4----+----5----+----6----+---- <>
| Plan table creator . . . . . . _____________________________________
| +----6----+----7----+----8----+----9- <>
| Table name . . . . . . . . . . _____________________________________
|
so setting them clearly works.
I guess I should be able to check .CURSOR & .CSRPOS to see if I am focused on a scrollable FIELD but they don't seem to work in my test-rig.
Pressing LEFT/RIGHT moves LEFT/RIGHT (if possible), UP/DOWN give a message and set CURSOR location to ZCMD.
I tried displaying these fields in the PANEL after setting...
&CURSOR=.CURSOR
&CSRPOS=.CSRPOS
as...
+CURSOR=&CURSOR
+CSRPOS=&CSRPOS
+ZCURSOR=&ZCURSOR
+ZCSRPOS=&ZCSRPOS
+ZSCRB=&ZSCRB
+ZSCROLLA=&ZSCROLLA
+ZSCROLLD=&ZSCROLLD
+ZSCROLLN=&ZSCROLLN
+ZVERB=&ZVERB
+ZCMD=&ZCMD
all blank except...
ZSCROLLA=PAGE
ZSCROLLN=0001
BUT... I cannot see anything that shows me HOW I see what KEY has been pressed(LEFT/RIGHT) within the individual fields?
The example in the manual (and I just downloaded V1R13 as I had V1R11) is not much help, rather a simplistic one ?
There must be some variable to check specifying the scroll direction if scroll action is taken for any FIELD ?
(I would have expected an ACT(var) parameter within a FIELD or something to check for any field-specific scroll action ? )
:-/ Derrr!? (am I missing something obvious and simple here?)
> Date: Wed, 28 Sep 2011 05:42:39 +0000
> From: coal...@HOTMAIL.COM
Here I test this out by hardcoding start values in the INIT section...
| )ATTR DEFAULT(%+_)
| @ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| £ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(_) COLOR(TURQ)
| } TYPE(TEXT) COLOR(GREEN) INTENS(LOW)
| § TYPE(OUTPUT) CAPS(OFF) JUST(ASIS)
| )BODY DEFAULT(%+_)
| }------------------------ Check Table Exists ----------------------------------+
| +Command ===>_ZCMD +Scroll ===>_ZSCRB
| +
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
| } §TBNS +§NAI+
| } Table name . . . . . . . . . . £TBNA +
| }
| )INIT
| - - - - - - - - - - - - - - - - 8 Line(s) not Displayed
| &TBCL = 33
| &TBNL = 55
| - - - - - - - - - - - - - - - - 80 Line(s) not Displayed
| )FIELD
| FIELD(TBCR) LEN(128) IND(CRI,'<>') SCALE(TBCS) LCOL(TBCL)
| FIELD(TBNA) LEN(128) IND(NAI,'<>') SCALE(TBNS) LCOL(TBNL)
| )END
|
gives...
| ------------------------ Check Table Exists ----------------------------------
| Command ===> Scroll ===>
|
| Report Options:
| DB2 SubSystem Id. . . . . . . . DB2A
| --+----4----+----5----+----6----+---- <>
| Plan table creator . . . . . . _____________________________________
| +----6----+----7----+----8----+----9- <>
| Table name . . . . . . . . . . _____________________________________
|
so setting them clearly works.
I guess I should be able to check .CURSOR & .CSRPOS to see if I am focused on a scrollable FIELD but they don't seem to work in my test-rig.
Pressing LEFT/RIGHT moves LEFT/RIGHT (if possible), UP/DOWN give a message and set CURSOR location to ZCMD.
I tried displaying these fields in the PANEL after setting...
&CURSOR=.CURSOR
&CSRPOS=.CSRPOS
as...
+CURSOR=&CURSOR
+CSRPOS=&CSRPOS
+ZCURSOR=&ZCURSOR
+ZCSRPOS=&ZCSRPOS
+ZSCRB=&ZSCRB
+ZSCROLLA=&ZSCROLLA
+ZSCROLLD=&ZSCROLLD
+ZSCROLLN=&ZSCROLLN
+ZVERB=&ZVERB
+ZCMD=&ZCMD
all blank except...
ZSCROLLA=PAGE
ZSCROLLN=0001
BUT... I cannot see anything that shows me HOW I see what KEY has been pressed(LEFT/RIGHT) within the individual fields?
The example in the manual (and I just downloaded V1R13 as I had V1R11) is not much help, rather a simplistic one ?
There must be some variable to check specifying the scroll direction if scroll action is taken for any FIELD ?
(I would have expected an ACT(var) parameter within a FIELD or something to check for any field-specific scroll action ? )
:-/ Derrr!? (am I missing something obvious and simple here?)
> Date: Wed, 28 Sep 2011 05:42:39 +0000
> From: coal...@HOTMAIL.COM
Ward Able, Grant
Sep 28, 2011, 4:30:32 AM9/28/11
to
Steve - is this a case where using ISPDPTRC might be of use?
Regards - Grant.
Telephone Internal: x1496 London
Telephone External: +44 (0)207 650 1496
<BR>_____________________________________________________________
<FONT size=2><BR>
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.</FONT>
Regards - Grant.
Telephone Internal: x1496 London
Telephone External: +44 (0)207 650 1496
<FONT size=2><BR>
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.</FONT>
Steve Coalbran
Sep 28, 2011, 5:46:48 AM9/28/11
to
ISPDPTRC?
Never used it.
I'll have to look up and see how to, and what it would tell me.
But... It's not a case of something NOT working, more of me not knowing HOW it works exactly.
If you (or anyone reading) has an example then I'd accept one gladly.
I was beginning to think that for scrolling, one might have to drive the logic from outside the panel
but scrolling LEFT/RIGHT within a scrollable-field do not constitute an ENTER.
The PROC section is not entered, I added a small REXX section to test this.
So how one controls LCOL I do not know. I can try REINIT logic I guess?
:-/ Clueless!
> Date: Wed, 28 Sep 2011 08:30:01 +0000
> From: GWar...@DTCC.COM
Never used it.
I'll have to look up and see how to, and what it would tell me.
But... It's not a case of something NOT working, more of me not knowing HOW it works exactly.
If you (or anyone reading) has an example then I'd accept one gladly.
I was beginning to think that for scrolling, one might have to drive the logic from outside the panel
but scrolling LEFT/RIGHT within a scrollable-field do not constitute an ENTER.
The PROC section is not entered, I added a small REXX section to test this.
So how one controls LCOL I do not know. I can try REINIT logic I guess?
:-/ Clueless!
> Date: Wed, 28 Sep 2011 08:30:01 +0000
> From: GWar...@DTCC.COM
Steve Coalbran
Sep 28, 2011, 5:52:46 AM9/28/11
to
NO - REINIT does not get control either when you use field-scroll !
> Date: Wed, 28 Sep 2011 09:46:14 +0000
> Date: Wed, 28 Sep 2011 09:46:14 +0000
Steve Coalbran
Sep 28, 2011, 7:33:21 AM9/28/11
to
(rejected first time so TRIMMED and reposted)
When I try this command, by any means...
» From main-menu
Command
===> ISPDPTRC
Command ===> TSO ISPDPTRC
» ISPF Opt.6
Enter
TSO or Workstation commands below:
===> ISPDPTRC
» From "Dialog Test" Primary Option Panel
Option ===>
ISPDPTRC
» From 7.6
Enter dialog service
and its parameters:
===> SELECT CMD(ISPDPTRC)
I
get...
IKJ56500I COMMAND ISPDPTRC NOT FOUND
***
8-( ... must be just my
Customer's system!
When I quiz the system I get ...
ZOS390RL =
z/OS 01.12.00
ZISPFOS = ISPF FOR
z/OS 01.11.00
ZENVIR = ISPF 6.1 MVS
TSO
SO...
I tried the ISPDPTRC command
on Montpellier Demo (where 'ZOS390RL' is strangely lower at 'z/OS 01.11.00')
and...
ARC1020I DFSMSHSM IS RECALLING FROM DASD
DSN=SE16661.ISPPNL.TRACE, YOU MAY CONT
INUE THE RECALL IN THE BACKGROUND AND
FREE YOUR TSO SESSION BY PRESSING THE ATTE
NTION
KEY
Loading Panel trace. To end, reinvoke this
command
***
Can I somehow FORCE the ISPDPTRC command to work !?! 8-D
From my ISPCMDS member on MOP I extract...
SELECT SUSPEND
SCRNAME(PNLTRC) CMD(ISPDPTRC &ZPARM)
Which should do the exact same
thing?!
BUT I drop into 7.6 on my Customer site anyhow !!! ...
predictably...
Enter dialog service and its parameters:
===> SELECT SUSPEND SCRNAME(PNLTRC) CMD(ISPDPTRC)
gives...
IKJ56500I
COMMAND ISPDPTRC NOT FOUND
***
ALL I can
think to do is export the panel I am trying to get to work to MOP and test it
there with ISPDPTRC activated - perhaps the info from this will help?!
Any
other suggestions?
( anyone in Perth monitoring this forum?
Peter,Bill,Liam,Hank.... Heeeelp! )
______________________________________________________
When I try this command, by any means...
» From main-menu
Command
===> ISPDPTRC
Command ===> TSO ISPDPTRC
» ISPF Opt.6
Enter
TSO or Workstation commands below:
===> ISPDPTRC
» From "Dialog Test" Primary Option Panel
Option ===>
ISPDPTRC
» From 7.6
Enter dialog service
and its parameters:
===> SELECT CMD(ISPDPTRC)
I
get...
IKJ56500I COMMAND ISPDPTRC NOT FOUND
***
8-( ... must be just my
Customer's system!
When I quiz the system I get ...
ZOS390RL =
z/OS 01.12.00
ZISPFOS = ISPF FOR
z/OS 01.11.00
ZENVIR = ISPF 6.1 MVS
TSO
SO...
I tried the ISPDPTRC command
on Montpellier Demo (where 'ZOS390RL' is strangely lower at 'z/OS 01.11.00')
and...
ARC1020I DFSMSHSM IS RECALLING FROM DASD
DSN=SE16661.ISPPNL.TRACE, YOU MAY CONT
INUE THE RECALL IN THE BACKGROUND AND
FREE YOUR TSO SESSION BY PRESSING THE ATTE
NTION
KEY
Loading Panel trace. To end, reinvoke this
command
***
Can I somehow FORCE the ISPDPTRC command to work !?! 8-D
From my ISPCMDS member on MOP I extract...
SELECT SUSPEND
SCRNAME(PNLTRC) CMD(ISPDPTRC &ZPARM)
Which should do the exact same
thing?!
BUT I drop into 7.6 on my Customer site anyhow !!! ...
predictably...
Enter dialog service and its parameters:
===> SELECT SUSPEND SCRNAME(PNLTRC) CMD(ISPDPTRC)
gives...
IKJ56500I
COMMAND ISPDPTRC NOT FOUND
***
ALL I can
think to do is export the panel I am trying to get to work to MOP and test it
there with ISPDPTRC activated - perhaps the info from this will help?!
Any
other suggestions?
( anyone in Perth monitoring this forum?
Peter,Bill,Liam,Hank.... Heeeelp! )
______________________________________________________
> Steve - is this a case where using ISPDPTRC might be of use?
> Regards - Grant.
TRIMMED
> Regards - Grant.
Höglund Lars
Sep 28, 2011, 8:01:30 AM9/28/11
to
Running 6.0
COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
Unloading Panel trace...
***
-----Ursprungligt meddelande-----
Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Steve Coalbran
Skickat: den 28 september 2011 13:33
Till: ISP...@LISTSERV.ND.EDU
Ämne: Re: Scrollable Fields
COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
Loading Panel trace. To end, reinvoke this command
***
And ending
***
COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
Unloading Panel trace...
***
-----Ursprungligt meddelande-----
Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Steve Coalbran
Skickat: den 28 september 2011 13:33
Till: ISP...@LISTSERV.ND.EDU
Ämne: Re: Scrollable Fields
Laumann, James A. , Jim
Sep 28, 2011, 8:06:49 AM9/28/11
to
Steve
For shnits and giggles - I issued 'TSO ISPDPTRC' from the command line on ISR@PRIM.
ISPDPTRC returned:
Loading Panel trace. To end, reinvoke this command
***
Pressing enter, I got ISR@PRIM re-displayed.
Entering 'TSO ISPDPTRC' a 2nd time, I got:
Unloading Panel trace...
***
I pressed enter and got.....
File Edit Edit_Settings Menu Utilities Compilers Test Help
ขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขข
EDIT TS00004.IB01IKJ.ISPPNL.TRACE
Command ===>
****** ******************************************************* Top of Data **************
000001 ========= ISPF Panel Trace ==================== 2011.271 11:57:53 GMT ==========
000002 ZISPFOS: ISPF FOR z/OS 01.11.00 ZOS390RL: z/OS 01.12.00
000003 ISPDPTRC Command: ISPDPTRC
000004 Options in Effect: PANEL(*) SCREEN(0) SECTION(INIT REINIT PROC)
000005 READ(SUMMARY) SERVICE(DETAIL) DISPLAY(BOTH)
000006
000007 Physical Display: PRI=24x80 ALT=27x132 GUI=OFF
000008
000009 ISPCDI Version: ISPCDI 2008.343-BASE z1B
000010 ISPDPA Version: ISPDPA 2008.343-BASE z1B
000011 ISPDPE Version: ISPDPE 2008.343-BASE z1B
000012 ISPDPL Version: ISPDPL 2008.343-BASE z1B
000013 ISPDPP Version: ISPDPP 2008.343-BASE z1B
000014 ISPDPPI Version: ISPDPPI 2011.082-UA59605-z1B
000015 ISPDPPK Version: ISPDPPK 2010.048-UA52699-z1B
000016 ISPDPPRX Version: ISPDPPRX 2008.343-BASE z1B
000017 ISPDPR Version: ISPDPR 2008.343-BASE z1B
000018 ISPDPS Version: ISPDPS 2008.343-BASE z1B
000019 ISPDTD Version: ISPDTD 2008.343-BASE z1B
000020 ISPPNXRX Version: ISPPNXRX 2008.343-BASE z1B
000021 ISPPQR Version: ISPPQR 2008.343-BASE z1B
This went on for 117 lines.....output showed commands entered, panel display, etc....
Hope this helps...
Jim
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of Steve Coalbran
Sent: Wednesday, September 28, 2011 6:33 AM
To: ISP...@LISTSERV.ND.EDU
Subject: Re: Scrollable Fields
Option ===>
ISPDPTRC
ป From 7.6
For shnits and giggles - I issued 'TSO ISPDPTRC' from the command line on ISR@PRIM.
ISPDPTRC returned:
Loading Panel trace. To end, reinvoke this command
***
Entering 'TSO ISPDPTRC' a 2nd time, I got:
Unloading Panel trace...
***
I pressed enter and got.....
File Edit Edit_Settings Menu Utilities Compilers Test Help
ขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขขข
EDIT TS00004.IB01IKJ.ISPPNL.TRACE
Command ===>
****** ******************************************************* Top of Data **************
000001 ========= ISPF Panel Trace ==================== 2011.271 11:57:53 GMT ==========
000002 ZISPFOS: ISPF FOR z/OS 01.11.00 ZOS390RL: z/OS 01.12.00
000003 ISPDPTRC Command: ISPDPTRC
000004 Options in Effect: PANEL(*) SCREEN(0) SECTION(INIT REINIT PROC)
000005 READ(SUMMARY) SERVICE(DETAIL) DISPLAY(BOTH)
000006
000007 Physical Display: PRI=24x80 ALT=27x132 GUI=OFF
000008
000009 ISPCDI Version: ISPCDI 2008.343-BASE z1B
000010 ISPDPA Version: ISPDPA 2008.343-BASE z1B
000011 ISPDPE Version: ISPDPE 2008.343-BASE z1B
000012 ISPDPL Version: ISPDPL 2008.343-BASE z1B
000013 ISPDPP Version: ISPDPP 2008.343-BASE z1B
000014 ISPDPPI Version: ISPDPPI 2011.082-UA59605-z1B
000015 ISPDPPK Version: ISPDPPK 2010.048-UA52699-z1B
000016 ISPDPPRX Version: ISPDPPRX 2008.343-BASE z1B
000017 ISPDPR Version: ISPDPR 2008.343-BASE z1B
000018 ISPDPS Version: ISPDPS 2008.343-BASE z1B
000019 ISPDTD Version: ISPDTD 2008.343-BASE z1B
000020 ISPPNXRX Version: ISPPNXRX 2008.343-BASE z1B
000021 ISPPQR Version: ISPPQR 2008.343-BASE z1B
This went on for 117 lines.....output showed commands entered, panel display, etc....
Hope this helps...
Jim
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of Steve Coalbran
Sent: Wednesday, September 28, 2011 6:33 AM
To: ISP...@LISTSERV.ND.EDU
Subject: Re: Scrollable Fields
(rejected first time so TRIMMED and reposted)
When I try this command, by any means...
ป From main-menu
When I try this command, by any means...
Command
===> ISPDPTRC
Command ===> TSO ISPDPTRC
ป ISPF Opt.6
===> ISPDPTRC
Command ===> TSO ISPDPTRC
Enter
TSO or Workstation commands below:
===> ISPDPTRC
ป From "Dialog Test" Primary Option Panel
TSO or Workstation commands below:
===> ISPDPTRC
Option ===>
ISPDPTRC
ป From 7.6
Steve Coalbran
Sep 28, 2011, 8:15:23 AM9/28/11
to
Thanks Lars - I know.
That's what I get on IBM's DEMO machine.
I just don't get it on my Customer machine!
SYSPROG-attack?
However...
I exported it to DEMO and retied it with a TRACE which... did not help me one iota !
I do however have some progress to report ?!
When I take away the SCROLL field top right "+Scroll ===>_ZSCRB" (which it ignored it anyhow) ...
...
THEN it takes the next input field, SSID, as if it were a SCROLL field and loads it with 'DATA' by default (I guess DB2A' was an invalid scroll-amount).
If I override this to say '7' then it will HONOR this scroll value !?!?!
I see no reference to this in the manual.
Does it need a field before each scrollable field to hold its scroll-amount ?
Several things to try out.
AGAIN... anyone who has a working example of scrollable-fields ...please H E L P !?
> Date: Wed, 28 Sep 2011 12:00:34 +0000
> From: Lars.H...@ALECTA.SE
> Subject: SV: Scrollable Fields
> To: ISP...@LISTSERV.ND.EDU
That's what I get on IBM's DEMO machine.
I just don't get it on my Customer machine!
SYSPROG-attack?
However...
I exported it to DEMO and retied it with a TRACE which... did not help me one iota !
I do however have some progress to report ?!
When I take away the SCROLL field top right "+Scroll ===>_ZSCRB" (which it ignored it anyhow) ...
...
)BODY DEFAULT(%+_)
| }------------------------ Check Table Exists ----------------------------------+
| +Command ===>_ZCMD +Scroll ===>_ZSCRB <---(remove)
| }------------------------ Check Table Exists ----------------------------------+
| +
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
....
| +Report Options:
| } DB2 SubSystem Id. . . . . . . . @SSID+
| + §TBCS +§CRI+
| } Plan table creator . . . . . . £TBCR +
THEN it takes the next input field, SSID, as if it were a SCROLL field and loads it with 'DATA' by default (I guess DB2A' was an invalid scroll-amount).
If I override this to say '7' then it will HONOR this scroll value !?!?!
I see no reference to this in the manual.
Does it need a field before each scrollable field to hold its scroll-amount ?
Several things to try out.
AGAIN... anyone who has a working example of scrollable-fields ...please H E L P !?
> Date: Wed, 28 Sep 2011 12:00:34 +0000
> From: Lars.H...@ALECTA.SE
> Subject: SV: Scrollable Fields
> To: ISP...@LISTSERV.ND.EDU
>
> Running 6.0
>
>
> COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
> PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
> NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
> Loading Panel trace. To end, reinvoke this command
> ***
>
> And ending
>
> COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
> PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
> NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
> Unloading Panel trace...
> ***
>
>
>
> -----Ursprungligt meddelande-----
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Steve Coalbran
> Skickat: den 28 september 2011 13:33
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: Scrollable Fields
>
> TRIMMED history again
> Running 6.0
>
>
> COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
> PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
> NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
> Loading Panel trace. To end, reinvoke this command
> ***
>
> And ending
>
> COMMAND INPUT ===> tso ispdptrc SCROLL ===> CSR
> PREFIX=K39828* DEST=(ALL) OWNER=* SYSNAME=
> NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Pag
> Unloading Panel trace...
> ***
>
>
>
> -----Ursprungligt meddelande-----
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Steve Coalbran
> Skickat: den 28 september 2011 13:33
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: Scrollable Fields
>
Steve Coalbran
Sep 28, 2011, 8:42:24 AM9/28/11
to
Sadly, no it doesn't help. Sorry low on "shnits and giggles" at the moment?
I know how the trace works and have done it on IBM DEMO (MOP)... several times now.
I have migrated the application to Montpellier to work out HOW to get it to work.
But ISPDPTRC adds no helpful information (that I can see) in its 400~ lines
despite me trimming just about all logic from the test-rig.
ISPDPTRC seems to be suppressed somehow on my Customer's machine.
:-( /S
> Date: Wed, 28 Sep 2011 07:06:24 -0500
> From: lauman...@MAYO.EDU
> サ From main-menu
> Option ===>
> ISPDPTRC
>
> サ From 7.6
I know how the trace works and have done it on IBM DEMO (MOP)... several times now.
I have migrated the application to Montpellier to work out HOW to get it to work.
But ISPDPTRC adds no helpful information (that I can see) in its 400~ lines
despite me trimming just about all logic from the test-rig.
ISPDPTRC seems to be suppressed somehow on my Customer's machine.
:-( /S
> Date: Wed, 28 Sep 2011 07:06:24 -0500
> From: lauman...@MAYO.EDU
> Steve
>
> For shnits and giggles - I issued 'TSO ISPDPTRC' from the command line on ISR@PRIM.
>
> ISPDPTRC returned:
>
> Loading Panel trace. To end, reinvoke this command
> ***
>
> Pressing enter, I got ISR@PRIM re-displayed.
>
> Entering 'TSO ISPDPTRC' a 2nd time, I got:
>
> Unloading Panel trace...
> ***
>
> I pressed enter and got.....
>
> File Edit Edit_Settings Menu Utilities Compilers Test Help
> 「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「「
>
> For shnits and giggles - I issued 'TSO ISPDPTRC' from the command line on ISR@PRIM.
>
> ISPDPTRC returned:
>
> Loading Panel trace. To end, reinvoke this command
> ***
>
> Pressing enter, I got ISR@PRIM re-displayed.
>
> Entering 'TSO ISPDPTRC' a 2nd time, I got:
>
> Unloading Panel trace...
> ***
>
> I pressed enter and got.....
>
> File Edit Edit_Settings Menu Utilities Compilers Test Help
> Command
> ===> ISPDPTRC
> Command ===> TSO ISPDPTRC
>
> サ ISPF Opt.6
> ===> ISPDPTRC
> Command ===> TSO ISPDPTRC
>
> Enter
> TSO or Workstation commands below:
> ===> ISPDPTRC
>
>
> サ From "Dialog Test" Primary Option Panel
> TSO or Workstation commands below:
> ===> ISPDPTRC
>
>
> Option ===>
> ISPDPTRC
>
> サ From 7.6
0 new messages