PROC

//*-------------------------------------------------------------------*

//*     Sample Shutdown Proc

//*     Sample Proc only - Changes are required to run in your data center

//*     Verify all parameters with the appropriate vendor manual

//*-------------------------------------------------------------------*                       

/* Warn TSO users to logoff */

/*--------------------------------------------------------------------*/

F Tso,usermax=0 /* Don't allow anyone else to logon right

now! */

Send 'Please LOGOFF - TSO will be quiesced in 1 minute!!',all,now

Pause 30

/*--------------------------------------------------------------------*/

P TCPIP

Pause 30

P TSO

Pause 10

/*--------------------------------------------------------------------*

/* Usually we want to wait for Vtam to get started, but not now!

/*

/*--------------------------------------------------------------------*

Z NET,QUICK

/*--------------------------------------------------------------------*

P RMM

P RMF

P Lla

Pause 5

P VLF

F DLF,MODE=DRAIN

Pause 5

P DLF

Pause 10

$PI

W

$OQ,ALL,DAYS=7

$PQ,ALL,DAYS=7

#STOP

F BPXOINIT,SHUTDOWN=FORKINIT

Pause 10

$PJES2