IBM has VTAMAPPL to do the job. seen this at some of my clients and have it on ADCD a well here.
ITschak ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM comming son * On Tue, Mar 10, 2020 at 3:17 PM Tony Thigpen <t...@vse2pdf.com> wrote: > I wrote a very small command processor that simple reads a script and > follows it for shutdown or IPL. I does have the ability to make sure a > product is fully down before continuing. The script is very simple. Here > is the script for shutdown: > > ASK YES REPLY 'YES' IF YOU WANT TO CONTINUE SHUTDOWN > * ? IS PREFIX FOR TSSO > OPCMD ?.RELOAD HUP1DN > PAUSE 010 > OPCMD F JQP,STATS > OPCMD P FFST > OPCMD VARY NET,INACT,ID=VDR,FORCE > OPCMD MODIFY DLF,MODE=QUIESCE > OPCMD P ENF > OPCMD $PI > PAUSE 010 > OPCMD D OMVS,A=ALL > OPCMD D OMVS,U=OMVSKERN > PAUSE 010 > OPCMD F OMVS,PPFS=ZFS > OPCMD $PLOGON1 > PAUSE 010 > OPCMD F BPXOINIT,SHUTDOWN=FORKS > PAUSE 010 > OPCMD F BPXOINIT,SHUTDOWN=FORKINIT > PAUSE 010 > OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS=XXXXXXXX > OPCMD0 F CICSPTE2,CEMT P SHUT > WAITDOWN 030 CICSPTE2 > OPCMD P CNDLINIT > OPCMD /DBR DB ALL > OPCMD #DBR DB ALL > PAUSE 015 > * / IS PREFIX FOR IMS PROD > OPCMD /CHE FREEZE > * # IS PREFIX FOR IMS DEVP > OPCMD #CHE FREEZE > WAITDOWN 010 DBCPDBRC > WAITDOWN 010 DBCPDLI > WAITDOWN 010 DBCPBC > WAITDOWN 010 DBCTDBRC > WAITDOWN 010 DBCTDLI > WAITDOWN 010 DBCTBC > OPCMD P RMM > OPCMD P DFSMSHSM > OPCMD P DSSUMON > OPCMD P JCLARCHP > PAUSE 010 > OPCMD P JCLARCH > OPCMD MODIFY JQP,SHUT > OPCMD P LLA > OPCMD %P > OPCMD MODIFY RMF,P III > OPCMD P SDSF > PAUSE 010 > OPCMD P LPSERVE > OPCMD P FTPD > OPCMD F ESF,PNET > OPCMD F ESF,SHUTDOWN > OPCMD P TSO > OPCMD P DLF > OPCMD P VLF > OPCMD P RMF > PAUSE 010 > OPCMD $P I > OPCMD $P LINE(1-10) > OPCMD C APPC > PAUSE 010 > OPCMD C LPSERVE > OPCMD C FTPD > PAUSE 010 > OPCMD %STOP > PAUSE 010 > OPCMD $E LINE(1-10) > WAITDOWN 010 APPC > WAITDOWN 010 CNDLINIT > WAITDOWN 010 DBCPDBC > WAITDOWN 010 DBCPDBRC > WAITDOWN 010 DBCPDLI > WAITDOWN 010 DBCTDBC > WAITDOWN 010 DBCTDBRC > WAITDOWN 010 DBCTDLI > WAITDOWN 010 DFSMSHSM > WAITDOWN 010 DLF > WAITDOWN 010 DSSUMON > WAITDOWN 010 ENF > WAITDOWN 010 EPWFFST > WAITDOWN 010 ESF > WAITDOWN 010 FTPD > WAITDOWN 010 JCLARCH > WAITDOWN 010 JCLARCHP > WAITDOWN 010 LLA > WAITDOWN 010 LPSERVE > WAITDOWN 010 RACF > WAITDOWN 010 RMF > WAITDOWN 010 RMFGAT > WAITDOWN 010 RMM > WAITDOWN 010 SDSF > WAITDOWN 010 TCPIP > WAITDOWN 010 TSO > WAITDOWN 010 VDR > WAITDOWN 010 VLF > OPCMD D A,L > * ? IS PREFIX FOR TSSO > OPCMD ?.P > OPCMD Z NET,QUICK > WAITDOWN 010 TSSO > WAITDOWN 010 NET > OPCMD $T U,ALL > OPCMD $P JES2 > PAUSE 010 > OPCMD $P JES2,QUICK > PAUSE 010 > WAITDOWN 010 JES2 > > I am able to share the basic assembler code. There is nothing fancy in it. > > Tony Thigpen > > Nai, Dean wrote on 3/10/20 8:20 AM: > > Currently we use CAS9 to start and stop everything during an IPL. CA > will be going away so I was wondering if anyone had thoughts on other cheap > or free products that will do that until we are off Z/OS. Maybe something > on the CBT tape? > > > > Dean Nai > > > > > > > > > > > > > > > > > > > > On 3/10/20, 7:56 AM, "IBM Mainframe Discussion List on behalf of Peter > Relson" <IBM-MAIN@LISTSERV.UA.EDU on behalf of rel...@us.ibm.com> wrote: > > > >> EXTERNAL: Do not open attachments or click on links unless you > recognize and trust the sender. > >> > >> Ah, the "return code 4" smoking gun. I'm with you now... > >> > >> Peter Relson > >> z/OS Core Technology Design > >> > >> > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
