yuvaraj C
New User
Joined: 01 Jan 2008 Posts: 14 Location: IBM-India
|
|
|
|
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? |
|