Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
DSLIST Command is not working

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
thesumitk

Active User


Joined: 24 May 2013
Posts: 137
Location: INDIA

PostPosted: Mon Dec 10, 2018 8:10 pm    Post subject: DSLIST Command is not working
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: 696
Location: The Universe

PostPosted: Mon Dec 10, 2018 8:29 pm    Post subject:
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

Senior Member


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

PostPosted: Tue Dec 11, 2018 1:11 am    Post subject: Reply to: DSLIST Command is not working
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: 137
Location: INDIA

PostPosted: Tue Dec 11, 2018 1:39 pm    Post subject: Re: Reply to: DSLIST Command is not working
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: 137
Location: INDIA

PostPosted: Tue Dec 11, 2018 1:41 pm    Post subject:
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 User


Joined: 01 Sep 2015
Posts: 257
Location: Denmark

PostPosted: Tue Dec 11, 2018 2:46 pm    Post subject:
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: 137
Location: INDIA

PostPosted: Tue Dec 11, 2018 2:55 pm    Post subject:
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 User


Joined: 01 Sep 2015
Posts: 257
Location: Denmark

PostPosted: Tue Dec 11, 2018 2:59 pm    Post subject:
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: 137
Location: INDIA

PostPosted: Tue Dec 11, 2018 3:03 pm    Post subject:
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

Senior Member


Joined: 14 Mar 2007
Posts: 10552
Location: italy

PostPosted: Tue Dec 11, 2018 3:52 pm    Post subject: Reply to: DSLIST Command is not working
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 User


Joined: 01 Sep 2015
Posts: 257
Location: Denmark

PostPosted: Tue Dec 11, 2018 6:48 pm    Post subject:
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: 137
Location: INDIA

PostPosted: Tue Dec 11, 2018 6:54 pm    Post subject:
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

Senior Member


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

PostPosted: Tue Dec 11, 2018 11:32 pm    Post subject: Reply to: DSLIST Command is not working
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 User


Joined: 01 Sep 2015
Posts: 257
Location: Denmark

PostPosted: Tue Dec 11, 2018 11:41 pm    Post subject:
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: 137
Location: INDIA

PostPosted: Wed Dec 12, 2018 8:15 pm    Post subject:
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    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
No new posts Using SPUFI with DISTINCT and MAX is ... Time2Live DB2 8 Fri Nov 30, 2018 6:24 am
No new posts Query regarding STOP REGION XX ABDU... ashek15 IMS DB/DC 11 Fri Oct 19, 2018 10:13 am
No new posts IBM's FTP not working with TLS encryp... sathyajes TSO/ISPF 10 Tue Aug 21, 2018 1:37 pm
No new posts SDSF - SJ command not working properly mistah kurtz IBM Tools 5 Tue Jun 26, 2018 2:33 pm
No new posts Need help on TDQ load from file using... subratarec CICS 4 Wed Jun 13, 2018 11:32 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us