-*
-*IBI Summit 2001 Focus Code For Managing Web Content with HTML/XML
-*Bob Hughes and Laura Voss-Allen, California State University, Hayward
-*http://www.csuhayward.edu/FOCUS
-*Contact: Bob Hughes, rhughes@csuhayward.edu for related support files
-*
SET MSG=ON                                                                      
SET PANEL=200                                                                   
-DEFAULT &ENVQUAL='BPROD'                                                       
DYNAM FREE DD INTSTRPT MASTER                                                   
DYNAM DELETE &ENVQUAL...INTSTRPT.HTML                                           
-RUN                                                                            
DYNAM ALLOC DD MASTER DSN &ENVQUAL...FOCLIB.DBA.PARTS SHR                       
DYNAM ALLOC DD INTSTRPT DSN &ENVQUAL...INTSTRPT.HTML -                          
 SPACE 2,1 TRACKS RECFM FB LRECL 80 BLKSIZE 1760 NEW UNIT BWORK                 
SET TRMOUT=OFF                                                                  
DYNAM FREE DD PRMREC                                                            
DYNAM FREE DD PRMCRS                                                            
DYNAM FREE DD PRMCRD                                                            
DYNAM FREE DD PRMCIN                                                            
DYNAM FREE DD PRMADM                                                            
DYNAM FREE DD PRMFIN                                                            
DYNAM FREE DD PRMBIL                                                            
DYNAM FREE DD PRMFAC                                                            
DYNAM FREE DD PRMXDF                                                            
DYNAM FREE DD PRMADD                                                            
DYNAM FREE DD PRMFAC                                                            
DYNAM FREE DD PRMTRM                                                            
DYNAM FREE DD PRMTRR                                                            
DYNAM FREE DD PRMRER                                                            
DYNAM FREE DD PRMRLF                                                            
DYNAM FREE DD PRMTRM59                                                          
DYNAM FREE DD PRMTRM91                                                          
DYNAM FREE DD PRMTRM94                                                          
DYNAM FREE DD PRMTRM97                                                          
DYNAM FREE DD PRMTRMAL                                                          
                                                                                
DYNAM ALLOC DD PRMRER DSN &ENVQUAL...FOCINT.FOCP.PRMRER SHR                     
DYNAM ALLOC DD PRMREC DSN &ENVQUAL...FOCINT.FOCP.PRMREC SHR                     
DYNAM ALLOC DD PRMCRS DSN &ENVQUAL...FOCINT.FOCP.PRMCRS SHR                     
DYNAM ALLOC DD PRMCRD DSN &ENVQUAL...FOCINT.FOCP.PRMCRD SHR                     
DYNAM ALLOC DD PRMCIN DSN &ENVQUAL...FOCINT.FOCP.PRMCIN SHR                     
DYNAM ALLOC DD PRMADM DSN &ENVQUAL...FOCINT.FOCP.PRMADM SHR                     
DYNAM ALLOC DD PRMFIN DSN &ENVQUAL...FOCINT.FOCP.PRMFIN SHR                     
DYNAM ALLOC DD PRMBIL DSN &ENVQUAL...FOCINT.FOCP.PRMBIL SHR                     
DYNAM ALLOC DD PRMFAC DSN &ENVQUAL...FOCINT.FOCP.PRMFAC SHR                     
DYNAM ALLOC DD PRMXDF DSN &ENVQUAL...FOCINT.FOCP.PRMXDF SHR                     
DYNAM ALLOC DD PRMADD DSN &ENVQUAL...FOCINT.FOCP.PRMADD SHR                     
DYNAM ALLOC DD PRMTRM DSN &ENVQUAL...FOCINT.FOCP.PRMTRM SHR                     
DYNAM ALLOC DD PRMTRR DSN &ENVQUAL...FOCINT.FOCP.PRMTRR SHR                     
DYNAM ALLOC DD PRMRLF DSN &ENVQUAL...FOCINT.FOCP.PRMRLF SHR                     
DYNAM ALLOC DD PRMTRM59 DSN &ENVQUAL...FOCINT.FOCP.PRMTRM59 SHR                 
DYNAM ALLOC DD PRMTRM91 DSN &ENVQUAL...FOCINT.FOCP.PRMTRM91 SHR                 
DYNAM ALLOC DD PRMTRM94 DSN &ENVQUAL...FOCINT.FOCP.PRMTRM94 SHR                 
DYNAM ALLOC DD PRMTRM97 DSN &ENVQUAL...FOCINT.FOCP.PRMTRM97 SHR                 
DYNAM ALLOC DD PRMTRMAL DSN &ENVQUAL...FOCINT.FOCP.PRMTRMAL SHR                 
                                                                                
USE ADD                                                                         
PRMREC AS INTPARMS                                                              
PRMCRS AS INTPARMS                                                              
PRMCRD AS INTPARMS                                                              
PRMCIN AS INTPARMS                                                              
PRMADM AS INTPARMS                                                              
PRMFIN AS INTPARMS                                                              
PRMBIL AS INTPARMS                                                              
PRMFAC AS INTPARMS                                                              
PRMXDF AS INTPARMS                                                              
PRMADD AS INTPARMS                                                              
PRMTRM AS INTPARMS                                                              
PRMTRR AS INTPARMS                                                              
PRMRER AS INTPARMS                                                              
PRMRLF AS INTPARMS                                                              
PRMTRM59 AS INTPARMS                                                            
PRMTRM91 AS INTPARMS                                                            
PRMTRM94 AS INTPARMS                                                            
PRMTRM97 AS INTPARMS                                                            
PRMTRMAL AS INTPARMS                                                            
END                                                                             
-RUN                                                                            
SET TRMOUT=ON                                                                   
SET MSG=ON                                                                      
-RUN                                                                            
                                                                                
DEFINE FILE INTPARMS                                                            
AM_PM/A4=IF (CONVERT_TIM GE 000000 AND CONVERT_TIM LT 120000)                   
                       THEN 'A.M.' ELSE 'P.M.';                                 
DESCRIP1/A40=IF SIS_FILE EQ 'RECORD' THEN 'Rec Profile Data Mart Partition'     
       ELSE IF SIS_FILE EQ 'RECPRE' THEN 'Current Term Rec Data Mart Partition' 
       ELSE IF SIS_FILE EQ 'RLFILE' THEN 'Credential Status'                    
       ELSE IF SIS_FILE EQ 'CRSESECT' THEN 'Course Section'                     
       ELSE IF SIS_FILE EQ 'CRDEMAND' THEN 'Course Demand'                      
       ELSE IF SIS_FILE EQ 'CINVEN' THEN 'Course Inventory'                     
       ELSE IF SIS_FILE EQ 'ADM' THEN 'Admissions'                              
       ELSE IF SIS_FILE EQ 'FINAID' THEN 'Financial Aid'                        
       ELSE IF SIS_FILE EQ 'BILL' THEN 'Billing';                               
DESCRIP/A40=IF SIS_FILE EQ 'FACULTY' THEN 'Faculty'                             
 ELSE IF SIS_FILE EQ 'TERM59' THEN 'Term 1959-1990 Data Mart Partition'         
 ELSE IF SIS_FILE EQ 'TERM91' THEN 'Term 1991-1993 Data Mart Partition'         
 ELSE IF SIS_FILE EQ 'TERM94' THEN 'Term 1994-1996 Data Mart Partition'         
 ELSE IF SIS_FILE EQ 'TERM97' THEN 'Term 1997-1999 Data Mart Partition'         
ELSE IF SIS_FILE EQ 'TERMALL' THEN 'Term 1959-Present Data Mart Partition'      
 ELSE IF SIS_FILE EQ 'TERM2000' THEN 'Term 2000-2003 Data Mart Partition'       
 ELSE IF SIS_FILE EQ 'TERMPRE' THEN 'Current Term Data Mart Partition'          
 ELSE IF SIS_FILE EQ 'ADDTABLE' THEN 'Inst Address Table'                       
     ELSE IF SIS_FILE EQ 'XDFOCUS' THEN 'Long Code Table' ELSE DESCRIP1;        
CRIT_FLAG/A1='';                                                                
-*CRIT_FLAG/A1=IF SIS_FILE EQ 'RECORD' OR 'CRSESECT' OR 'ADM'                   
-*                       OR 'FINAID' OR 'BILL' THEN '*' ELSE ' ';               
SISFILEL/A8=LOCASE(8,SIS_FILE,SISFILEL);                                        
FLAG_DD/A9=CRIT_FLAG | SIS_FILE;                                                
RFIRST_PERIOD/A7=IF FLAG_DD CONTAINS 'TERM' OR 'ADM' OR 'FIN'                   
      OR 'CRD' OR 'CRS' THEN FST ELSE 'N/A' ;                                   
RLAST_PERIOD/A7=IF FLAG_DD CONTAINS 'TERM' OR 'ADM' OR 'FIN'                    
      OR 'CRD' OR 'CRS' THEN LST ELSE 'N/A' ;                                   
DAT_EXTRACTC/MDYY=DAT_EXTRACT ;                                                 
DAT_UPDATEC/MDYY=DAT_UPDATE ;                                                   
ENVIROA/A5='&ENVQUAL' ;                                                         
ENVIRO/A20=IF ENVIROA EQ 'BPROD' THEN 'Production' ELSE 'Test' ;                
MAILTODBA/A60=                                                                  
'<a href="mailto:focusdba@csuhayward.edu">CSUH FOCUS DBA</a>';                  
IHIST1/A70=                                                                     
'<a href="http://www.csuhayward.edu/FOCUS/sailfoc/x' | SISFILEL || '.html">';   
IHIST2/A40=                                                                     
SIS_FILE | ' Update History</a>';                                               
SFHOME/A70=                                                                     
'<a href="http://www.csuhayward.edu/FOCUS/indexf.htm">Home</a>';                
SFTOOLS/A80=                                                                    
'<a href="http://www.csuhayward.edu/FOCUS/sailfoc/sftools.htm">Toolkit</a>';    
PRODRPT/A70=                                                                    
'<a href="INTSTRPT.html">Production Environment Report</a>';                    
TESTRPT/A70=                                                                    
'<a href="intstatt.html">Test Environment Report</a>';                          
-*TIM_UPDR/A8= EDIT(TIM_UPD,'99$') | '.' | EDIT(TIM_UPD,'$$$99$') | '.'         
-*             | EDIT(TIM_UPD,'$$$$$$99');                                      
HTMLTAG1/A6 WITH SIS_FILE ='<HTML>';                                            
HTMLTAG2/A7 WITH SIS_FILE ='</HTML>';                                           
BODYTAG1/A25 WITH SIS_FILE ='<BODY BGCOLOR="#FFFFE0">';                         
BODYTAG2/A7 WITH SIS_FILE ='</BODY>';                                           
HEADTAG1/A9 WITH SIS_FILE ='<HEADING>';                                         
HEADTAG2/A10 WITH SIS_FILE ='</HEADING>';                                       
TITLTAG1/A7 WITH SIS_FILE ='<TITLE>';                                           
TITLTAG2/A8 WITH SIS_FILE ='</TITLE>';                                          
PRETAG1/A6 WITH SIS_FILE ='<PRE>';                                              
PRETAG2/A7 WITH SIS_FILE ='</PRE>';                                             
HRTAG1/A4 WITH SIS_FILE = '<HR>' ;                                              
TABLETAG1/A7 WITH SIS_FILE = '<TABLE ' ;                                        
TABLETAG2/A8 WITH SIS_FILE = '</TABLE>' ;                                       
TRTAG1C/A17 WITH SIS_FILE = '<TR ALIGN=CENTER>' ;                               
TRTAG2/A5 WITH SIS_FILE = '</TR>' ;                                             
TDTAG0/A4 WITH SIS_FILE = '<TD' ;                                               
TDTAG1/A4 WITH SIS_FILE = '<TD>' ;                                              
TDTAG2/A5 WITH SIS_FILE = '</TD>' ;                                             
BRTAG/A4 WITH SIS_FILE = '<BR>' ;                                               
PTAG/A3 WITH SIS_FILE = '<P>' ;                                                 
CENTERTAG1/A8 WITH SIS_FILE = '<CENTER>' ;                                      
CENTERTAG2/A9 WITH SIS_FILE = '</CENTER>' ;                                     
BOLDTAG1/A3 WITH SIS_FILE = '<B>' ;                                             
BOLDTAG2/A4 WITH SIS_FILE = '</B>' ;                                            
FONTTAG1/A6 WITH SIS_FILE = '<FONT ';                                           
FONTTAG2/A7 WITH SIS_FILE = '</FONT>';                                          
BGCLR_CCFFCC/A17 WITH SIS_FILE = 'BGCOLOR="#CCFFCC"';                           
BGCLR_C9C7AA/A17 WITH SIS_FILE = 'BGCOLOR="#C9C7AA"';                           
BGCLR_B7CEEC/A17 WITH SIS_FILE = 'BGCOLOR="#B7CEEC"';                           
BGCLR_3EA99F/A17 WITH SIS_FILE = 'BGCOLOR="#3EA99F"';                           
BGCLR_LTSBL4/A17 WITH SIS_FILE = 'BGCOLOR="#646D7E"';                           
BGCLR_9AADC7/A17 WITH SIS_FILE = 'BGCOLOR="#9AADC7"';                           
BGCLR_B4CFEC/A17 WITH SIS_FILE = 'BGCOLOR="#B4CFEC"';                           
BGCLR_C8C4C2/A17 WITH SIS_FILE = 'BGCOLOR="#C8C4C2"';                           
BGCLR_C6DEFF/A17 WITH SIS_FILE = 'BGCOLOR="#C6DEFF"';                           
BGCLR_DKSEG4/A17 WITH SIS_FILE = 'BGCOLOR="#617C58"';                           
BGCLR_DKSEG3/A17 WITH SIS_FILE = 'BGCOLOR="#99C68E"';                           
BGCLR_DKSEG2/A17 WITH SIS_FILE = 'BGCOLOR="#B5EAAA"';                           
BGCLR_DKSEG1/A17 WITH SIS_FILE = 'BGCOLOR="#C3FDB8"';                           
BGCLR_DKTURQ/A17 WITH SIS_FILE = 'BGCOLOR="#3B9C9C"';                           
CLR_DARKRED/A15 WITH SIS_FILE = 'COLOR="darkred"';                              
CLR_2B547E/A15 WITH SIS_FILE = 'COLOR="#2B547E"';                               
CLR_CCFFCC/A15 WITH SIS_FILE = 'COLOR="#CCFFCC"';                               
CLR_007700/A15 WITH SIS_FILE = 'COLOR="#007700"';                               
CLR_000000/A15 WITH SIS_FILE = 'COLOR="#000000"';                               
CLR_C9C7AA/A15 WITH SIS_FILE = 'COLOR="#C9C7AA"';                               
                                                                                
BORDER0/A8 WITH SIS_FILE = 'BORDER=0';                                          
BORDER1/A8 WITH SIS_FILE = 'BORDER=1';                                          
ALIGNC/A12 WITH SIS_FILE = 'ALIGN=CENTER';                                      
ALIGNL/A12 WITH SIS_FILE = 'ALIGN=LEFT';                                        
ALIGNR/A12 WITH SIS_FILE = 'ALIGN=RIGHT';                                       
WIDTH60/A9 WITH SIS_FILE = 'WIDTH=60%';                                         
                                                                                
WIDTH70/A9 WITH SIS_FILE = 'WIDTH=70%';                                         
WIDTH80/A9 WITH SIS_FILE = 'WIDTH=80%';                                         
WIDTH90/A9 WITH SIS_FILE = 'WIDTH=90%';                                         
WIDTH100/A10 WITH SIS_FILE = 'WIDTH=100%';                                      
SIZE1DOWN/A7 WITH SIS_FILE = 'SIZE=-1';                                         
SIZE0/A6 WITH SIS_FILE = 'SIZE=';                                               
SIZE1/A7 WITH SIS_FILE = 'SIZE=1';                                              
SIZE1UP/A7 WITH SIS_FILE = 'SIZE=+1';                                           
SIZE2UP/A7 WITH SIS_FILE = 'SIZE=+2';                                           
                                                                                
SIZE3UP/A7 WITH SIS_FILE = 'SIZE=+3';                                           
CLOSETAG/A1 WITH SIS_FILE = '>';                                                
CLOSEHREF/A4 WITH SIS_FILE = '</A>';                                            
RELDATEC/MDYY=RELDATE;                                                          
 HOMELINK1/A42=                                                                 
'<a href="http://www.csuhayward.edu/FOCUS">';                                   
HOMEGIF1/A43='<IMG SRC="csuhwa2.gif" ALIGN=LEFT BORDER=0>';                     
HOMELINK/A98= HOMELINK1 || HOMEGIF || CLOSEHREF ;                               
END                                                                             
                                                                                
TABLE FILE INTPARMS                                                             
PRINT TRTAG1C AS ''                                                             
 TDTAG0 AS '' BGCLR_9AADC7 AS '' CLOSETAG AS ''                                 
OVER                                                                            
 IHIST1 AS ''                                                                   
 FLAG_DD AS ''  CLOSEHREF AS ''                                                 
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG3 AS '' CLOSETAG AS ''                                 
 RFIRST_PERIOD AS ''                                                            
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG3 AS '' CLOSETAG AS ''                                 
 RLAST_PERIOD AS ''                                                             
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG2 AS '' CLOSETAG AS ''                                 
 DAT_EXTRACT AS ''                                                              
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG2 AS '' CLOSETAG AS ''                                 
 TIM_EXTRACT AS ''                                                              
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG1 AS '' CLOSETAG AS ''                                 
 DAT_UPDATE AS ''                                                               
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_DKSEG1 AS '' CLOSETAG AS ''                                 
 TIM_UP AS ''                                                                   
 TDTAG2 AS ''                                                                   
OVER                                                                            
 TDTAG0 AS '' BGCLR_9AADC7 AS '' CLOSETAG AS ''                                 
 DESCRIP AS ''                                                                  
 TDTAG2 AS ''                                                                   
 TRTAG2 AS ''                                                                   
 COMPUTE NTABPAGENO/I6L=TABPAGENO + 1 ; NOPRINT                                 
 COMPUTE NTABPAGENA/A6=EDIT(NTABPAGENO) ; NOPRINT                               
 COMPUTE NEXT/A45='<a href="#' || NTABPAGENA || '">Next</a>'; NOPRINT           
 COMPUTE NEXTTGT/A25=                                                           
'<a name="' || NTABPAGENA || '"></a>'; NOPRINT                                  
ON TABLE SUBHEAD                                                                
"<HTMLTAG1 "                                                                    
"<BODYTAG1 <HEADTAG1 "                                                          
"<TITLTAG1 CSUH Focus DSS System Status<TITLTAG2 "                              
"<HEADTAG2 "                                                                    
ON TABLE SUBFOOT                                                                
"<BODYTAG2 "                                                                    
"<HTMLTAG2 "                                                                    
HEADING                                                                         
"<CENTERTAG1 "                                                                  
"<TABLETAG1 "                                                                   
"<BORDER0 <WIDTH100 <CLOSETAG "                                                 
"<TRTAG1C <TDTAG1 "                                                             
"<HOMELINK "                                                                    
"<FONTTAG1 <CLR_2B547E <SIZE1UP <CLOSETAG <BOLDTAG1 "                           
"CSU Hayward FOCUS Decision Support Systems <FONTTAG2 "                         
"<BRTAG "                                                                       
"<FONTTAG1 <CLR_2B547E <SIZE1UP <CLOSETAG "                                     
"<ENVIRO Environment Integrator Status Update Report <BRTAG "                   
"<FONTTAG2 "                                                                    
"<FONTTAG1 <CLR_DARKRED <SIZE1DOWN <CLOSETAG "                                  
" As of: &DATE    &TOD "                                                        
"<BOLDTAG2 <FONTTAG2 "                                                          
"<BRTAG "                                                                       
"<CENTERTAG1 <BOLDTAG1 "                                                        
"<FONTTAG1 <SIZE1DOWN <CLOSETAG "                                               
"For Update History Click On The Focus DSS Integrator "                         
"File/Data Mart Partition Name"                                                 
"<FONTTAG2 <BOLDTAG2 <TDTAG2> "                                                 
"<TRTAG2 <TABLETAG2 <CENTERTAG2 "                                               
 "<TABLETAG1 <BGCLR_9AADC7 "                                                    
 "<BORDER1 <WIDTH100 <CLOSETAG "                                                
 "<TRTAG1C "                                                                    
 "<TDTAG1 "                                                                     
 "Focus File <TDTAG2 "                                                          
 "<TDTAG1 Oldest Term <TDTAG2 "                                                 
 "<TDTAG1 Newest Term <TDTAG2 "                                                 
 "<TDTAG1 Date Of Extract <TDTAG2 "                                             
 "<TDTAG1 Time of Extract <TDTAG2 "                                             
 "<TDTAG1 Date Of Update <TDTAG2 "                                              
 "<TDTAG1 Time of Update <TDTAG2 "                                              
"<TDTAG1 "                                                                      
 "Description <TDTAG2 "                                                         
 "<TRTAG2 "                                                                     
FOOTING                                                                         
"<TABLETAG2 <CENTERTAG2 "                                                       
"<BRTAG "                                                                       
"<FONTTAG1 <CLR_000000 <SIZE1DOWN <CLOSETAG <BOLDTAG1 "                         
"Note that actual run time for Data Mart Partitions is not <0X                  
represented from Extract start"                                                 
"to Update end since some updates do not begin immediately <0X                  
following extract phase."                                                       
"  Click on the File Name for Update History..."                                
"  Direct all questions and comments on this report to the <0X                  
<MAILTODBA ."                                                                   
"<PTAG "                                                                        
"<CENTERTAG1 "                                                                  
"<SFHOME <SFTOOLS <0X                                                           
-IF &ENVQUAL EQ 'BPROD' GOTO TESTR ;                                            
<PRODRPT "                                                                      
-GOTO PRODR ;                                                                   
-TESTR                                                                          
<TESTRPT "                                                                      
-PRODR                                                                          
"<BOLDTAG2 <FONTTAG2 <FONTTAG2 "                                                
BY SIS_FILE NOPRINT                                                             
-*IF SIS_FILE NE 'RECORD'                                                       
-*BY SORT_TWO NOPRINT                                                           
ON SIS_FILE SKIP-LINE                                                           
-IF &ENVQUAL EQ 'BPROD' GOTO OKREC ;                                            
IF SIS_FILE NE 'RECORD'                                                         
"<CENTERTAG2 "                                                                  
-OKREC                                                                          
 ON TABLE HOLD AS INTSTRPT FORMAT WP                                            
 ON TABLE SET PRINT OFFLINE                                                     
 ON TABLE SET LINES 999                                                         
 ON TABLE SET PAPER 999                                                         
 ON TABLE SET PAGE-NUM NOPAGE                                                   
END                                                                             
-IF &RECORDS EQ 0 GOTO DONECHK ;                                                
-RUN                                                                            
DYNAM FREE DD INTSTRPT                                                          
-*
-******** Insert Code Here To Submit To Web Server via FTP ************
-*                               
-DONECHK                                                                        
-*
-* Below Runs HTML/XML Generator for Detail Job History Files
-*
EX SISCHTMX