Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Is scrolling possible in Help panels of ISPF

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Is scrolling possible in Help panels of ISPF
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

Senior Member


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

PostPosted: Thu Jun 11, 2009 10:33 pm    Post subject: Reply to: Is scrolling possible in Help panels of ISPF
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    Post subject: Re: Reply to: Is scrolling possible in Help panels of ISPF
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: 1224
Location: Israel

PostPosted: Wed Jun 17, 2009 5:26 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm
No new posts ISPF Tables Creation newsysprg TSO/ISPF 6 Wed Jul 13, 2016 2:21 pm
No new posts More ISPF RFE's to vote for prino TSO/ISPF 1 Tue Apr 19, 2016 12:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us