Me being an idiot, is using this source a commercial business in compliance with this license? It might be covered by "NOT-FOR-PROFIT PURPOSES", but in a sense, it is FOR PROFIT if a commercial company uses it instead of a "for pay" product such as CA-OPS/MVS. I think this way because it decreases expenses and thus increases profit. And, yes, I am a weirdo.
* PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS SOFTWARE * AND ITS DOCUMENTATION FOR EDUCATIONAL, RESEARCH, AND NOT-FOR-PROFIT * PURPOSES, WITHOUT FEE AND WITHOUT A SIGNED LICENSING AGREEMENT, * IS HEREBY GRANTED, On Tue, Mar 10, 2020 at 11:17 AM Tony Thigpen <[email protected]> wrote: > See attached source. > > I purposefully kept it as simple as I could. I don't like complicated > stuff during IPL or shutdown. I also know that someone following me that > has to maintain the program would prefer that I did things simply. > > Tony Thigpen > > Nai, Dean wrote on 3/10/20 9:23 AM: > > 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 > > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- People in sleeping bags are the soft tacos of the bear world. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
