Good question I ran into on ADCD ... On Tue, Mar 10, 2020 at 6:51 PM Gibney, Dave <[email protected]> wrote:
> Where is VTAMAPPL in z/OS? And where is it documented? > > > -----Original Message----- > > From: IBM Mainframe Discussion List <[email protected]> On > > Behalf Of scott Ford > > Sent: Tuesday, March 10, 2020 3:46 PM > > To: [email protected] > > 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 <[email protected]> > > 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: > > > > [email protected] > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > On 3/10/20, 9:17 AM, "IBM Mainframe Discussion List on behalf of > > > > Tony > > > Thigpen" <[email protected] on behalf of > > [email protected]> wrote: > > > > > > > >> EXTERNAL: Do not open attachments or click on links unless you > > > recognize and trust the sender. > > > >> > > > >> I wrote a very small command processor that simple reads a script > > > >> and follows it for shutdown or IPL. I does have the ability to make > > > >> sure a product is fully down before continuing. The script is very > > > >> simple. Here is the script for shutdown: > > > >> > > > >> ASK YES REPLY 'YES' IF YOU WANT TO CONTINUE SHUTDOWN > > > >> * ? IS PREFIX FOR TSSO > > > >> OPCMD ?.RELOAD HUP1DN > > > >> PAUSE 010 > > > >> OPCMD F JQP,STATS > > > >> OPCMD P FFST > > > >> OPCMD VARY NET,INACT,ID=VDR,FORCE > > > >> OPCMD MODIFY DLF,MODE=QUIESCE > > > >> OPCMD P ENF > > > >> OPCMD $PI > > > >> PAUSE 010 > > > >> OPCMD D OMVS,A=ALL > > > >> OPCMD D OMVS,U=OMVSKERN > > > >> PAUSE 010 > > > >> OPCMD F OMVS,PPFS=ZFS > > > >> OPCMD $PLOGON1 > > > >> PAUSE 010 > > > >> OPCMD F BPXOINIT,SHUTDOWN=FORKS > > > >> PAUSE 010 > > > >> OPCMD F BPXOINIT,SHUTDOWN=FORKINIT > > > >> PAUSE 010 > > > >> OPCMD0 F CICSPTE2,CESN USERID=OPERACS,PS=XXXXXXXX > > > >> OPCMD0 F CICSPTE2,CEMT P SHUT > > > >> WAITDOWN 030 CICSPTE2 > > > >> OPCMD P CNDLINIT > > > >> OPCMD /DBR DB ALL > > > >> OPCMD #DBR DB ALL > > > >> PAUSE 015 > > > >> * / IS PREFIX FOR IMS PROD > > > >> OPCMD /CHE FREEZE > > > >> * # IS PREFIX FOR IMS DEVP > > > >> OPCMD #CHE FREEZE > > > >> WAITDOWN 010 DBCPDBRC > > > >> WAITDOWN 010 DBCPDLI > > > >> WAITDOWN 010 DBCPBC > > > >> WAITDOWN 010 DBCTDBRC > > > >> WAITDOWN 010 DBCTDLI > > > >> WAITDOWN 010 DBCTBC > > > >> OPCMD P RMM > > > >> OPCMD P DFSMSHSM > > > >> OPCMD P DSSUMON > > > >> OPCMD P JCLARCHP > > > >> PAUSE 010 > > > >> OPCMD P JCLARCH > > > >> OPCMD MODIFY JQP,SHUT > > > >> OPCMD P LLA > > > >> OPCMD %P > > > >> OPCMD MODIFY RMF,P III > > > >> OPCMD P SDSF > > > >> PAUSE 010 > > > >> OPCMD P LPSERVE > > > >> OPCMD P FTPD > > > >> OPCMD F ESF,PNET > > > >> OPCMD F ESF,SHUTDOWN > > > >> OPCMD P TSO > > > >> OPCMD P DLF > > > >> OPCMD P VLF > > > >> OPCMD P RMF > > > >> PAUSE 010 > > > >> OPCMD $P I > > > >> OPCMD $P LINE(1-10) > > > >> OPCMD C APPC > > > >> PAUSE 010 > > > >> OPCMD C LPSERVE > > > >> OPCMD C FTPD > > > >> PAUSE 010 > > > >> OPCMD %STOP > > > >> PAUSE 010 > > > >> OPCMD $E LINE(1-10) > > > >> WAITDOWN 010 APPC > > > >> WAITDOWN 010 CNDLINIT > > > >> WAITDOWN 010 DBCPDBC > > > >> WAITDOWN 010 DBCPDBRC > > > >> WAITDOWN 010 DBCPDLI > > > >> WAITDOWN 010 DBCTDBC > > > >> WAITDOWN 010 DBCTDBRC > > > >> WAITDOWN 010 DBCTDLI > > > >> WAITDOWN 010 DFSMSHSM > > > >> WAITDOWN 010 DLF > > > >> WAITDOWN 010 DSSUMON > > > >> WAITDOWN 010 ENF > > > >> WAITDOWN 010 EPWFFST > > > >> WAITDOWN 010 ESF > > > >> WAITDOWN 010 FTPD > > > >> WAITDOWN 010 JCLARCH > > > >> WAITDOWN 010 JCLARCHP > > > >> WAITDOWN 010 LLA > > > >> WAITDOWN 010 LPSERVE > > > >> WAITDOWN 010 RACF > > > >> WAITDOWN 010 RMF > > > >> WAITDOWN 010 RMFGAT > > > >> WAITDOWN 010 RMM > > > >> WAITDOWN 010 SDSF > > > >> WAITDOWN 010 TCPIP > > > >> WAITDOWN 010 TSO > > > >> WAITDOWN 010 VDR > > > >> WAITDOWN 010 VLF > > > >> OPCMD D A,L > > > >> * ? IS PREFIX FOR TSSO > > > >> OPCMD ?.P > > > >> OPCMD Z NET,QUICK > > > >> WAITDOWN 010 TSSO > > > >> WAITDOWN 010 NET > > > >> OPCMD $T U,ALL > > > >> OPCMD $P JES2 > > > >> PAUSE 010 > > > >> OPCMD $P JES2,QUICK > > > >> PAUSE 010 > > > >> WAITDOWN 010 JES2 > > > >> > > > >> I am able to share the basic assembler code. There is nothing fancy > > > >> in > > > it. > > > >> > > > >> Tony Thigpen > > > >> > > > >> Nai, Dean wrote on 3/10/20 8:20 AM: > > > >>> Currently we use CAS9 to start and stop everything during an IPL. > > > >>> CA > > > will be going away so I was wondering if anyone had thoughts on other > > > cheap or free products that will do that until we are off Z/OS. Maybe > > > something on the CBT tape? > > > >>> > > > >>> Dean Nai > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> > > > >>> On 3/10/20, 7:56 AM, "IBM Mainframe Discussion List on behalf of > > > >>> Peter > > > Relson" <[email protected] on behalf of > > [email protected]> wrote: > > > >>> > > > >>>> EXTERNAL: Do not open attachments or click on links unless you > > > recognize and trust the sender. > > > >>>> > > > >>>> Ah, the "return code 4" smoking gun. I'm with you now... > > > >>>> > > > >>>> Peter Relson > > > >>>> z/OS Core Technology Design > > > >>>> > > > >>>> > > > >>>> ----------------------------------------------------------------- > > > >>>> ----- For IBM-MAIN subscribe / signoff / archive access > > > >>>> instructions, send email to [email protected] with the > > > >>>> message: INFO > > > IBM-MAIN > > > >>> > > > >>> ------------------------------------------------------------------ > > > >>> ---- For IBM-MAIN subscribe / signoff / archive access > > > >>> instructions, send email to [email protected] with the > > > >>> message: INFO IBM-MAIN > > > >>> > > > >>> > > > >> > > > >> ------------------------------------------------------------------- > > > >> --- For IBM-MAIN subscribe / signoff / archive access instructions, > > > >> send email to [email protected] with the message: INFO > > > >> IBM-MAIN > > > > > > > > -------------------------------------------------------------------- > > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > > > send email to [email protected] with the message: INFO > > > > IBM-MAIN > > > > > > > > > > > > > > ---------------------------------------------------------------------- > > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > > email to [email protected] with the message: INFO IBM-MAIN > > > > > -- > > Scott Ford > > IDMWORKS > > z/OS Development > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to > > [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
