Group,
I have been looking through the ISPF Dialog Developer's Guide and Reference
and I am having a problem with my help panel. My Primary panel has ZPRIM=YES
and .HELP=SSBVPSH. From my primary panel I enter PF1 and I get my help panel.
My panel looks like this:
)ATTR
)BODY
%NOTE: MENUMSG
+
%ENTER+- EXIT %PF3+- EXIT
+
)INIT
)PROC
ZSEL=TRANS(TRUNC(ZCMD,'.')
'*','EXIT') /*TERMINATE MENU DISPLAY*/
)END
When I hit PF3 it takes me right out of my HELP panel and returns me back to my
primary panel.
Q). Why when I press Enter from my help screen do I get ISPP100 Panel EXIT
error. Panel not found.
I tried just coding EXIT, END, CANCEL and RETURN instead of the TRANS statement
and I receive the same message about a Panel not found. The TRANS should be
saying whatever ZCMD is, Terminate the menu display. I put a TRACE in the
PROC section and it didn't like that either. I had another approach:
)PROC
IF (.PFKEY = PF03)
ZCMD = X
IF (.RESP = ENTER)
ZCMD = X
ZSEL=TRANS(TRUNC(ZCMD,'.')
X,EXIT /* or 'X','EXIT' - Terminate Menu Display */
'','' /* Redisplay Panel on Blank */
'*','%') /* or '*','?') - Display Invalid option */
When I use '?' in my help panel and press enter it sends me to the ISPF PDF
tutorial.
*** Use a question mark (?) as the string. This causes the SELECT service to
redisplay the menu with an invalid option message. ***
When I use '%' in my help panel and press enter I get ISPP100 Panel %
error. Panel not found.
I Removed everything from my PROC section. ENTER takes my from my help panel
to the ISPF PDF tutorial. PF3 works great.
Q). How can I just redisplay my help panel or terminate my menu display by
pressing ENTER?
Did I miss any good ISPF books with help panel samples?
Thanks in advance, Dave
Dave Hansen
Eagan Software Systems Branch
651-406-1208
dave.l.han...@usps.gov