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
 
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: 6968
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: 4650
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 MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts Failure after DIR command Hank Watson All Other Mainframe Topics 2 Tue Aug 29, 2017 3:14 am
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm

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