View previous topic :: View next topic
|
Author |
Message |
Pragati Soni
New User
Joined: 18 Jan 2008 Posts: 47 Location: India
|
|
|
|
I have designed a help panel for my panel and used scrolling in it. But on pressing F8 or F7 on the help panel ISPF help appears.
Below is my help panel
Code: |
)PANEL KEYLIST(ISRHELP ISR)
)ATTR
# AREA(SCRL) EXTEND(ON)
@ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN)
)BODY
+------------------QHTOOL SUBMIT PANEL HELP SCREEN--------------------+
+ +
#MYAREA #
+ +
+PRESS%PF7 TO SCROLL UP,%PF8 TO SCROLL DOWN AND %PF3 TO EXIT. +
+ +
)AREA MYAREA
+ EDIT JCL ===> (Y/N) +
+ +
+QHTOOL PROGRAM PDS* ===> THIS FIELD SHOULD HAVE THE LOCATION OF +
+ THE QHTOOL PROGRAM +
+ +
+MEMBER* ===> THIS FIELD SHOULD HAVE THE NAME OF THE +
+ QHTOOL PROGRAM +
+ +
+VSAM REGION QUALIFIER* ===> THIS FIELD SHOULD HAVE THE REGION NAME +
+ THAT ACT AS THE FIRST QUALIFIER IN THE +
+ VSAM FILE NAME +
+ FOR E.G.: EVBV, FNBV, SUPV.SSUP +
+ +
+DB2* ===> IF THE PROGRAM DEALS WITH THE DB2 TABLES +
+ THIS FIELD IS SET TO Y ELSE N +
+ +
+ALL '*' FIELDS ARE THE %MANDATORY FIELDS% +
+BY DEFAULT: +
+THE LOAD LIBRARY PRD.Y00XXX.LOADLIB IS ADDED WHERE XXX IS THE USERID.+
+THE KEY DATABASES CDMF, AMF, CIF AND ADF ARE ALREADY ADDED. +
+THE EDIT JCL FLAG IS SET TO 'N' +
+THE DB2 FLAG IS SET TO 'N' +
+ +
+CHOOSE THE OPTION 'EDIT JCL' AND EDIT THE JCL FOR THE FOLLOWING: +
+TO ACCESS DATABASES OTHER THAN THE ALREADY ADDED ONES +
+TO CHANGE THE LOCATION OF THE LOAD MODULE +
+TO ADD MORE INPUT FILES/DATABASES OR OUTPUT FILES(ADD TO QHEXEC) +
+ +
+TO ACCESS DB2 TABLE CHOOSE THE OPTION 'DB2' AS Y +
)INIT
)PROC
)END |
My Panel
Code: |
)PANEL KEYLIST(ISRSAB ISR)
)ATTR
@ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) SKIP(ON)
$ TYPE(INPUT) INTENS(LOW) COLOR(RED)
_ TYPE(NEF) PAD(USER) CAPS(ON)
)BODY
%----------------------QHTOOL SUBMIT PANEL----------------------------%
%COMMAND ===> _ZCMD %
@ EDIT JCL ===> $J@(Y/N) +
+ +
@QHTOOL PROGRAM PDS* ===> $QHTLLOC @+
+(GIVE A FULLY QUALIFIED PDS NAME WITHOUT QUOTES) +
+ +
@MEMBER* ===> $QHTLPGM @ @DB2 ===> $D@(Y/N) +
+(GIVE A VALID MEMBER NAME WITHOUT QUOTES) +
+ +
@VSAM REGION QUALIFIER* ===> $REGN @ +
@ FOR E.G.: EVBV, FNBV, SUPV.SSUP +
+ +
@NOTE: +
@BY DEFAULT: +
@ => LOADLIB PRD.Y00XXX.LOADLIB IS ADDED WHERE XXX IS THE USERID +
@ => OUTPUT WILL GO INTO SPOOL IN QHPRINT. +
@ => COMMON DATABASES CDMF, AMF, CIF AND ADF ARE ALREADY ADDED. +
@SPECIFY EDIT JCL => Y FOR THE FOLLOWING: +
@FOR MORE INPUT FILES/DATABASES OR OUTPUT FILES, ADD TO QHEXEC +
+ +
+%PRESS PF1 FOR HELP,ENTER TO SUBMIT AND PF3 TO EXIT +
)INIT
.HELP = QHTLHLP
IF (&J = ' ')
&J = 'N'
IF (&D = ' ')
&D = 'N'
)PROC
VER (&J,NB,LIST,'Y','N')
VER (&D,NB,LIST,'Y','N')
VER (&QHTLLOC,NB)
VER (&QHTLPGM,NB)
VPUT (J QHTLLOC QHTLPGM LOADLIB REGN D) PROFILE
VGET (J QHTLLOC QHTLPGM LOADLIB REGN D) PROFILE
)END |
Could you please tell me if scrolling is possible in help panels and if yes is there any other way to enable that?
Thanks a lot in advance. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
I was able to scroll my help panels by using )AREA as you have done and also to use a keylist.
The keylist is set for label as UP and DOWN, but the command they issue is actually LEFT and RIGHT.
Look at the Dialog Reference for how create help panels. |
|
Back to top |
|
|
Pragati Soni
New User
Joined: 18 Jan 2008 Posts: 47 Location: India
|
|
|
|
It didn't work in my case. Anyways Thanks.
Pedro wrote: |
I was able to scroll my help panels by using )AREA as you have done and also to use a keylist.
The keylist is set for label as UP and DOWN, but the command they issue is actually LEFT and RIGHT.
Look at the Dialog Reference for how create help panels. |
|
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
You are using the ISRHELP keylist:
Code: |
SHARED ISR Keylist ISRHELP Change Row 1 to 12 of 24
Command ===> Scroll ===> CSR
Make changes and then select File action bar.
Keylist Help Panel Name . . . ISPKEYH1
Key Definition Format Label
F1 . . . HELP SHORT Help
F2 . . . SPLIT LONG Split
F3 . . . EXIT SHORT Exit
F4 . . . RESIZE LONG Resize
F5 . . . EXHELP SHORT Exhelp
F6 . . . KEYSHELP SHORT Keyshelp
F7 . . . UP SHORT PrvTopic
F8 . . . DOWN SHORT NxtTopic
F9 . . . SWAP LONG Swap
F10 . . LEFT SHORT PrvPage
F11 . . RIGHT SHORT NxtPage
F12 . . CANCEL SHORT Cancel |
Check the labels:
PF7 and PF8 for Prev / Next Topic
PF10 and PF11 for Prev / Next Page
Maybe change just one line:
Code: |
PRESS PF10 TO SCROLL UP, PF11 TO SCROLL DOWN AND PF3 TO EXIT |
|
|
Back to top |
|
|
|