/* Note, this profile is only run by any of the HTTPD service machines.
if SFS is unavailable
 
If SFS is available, the PROFILE EXEC there is run, which
ACC 191 A; Queue 'HTTPD2'
 
*/
trace o
address command
'CP SPOOL CONS TO SYSSPL START'
d4 = substr(userid(),1,5)
say 'PROFILE on' d4'''s 191'
 
If d4 = 'HTTPR' | d4 = 'HTTPF' Then do
  queue 'HTTPD2'
  exit
end /* httpr */
 
sfs = 0 /* 0 - SFS is unavailable */
'SET FILEPOOL NONE'
'QUERY SEARCH'
cmd = 'HTTPD'
If userid() = 'HTTPDT' Then cmd = cmd '81'
 
Say 'Starting web without SFS'
'CP MSG HARRY Starting web without SFS'
'CP SMSG PROPXA *'d4
'CP SLEEP 2 SEC'
 
/*
'EXEC PURWU'
'SET FILEPOOL ACADEM:'
*/
/*
'ACC HTTPD.CODE C/C' /* Server code */
'ACC EWEBADM.CODE C/C'
'ACC EWEBADM.RXSOCKET D'
*/
 
'CP LINK HTTPD 193 193 RR'   /* Get the modified WEBSHARE CODE */
'ACC 193 C/C'
 
'ACCESS 19F T'  /* do we need this ? */
 
If SFS Then do
  Say 'ACCESS' userid()'. X (FORCERW'
  'ACCESS' userid()'. X (FORCERW'
end
'EXEC TELNET (*NORUN'
'QUERY SEARCH'
'CP SET PF10' cmd
'CP TERM MORE 2 2'
'CP TERM HOLD OFF'
'CP SET RUN ON'
'CP SPOOL CONS TO SYSSPL CL T'
'CP SPOOL CONS START'
 
If sfs Then 'ACCESS HTTPD.COMMON W'
/*
'EXEC WLVINIT'
*/
 
'CONNECT'
if(RC=0) then do
  say 'to start:' cmd
  exit 99
end
'EXEC' cmd