Naw, not you John On Tue, Mar 10, 2020 at 5:40 PM John McKown <john.archie.mck...@gmail.com> wrote:
> 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 <t...@vse2pdf.com> 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: > > > dean....@doit.nh.gov > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > On 3/10/20, 9:17 AM, "IBM Mainframe Discussion List on behalf of Tony > > Thigpen" <IBM-MAIN@LISTSERV.UA.EDU on behalf of t...@vse2pdf.com> 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" <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 > > > > > > > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
