The assembler code would be great: [email protected]
On 3/10/20, 9:17 AM, "IBM Mainframe Discussion List on behalf of Tony Thigpen" <[email protected] on behalf of [email protected]> wrote: > EXTERNAL: Do not open attachments or click on links unless you recognize and > trust the sender. > >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" <[email protected] on behalf of [email protected]> 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 [email protected] with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> >> > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
