MVSFORUMS.com

[ROBERTLa]

Gents:

Simple problem but I just can't see the solution. When my online F1 help gets to the final help-screen - it automatically invokes my tutorial even though I don't hit the tutorial selection option 3 on my primary menu below.

For example: I enter '1' on primary menu and it brings up 'SUBMNU01' sub menu. I hit F1 for help there and it brings up a 2 screen help panel. Ok so far.

After hitting 'Enter' on help screen 2, up pops my tutorial which I never asked for.

Any Ideas?
-Rob




PRIMARY MENU:
==================================

)PANEL KEYLIST(KEYKLST3,ABC,SHARED)
)ATTR
$ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
* TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) CAPS(OFF)
! TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF)
)BODY CMD(ZCMD) LMSG(LONGM)
!LONGM
$ PRIMARY OPTION MENU
%OPTION ==>_ZCMD+
% 1 -+SUB MENU 1
% 2 -+SUB MENU 2
% 3 -+TUTORIAL
% X -+EXIT
)INIT
&ZPFCTL = OFF
VPUT &ZPFCTL PROFILE
.CURSOR = ZCMD
&ZPRIM = YES
&ZHTOP = TUTMNU01
VPUT (ZHTOP) PROFILE
)PROC
&ZSEL = TRANS(TRUNC(&ZCMD,'.')
1,'PANEL(SUBMNU01)'
2,'PANEL(SUBMNU02)'
3,'PGM(ISPTUTOR) PARM(TUTMNU01) SCRNAME(TUTOR)'
X,EXIT
' ',' '
'*','?')
&REST = .TRAIL
)END


SUBMNU01:
================================

)PANEL KEYLIST(KEYKLST3,ABC,SHARED)
)ATTR
@ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
$ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
! TYPE(OUTPUT) INTENS(LOW) COLOR(WHITE) CAPS(OFF)
)BODY CMD(ZCMD) LMSG(LONGM)
@VER &VERS &TITLE
!LONGM
$ SUB MENU 01
%OPTION ==>_ZCMD+
+ %1-+INSERT
+ %2-+CHANGE
+ %3-+DELETE
)INIT
.HELP = HELPSCR1
.CURSOR = ZCMD
)PROC
&ZSEL = TRANS(TRUNC(&ZCMD,'.')
1,'CMD(%INSERT01) NOCHECK'
2,'CMD(%CHANGE02) NOCHECK'
3,'CMD(%DELETE03) NOCHECK'
X,EXIT
' ',' '
'*','?')
&REST = .TRAIL
)END


HELPSCR1:
=================================

)PANEL KEYLIST(BIMKLST3,BIM,SHARED)
)ATTR
% TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
! TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
@ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
)BODY
% &LINE1
+
+ SCREEN NAME: @SENDING SYSTEMS DEFINITION +SCREEN
+
+ SAMPLE HELP SCREEN:
+
+ "YOU CAN'T GET THERE FROM HERE"
+
+
+ !COMMAND =>_ZCMD+ @PF3:Back B:Prev Help ENTER: Table Co
)INIT
&LINE1 = '____ ONLINE HELP ____'
)END


TUTMNU01:
=================================

)PANEL KEYLIST(KEYKLST3,ABC,SHARED)
)ATTR
% TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
! TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
@ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
)BODY
% &LINE1
+
+ SCREEN NAME: @TUTORIAL MAIN MENU
+
+ Tutorial topics may be browsed sequentially or individually by entering
+ the selection below. For further details consult the F1 field help
+ provided on each screen.
+
+ 0: Overview
+
+ 1: Tutorial Topic 1
+
+ !COMMAND =>_ZCMD+ @Enter: More This Topic, S: Skip Topic, B: Prev
+ @TOC: Table of contents, PF3:Back
)INIT
&LINE1 = '__ TUTORIAL ____'
)PROC
&ZSEL = TRANS(&ZCMD 0,T0 1,T1 *,'?')
)END


Any Help Appreciated...
-Robert

[ROBERTLa]

Guys:

Ummm, just realized this is the way it's SUPPOSED to work. (Looking for a place to hide now).

Thanks anyway !
-Rob