Re: CAS9 - JOBZDOIT source
Normally, when I post code, the first response is "you did this wrong". This is the first time I got a copyright issue question. Did my code past the "picky programmers test" this time? :-) Tony Thigpen John McKown wrote on 3/10/20 5:39 PM: 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 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" 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 PAUSE010 OPCMDF JQP,STATS OPCMDP FFST OPCMDVARY NET,INACT,ID=VDR,FORCE OPCMDMODIFY DLF,MODE=QUIESCE OPCMDP ENF OPCMD$PI PAUSE010 OPCMDD OMVS,A=ALL OPCMDD OMVS,U=OMVSKERN PAUSE010 OPCMDF OMVS,PPFS=ZFS OPCMD$PLOGON1 PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKS PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKINIT PAUSE010 OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS= OPCMD0 F CICSPTE2,CEMT P SHUT WAITDOWN 030 CICSPTE2 OPCMDP CNDLINIT OPCMD/DBR DB ALL OPCMD#DBR DB ALL PAUSE015 * / 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 OPCMDP RMM OPCMDP DFSMSHSM OPCMDP DSSUMON OPCMDP JCLARCHP PAUSE010 OPCMDP JCLARCH OPCMDMODIFY JQP,SHUT OPCMDP LLA OPCMD%P OPCMDMODIFY RMF,P III OPCMDP SDSF PAUSE010 OPCMDP LPSERVE OPCMDP FTPD OPCMDF ESF,PNET OPCMDF ESF,SHUTDOWN OPCMDP TSO OPCMDP DLF OPCMDP VLF OPCMDP RMF PAUSE010 OPCMD$P I OPCMD$P LINE(1-10) OPCMDC APPC PAUSE010 OPCMDC LPSERVE OPCMDC FTPD PAUSE010 OPCMD%STOP PAUSE010 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 OPCMDD A,L * ? IS PREFIX FOR TSSO OPCMD?.P OPCMDZ NET,QUICK WAITDOWN 010 TSSO WAITDOWN 010 NET OPCMD$T U,ALL OPCMD$P JES2 PAUSE010 OPCMD$P JES2,QUICK PAUSE010 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" 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
Re: CAS9 - JOBZDOIT source
I plagiarized the UC Berkeley copyright. John, you are being picky. The not for profit relates to the transference of the code and has nothing to do with the company using the code. It means that you can not put this code in a commercial software product that is purchased or licensed by one party to another party. Tony Thigpen John McKown wrote on 3/10/20 5:39 PM: 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 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" 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 PAUSE010 OPCMDF JQP,STATS OPCMDP FFST OPCMDVARY NET,INACT,ID=VDR,FORCE OPCMDMODIFY DLF,MODE=QUIESCE OPCMDP ENF OPCMD$PI PAUSE010 OPCMDD OMVS,A=ALL OPCMDD OMVS,U=OMVSKERN PAUSE010 OPCMDF OMVS,PPFS=ZFS OPCMD$PLOGON1 PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKS PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKINIT PAUSE010 OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS= OPCMD0 F CICSPTE2,CEMT P SHUT WAITDOWN 030 CICSPTE2 OPCMDP CNDLINIT OPCMD/DBR DB ALL OPCMD#DBR DB ALL PAUSE015 * / 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 OPCMDP RMM OPCMDP DFSMSHSM OPCMDP DSSUMON OPCMDP JCLARCHP PAUSE010 OPCMDP JCLARCH OPCMDMODIFY JQP,SHUT OPCMDP LLA OPCMD%P OPCMDMODIFY RMF,P III OPCMDP SDSF PAUSE010 OPCMDP LPSERVE OPCMDP FTPD OPCMDF ESF,PNET OPCMDF ESF,SHUTDOWN OPCMDP TSO OPCMDP DLF OPCMDP VLF OPCMDP RMF PAUSE010 OPCMD$P I OPCMD$P LINE(1-10) OPCMDC APPC PAUSE010 OPCMDC LPSERVE OPCMDC FTPD PAUSE010 OPCMD%STOP PAUSE010 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 OPCMDD A,L * ? IS PREFIX FOR TSSO OPCMD?.P OPCMDZ NET,QUICK WAITDOWN 010 TSSO WAITDOWN 010 NET OPCMD$T U,ALL OPCMD$P JES2 PAUSE010 OPCMD$P JES2,QUICK PAUSE010 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" 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
Re: CAS9 - JOBZDOIT source
Naw, not you John On Tue, Mar 10, 2020 at 5:40 PM John McKown 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 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" 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 > > >> PAUSE010 > > >> OPCMDF JQP,STATS > > >> OPCMDP FFST > > >> OPCMDVARY NET,INACT,ID=VDR,FORCE > > >> OPCMDMODIFY DLF,MODE=QUIESCE > > >> OPCMDP ENF > > >> OPCMD$PI > > >> PAUSE010 > > >> OPCMDD OMVS,A=ALL > > >> OPCMDD OMVS,U=OMVSKERN > > >> PAUSE010 > > >> OPCMDF OMVS,PPFS=ZFS > > >> OPCMD$PLOGON1 > > >> PAUSE010 > > >> OPCMDF BPXOINIT,SHUTDOWN=FORKS > > >> PAUSE010 > > >> OPCMDF BPXOINIT,SHUTDOWN=FORKINIT > > >> PAUSE010 > > >> OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS= > > >> OPCMD0 F CICSPTE2,CEMT P SHUT > > >> WAITDOWN 030 CICSPTE2 > > >> OPCMDP CNDLINIT > > >> OPCMD/DBR DB ALL > > >> OPCMD#DBR DB ALL > > >> PAUSE015 > > >> * / 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 > > >> OPCMDP RMM > > >> OPCMDP DFSMSHSM > > >> OPCMDP DSSUMON > > >> OPCMDP JCLARCHP > > >> PAUSE010 > > >> OPCMDP JCLARCH > > >> OPCMDMODIFY JQP,SHUT > > >> OPCMDP LLA > > >> OPCMD%P > > >> OPCMDMODIFY RMF,P III > > >> OPCMDP SDSF > > >> PAUSE010 > > >> OPCMDP LPSERVE > > >> OPCMDP FTPD > > >> OPCMDF ESF,PNET > > >> OPCMDF ESF,SHUTDOWN > > >> OPCMDP TSO > > >> OPCMDP DLF > > >> OPCMDP VLF > > >> OPCMDP RMF > > >> PAUSE010 > > >> OPCMD$P I > > >> OPCMD$P LINE(1-10) > > >> OPCMDC APPC > > >> PAUSE010 > > >> OPCMDC LPSERVE > > >> OPCMDC FTPD > > >> PAUSE010 > > >> OPCMD%STOP > > >> PAUSE010 > > >> 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 > > >> OPCMDD A,L > > >> * ? IS PREFIX FOR TSSO > > >> OPCMD?.P > > >> OPCMDZ NET,QUICK > > >> WAITDOWN 010 TSSO > > >> WAITDOWN 010 NET > > >> OPCMD$T U,ALL > > >> OPCMD$P JES2 > > >> PAUSE010 > > >> OPCMD$P JES2,QUICK > > >> PAUSE010 > > >> 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
Re: CAS9 - JOBZDOIT source
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 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" 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 > >> PAUSE010 > >> OPCMDF JQP,STATS > >> OPCMDP FFST > >> OPCMDVARY NET,INACT,ID=VDR,FORCE > >> OPCMDMODIFY DLF,MODE=QUIESCE > >> OPCMDP ENF > >> OPCMD$PI > >> PAUSE010 > >> OPCMDD OMVS,A=ALL > >> OPCMDD OMVS,U=OMVSKERN > >> PAUSE010 > >> OPCMDF OMVS,PPFS=ZFS > >> OPCMD$PLOGON1 > >> PAUSE010 > >> OPCMDF BPXOINIT,SHUTDOWN=FORKS > >> PAUSE010 > >> OPCMDF BPXOINIT,SHUTDOWN=FORKINIT > >> PAUSE010 > >> OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS= > >> OPCMD0 F CICSPTE2,CEMT P SHUT > >> WAITDOWN 030 CICSPTE2 > >> OPCMDP CNDLINIT > >> OPCMD/DBR DB ALL > >> OPCMD#DBR DB ALL > >> PAUSE015 > >> * / 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 > >> OPCMDP RMM > >> OPCMDP DFSMSHSM > >> OPCMDP DSSUMON > >> OPCMDP JCLARCHP > >> PAUSE010 > >> OPCMDP JCLARCH > >> OPCMDMODIFY JQP,SHUT > >> OPCMDP LLA > >> OPCMD%P > >> OPCMDMODIFY RMF,P III > >> OPCMDP SDSF > >> PAUSE010 > >> OPCMDP LPSERVE > >> OPCMDP FTPD > >> OPCMDF ESF,PNET > >> OPCMDF ESF,SHUTDOWN > >> OPCMDP TSO > >> OPCMDP DLF > >> OPCMDP VLF > >> OPCMDP RMF > >> PAUSE010 > >> OPCMD$P I > >> OPCMD$P LINE(1-10) > >> OPCMDC APPC > >> PAUSE010 > >> OPCMDC LPSERVE > >> OPCMDC FTPD > >> PAUSE010 > >> OPCMD%STOP > >> PAUSE010 > >> 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 > >> OPCMDD A,L > >> * ? IS PREFIX FOR TSSO > >> OPCMD?.P > >> OPCMDZ NET,QUICK > >> WAITDOWN 010 TSSO > >> WAITDOWN 010 NET > >> OPCMD$T U,ALL > >> OPCMD$P JES2 > >> PAUSE010 > >> OPCMD$P JES2,QUICK > >> PAUSE010 > >> 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" 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
Re: CAS9 - JOBZDOIT source
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" 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 PAUSE010 OPCMDF JQP,STATS OPCMDP FFST OPCMDVARY NET,INACT,ID=VDR,FORCE OPCMDMODIFY DLF,MODE=QUIESCE OPCMDP ENF OPCMD$PI PAUSE010 OPCMDD OMVS,A=ALL OPCMDD OMVS,U=OMVSKERN PAUSE010 OPCMDF OMVS,PPFS=ZFS OPCMD$PLOGON1 PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKS PAUSE010 OPCMDF BPXOINIT,SHUTDOWN=FORKINIT PAUSE010 OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS= OPCMD0 F CICSPTE2,CEMT P SHUT WAITDOWN 030 CICSPTE2 OPCMDP CNDLINIT OPCMD/DBR DB ALL OPCMD#DBR DB ALL PAUSE015 * / 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 OPCMDP RMM OPCMDP DFSMSHSM OPCMDP DSSUMON OPCMDP JCLARCHP PAUSE010 OPCMDP JCLARCH OPCMDMODIFY JQP,SHUT OPCMDP LLA OPCMD%P OPCMDMODIFY RMF,P III OPCMDP SDSF PAUSE010 OPCMDP LPSERVE OPCMDP FTPD OPCMDF ESF,PNET OPCMDF ESF,SHUTDOWN OPCMDP TSO OPCMDP DLF OPCMDP VLF OPCMDP RMF PAUSE010 OPCMD$P I OPCMD$P LINE(1-10) OPCMDC APPC PAUSE010 OPCMDC LPSERVE OPCMDC FTPD PAUSE010 OPCMD%STOP PAUSE010 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 OPCMDD A,L * ? IS PREFIX FOR TSSO OPCMD?.P OPCMDZ NET,QUICK WAITDOWN 010 TSSO WAITDOWN 010 NET OPCMD$T U,ALL OPCMD$P JES2 PAUSE010 OPCMD$P JES2,QUICK PAUSE010 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" 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 TITLE 'JOBZDOIT - PROCESS A PARMLIB SCRIPT' * * AUTHOR: TONY THIGPEN * THIPGEN ENTERPRISES, INC. * WINTER HAVEN, FL * 407-474-0770 * t...@thigpens.com * * DATE: 03/18/2018 * * COPYRIGHT 2018-2020 TONY THIGPEN. ALL RIGHTS RESERVERD. * * PERMISSION TO USE, COPY, MODIFY,
