Dave, let me look on the samplib in the AM On Tue, Mar 10, 2020 at 8:34 PM scott Ford <idfli...@gmail.com> wrote:
> Good question I ran into on ADCD ... > > On Tue, Mar 10, 2020 at 6:51 PM Gibney, Dave <gib...@wsu.edu> wrote: > >> Where is VTAMAPPL in z/OS? And where is it documented? >> >> > -----Original Message----- >> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> 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 <t...@vse2pdf.com> >> > 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" <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 >> > > >> > -- >> > Scott Ford >> > IDMWORKS >> > z/OS Development >> > >> > ---------------------------------------------------------------------- >> > 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 >> > -- > Scott Ford > IDMWORKS > z/OS Development > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
