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
