IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Is scrolling possible in Help panels of ISPF


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Thu Jun 11, 2009 8:41 pm
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Jun 11, 2009 10:33 pm
Reply with quote

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
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Wed Jun 17, 2009 4:35 pm
Reply with quote

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
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Jun 17, 2009 5:26 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
No new posts Is there a way to close VSAM files us... CICS 8
No new posts step by step trace 4 ISPF dialog call... TSO/ISPF 17
Search our Forums:

Back to Top