I'll have to search my LINKLIST, when we ran a FLEX it came from the ADCD libs.
I'll get back unless other posters know the origin. On Fri, Sep 11, 2009 at 6:32 AM, Mark Pace <mpac...@gmail.com> wrote: > I can't seem to find VTAMAPPL. Where is this program located? > > On Wed, Sep 9, 2009 at 12:08 AM, Wayne Bickerdike <wayn...@gmail.com> wrote: > >> 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<rodrigu...@palmbeach.k12.fl.us> 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >> Search the archives at http://bama.ua.edu/archives/ibm-main.html >> > > > > -- > Mark Pace > Mainline Information Systems > 1700 Summit Lake Drive > Tallahassee, FL. 32317 > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
