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 <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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
