There is VTAMAPPL. We use that, it has PAUSE nn etc.
Use it to start all our STCs and put appropriate PAUSEs in the commands. Also used to automate shutdown. On Wed, Sep 9, 2009 at 2:03 AM, George Rodriguez<[email protected]> wrote: > Hi Listeners, > > > > Presently we use the following procedure (IVPRDR) to issue the start > command for the STCs. The PROC was originally from IPO1.PROCLIB and > here's it content: > > > > //IVPRDR PROC CLASS='X', DEFAULT SYSOUT CLASS IS A > > // M=DUMMY DEFAULT MEMBER IS BASE IVP JOBS > > //* LIB: IPO1.PROCLIB(IVPRDR) > > //* GDE: CBIPO MVS INSTALLATION > > //* DOC: THIS IPO PROCEDURE, WHEN STARTED WITH > > //* A MEMBER NAME (S IVPRDR,M=MEMBER), TAKES > > //* THE MEMBER FROM IPO1.IVPLIB AND SUBMITS > > //* THE JOB TO AN MVS INTERNAL READER. > > //* > > //IEFPROC EXEC PGM=IEBEDIT > > //SYSIN DD DUMMY > > //SYSPRINT DD SYSOUT=* > > //SYSUT1 DD DDNAME=IEFRDER > > //SYSUT2 DD SYSOUT=(&CLASS,INTRDR),DCB=BLKSIZE=80 > > //IEFRDER DD DSN=SYS2.IVPRDR.JCL(&M), > > // DISP=SHR > > > > The member name that we use is called STARTUP and what's in it follows: > > > > /*$SLGN(*) > > /*$SLNE(1442-1450) > > /*$VS,'V 3400-34FF,OFFLINE' > > /*$VS,'-DSNPSTART DB2' > > /*$VS,'-DSNQSTART DB2' > > /*$VS,'-DSNTSTART DB2' > > /*$VS,'-DWHPSTART DB2' > > /*$VS,'-DWHTSTART DB2' > > /*$VS,'S TCPIPMVS' > > /*$VS,'S ABENDAID' > > /*$VS,'S ADABASP' > > /*$VS,'S ADABAST' > > /*$VS,'S CAOMS' > > . > > . > > . > > /*$VS,'S XDSSPROC' > > /*$VS,'F RMF.RMF,S III' > > > > The only problem with this method is that I sometimes need a wait > between commands... Is there anyone else using this method? If not, are > you willing to share whatever you use? > > > > Thanks in advance... > > > > George Rodriguez > > Specialist, Systems Programmer > > Network & Technical Services > > (561) 357-7652 (office) > > (561) 707-3496 (mobile) > > School District of Palm Beach County > > 3348 Forest Hill Blvd. > > Room B-332 > > .West Palm Beach, FL. 33406-5869 > > Florida's Only A-Rated Urban District For Five Consecutive Years > > > > > > ---------------------------------------------------------- > --------------Palm Beach County Schools--------------------- > > Rated "A" by the Florida Department of Education 2005-2009 > > -----Home of Florida's first LEED Gold Certified School----- > -----------http://www.palmbeachschools.org------------- > > The District of Palm Beach County is an Equal Education Opportunity > Provider and Employer. Under Florida law, e-mail addresses are > public records. If you do not want your e-mail address released in > response to a public records request, do not send electronic mail > to this entity. Instead, contact this office by phone or in > writing. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
