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

ISPF key-list with SHARED option


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Srinivasarangam
Warnings : 1

New User


Joined: 01 Jun 2010
Posts: 39
Location: India

PostPosted: Thu Feb 28, 2013 9:07 pm
Reply with quote

I am trying to create my own set ISPF key-list with SHARED option But it is creating as PRIVATE .. could you please suggest me where I am going wrong.
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Feb 28, 2013 9:36 pm
Reply with quote

Seems when I tried KEYS it always reads PRIVATE.

What have you done so far to create KEYS as SHARED?
What does SHARED KEYS do?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Thu Feb 28, 2013 10:25 pm
Reply with quote

Srinivasarangam wrote:
I am trying to create my own set ISPF key-list with SHARED option But it is creating as PRIVATE .. could you please suggest me where I am going wrong.

I do not believe that the SHARED parameter dictates the nature of the keylist, but rather its source.
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Feb 28, 2013 10:32 pm
Reply with quote

Ah, I think you are correct about the source.

I just checked 7.3 and I can see my Shared and Private variables.
Back to top
View user's profile Send private message
Srinivasarangam
Warnings : 1

New User


Joined: 01 Jun 2010
Posts: 39
Location: India

PostPosted: Fri Mar 01, 2013 11:19 am
Reply with quote

I went 0-SETTINGS from ISPF menu.
Then went inside "Function Keys" -> 2. Keylist Settings... -> Using N-NEW option trying to create the keylist.


Code:
   File  Defaults                                                           
 ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
                         ISR Keylist ISRFES Create         Row 1 to 10 of 24
 Command ===>                                             Scroll ===> PAGE 
                                                                           
 Make changes and then select File action bar choice.                       
                                                                           
 Keylist Help Panel Name . . .                                             
                                                                           
 Key       Definition                                 Format  Label         
 F1 . . .                                                                   
 F2 . . .  split                                      LONG    split         
 F3 . . .  end                                        LONG    end           
 F4 . . .                                                                   
 F5 . . .  refresh                                    LONG    refresh       
 F6 . . .                                                                   
 F7 . . .                                                                   
 F8 . . .                                                                   
 F9 . . .                                                                   
 F10  . .                                                                   
  F1=Help        F2=Split       F3=Exit        F7=Backward    F8=Forward   
  F9=Swap       F10=Actions    F12=Cancel                                   


Keylist created is showing as PRIVATE
Code:
   File  View                                                         
 ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
                     Keylist Utility for ISR         Row 1 to 12 of 20
 Command ===>                                       Scroll ===> PAGE   
                                                                       
 Actions:   N=New  E=Edit  V=View  D=Delete  /=None                   
                                                                       
    Keylist   Type                                                     
    ISRFES    PRIVATE                                                 
    ISRHELP   SHARED                                                   
    ISRHLP2   SHARED                                                   
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Mar 01, 2013 1:06 pm
Reply with quote

THe keylist MUST be in one of the concatenated libraries within the ISPTLIB DD name to be eligible for SHARED.

Usually the first in the concatenation is the best option.

I have always used a REXX exec to do this from a good example I found on the web.
Back to top
View user's profile Send private message
Srinivasarangam
Warnings : 1

New User


Joined: 01 Jun 2010
Posts: 39
Location: India

PostPosted: Sat Mar 02, 2013 3:40 pm
Reply with quote

Thank Expat.

The keylist members in ISPTLIB looks different... Looks like load modules.
Is I need to keep keylists defined code directly there or I need to use any utility to generate the code.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Sat Mar 02, 2013 10:03 pm
Reply with quote

Quote:
or I need to use any utility to generate the code


I always define the keylist using DTL and then use the ISPDTLC utility to 'compile' it. In the ISPDTLC settings, you define what ISPTLIB dataset to use.

Code:

<:doctype dm system(         )>       
<KEYL                                                 
   NAME=MYKEY05>                             
   <KEYI KEY=F1  CMD=HELP     FKA=YES>Help   
   <KEYI KEY=F12 CMD=CANCEL   FKA=Yes>Cancel 
</KEYL>

As you note, its in binary and not simple to determine if it is correct. Using a tagged source file, you can better tell if it is written as you intended.
Back to top
View user's profile Send private message
Srinivasarangam
Warnings : 1

New User


Joined: 01 Jun 2010
Posts: 39
Location: India

PostPosted: Thu Apr 04, 2013 9:41 pm
Reply with quote

When I called ISPDTLC utility I am getting the below screen
Code:
           ISPF Dialog Tag Language Conversion Utility - 6.3               
Command ===>                                                               
                                                                           
Click here:   Go to DTL input names 5-16        Reset DTL input names 2-16
Enter requested information:          Current Language: ENGLISH           
                                                               More:     +
Member name . . . . . . . .           (Blank or pattern for member list)   
DTL Source data set - 1 . . 'P54ISR.GML'                                 
DTL Source data set - 2 . .                                               
DTL Source data set - 3 . .                                               
DTL Source data set - 4 . .                                               
Panel data set  . . . . . . 'P54ISR.IIRS.PANELS'                         
Message data set  . . . . . 'P54ISR.MSGS'                                 
Log data set  . . . . . . .                                               
  Log File Member name  . .           (Required when log file is a PDS)   
List data set . . . . . . .                                               
  List File Member name . .           (Required when list file is a PDS)   
SCRIPT data set . . . . . .                                               
 F1=Help        F2=Split       F3=Exit        F7=Backward    F8=Forward   
 F9=Swap       F10=Actions    F12=Cancel                                   

Here, I am keeping the above code(what Pedro suggested) in "'P54ISR.GML". Is I am doing correct. Please give me a link where I can find more about ISPDTLC utility. I tried my best but I am not getting the correct one which gives information about ISPDTLC utility. Please suggest me
Back to top
View user's profile Send private message
Srinivasarangam
Warnings : 1

New User


Joined: 01 Jun 2010
Posts: 39
Location: India

PostPosted: Thu Apr 04, 2013 10:36 pm
Reply with quote

Getg the below error msg when I tried to compile ISPDTLC utility
Code:
ISPDTLC ISPF 6.3 Dialog Tag Language Conversion Utility                       
 Converting source file "T310753.GML(KEYPLEX)"...                               
 ISPC129FE: Error. Line 17 of file "T310753.GML(KEYPLEX)". Return code of "32" 
    (Keylist table open) from the SELECT service attempting to create an ISPF   
    Keylist. (The keylist update program received a return code of "12" from the
    TBOPEN service.)                                                           
 0 warning(s) and 1 error(s) found.                                             
 ***                                                                           
Is there any way is there to fix this error other than contacting system admin
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Thu Apr 04, 2013 11:45 pm
Reply with quote

Quote:
Please give me a link where I can find more about ISPDTLC utility.

Use [URL] BBCode for External Links

Code:
return code of "12" from the TBOPEN service

Browse the ISPF Services Guide for the TBOPEN return codes.

hint: your panel shows one userid, but your error messages shows a different. Perhaps someone else is currently using that dataset.
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 SCOPE PENDING option -check data DB2 2
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts OUTFIL with SAVE option DFSORT/ICETOOL 7
Search our Forums:

Back to Top