MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Rexx code help
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA
PostPosted: Thu Nov 06, 2003 1:08 am    Post subject: Reply with quote
Hi Mike,

I tried the code related to LISTA. I have a question here, does it pick datasets allocated through a job? To me it looks it doesn't but wanted to confirm.

Thanks,
Diba.
Back to top
View user's profile Send private message Send e-mail
Mike
Beginner


Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia
PostPosted: Tue Nov 18, 2003 8:00 pm    Post subject: Reply with quote
LISTA is a standard TSO command, that simply lists the datasets allocated to the task/session/job in whihc it is invoked. The code above doesn't invoke any batch jobs.

You can do TSO LISTA from the command line, TSO LISTA ST lists the allocations including the DDNAME, however it's not in the easisest format to then programatically process.

I hope this answers you question.
_________________
Regards,
Mike.
Back to top
View user's profile Send private message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA
PostPosted: Mon Nov 24, 2003 4:02 am    Post subject: Reply with quote
Sorry for delay.

What I did was run a job JOB1234 which will allocate files FILEZERO, FILEONE, and FILETWO.

Now while the JOB1234 was running I did 'TSO LISTA ' from command line but it didn't pick any of the above FILEs.

Thanks,
Diba.
Back to top
View user's profile Send private message Send e-mail
Mike
Beginner


Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia
PostPosted: Mon Nov 24, 2003 4:56 pm    Post subject: Reply with quote
Dibkar,
it works fine for me, two seperate ways, one with LISTA ST encoded as the command line, the other by invoking it from a program. Here's the JCL, program and the output from my tests. Perhaps you are somehow supressing the output that is sent to SYSTSPRT.

Invoking the LIST command from a command in the input stream :-

The JCL
Code:

//DMI021AH JOB UD228542026,'MITRE ARCH',CLASS=A,                       
//             MSGCLASS=X,NOTIFY=&SYSUID                               
//*--------------------------------------------------------------------
//ST1     EXEC PGM=IKJEFT01,REGION=4M                                   
//SYSPROC  DD DISP=SHR,DSN=SYSAROC.WORK.CMDPROC                         
//SYSEXEC  DD DISP=SHR,DSN=DMI021.USER.EXEC                             
//SYSTSPRT DD SYSOUT=*                                                 
//TEMPDS   DD UNIT=SYSDA,SPACE=(TRK,(1)),DISP=(,PASS)                   
//SYSTSIN  DD *                                                         
 LISTA ST                                                               
//*--------------------------------------------------------------------


The Output
Code:

READY                                                   
 LISTA ST                                               
--DDNAME---DISP--                                       
SYSAROC.WORK.CMDPROC                                     
  SYSPROC  KEEP                                         
DMI021.USER.EXEC                                         
  SYSEXEC  KEEP                                         
DMI021.DMI021AH.JOB12008.D0000102.?                     
  SYSTSPRT DELETE                                       
DMI021.DMI021AH.JOB12008.D0000101.?                     
  SYSTSIN  DELETE                                       
READY                                                   
END                                                     


Invoking the LISTA command via a program :-

The JCL

Code:

//DMI021AH JOB UD228542026,'MITRE ARCH',CLASS=A,                       
//             MSGCLASS=X,NOTIFY=&SYSUID                               
//*--------------------------------------------------------------------
//ST1     EXEC PGM=IKJEFT01,REGION=4M                                   
//SYSPROC  DD DISP=SHR,DSN=SYSAROC.WORK.CMDPROC                         
//SYSEXEC  DD DISP=SHR,DSN=DMI021.USER.EXEC                             
//SYSTSPRT DD SYSOUT=*                                                 
//TEMPDS   DD UNIT=SYSDA,SPACE=(TRK,(1)),DISP=(,PASS)                   
//SYSTSIN  DD *                                                         
 PROB0029                                                               
//*--------------------------------------------------------------------


The PROB0029 program
Code:

ADDRESS TSO "LISTA ST"       


The Output

Code:

READY                                   
 PROB0029                               
--DDNAME---DISP--                       
SYSAROC.WORK.CMDPROC                     
  SYSPROC  KEEP                         
DMI021.USER.EXEC                         
  SYSEXEC  KEEP                         
DMI021.DMI021AH.JOB11997.D0000102.?     
  SYSTSPRT DELETE                       
DMI021.DMI021AH.JOB11997.D0000101.?     
  SYSTSIN  DELETE                       
READY                                   
END                                     

_________________
Regards,
Mike.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group