Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Bugs in ISPF PANEL *REXX interface ?
649 views
Skip to first unread message
thoma...@swedbank.se
Oct 4, 2011, 7:00:01 AM10/4/11
to
When I'm testing panels with rexx code (*REXX inline), I'm getting errors like the one below.
While the possibility that I'm coded incorrectly in some place is not of a negligibly dimension, I would not expect a S0c4 abend, rather an error message.
Does anyone have an experience with this - or any experience with rexx in panels ?
* ISPF Subtask abend *
IDI0001I Fault Analyzer V10R1M0 (UK68854 2011/06/17) invoked by IDIXDCAP using SYS2.IDI.PARMLIB(IDICNF00)
IDIUSR01I Dumpen finns I TSO under ED.FAN val 1
IDI0002I Module ISPSUBS offset X'326F6': Abend S0C4-X'4' (Protection Exception)
IDI0003I Fault ID F13168 assigned in history file SYS6.IDI.USER.HIST
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
TIME=12.48.29 SEQ=01159 CPU=0000 ASID=034C
PSW AT TIME OF ERROR 078D1000 894E66FA ILC 4 INTC 04
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 094E66F4 - 1E365030 20305930 2034A7D4
GR 0: 00000004 1: 285F05D9
2: 00000000 3: 00000001
4: 000000FA 5: 094E49C8
6: 00000001 7: 00103DFC
8: 094E73E0 9: 000DB1A8
A: 094E63E0 B: 094E53E0
C: 894E43E0 D: 00104388
E: 894E4A10 F: 00000000
END OF SYMPTOM DUMP
IEA848I INSTALLATION PREDUMP EXIT, IDIXDCAP, SUPPRESSED THE DUMP REQUEST
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
BPXP018I THREAD 28C7870000000001, IN PROCESS 17236451, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 940C4000
, AND REASON CODE 00000004.
ISPS014 - ** Logical screen request failed - abend 0C4000 **
ISPS015 - ** Contact your system programmer or dialog developer.**
*** ISPF Main task abend ***
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4
TIME=12.48.37 SEQ=01190 CPU=0000 ASID=034C
PSW AT TIME OF ERROR 078D1000 892D431E ILC 2 INTC 0D
ACTIVE LOAD MODULE ADDRESS=092D2000 OFFSET=0000231E
NAME=ISPMAIN
DATA AT PSW 092D4318 - 00181610 0A0D9180 B870A774
GR 0: 80000000 1: 800C4000
2: 00009460 3: 00000000
4: 28500000 5: 00000001
6: 00026540 7: 00026000
8: 00023B80 9: 00026CE0
A: 092D5D5C B: 000232F8
C: 892D2122 D: 000232F8
E: 892D42EA F: 00000000
END OF SYMPTOM DUMP
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
READY
Hälsn Thomas
_________________________________________
Thomas Berg Specialist A M SWEDBANK
While the possibility that I'm coded incorrectly in some place is not of a negligibly dimension, I would not expect a S0c4 abend, rather an error message.
Does anyone have an experience with this - or any experience with rexx in panels ?
* ISPF Subtask abend *
IDI0001I Fault Analyzer V10R1M0 (UK68854 2011/06/17) invoked by IDIXDCAP using SYS2.IDI.PARMLIB(IDICNF00)
IDIUSR01I Dumpen finns I TSO under ED.FAN val 1
IDI0002I Module ISPSUBS offset X'326F6': Abend S0C4-X'4' (Protection Exception)
IDI0003I Fault ID F13168 assigned in history file SYS6.IDI.USER.HIST
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
TIME=12.48.29 SEQ=01159 CPU=0000 ASID=034C
PSW AT TIME OF ERROR 078D1000 894E66FA ILC 4 INTC 04
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 094E66F4 - 1E365030 20305930 2034A7D4
GR 0: 00000004 1: 285F05D9
2: 00000000 3: 00000001
4: 000000FA 5: 094E49C8
6: 00000001 7: 00103DFC
8: 094E73E0 9: 000DB1A8
A: 094E63E0 B: 094E53E0
C: 894E43E0 D: 00104388
E: 894E4A10 F: 00000000
END OF SYMPTOM DUMP
IEA848I INSTALLATION PREDUMP EXIT, IDIXDCAP, SUPPRESSED THE DUMP REQUEST
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
BPXP018I THREAD 28C7870000000001, IN PROCESS 17236451, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 940C4000
, AND REASON CODE 00000004.
ISPS014 - ** Logical screen request failed - abend 0C4000 **
ISPS015 - ** Contact your system programmer or dialog developer.**
*** ISPF Main task abend ***
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4
TIME=12.48.37 SEQ=01190 CPU=0000 ASID=034C
PSW AT TIME OF ERROR 078D1000 892D431E ILC 2 INTC 0D
ACTIVE LOAD MODULE ADDRESS=092D2000 OFFSET=0000231E
NAME=ISPMAIN
DATA AT PSW 092D4318 - 00181610 0A0D9180 B870A774
GR 0: 80000000 1: 800C4000
2: 00009460 3: 00000000
4: 28500000 5: 00000001
6: 00026540 7: 00026000
8: 00023B80 9: 00026CE0
A: 092D5D5C B: 000232F8
C: 892D2122 D: 000232F8
E: 892D42EA F: 00000000
END OF SYMPTOM DUMP
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
* ISPF Subtask abend *
READY
Hälsn Thomas
_________________________________________
Thomas Berg Specialist A M SWEDBANK
Steve Coalbran
Oct 4, 2011, 7:24:41 AM10/4/11
to
Hej Thomas
*REXX in panels yes.
0C4 ?! Sorry! I had one in a PL/1 program in 80s once (or twice!). 8-D
You have FA running (good to see some solid big-blue AD Tools in action) I would have thought that ISPF would have been setup as exempt though?
What does your ISRDDN look like? No weird concatenations?
The message...
...looks odd - do you get that in 0C4s normally?
This is USS - look in USS M&C manual for the flags of 94, can give a clue ?
Do you have SYSCALLS ON in your rexx or doing an ADDRESS SYSCALL without?
/S
> Date: Tue, 4 Oct 2011 12:57:52 +0200
> From: thoma...@SWEDBANK.SE
> Subject: Bugs in ISPF PANEL *REXX interface ?
> To: ISP...@LISTSERV.ND.EDU
*REXX in panels yes.
0C4 ?! Sorry! I had one in a PL/1 program in 80s once (or twice!). 8-D
You have FA running (good to see some solid big-blue AD Tools in action) I would have thought that ISPF would have been setup as exempt though?
What does your ISRDDN look like? No weird concatenations?
The message...
BPXP018I THREAD 28C7870000000001, IN PROCESS 17236451, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 940C4000
AND REASON CODE 00000004
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 940C4000
...looks odd - do you get that in 0C4s normally?
This is USS - look in USS M&C manual for the flags of 94, can give a clue ?
Do you have SYSCALLS ON in your rexx or doing an ADDRESS SYSCALL without?
/S
> Date: Tue, 4 Oct 2011 12:57:52 +0200
> From: thoma...@SWEDBANK.SE
> Subject: Bugs in ISPF PANEL *REXX interface ?
> To: ISP...@LISTSERV.ND.EDU
Lizette Koehler
Oct 4, 2011, 7:43:41 AM10/4/11
to
Have you tried looking at the RTM2WA in the dump to see who got the abend?
Have you tried ISPVCALL to see the control to the abend?
Have you tried running under ISPF TEST?
Sometimes ISPF is abending because of an earlier abend you might not have
seen.
Lizette
> -----Original Message-----
> From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
> thoma...@SWEDBANK.SE
> Sent: Tuesday, October 04, 2011 6:58 AM
> To: ISP...@LISTSERV.ND.EDU
> Subject: Bugs in ISPF PANEL *REXX interface ?
>
Have you tried ISPVCALL to see the control to the abend?
Have you tried running under ISPF TEST?
Sometimes ISPF is abending because of an earlier abend you might not have
seen.
Lizette
> -----Original Message-----
> From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
> thoma...@SWEDBANK.SE
> Sent: Tuesday, October 04, 2011 6:58 AM
> To: ISP...@LISTSERV.ND.EDU
> Subject: Bugs in ISPF PANEL *REXX interface ?
>
thoma...@swedbank.se
Oct 4, 2011, 10:04:10 AM10/4/11
to
> -----Ursprungligt meddelande-----
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Lizette
> Koehler
> Skickat: den 4 oktober 2011 13:42
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: Bugs in ISPF PANEL *REXX interface ?
BTW, the call trace or "Event summary" from FAULT ANALYZER:
Event Fail Module Program EP
Ä Type Point Name Name Name Event Location (*) Loaded From
1 Call ISPTASK n/a n/a M+A36 LPA
2 Call ISPSUBS n/a n/a M+790E4 LPA
3 Call ISPSUBS n/a n/a M+80648 LPA
4 Call ISPSUBS n/a n/a M+82A76 LPA
5 Call ISPSUBS n/a n/a M+85622 LPA
6 Call ISPSUBS n/a n/a M+884FC LPA
7 Call ISPSUBS n/a n/a M+793DC LPA
8 Call ISPSUBS n/a n/a M+7FE24 LPA
9 Call ISPSUBS n/a n/a M+79286 LPA
10 Link ISPSUBS n/a n/a M+88BE8 LPA
11 Call ISPYXDR n/a n/a M+31A LPA
12 Call ISPSUBS n/a n/a M+793DC LPA
13 Call ISPSUBS n/a n/a M+7FE24 LPA
14 Call ISPSUBS n/a n/a M+79286 LPA
15 Link ISPSUBS n/a n/a M+88BE8 LPA
16 Call ISPYFI n/a n/a M+980 LPA
17 Call ISPSUBS n/a n/a M+790E4 LPA
18 Call ISPSUBS n/a n/a M+80648 LPA
19 Call ISPSUBS n/a n/a M+82A76 LPA
20 Call ISPSUBS n/a n/a M+85622 LPA
21 Call ISPSUBS n/a n/a M+884FC LPA
22 Call ISPSUBS n/a n/a M+793DC LPA
23 Call ISPSUBS n/a n/a M+7FE24 LPA
24 Call ISPSUBS n/a n/a M+793DC LPA
25 Call ISPSUBS n/a n/a M+7F7E8 LPA
26 Call ISPSUBS n/a n/a M+4328 LPA
27 Call ISPSUBS n/a n/a M+86F2 LPA
28 Abend S0C4 ***** ISPSUBS n/a n/a M+326F6 LPA
FWIW, from the last (abending) call:
Load Module Name. . . . . . : ISPSUBS (In Link Pack Area)
At Address. . . . . . . . : 094B4000
Load Module Length. . . . : X'107FF0'
Machine Instruction . . . . : 50302030 ST R3,48(,R2)
At Address. . . . . . . . : 094E66F6 (Module ISPSUBS offset X'326F6')
AMODE . . . . . . . . . . : 31
Failing Operand . . . . . : Second operand (Store Protected)
First Operand (R3). . . . : 00000001
Second Operand Address. . : 00000030 (2000 bytes of storage addressable)
Second Operand Length . . : 4
Second Operand Storage. . : 00000000 *....*
Instructions around point of failure:
Offset Hex Instruction
-2C A7E8 000B LHI R14,11
-28 5EE0 6030 AL R14,48(,R6)
-24 50E0 6030 ST R14,48(,R6)
-20 98EC D0A8 LM R14,R12,168(R13)
-1C 07FE BCR 15,R14
-1A 90E1 D0A8 STM R14,R1,168(R13)
-16 5030 D0B8 ST R3,184(,R13)
-12 905C D0BC STM R5,R12,188(R13)
-E 5820 7184 L R2,388(,R7)
-A A768 0001 LHI R6,1
-6 5830 2030 L R3,48(,R2)
-2 1E36 ALR R3,R6
+0 5030 2030 ST R3,48(,R2)
+4 5930 2034 C R3,52(,R2)
+8 A7D4 0034 BRC 13,*+104
+C 5830 2004 L R3,4(,R2)
+10 5030 D294 ST R3,660(,R13)
+14 A768 1F40 LHI R6,8000
+18 1E63 ALR R6,R3
+1A 5060 D298 ST R6,664(,R13)
Program Status Word (PSW) . : 078D1000 894E66FA
General Purpose Registers:
R0: 00000004 (2044 bytes of storage addressable)
R1: 285F05D9 (363047 bytes of storage addressable)
R2: 00000000 (2048 bytes of storage addressable)
R3: 00000001 (2047 bytes of storage addressable)
R4: 000000FA (1798 bytes of storage addressable)
R5: 094E49C8 (Module ISPSUBS + X'309C8')
R6: 00000001 (2047 bytes of storage addressable)
R7: 00103DFC (45572 bytes of storage addressable)
R8: 094E73E0 (Module ISPSUBS + X'333E0')
R9: 000DB1A8 (69208 bytes of storage addressable)
R10: 094E63E0 (Module ISPSUBS + X'323E0')
R11: 094E53E0 (Module ISPSUBS + X'313E0')
R12: 894E43E0 (Module ISPSUBS + X'303E0')
R13: 00104388 (44152 bytes of storage addressable)
R14: 894E4A10 (Module ISPSUBS + X'30A10')
R15: 00000000 (2048 bytes of storage addressable)
> Have you tried ISPVCALL to see the control to the abend?
Yes, but unfortunately it's lost (as ISPMAIN abends/I'm back to READY prompt).
(When entering ISPF again it's acting as the first ISPVCALL isn't done.)
> Have you tried running under ISPF TEST?
Yes, is doing that normally now for this case.
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Lizette
> Koehler
> Skickat: den 4 oktober 2011 13:42
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: Bugs in ISPF PANEL *REXX interface ?
>
> Have you tried looking at the RTM2WA in the dump to see who got the abend?
How do I find it ?
> Have you tried looking at the RTM2WA in the dump to see who got the abend?
BTW, the call trace or "Event summary" from FAULT ANALYZER:
Event Fail Module Program EP
Ä Type Point Name Name Name Event Location (*) Loaded From
1 Call ISPTASK n/a n/a M+A36 LPA
2 Call ISPSUBS n/a n/a M+790E4 LPA
3 Call ISPSUBS n/a n/a M+80648 LPA
4 Call ISPSUBS n/a n/a M+82A76 LPA
5 Call ISPSUBS n/a n/a M+85622 LPA
6 Call ISPSUBS n/a n/a M+884FC LPA
7 Call ISPSUBS n/a n/a M+793DC LPA
8 Call ISPSUBS n/a n/a M+7FE24 LPA
9 Call ISPSUBS n/a n/a M+79286 LPA
10 Link ISPSUBS n/a n/a M+88BE8 LPA
11 Call ISPYXDR n/a n/a M+31A LPA
12 Call ISPSUBS n/a n/a M+793DC LPA
13 Call ISPSUBS n/a n/a M+7FE24 LPA
14 Call ISPSUBS n/a n/a M+79286 LPA
15 Link ISPSUBS n/a n/a M+88BE8 LPA
16 Call ISPYFI n/a n/a M+980 LPA
17 Call ISPSUBS n/a n/a M+790E4 LPA
18 Call ISPSUBS n/a n/a M+80648 LPA
19 Call ISPSUBS n/a n/a M+82A76 LPA
20 Call ISPSUBS n/a n/a M+85622 LPA
21 Call ISPSUBS n/a n/a M+884FC LPA
22 Call ISPSUBS n/a n/a M+793DC LPA
23 Call ISPSUBS n/a n/a M+7FE24 LPA
24 Call ISPSUBS n/a n/a M+793DC LPA
25 Call ISPSUBS n/a n/a M+7F7E8 LPA
26 Call ISPSUBS n/a n/a M+4328 LPA
27 Call ISPSUBS n/a n/a M+86F2 LPA
28 Abend S0C4 ***** ISPSUBS n/a n/a M+326F6 LPA
FWIW, from the last (abending) call:
Load Module Name. . . . . . : ISPSUBS (In Link Pack Area)
At Address. . . . . . . . : 094B4000
Load Module Length. . . . : X'107FF0'
Machine Instruction . . . . : 50302030 ST R3,48(,R2)
At Address. . . . . . . . : 094E66F6 (Module ISPSUBS offset X'326F6')
AMODE . . . . . . . . . . : 31
Failing Operand . . . . . : Second operand (Store Protected)
First Operand (R3). . . . : 00000001
Second Operand Address. . : 00000030 (2000 bytes of storage addressable)
Second Operand Length . . : 4
Second Operand Storage. . : 00000000 *....*
Instructions around point of failure:
Offset Hex Instruction
-2C A7E8 000B LHI R14,11
-28 5EE0 6030 AL R14,48(,R6)
-24 50E0 6030 ST R14,48(,R6)
-20 98EC D0A8 LM R14,R12,168(R13)
-1C 07FE BCR 15,R14
-1A 90E1 D0A8 STM R14,R1,168(R13)
-16 5030 D0B8 ST R3,184(,R13)
-12 905C D0BC STM R5,R12,188(R13)
-E 5820 7184 L R2,388(,R7)
-A A768 0001 LHI R6,1
-6 5830 2030 L R3,48(,R2)
-2 1E36 ALR R3,R6
+0 5030 2030 ST R3,48(,R2)
+4 5930 2034 C R3,52(,R2)
+8 A7D4 0034 BRC 13,*+104
+C 5830 2004 L R3,4(,R2)
+10 5030 D294 ST R3,660(,R13)
+14 A768 1F40 LHI R6,8000
+18 1E63 ALR R6,R3
+1A 5060 D298 ST R6,664(,R13)
Program Status Word (PSW) . : 078D1000 894E66FA
General Purpose Registers:
R0: 00000004 (2044 bytes of storage addressable)
R1: 285F05D9 (363047 bytes of storage addressable)
R2: 00000000 (2048 bytes of storage addressable)
R3: 00000001 (2047 bytes of storage addressable)
R4: 000000FA (1798 bytes of storage addressable)
R5: 094E49C8 (Module ISPSUBS + X'309C8')
R6: 00000001 (2047 bytes of storage addressable)
R7: 00103DFC (45572 bytes of storage addressable)
R8: 094E73E0 (Module ISPSUBS + X'333E0')
R9: 000DB1A8 (69208 bytes of storage addressable)
R10: 094E63E0 (Module ISPSUBS + X'323E0')
R11: 094E53E0 (Module ISPSUBS + X'313E0')
R12: 894E43E0 (Module ISPSUBS + X'303E0')
R13: 00104388 (44152 bytes of storage addressable)
R14: 894E4A10 (Module ISPSUBS + X'30A10')
R15: 00000000 (2048 bytes of storage addressable)
> Have you tried ISPVCALL to see the control to the abend?
(When entering ISPF again it's acting as the first ISPVCALL isn't done.)
> Have you tried running under ISPF TEST?
thoma...@swedbank.se
Oct 4, 2011, 10:08:11 AM10/4/11
to
I found that the trace dataset is still there, I'm looking into it now.
> -----Ursprungligt meddelande-----
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För
> thoma...@SWEDBANK.SE
> Skickat: den 4 oktober 2011 16:02
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: SV: Bugs in ISPF PANEL *REXX interface ?
> -----Ursprungligt meddelande-----
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För
> Skickat: den 4 oktober 2011 16:02
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: SV: Bugs in ISPF PANEL *REXX interface ?
>
> > -----Ursprungligt meddelande-----
> > Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Lizette
> > Koehler
> > Skickat: den 4 oktober 2011 13:42
> > Till: ISP...@LISTSERV.ND.EDU
> > Ämne: Re: Bugs in ISPF PANEL *REXX interface ?
> >
. . .
> > -----Ursprungligt meddelande-----
> > Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Lizette
> > Koehler
> > Skickat: den 4 oktober 2011 13:42
> > Till: ISP...@LISTSERV.ND.EDU
> > Ämne: Re: Bugs in ISPF PANEL *REXX interface ?
> >
thoma...@swedbank.se
Oct 4, 2011, 10:27:18 AM10/4/11
to
Here is a severely "snipped" version of the call trace, something interesting ? ;)
(All snipped parts is denoted by "<snip>".)
I assume that the last row represents the last processed data by ISPVCALL (?)
================================================================================
Lv TLDÄ Retcd Caller Offset Date Called Date ML
-- ---- ----- ------------- ----------------- -------- ----------------- --
0 TLD1 0 ISPVCALL+1BA 2008.353 <-ISPCCI 2008.343-BASE z1B e
0 TLD1 0 ISPVCALL+1BA 2008.353 <-ISPCCI 2008.343-BASE z1B e
0 TLD1 ISPCAT +DD0 2008.343-BASE z1B->ISPSEP 2009.106-BASE z1B e
>ISPCAT ISPEXEC SELECT PANEL(MENU) OPT(MENUISPF2)
>ISPEXEC called from IRXSTAM+A02 08D60D6A in PLPA EPA:08D60368
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>Msg TLD1- TLDMMID:ISPD240 set in ISPCMG ->ISPCFI
<snip>
>Msg S:Enter option TLDMMID=ISPD240
>Msg L:Enter one of the listed options.
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
9 TLD1 0 ISPDPPK +2BBC 2010.048-UA52699-<-ISPDPPRX 2008.343-BASE z1B e
9 TLD1 ISPDPPK +2920 2010.048-UA52699-->ISPDVCPT 2008.343-BASE z1B e
10 TLD1 ISPDVCPT+11C 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
11 TLD1 ISPSRV +1C6 2008.343-BASE z1B->ISPDVGPT 2008.343-BASE z1B e
12 TLD1 ISPDVGPT+284 2008.343-BASE z1B->ISPDVCGT 2008.343-BASE z1B e
13 TLD1 ISPDVCGT+136 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCGT+168 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 ISPDVCGT+666 2008.343-BASE z1B->ISPYXM 2008.343-BASE z1B e
13 TLD1 0 ISPDVCGT+698 2008.343-BASE z1B<-ISPYXM 2008.343-BASE z1B e
12 TLD1 0 ISPDVGPT+284 2008.343-BASE z1B<-ISPDVCGT 2008.343-BASE z1B e
12 TLD1 ISPDVGPT+304 2008.343-BASE z1B->ISPDVCPT 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+11C 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+14E 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+1DC8 2008.343-BASE z1B->ISPDVCGT 2008.343-BASE z1B e
14 TLD1 ISPDVCGT+136 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
14 TLD1 0 ISPDVCGT+168 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+1DFA 2008.343-BASE z1B<-ISPDVCGT 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+1E2E 2008.343-BASE z1B->ISPYXM 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+1E60 2008.343-BASE z1B<-ISPYXM 2008.343-BASE z1B e
12 TLD1 0 ISPDVGPT+304 2008.343-BASE z1B<-ISPDVCPT 2008.343-BASE z1B e
11 TLD1 0 ISPSRV +1C6 2008.343-BASE z1B<-ISPDVGPT 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +123C 2009.106-BASE z1B<-ISPSRV 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +1FE 2010.048-UA52699-<-ISPSEP 2009.106-BASE z1B e
8 TLD1 0 ISPDPP +E0C 2008.343-BASE z1B<-ISPDPPK 2010.048-UA52699-z1B e
8 TLD1 ISPDPP +CFC 2008.343-BASE z1B->ISPDPPI 2011.082-UA59605-z1B e
8 TLD1 0 ISPDPP +D2E 2008.343-BASE z1B<-ISPDPPI 2011.082-UA59605-z1B e
8 TLD1 ISPDPP +DDA 2008.343-BASE z1B->ISPDPPK 2010.048-UA52699-z1B e
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD0 ISPMRO +F2C 2010.263-UA56885-->ISPCFA 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +F5E 2010.263-UA56885-<-ISPCFA 2008.343-BASE z1B e
9 TLD0 ISPMRO +3A4C 2010.263-UA56885-->ISPCBTFD 2010.263-UA56885-z1B e
9 TLD0 0 ISPMRO +3A7E 2010.263-UA56885-<-ISPCBTFD 2010.263-UA56885-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +13A8 2010.263-UA56885-->ISPDTEND 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +13DA 2010.263-UA56885-<-ISPDTEND 2008.343-BASE z1B e
******************************** Bottom of Data ********************************
(All snipped parts is denoted by "<snip>".)
I assume that the last row represents the last processed data by ISPVCALL (?)
================================================================================
Lv TLDÄ Retcd Caller Offset Date Called Date ML
-- ---- ----- ------------- ----------------- -------- ----------------- --
0 TLD1 0 ISPVCALL+1BA 2008.353 <-ISPCCI 2008.343-BASE z1B e
0 TLD1 0 ISPVCALL+1BA 2008.353 <-ISPCCI 2008.343-BASE z1B e
0 TLD1 ISPCAT +DD0 2008.343-BASE z1B->ISPSEP 2009.106-BASE z1B e
>ISPCAT ISPEXEC SELECT PANEL(MENU) OPT(MENUISPF2)
>ISPEXEC called from IRXSTAM+A02 08D60D6A in PLPA EPA:08D60368
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>Msg TLD1- TLDMMID:ISPD240 set in ISPCMG ->ISPCFI
<snip>
>Msg S:Enter option TLDMMID=ISPD240
>Msg L:Enter one of the listed options.
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
<snip>
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )PROC sect
<snip>
>ISPDPPK ISPEXEC VGET (MENUSEQ MENUMBR) ASIS
<snip>
>DPPRX Panel: MENU invoking inline Rexx in )INIT sect
9 TLD1 0 ISPDPPK +2BBC 2010.048-UA52699-<-ISPDPPRX 2008.343-BASE z1B e
9 TLD1 ISPDPPK +2920 2010.048-UA52699-->ISPDVCPT 2008.343-BASE z1B e
10 TLD1 ISPDVCPT+11C 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VPUT (MENUMBR) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VGET (MENUSEQ) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
<snip>
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD1 ISPDPPK +1FE 2010.048-UA52699-->ISPSEP 2009.106-BASE z1B e
>ISPDPPK ISPEXEC VPUT (MENUSEQ) ASIS
10 TLD1 ISPSEP +5F6 2009.106-BASE z1B->ISPSCH 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +628 2009.106-BASE z1B<-ISPSCH 2008.343-BASE z1B e
10 TLD1 ISPSEP +120A 2009.106-BASE z1B->ISPSRV 2008.343-BASE z1B e
11 TLD1 ISPSRV +1C6 2008.343-BASE z1B->ISPDVGPT 2008.343-BASE z1B e
12 TLD1 ISPDVGPT+284 2008.343-BASE z1B->ISPDVCGT 2008.343-BASE z1B e
13 TLD1 ISPDVCGT+136 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCGT+168 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 ISPDVCGT+666 2008.343-BASE z1B->ISPYXM 2008.343-BASE z1B e
13 TLD1 0 ISPDVCGT+698 2008.343-BASE z1B<-ISPYXM 2008.343-BASE z1B e
12 TLD1 0 ISPDVGPT+284 2008.343-BASE z1B<-ISPDVCGT 2008.343-BASE z1B e
12 TLD1 ISPDVGPT+304 2008.343-BASE z1B->ISPDVCPT 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+11C 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+14E 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+1DC8 2008.343-BASE z1B->ISPDVCGT 2008.343-BASE z1B e
14 TLD1 ISPDVCGT+136 2008.343-BASE z1B->ISPDVCFD 2008.343-BASE z1B e
14 TLD1 0 ISPDVCGT+168 2008.343-BASE z1B<-ISPDVCFD 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+1DFA 2008.343-BASE z1B<-ISPDVCGT 2008.343-BASE z1B e
13 TLD1 ISPDVCPT+1E2E 2008.343-BASE z1B->ISPYXM 2008.343-BASE z1B e
13 TLD1 0 ISPDVCPT+1E60 2008.343-BASE z1B<-ISPYXM 2008.343-BASE z1B e
12 TLD1 0 ISPDVGPT+304 2008.343-BASE z1B<-ISPDVCPT 2008.343-BASE z1B e
11 TLD1 0 ISPSRV +1C6 2008.343-BASE z1B<-ISPDVGPT 2008.343-BASE z1B e
10 TLD1 0 ISPSEP +123C 2009.106-BASE z1B<-ISPSRV 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +1FE 2010.048-UA52699-<-ISPSEP 2009.106-BASE z1B e
8 TLD1 0 ISPDPP +E0C 2008.343-BASE z1B<-ISPDPPK 2010.048-UA52699-z1B e
8 TLD1 ISPDPP +CFC 2008.343-BASE z1B->ISPDPPI 2011.082-UA59605-z1B e
8 TLD1 0 ISPDPP +D2E 2008.343-BASE z1B<-ISPDPPI 2011.082-UA59605-z1B e
8 TLD1 ISPDPP +DDA 2008.343-BASE z1B->ISPDPPK 2010.048-UA52699-z1B e
9 TLD1 ISPDPPK +DA 2010.048-UA52699-->ISPDPPE 2008.343-BASE z1B e
9 TLD1 0 ISPDPPK +DA 2010.048-UA52699-<-ISPDPPE 2008.343-BASE z1B e
9 TLD0 ISPMRO +F2C 2010.263-UA56885-->ISPCFA 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +F5E 2010.263-UA56885-<-ISPCFA 2008.343-BASE z1B e
9 TLD0 ISPMRO +3A4C 2010.263-UA56885-->ISPCBTFD 2010.263-UA56885-z1B e
9 TLD0 0 ISPMRO +3A7E 2010.263-UA56885-<-ISPCBTFD 2010.263-UA56885-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +E6 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +E6 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +3AD4 2010.263-UA56885-->ISPCLF 2011.003-UA58544-z1B e
10 TLD0 ISPCLF +B0 2011.003-UA58544-->ISPCDC 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +B0 2011.003-UA58544-<-ISPCDC 2008.343-BASE z1B e
10 TLD0 ISPCLF +19E 2011.003-UA58544-->ISPCDAIR 2008.343-BASE z1B e
11 TLD0 ISPCDAIR+3BC 2008.343-BASE z1B->ISPCTS 2008.343-BASE z1B e
11 TLD0 0 ISPCDAIR+3BC 2008.343-BASE z1B<-ISPCTS 2008.343-BASE z1B e
10 TLD0 0 ISPCLF +19E 2011.003-UA58544-<-ISPCDAIR 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +3B06 2010.263-UA56885-<-ISPCLF 2011.003-UA58544-z1B e
9 TLD0 ISPMRO +13A8 2010.263-UA56885-->ISPDTEND 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
10 TLD0 ISPDTEND+67E 2008.343-BASE z1B->ISPDTTAB 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+67E 2008.343-BASE z1B<-ISPDTTAB 2008.343-BASE z1B e
10 TLD0 ISPDTEND+4C0 2008.343-BASE z1B->ISPCCI 2008.343-BASE z1B e
10 TLD0 0 ISPDTEND+4C0 2008.343-BASE z1B<-ISPCCI 2008.343-BASE z1B e
9 TLD0 0 ISPMRO +13DA 2010.263-UA56885-<-ISPDTEND 2008.343-BASE z1B e
******************************** Bottom of Data ********************************
Pedro Vera
Oct 4, 2011, 2:05:38 PM10/4/11
to
> I would not expect a S0c4 abend, rather an error message.
An abend in an IBM module should be reported to the IBM support center. I
doubt very many on the ISPF-L list will have knowledge of ISPF internal
logic.
Do you have a short example that can reproduce the abend? Perhaps we can
suggest some improvements in your panel. Panel rexx works for me in my
limited experiments.
Pedro Vera
DB2 Admin Tool
http://www-01.ibm.com/software/data/db2imstools/db2tools/db2admin/
thoma...@swedbank.se
Oct 5, 2011, 6:50:28 AM10/5/11
to
> Från: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] För Pedro Vera
> Skickat: den 4 oktober 2011 19:59
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: SV: Bugs in ISPF PANEL *REXX interface ?
I'm getting quite often abends in the ISPF environment which mostly seems to relate to memory shortage (e g it works after exiting one or more screens).
Probably because I'm an extensive user of compiled rexx:s and ISPF services etc.
A short example is not so easy to get as the panel works a couple of times before the abend.
The scenario is (simplified):
opt = first level menu
SELECT PANEL(MENU &opt) --> menu level 1 displayed --> enter option menu level 2 --> SELECT(%MENUSEL &opt) --> SELECT PANEL(MENU &opt) --> menu level 2 displayed --> enter 'END' --> ABEND S0C4
When modules are mentioned in the abend output they varies form time to time. So I suspect some memory overlay.
The panel in question:
)ATTR DEFAULT( ) FORMAT(MIX)
/*******************************************************************************
/*
/* This is a general non-confessional panel for displaying arbitray
/* ISPF select Menus created from a file.
/*
/* It reads the menudata from dataset UM.SPF.SPAMENU and is supposed to be
/* called from a rexx program.
/* Format for the call:
/* "SELECT PANEL(MENU) OPT(MENUmenuname)"
/*
/* menuname The name of the menu which must be the same as the membername
/* in the dataset.
/*
/*
/* 2011/10/03 Thomas Berg
/*
/*******************************************************************************
£ TYPE(OUTPUT) COLOR(YELLOW) JUST(LEFT) SKIP(ON) CAPS(OFF)
§ TYPE(DATAOUT) COLOR(TURQ) SKIP(OFF) PAS(ON)
[ TYPE(DATAOUT) COLOR(BLUE) SKIP(ON)
\ TYPE(DATAOUT) COLOR(WHITE) SKIP(ON)
# TYPE(CH) /* column heading */
+ TYPE(NT) /* normal text */
% TYPE(ET) /* emphasized text */
¤ AREA(DYNAMIC) EXTEND(ON) SCROLL(ON)
_ TYPE(INPUT) CAPS(ON) JUST(LEFT)
)BODY
+ £Z
%Option ===>_ZCMD
+Menu:£Z +Appid:£Z +Sys:£Z + (Use PF-keys UP/DOWN to scroll)
#
¤AREA1 ¤
)INIT
&ZSEL = &Z
&ZHTOP = ISR00003 /* TUTORIAL TABLE OF CONTENTS */
&ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE */
.HELP = ISR00003
&APPLID = &ZAPPLID
&SYSID = &ZSYSID
.ZVARS = '(TITLE MENUMBR APPLID SYSID)'
IF (&ZVERB = 'DOWN') &SCROLLN = '&ZSCROLLN'
ELSE IF (&ZVERB = 'UP') &SCROLLN = '-&ZSCROLLN'
ELSE &SCROLLN = 0
VGET (MENUSEQ MENUMBR) ASIS
&INOPT = &OPT
&INMNU = &MENUSEQ
IF (&OPT = &Z)
IF (&MENUMBR ^= &Z)
&X1 = TRUNC(&MENUSEQ,' ')
&X2 = .TRAIL
IF (&X1 = &X2)
&X = TRUNC(&MENUSEQ,' ')
&MENUSEQ = .TRAIL
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 ^= &Z)
IF (&X1 ^= &MENUMBR)
&OPT = 'MENU&X1'
*REXX(*,ZSEL,OPT,SCROLLN,AREA1,AREA2,TITLE,ZCMD,MENUMBR)
If Substr(opt,1,4) == 'MENU' Then Do
menumbr = Space(Translate(Substr(opt,5),,'=():'),0)
opt = ''
zcmd = ''
End
area1 = ''
area2 = ''
Address Tso
"ALLOC F(SPAMENU) DA('UM.SPF.SPAMENU("menumbr")') SHR REUSE"
'EXECIO * DISKR SPAMENU (STEM M. FINIS'
done = 0
Do 2 While area1 = ''
Do i = 1 To m.0
If Substr(m.i,1,1) /== '*' Then Do
m = ' 'Strip(m.i)
If Pos(' TITLE=',m) > 0 Then Do
Parse Var m 'TITLE=' title ';' .
title = Strip(title)
End
Parse Var m ' O=' o . ';' .
Parse Var o o ' D=' .
Parse Var m ' D=' d ';' .
Parse Var d d ' C=' .
Parse Var m ' C=' c ';' .
If Word(Reverse(m),1) = ',' Then Do
i = i + 1
m = ' 'Strip(m.i)
If o == '' Then Parse Var m ' O=' o . ';' .
Parse Var o o ' D=' .
If d == '' Then Parse Var m ' D=' d ';' .
Parse Var d d ' C=' .
If c == '' Then Parse Var m ' C=' c ';' .
End
Else If o <> '' & d <> '' & c = '' Then Do
i = i + 1
m = ' 'Strip(m.i)
Parse Var m ' O=' o2 . ';' .
Parse Var m ' D=' d2 ';' .
Parse Var m ' C=' c ';' .
If o2 = '' & d2 = '' & c <> '' Then Nop
Else Do
i = i - 1
c = ''
End
End
d = Strip(d)
a = '§'
b = '['
If Verify(Substr(o,1,1),'§[\','M') Then Do
Parse Var o a 2 o
End
If Verify(Substr(d,1,1),'§[\','M') Then Do
Parse Var d b 2 d
End
If o /== '' & c /== '' Then Do
If d /== '' Then Do
done = done + 1
If done > scrolln Then Do
area1 = area1 !! Left(a !! Left(o,6) !! b !! d,80)
End
End
area2 = area2 !! '$'Left(o,6) Strip(c)';'
End
Else Do
If d /== '' Then Do
Parse Value Space(d) With dc do
Parse Var do do1 2 do2
If dc == 'SPACE' Then ,
area1 = area1 !! '['Left(' ',79)
Else If dc == 'LINE' Then ,
area1 = area1 !! do1 !! Left(Copies(do2,79),79)
Else If dc == 'TEXT' ! dc = 'TEXTL' Then ,
area1 = area1 !! do1 !! Left(do2,79)
Else If dc == 'TEXTC' Then ,
area1 = area1 !! do1 !! Center(do2,79)
Else If dc == 'TEXTR' Then ,
area1 = area1 !! do1 !! Right(do2,79)
End
End
End
End
scrolln = 0
End
*ENDREXX
)PROC
VPUT (MENUMBR) ASIS
VGET (MENUSEQ) ASIS
IF (.RESP = 'END')
IF (&MENUMBR ^= &Z)
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 = &MENUMBR)
&X = TRUNC(&MENUSEQ,' ')
&MENUSEQ = .TRAIL
VPUT (MENUSEQ) ASIS
ELSE
IF (&MENUMBR ^= &Z)
&X2 = &MENUSEQ
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 ^= &MENUMBR)
&MENUSEQ = '&MENUMBR &MENUSEQ'
VPUT (MENUSEQ) ASIS
&CSRPOS = .CSRPOS
&CURSOR = .CURSOR
*REXX(OPT,MENUMBR,CURSOR,CSRPOS,AREA1,AREA2,ZSEL,ZTRAIL)
Say 'opt =' opt
Say 'cur =' cursor
Say 'cpo =' csrpos
zsel = ''
If Substr(opt,1,4) == 'MENU' Then Do
opt = ''
End
Else Do
pas = ''
If cursor == 'AREA1' Then Do
pas = Strip(Substr(area1,csrpos,6),'T')
Say '1 >'pas'<'
x1 = Strip(Substr(pas,1,1))
If Verify(x1,'ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ0123456789') Then ,
pas = ''
End
Parse Var opt sel '.' ztrail
If Words(sel) > 1 ! ztrail = '' Then Do
ztrail = ''
Parse Var opt sel ' ' parm
End
Say '2 >'pas'<'
If pas /== '' Then Do
parm = sel parm
sel = pas
End
Say '3 >'sel'<'
If sel /== '' Then Do
zsel = '?'
p = Pos('$'sel' ',area2)
Say p" = Pos('$'"sel"' ',area2)"
If p > 0 Then Do
x1 = Strip(Substr(area2,p + 8,200))
Say x1" = Strip(Substr(area2,"p" + 8,200))"
Parse Var x1 x1 ';' .
Parse Var x1 x2 '&OPT' x3
If x3 <> '' Then Do
zsel = x2 !! parm !! x3
End
Else ,
zsel = x1
End
End
End
Say Length(zsel) '===>'zsel'<'
*ENDREXX
)END
Regards,
Thomas Berg
> Skickat: den 4 oktober 2011 19:59
> Till: ISP...@LISTSERV.ND.EDU
> Ämne: Re: SV: Bugs in ISPF PANEL *REXX interface ?
> > I would not expect a S0c4 abend, rather an error message.
>
> An abend in an IBM module should be reported to the IBM support center. I
> doubt very many on the ISPF-L list will have knowledge of ISPF internal
> logic.
>
> Do you have a short example that can reproduce the abend? Perhaps we can
> suggest some improvements in your panel. Panel rexx works for me in my
> limited experiments.
The problem with PMR's is that it takes much time which I don't have. If this was a common disturbance I would of course do that but as I'm probably is the only one here (for the moment) that have this problem I rather try other ways to do it.
>
> An abend in an IBM module should be reported to the IBM support center. I
> doubt very many on the ISPF-L list will have knowledge of ISPF internal
> logic.
>
> Do you have a short example that can reproduce the abend? Perhaps we can
> suggest some improvements in your panel. Panel rexx works for me in my
> limited experiments.
I'm getting quite often abends in the ISPF environment which mostly seems to relate to memory shortage (e g it works after exiting one or more screens).
Probably because I'm an extensive user of compiled rexx:s and ISPF services etc.
A short example is not so easy to get as the panel works a couple of times before the abend.
The scenario is (simplified):
opt = first level menu
SELECT PANEL(MENU &opt) --> menu level 1 displayed --> enter option menu level 2 --> SELECT(%MENUSEL &opt) --> SELECT PANEL(MENU &opt) --> menu level 2 displayed --> enter 'END' --> ABEND S0C4
When modules are mentioned in the abend output they varies form time to time. So I suspect some memory overlay.
The panel in question:
)ATTR DEFAULT( ) FORMAT(MIX)
/*******************************************************************************
/*
/* This is a general non-confessional panel for displaying arbitray
/* ISPF select Menus created from a file.
/*
/* It reads the menudata from dataset UM.SPF.SPAMENU and is supposed to be
/* called from a rexx program.
/* Format for the call:
/* "SELECT PANEL(MENU) OPT(MENUmenuname)"
/*
/* menuname The name of the menu which must be the same as the membername
/* in the dataset.
/*
/*
/* 2011/10/03 Thomas Berg
/*
/*******************************************************************************
£ TYPE(OUTPUT) COLOR(YELLOW) JUST(LEFT) SKIP(ON) CAPS(OFF)
§ TYPE(DATAOUT) COLOR(TURQ) SKIP(OFF) PAS(ON)
[ TYPE(DATAOUT) COLOR(BLUE) SKIP(ON)
\ TYPE(DATAOUT) COLOR(WHITE) SKIP(ON)
# TYPE(CH) /* column heading */
+ TYPE(NT) /* normal text */
% TYPE(ET) /* emphasized text */
¤ AREA(DYNAMIC) EXTEND(ON) SCROLL(ON)
_ TYPE(INPUT) CAPS(ON) JUST(LEFT)
)BODY
+ £Z
%Option ===>_ZCMD
+Menu:£Z +Appid:£Z +Sys:£Z + (Use PF-keys UP/DOWN to scroll)
#
¤AREA1 ¤
)INIT
&ZSEL = &Z
&ZHTOP = ISR00003 /* TUTORIAL TABLE OF CONTENTS */
&ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE */
.HELP = ISR00003
&APPLID = &ZAPPLID
&SYSID = &ZSYSID
.ZVARS = '(TITLE MENUMBR APPLID SYSID)'
IF (&ZVERB = 'DOWN') &SCROLLN = '&ZSCROLLN'
ELSE IF (&ZVERB = 'UP') &SCROLLN = '-&ZSCROLLN'
ELSE &SCROLLN = 0
VGET (MENUSEQ MENUMBR) ASIS
&INOPT = &OPT
&INMNU = &MENUSEQ
IF (&OPT = &Z)
IF (&MENUMBR ^= &Z)
&X1 = TRUNC(&MENUSEQ,' ')
&X2 = .TRAIL
IF (&X1 = &X2)
&X = TRUNC(&MENUSEQ,' ')
&MENUSEQ = .TRAIL
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 ^= &Z)
IF (&X1 ^= &MENUMBR)
&OPT = 'MENU&X1'
*REXX(*,ZSEL,OPT,SCROLLN,AREA1,AREA2,TITLE,ZCMD,MENUMBR)
If Substr(opt,1,4) == 'MENU' Then Do
menumbr = Space(Translate(Substr(opt,5),,'=():'),0)
opt = ''
zcmd = ''
End
area1 = ''
area2 = ''
Address Tso
"ALLOC F(SPAMENU) DA('UM.SPF.SPAMENU("menumbr")') SHR REUSE"
'EXECIO * DISKR SPAMENU (STEM M. FINIS'
done = 0
Do 2 While area1 = ''
Do i = 1 To m.0
If Substr(m.i,1,1) /== '*' Then Do
m = ' 'Strip(m.i)
If Pos(' TITLE=',m) > 0 Then Do
Parse Var m 'TITLE=' title ';' .
title = Strip(title)
End
Parse Var m ' O=' o . ';' .
Parse Var o o ' D=' .
Parse Var m ' D=' d ';' .
Parse Var d d ' C=' .
Parse Var m ' C=' c ';' .
If Word(Reverse(m),1) = ',' Then Do
i = i + 1
m = ' 'Strip(m.i)
If o == '' Then Parse Var m ' O=' o . ';' .
Parse Var o o ' D=' .
If d == '' Then Parse Var m ' D=' d ';' .
Parse Var d d ' C=' .
If c == '' Then Parse Var m ' C=' c ';' .
End
Else If o <> '' & d <> '' & c = '' Then Do
i = i + 1
m = ' 'Strip(m.i)
Parse Var m ' O=' o2 . ';' .
Parse Var m ' D=' d2 ';' .
Parse Var m ' C=' c ';' .
If o2 = '' & d2 = '' & c <> '' Then Nop
Else Do
i = i - 1
c = ''
End
End
d = Strip(d)
a = '§'
b = '['
If Verify(Substr(o,1,1),'§[\','M') Then Do
Parse Var o a 2 o
End
If Verify(Substr(d,1,1),'§[\','M') Then Do
Parse Var d b 2 d
End
If o /== '' & c /== '' Then Do
If d /== '' Then Do
done = done + 1
If done > scrolln Then Do
area1 = area1 !! Left(a !! Left(o,6) !! b !! d,80)
End
End
area2 = area2 !! '$'Left(o,6) Strip(c)';'
End
Else Do
If d /== '' Then Do
Parse Value Space(d) With dc do
Parse Var do do1 2 do2
If dc == 'SPACE' Then ,
area1 = area1 !! '['Left(' ',79)
Else If dc == 'LINE' Then ,
area1 = area1 !! do1 !! Left(Copies(do2,79),79)
Else If dc == 'TEXT' ! dc = 'TEXTL' Then ,
area1 = area1 !! do1 !! Left(do2,79)
Else If dc == 'TEXTC' Then ,
area1 = area1 !! do1 !! Center(do2,79)
Else If dc == 'TEXTR' Then ,
area1 = area1 !! do1 !! Right(do2,79)
End
End
End
End
scrolln = 0
End
*ENDREXX
)PROC
VPUT (MENUMBR) ASIS
VGET (MENUSEQ) ASIS
IF (.RESP = 'END')
IF (&MENUMBR ^= &Z)
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 = &MENUMBR)
&X = TRUNC(&MENUSEQ,' ')
&MENUSEQ = .TRAIL
VPUT (MENUSEQ) ASIS
ELSE
IF (&MENUMBR ^= &Z)
&X2 = &MENUSEQ
&X1 = TRUNC(&MENUSEQ,' ')
IF (&X1 ^= &MENUMBR)
&MENUSEQ = '&MENUMBR &MENUSEQ'
VPUT (MENUSEQ) ASIS
&CSRPOS = .CSRPOS
&CURSOR = .CURSOR
*REXX(OPT,MENUMBR,CURSOR,CSRPOS,AREA1,AREA2,ZSEL,ZTRAIL)
Say 'opt =' opt
Say 'cur =' cursor
Say 'cpo =' csrpos
zsel = ''
If Substr(opt,1,4) == 'MENU' Then Do
opt = ''
End
Else Do
pas = ''
If cursor == 'AREA1' Then Do
pas = Strip(Substr(area1,csrpos,6),'T')
Say '1 >'pas'<'
x1 = Strip(Substr(pas,1,1))
If Verify(x1,'ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ0123456789') Then ,
pas = ''
End
Parse Var opt sel '.' ztrail
If Words(sel) > 1 ! ztrail = '' Then Do
ztrail = ''
Parse Var opt sel ' ' parm
End
Say '2 >'pas'<'
If pas /== '' Then Do
parm = sel parm
sel = pas
End
Say '3 >'sel'<'
If sel /== '' Then Do
zsel = '?'
p = Pos('$'sel' ',area2)
Say p" = Pos('$'"sel"' ',area2)"
If p > 0 Then Do
x1 = Strip(Substr(area2,p + 8,200))
Say x1" = Strip(Substr(area2,"p" + 8,200))"
Parse Var x1 x1 ';' .
Parse Var x1 x2 '&OPT' x3
If x3 <> '' Then Do
zsel = x2 !! parm !! x3
End
Else ,
zsel = x1
End
End
End
Say Length(zsel) '===>'zsel'<'
*ENDREXX
)END
Regards,
Thomas Berg
adrianstern
Nov 7, 2011, 3:32:57 AM11/7/11
to
as you probably all have realised I'm totally opposed to ANY code in
panels - it's done better in the exec. I couldn't believe the addition
of Rexx to panel code - what an abomination!
do it all in your exec and you'll remove most of your problems!
om di vill Thomas, kan jag titta förbi och ge dig en hand!
Adrian
panels - it's done better in the exec. I couldn't believe the addition
of Rexx to panel code - what an abomination!
do it all in your exec and you'll remove most of your problems!
om di vill Thomas, kan jag titta förbi och ge dig en hand!
Adrian
0 new messages