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
 

 

How to use the TSO command 'STATUS' in CLIST?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
yuvaraj C

New User


Joined: 01 Jan 2008
Posts: 14
Location: IBM-India

PostPosted: Tue Jun 24, 2008 8:03 pm    Post subject: How to use the TSO command 'STATUS' in CLIST?
Reply with quote

Hi,

I have executed a CLIST program which is following below.

Code:

WRITE PLEASE SELECT ONE OF THE FOLLOWING OPTIONS                       
/*                                                                     
WRITE  1.FOR A SPECIFIC JOB                                             
WRITE  2.FORALL SERVERS AND DESPATCHERS                                 
/*                                                                     
/**********************************************************************
/*            GIVE THE OPTION WHICH YOU WANT TO DO                   */
/**********************************************************************
READ &OPTIONS                                                           
IF &OPTIONS=1 THEN +                                                   
 DO                                                                     
   WRITE *------------------------------------------------*             
   WRITE *           ENTER THE JOBNAME                    *             
   WRITE *------------------------------------------------*             
   READ &JOBNAME                                                       
   GOTO A1                                                             
 END                                                                   
 ELSE +                                                                 
   WRITE THE STATUSES OF THE SERVER AND DESPATCHER JOBS ARE FOLLOWS     
   GOTO A2                                                             
/*                                                                     
/**********************************************************************
/* CLIST TO KNOW THE STATUS OF THE JOBS                                 
/* THIS CLIST IS USED TO KNOW THE STATUS OF THE SERVERS AND DESPATCHER 
/* JOBS                                                                 
/**********************************************************************
/*                                                                     
/**********************************************************************
/* THE FOLLOWING PARAGRAPH IS USED TO DETERMINE THE STATUS OF A         
/* PARTICULAR SERVER OR DEPATCHER JOB                                   
/**********************************************************************
/*                                                                     
/**********************************************************************
/*  THE FOLLOWING WILL SHOW THE STATUS OF A SPECIFIC JOB WHICH HAS BEEN
/*  REQUESTED BY THE FROM THE TERMINAL                                 
/**********************************************************************
/*                                                                     
A1: TSO STATUS(&JOBNAME)                                               
    GOTO FINISH                                                         
/*                                                                     
/*                                                                     
/***********************************************************************
/* THE FOLLOWING WILL SHOW THE STATUS OF ALL SERVER JOBS FOR BOTH T2 AND
/* AND SERT ENVIRONMENT                                                 
/***********************************************************************
/*                                                                     
A2: TSO STATUS(ST02ORX1,ST02ORX2,ST02ORX3,ST02ORX4,ST02ORX5,ST02ORX6)   
    TSO STATUS(ST02ORX7)                                               
    TSO STATUS(T202ORX1,T202ORX2,T202ORX3,T202ORX4,T202ORX5,T202ORX6)   
    TSO STATUS(T202ORX7)                                               
/*                                                                     
/*                                                                     
    TSO STATUS(ST32ORX1,ST32ORX3,ST32ORX4,ST32ORX5,ST32ORX6,ST32ORXA)   
    TSO STATUS(ST32ORXB,ST32ORXC,ST32ORXD,ST32ORXE)                     
    TSO STATUS(T232ORX1,T232ORX3,T232ORX4,T232ORX5,T232ORX6,T232ORXA)   
    TSO STATUS(T232ORXB,T232ORXC,T232ORXD,T232ORXE)                     
/*                                                                     
/*                                                                     
    TSO STATUS(ST33ORXA,ST33ORXB,ST33ORXC,ST33ORXD,ST33ORXE,ST33ORXF)   
    TSO STATUS(ST33ORXG,ST33ORXH,ST33ORXI,ST33ORXJ,ST33ORX2,ST33ORX6)   
    TSO STATUS(ST36ORX2,ST36ORX3)                                       
    TSO STATUS(T233ORXA,T233ORXB,T233ORXC,T233ORXD,T233ORXE,T233ORXF)   
    TSO STATUS(T233ORXG,T233ORXH,T233ORXI,T233ORXJ,T233ORX2,T233ORX6)   
    TSO STATUS(T236ORX2,T236ORX3)                                       
/*                                                                     
/***********************************************************************
/* THE FOLLOWING WILL THE STATUS OF ALL DESPATCHER JOBS FOR BOTH T2 AND
/* CERT ENVIRONMENT                                                     
/***********************************************************************
/*                                                                     
/***********************************************************************
/*              DESPATCHERS FOR CERT ENVIRONMENT                       
/***********************************************************************
/*                                                                     
   TSO STATUS(ST02KE01,ST02KE02,ST02KE03,ST02KE04,ST32KE01,ST32KE02)   
   TSO STATUS(ST33KCA1,ST33KCA2,ST33KCC1,ST33KCC2,ST33KE01,ST33KE02)   
   TSO STATUS(ST33KE03,ST33KE04,ST33KN01,ST33KN02)                     
/*                                                                     
/***********************************************************************
/*              DESPATCHERS FOR T2 ENVIRONMENT                         
/***********************************************************************
/*                                                                     
   TSO STATUS(T202KE01,T202KE02,T202KE03,T202KE04,T232KE01,T232KE02)   
   TSO STATUS(T233KCA1,T233KCA2,T233KCC1,T233KCC2,T233KE01,T233KE02)   
   TSO STATUS(T233KE03,T233KE04,T233KN01,T233KN02)                     
   GOTO FINISH                                                         
/*                                                                     
/*                                                                     
FINISH: EXIT                 


When I tried to execute I got the error as "IKJ56479I COMMAND TSO NOT FOUND OR REXX IDENTIFIER IS MISSING+".

Can somebody help me on this?
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jun 24, 2008 8:16 pm    Post subject:
Reply with quote

ask your fellow IBM co-workers.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Jun 24, 2008 8:37 pm    Post subject: Reply to: How to use the TSO command 'STATUS' in CLIST?
Reply with quote

Haven't touched CLIST in a looong time, but I don't recall that TSO commands are required to actually use the keyword 'TSO' before them, since, as a CLIST, TSO is implied. I'd just take al of those out of the code.
Back to top
View user's profile Send private message
yuvaraj C

New User


Joined: 01 Jan 2008
Posts: 14
Location: IBM-India

PostPosted: Tue Jun 24, 2008 9:11 pm    Post subject: Reply to: How to use the TSO command 'STATUS' in CLIST?
Reply with quote

Hi,

I tried by removing the TSO from TSO STATUS command, it worked fine.

Thank You
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm
This topic is locked: you cannot edit posts or make replies. session stuck in TPX with status ACL amitc23 CA Products 1 Tue Dec 13, 2016 12:53 pm
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am


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