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
