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

DSLIST Command is not working


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

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Mon Dec 10, 2018 8:10 pm
Reply with quote

Hi All,

I am a very frequent user of DSLIST Command in mainframe and Now due to my process change I got the Other mainframe which is diff from the one I was using earlier , Here I am not able to use DSLIST Command , Earlier it shows me the list of the dataset whihc I have passed to this , For example from any panel if I pass the command DSLIST XXXX.YYYY.ZZZZ then it will show me all the datasets starting with these 3 qualifiers but in this mainframe When Use DSLIST XXXX.YYYY it takes me to the 3.4 PANEL thats it. I explore many settings and utilities within the ISPF menu but not able to fix this.

Can some one please help if it is known issue.

Please let me know for any questions. Many Thanks in Advance.

Sumit
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Mon Dec 10, 2018 8:29 pm
Reply with quote

I recall having something like what you describe. In the basic 3.4 panel, check the options in Data set list options. There are two sets:
  • Initial View and
  • Enter "/" to select option.
I'm guessing, somehow some of the options in Enter "/" to select option have been de selected, if that makes any sense. Select all of them. You can fiddle with them later, and see what happens.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Dec 11, 2018 1:11 am
Reply with quote

It could be that your new site has a modified command table and fell behind when the real command table was upgraded.

show us the definition of the DSLIST command. Look in option 3.7 - Command table (?) and specify ISR or ISP and prefixes to see the command table definition.
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Tue Dec 11, 2018 1:39 pm
Reply with quote

Pedro wrote:
It could be that your new site has a modified command table and fell behind when the real command table was upgraded.

show us the definition of the DSLIST command. Look in option 3.7 - Command table (?) and specify ISR or ISP and prefixes to see the command table definition.


Thanks For your reply. I have gone to 3.9 Option for Command Tables and seems it is empty I don't see any command definition there , I tried to insert the DSLIST command but was not sure of the ACTION part to code.

I saw below in the Update ISRCMDS panel.
Verb T Action

Please suggest. Thanks

Sumit
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Tue Dec 11, 2018 1:41 pm
Reply with quote

steve-myers wrote:
I recall having something like what you describe. In the basic 3.4 panel, check the options in Data set list options. There are two sets:
  • Initial View and
  • Enter "/" to select option.
I'm guessing, somehow some of the options in Enter "/" to select option have been de selected, if that makes any sense. Select all of them. You can fiddle with them later, and see what happens.


Thanks For your reply, I already tried this but was no lock.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Dec 11, 2018 2:46 pm
Reply with quote

DSLIST is found in xxxx.SISPTENU(ISPCMDS). I suggest that you run the TSP ISRDDN command and scan the ISPTLIB concatenation for ISPCMDS. There might be a problem with your allocations, or even an empty ISPCMDS before the system member. Check also ISPPROF DD.
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Tue Dec 11, 2018 2:55 pm
Reply with quote

Willy Jensen wrote:
DSLIST is found in xxxx.SISPTENU(ISPCMDS). I suggest that you run the TSP ISRDDN command and scan the ISPTLIB concatenation for ISPCMDS. There might be a problem with your allocations, or even an empty ISPCMDS before the system member. Check also ISPPROF DD.


Thanks For your reply. I checked in the ISPCMDS member and found the code for DSLIST

Code:
DSLIST..0..SELECT PGM(ISRDSLST) PARM(DSL &ZPARM) SUSPEND SCRNAME(DSLIST)..DATA SET LIST.....


Can you please confirm if this is what I need to have , Also I checked in my previous mainframe and found the same code in the ISPCMDS member for DSLIST. Do i Need to insert it in 3.9 (Table entry)?
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Dec 11, 2018 2:59 pm
Reply with quote

On the other hand, if ISPCMDS was bad then a lot of other commands wouldn't work. But at least see if you can find DSLIST in the ISPCMDS member.
By the way, the action is:
SELECT PGM(ISRDSLST) PARM(DSL &ZPARM) SUSPEND SCRNAME(DSLIST)
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Tue Dec 11, 2018 3:03 pm
Reply with quote

thesumitk wrote:
Willy Jensen wrote:
DSLIST is found in xxxx.SISPTENU(ISPCMDS). I suggest that you run the TSP ISRDDN command and scan the ISPTLIB concatenation for ISPCMDS. There might be a problem with your allocations, or even an empty ISPCMDS before the system member. Check also ISPPROF DD.


Thanks For your reply. I checked in the ISPCMDS member and found the code for DSLIST

Code:
DSLIST..0..SELECT PGM(ISRDSLST) PARM(DSL &ZPARM) SUSPEND SCRNAME(DSLIST)..DATA SET LIST.....


Can you please confirm if this is what I need to have , Also I checked in my previous mainframe and found the same code in the ISPCMDS member for DSLIST. Do i Need to insert it in 3.9 (Table entry)?



and in the ISPPROF it is like below

Code:
ISPYFXDP...ZMSFS1  ..DSLIST.ZMSFLIST..'TSOID.SRCHML.LIST'.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Dec 11, 2018 3:52 pm
Reply with quote

why not ask the support people of

Quote:

... the Other mainframe which is diff from the one I was using earlier ...
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Dec 11, 2018 6:48 pm
Reply with quote

enrico-sorichetti's advise is good.
You may also run the following REXX in each system and try to spot any difference:
Code:
/*                                                         REXX     
 List all active ispf in-storage command tables.                   
 by: Willy Jensen, web: http://harders-jensen.com/wjtech/           
*/                                                                 
                                                                   
 parse value copies('0 ',30) with $edit $all lst.0 .               
 parse value '' with tables                                         
                                                                   
 address ispexec                                                   
 "control errors return"                                           
 "vget zscrmaxw"                                                   
 width=zscrmaxw                                                     
 awidth=(width-19)%2                                               
 tliblist=ListTlibs()                                               
                                                                   
 "qtabopen list(qtol.)"                                             
                                                                   
 do qtoln=1 to qtol.0                                               
   tblname=strip(qtol.qtoln)                                       
   if right(tblname,4)<>'CMDS' then iterate                         
   tables=tables tblname                                           
   Call AddList '-->' tblname LocDsn(tliblist,tblname)             
   Call AddList ''                                                 
                                                                   
   'tbquery' tblname 'rownum(rows)'                                 
   if rc<>0 then do                                                 
     Call AddList '*Table is probably libdef''d in another screen' 
     Call AddList ''                                               
     iterate                                                       
   end                                                             
   tblid = left(tblname,length(tblname)-4)                         
   zerrlm=''                                                       
   'tbtop' tblname                                                 
   do rows                                                         
     'tbskip' tblname                                               
     Call AddList  left(zctverb,8) left(tblid,4),                   
       left(zcttrunc,3) left(zctact,awidth) left(zctdesc,awidth)   
   end                                                             
   Call AddList ''                                                 
 end                                                               
 call Xispmsg 'Tables listed:' space(tables)                       
                                                                   
 address tso                                                       
 Signal on syntax name AltDisplay                                   
 call StemEdit 'VIEW','lst.',,lst.0,cmd,,width+14                   
 exit 0                                                             
                                                                   
AltDisplay: /* used if pgm STEMEDIT is not installed */               
 cc=bpxwdyn('alloc new delete rtddn(lstdd) unit(vio) dsorg(ps)',     
    'lrecl('width+14') recfm(v,b) blksize(0) tracks space(1,4)')     
 if cc<>0 then exit xmsg("alloc failed" cc)+12                       
                                                                     
 "execio" lst.0 "diskw" lstdd "(stem lst. finis"                     
 address ispexec  "lminit dataid(did1) ddname("lstdd")"               
 address ispexec  "view dataid("did1")"                               
 exit Bpxwdyn("free dd("lstdd")")*0                                   
                                                                     
AddList: Procedure expose lst.                                       
 parse value 1+lst.0 1+lst.0 arg(1) with n lst.0 lst.n               
 return 0                                                             
                                                                     
XMsg: if arg(1)<>'' then say arg(1);return word(arg(2) 0,1)           
XISPMSG:                                                             
 parse arg zedlmsg                                                   
 address ispexec"setmsg msg(isrz000)"                                 
 return 0                                                             
                                                                     
LocDsn: Procedure                                                     
 trace off                                                           
 arg list ,mbr .                                                     
 do n=1 to words(list)                                               
   dsn=word(list,n)                                                   
   if sysdsn("'"dsn"("mbr")'")='OK' then return 'in' dsn             
 end                                                                 
 return 'library not located'                                         
                                                                     
ListTlibs: Procedure /* locate mbrname in library */                 
 trace off                                                           
 parse value '' with qpl qbl qll ltype                               
 address ispexec                                                     
 "qbaselib ISPPROF id(qpl)"                                           
 "qbaselib ISPTLIB id(qbl)"                                           
 "qlibdef  ISPTLIB id(qll) type(ltype)"                               
 if ltype='LIBRARY' then "qbaselib" qll "id(qll)"                     
 rtn=space(translate(qpl qll qbl," ","',"))                           
 do n=words(rtn) to 1 by -1                                           
   w=word(rtn,n)                                                     
   if left(w,3)='SYS' & substr(w,9,2)='.T' then rtn=delword(rtn,n,1) 
 end                                                                 
 return rtn                                                           
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Tue Dec 11, 2018 6:54 pm
Reply with quote

Thanks Much Enrico-Sorichetti and Willy Jensen for all your inputs and help. Right now I am trying to get in touch with the Mainframe Support Team but not yet get the hold of them . I saw the Tables defined in 3.9 Option and change the application id from ISR to ISP and saw all the tables and there actions DSLIST is there with the action which Willy suggested. I will update you all once i got the hold of Mainframe Admin/Support team with their inputs.

Thanks Again.

Sumit
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Dec 11, 2018 11:32 pm
Reply with quote

How are you starting ISPF? It normally starts with ISP applid, so you get the command table that you want, but I have vague memories that you can start it differently and get ISR applid.

fyi. I do not have access to mainframe anymore, so I cannot verify.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Dec 11, 2018 11:41 pm
Reply with quote

I just tried, command table ISPCMDS is used even when starting with applid ISR. FYI command PDF will start ISPF with applid ISR.
Back to top
View user's profile Send private message
thesumitk

Active User


Joined: 24 May 2013
Posts: 156
Location: INDIA

PostPosted: Wed Dec 12, 2018 8:15 pm
Reply with quote

Thanks Much to all for your help and Time , The reason was is that the Mainframe which I am using now is very old one and it has very old ISPFLOGON PROCS , With the help of Mainframe Support , I could use the DSLIST command in this old one as well but with TSO prefixed before it , so when I run TSO XXX.* then it was showing me all the Datasets but as a prompt message , Mainframe Support gave me a ISPF proc whihc I am using when I am login in to Mainframe and it actually overrides the old ISPFPROC with the one we are using . This solves my problem.

Thanks Much to all again .

Sumit
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 RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts LTJ command CA Products 4
No new posts PD not working for unsigned packed JO... DFSORT/ICETOOL 5
Search our Forums:

Back to Top