Re: CAS9
I too use Dana's MPF2REXX code and use MPF for both auto-responses and
new commands, at least on my z/OS systems. I use TSSO on my OS/390
system. I really appreciate Dana's code. And the help she gave when I
went to use it.
Tony Thigpen
John McKown wrote on 3/11/20 7:45 AM:
On Tue, Mar 10, 2020 at 5:47 PM scott Ford wrote:
Tony,
Real nice code, I have been using VTAMAPPL that ships with z/OS..
I agree! A few years ago, we were told the z/OS system was going away (as
we are still told), and the PTBs decided to "save money" by eliminating
CA-OPS/MVS, much like the OP. I can't find where I got it, perhaps direct
from the author ( Dana Mitchell dmit...@shazam.net) , but I did the code
to MPF2REXX, which is an MPF exit (MPFLST?? member in the PARMLIB). It
allows you to run a System REXX program when a message is issued. An
example entry looks like:
ARC090E,USEREXIT(MPF2REXX),AUTO(ARC0903)
The author allowed me to put this code, with some changes, in my Git
repository: https://github.com/JohnArchieMckown/miscutil or directly to the
code at: https://github.com/JohnArchieMckown/miscutil/blob/master/MPF2REXX
Now, what is ironic, is that I am using this code despite it not having any
particular copyright statement in it at all. Which means it is
automatically copyrighted under the Internation Berne copyright.
https://www.wipo.int/treaties/en/ip/berne/ And, in itself, it doesn't give
me the right to do what what I am doing with it. GUILTY AS CHARGED!
The above REXX program looks like:
/* REXX
Message ID: ARC090E
indicate ARC0909E is being handled
Variables from MPF2REXX
MPF2REXXJOB- Name of job
MPF2REXXJID- JES id of job (e.g. JOB12345)
MPF2REXXSYS- Sysname of z/OS issuing message (E.g. LIH1)
MPF2REXXMSG.0 - Number of message lines
MPF2REXXMSG.x - Individual message line(s)
*/
rc=bpxwunix("touch ~/AutoVars/ARC0909E")
msgtext=""
do x=1 to mpf2rexxmsg.0
msgtext=msgtext||mpf2rexxmsg.x
end
if wordpos("OCDS JOURNAL",msgtext) <> 0
then CmdResult=AXRCMD("f dfhsm,backvol cds",'output.',0)
return
/* End of ARC090E message rule */
Scott
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CAS9
On Tue, Mar 10, 2020 at 5:47 PM scott Ford wrote:
> Tony,
>
> Real nice code, I have been using VTAMAPPL that ships with z/OS..
>
I agree! A few years ago, we were told the z/OS system was going away (as
we are still told), and the PTBs decided to "save money" by eliminating
CA-OPS/MVS, much like the OP. I can't find where I got it, perhaps direct
from the author ( Dana Mitchell dmit...@shazam.net) , but I did the code
to MPF2REXX, which is an MPF exit (MPFLST?? member in the PARMLIB). It
allows you to run a System REXX program when a message is issued. An
example entry looks like:
ARC090E,USEREXIT(MPF2REXX),AUTO(ARC0903)
The author allowed me to put this code, with some changes, in my Git
repository: https://github.com/JohnArchieMckown/miscutil or directly to the
code at: https://github.com/JohnArchieMckown/miscutil/blob/master/MPF2REXX
Now, what is ironic, is that I am using this code despite it not having any
particular copyright statement in it at all. Which means it is
automatically copyrighted under the Internation Berne copyright.
https://www.wipo.int/treaties/en/ip/berne/ And, in itself, it doesn't give
me the right to do what what I am doing with it. GUILTY AS CHARGED!
The above REXX program looks like:
/* REXX
Message ID: ARC090E
indicate ARC0909E is being handled
Variables from MPF2REXX
MPF2REXXJOB- Name of job
MPF2REXXJID- JES id of job (e.g. JOB12345)
MPF2REXXSYS- Sysname of z/OS issuing message (E.g. LIH1)
MPF2REXXMSG.0 - Number of message lines
MPF2REXXMSG.x - Individual message line(s)
*/
rc=bpxwunix("touch ~/AutoVars/ARC0909E")
msgtext=""
do x=1 to mpf2rexxmsg.0
msgtext=msgtext||mpf2rexxmsg.x
end
if wordpos("OCDS JOURNAL",msgtext) <> 0
then CmdResult=AXRCMD("f dfhsm,backvol cds",'output.',0)
return
/* End of ARC090E message rule */
>
> Scott
>
>
--
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
Re: CAS9
I was going to chip in earlier with my knowledge of VTAMAPPL, but got beaten to it. I've been using VTAMAPPL since working with multiple z/PDT systems, and then copying the module across to z/OS LPARs as required. I've got no idea where the source for VTAMAPPL is, nor of any documentation for it - adaptation of the examples available on z/PDT were sufficient for my purposes. It was only this thread that prompted me take a second look at the VTAMAPPL module, only to see a copyright notice 'eyecatcher'. That was enough for TPTB here to require removal of VTAMAPPL, and so I've changed over to using the COMMAND program that has been mentioned. Cutover took about half a day on my sandbox system - most of that time was taken up with reading the available doc, etc. One plus point for COMMAND over VTAMAPPL is that COMMAND can respond to console messages. With VTAMAPPL, I had created REXX execs to handle starting and stopping of my IMS region. Those execs are now redundant, and all the commands that are issued are held in single streams for system start and stop. Regards Sean On Wed, 11 Mar 2020 at 04:08, Brian Westerman wrote: > While our SyzCMD/z product it isn't free, it is very inexpensive, and it > has all of the capabilities of the products mentions as well as MANY more > features. > > http://www.syzygyinc.com/SyzCMDz.htm > > Brian Westerman > > -- > 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
While our SyzCMD/z product it isn't free, it is very inexpensive, and it has all of the capabilities of the products mentions as well as MANY more features. http://www.syzygyinc.com/SyzCMDz.htm Brian Westerman -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CAS9
Dave, let me look on the samplib in the AM On Tue, Mar 10, 2020 at 8:34 PM scott Ford wrote: > Good question I ran into on ADCD ... > > On Tue, Mar 10, 2020 at 6:51 PM Gibney, Dave wrote: > >> Where is VTAMAPPL in z/OS? And where is it documented? >> >> > -Original Message- >> > From: IBM Mainframe Discussion List On >> > Behalf Of scott Ford >> > Sent: Tuesday, March 10, 2020 3:46 PM >> > To: IBM-MAIN@LISTSERV.UA.EDU >> > Subject: Re: CAS9 >> > >> > Tony, >> > >> > Real nice code, I have been using VTAMAPPL that ships with z/OS.. >> > >> > Scott >> > >> > On Tue, Mar 10, 2020 at 11:21 AM Tony Thigpen >> > wrote: >> > >> > > I will post. Let me put some doc in it. >> > > >> > > 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" > > 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 >> > > >> 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 >>
Re: CAS9
Good question I ran into on ADCD ... On Tue, Mar 10, 2020 at 6:51 PM Gibney, Dave wrote: > Where is VTAMAPPL in z/OS? And where is it documented? > > > -Original Message- > > From: IBM Mainframe Discussion List On > > Behalf Of scott Ford > > Sent: Tuesday, March 10, 2020 3:46 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: CAS9 > > > > Tony, > > > > Real nice code, I have been using VTAMAPPL that ships with z/OS.. > > > > Scott > > > > On Tue, Mar 10, 2020 at 11:21 AM Tony Thigpen > > wrote: > > > > > I will post. Let me put some doc in it. > > > > > > 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" > 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 > > > >> 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 > > > >> WAITD
Re: CAS9
Where is VTAMAPPL in z/OS? And where is it documented? > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of scott Ford > Sent: Tuesday, March 10, 2020 3:46 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: CAS9 > > Tony, > > Real nice code, I have been using VTAMAPPL that ships with z/OS.. > > Scott > > On Tue, Mar 10, 2020 at 11:21 AM Tony Thigpen > wrote: > > > I will post. Let me put some doc in it. > > > > 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" 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 > > >> 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 > > >> WAITDOW
Re: CAS9
Tony, Real nice code, I have been using VTAMAPPL that ships with z/OS.. Scott On Tue, Mar 10, 2020 at 11:21 AM Tony Thigpen wrote: > I will post. Let me put some doc in it. > > 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
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,
Re: CAS9
I will post. Let me put some doc in it. 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
Re: CAS9
IBM has VTAMAPPL to do the job. seen this at some of my clients and have it on ADCD a well here. ITschak ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM comming son * On Tue, Mar 10, 2020 at 3:17 PM Tony Thigpen wrote: > 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
Re: CAS9
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
Re: CAS9
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
Re: CAS9
Thanks Mike Dean Nai On 3/10/20, 8:40 AM, "IBM Mainframe Discussion List on behalf of Mike Schwab" wrote: > EXTERNAL: Do not open attachments or click on links unless you recognize and > trust the sender. > >https://urldefense.com/v3/__http://www.bsp-gmbh.com/turnkey/cookbook/bsppilot.html__;!!Oai6dtTQULp8Sw!BiJFUuV5x9g5ZoeBVfbY0HoStyHHzi4C79eKW6_Eij9Ijs9rHJeISl6T5iwOFTKwe5qP$ > >CBTTAPE 249 file 33 is BSPPILOT. > >On Tue, Mar 10, 2020 at 7:21 AM Nai, Dean wrote: >> >> 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 > > > >-- >Mike A Schwab, Springfield IL USA >Where do Forest Rangers go to get away from it all? > >-- >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
http://www.bsp-gmbh.com/turnkey/cookbook/bsppilot.html CBTTAPE 249 file 33 is BSPPILOT. On Tue, Mar 10, 2020 at 7:21 AM Nai, Dean wrote: > > 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 -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CAS9
Check out CBTTAPE file 623. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Nai, Dean Sent: Tuesday, March 10, 2020 8:21 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: CAS9 This message was sent from an external source outside of Western & Southern's network. Do not click links or open attachments unless you recognize the sender and know the contents are safe. 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
