-SET &BY_DISP = IF &FMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1 -RUN
-DEFAULTS &WFFMT = 'HTML' -SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1 -RUN
quote:-SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON';
SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1
-RUN
WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM EQ &STRM.(OR(FIND STRM,CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM IN csprdsc_class_tbl_se_vw)).Select Term EQ.;
ON TABLE PCHOLD FORMAT &WFFMT.(<HTML,HTML>,<PDF,PDF>,<Excel 2000,EXL2K>,<Excel Formula,EXL2K FORMULA>,<HTML Active Report,AHTML>,<Active Report Flash/Flex,FLEX>,<PowerPoint,PPT>).Select type of display output.
-DEFAULTS &WFFMT = 'HTML' -***************************************************************************** -PROMPT &WFFMT.(<HTML,HTML>,<Active Report,AHTML><PDF,PDF>,<Excel,EXL2K>,<PowerPoint,PPT>).Select Output Format. -PROMPT &STRM.(OR(FIND STRM,CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM IN csprdsc_class_tbl_se_vw)).Select Term. -SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1 -RUN DEFINE FILE XXXXXX . END TABLE FILE XXXXX SUM/PRINT . . BY BY WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM EQ &STRM; ON TABLE PCHOLD FORMAT &WFFMT ON TABLE SET STYLE * ETC.. ENDSTYLE END -EXIT
-SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP.EVAL, SPACES = 1 -RUN
-SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; -? & -EXIT
-SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; -? & -EXIT -*Pull all students enrolled and their course info for the term DEFINE FILE CSPRDSC_CLASS_TBL_SE_VW COURSE_ID/A25=CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.SUBJECT || CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CATALOG_NBR | ' ' | CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_SECTION; CLASS_NBR_A/A5=EDIT ( CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_NBR, '99999'); CLASS_KEY/A20=CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM|| CLASS_NBR_A|| CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.EMPLID; END TABLE FILE CSPRDSC_CLASS_TBL_SE_VW PRINT 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_NBR' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.EMPLID' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.ACAD_CAREER' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.ACAD_GROUP' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.COURSE_ID' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.SESSION_CODE' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STDNT_ENRL_STATUS' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CRSE_GRADE_INPUT' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CRSE_GRADE_OFF' BY 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_KEY' HEADING "" FOOTING "" WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.INSTITUTION EQ 'CSC01'; WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM EQ &STRM.(OR(FIND STRM,CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM IN csprdsc_class_tbl_se_vw)).Select Term EQ.; WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STDNT_ENRL_STATUS EQ 'E'; ON TABLE SET PAGE-NUM OFF ON TABLE SET BYDISPLAY ON ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL FORMAT FOCUS INDEX 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_KEY' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Create a hold file of all students and all classes with their midterm grades from midterm grade roster. JOIN CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_ROSTER TO MULTIPLE CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.STRM AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_RSTR_TYPE TAG J0 AS J0 END DEFINE FILE CSPRDSC_GRADE_ROSTER CLASS_NBR_A/A5=EDIT ( CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR, '99999'); MID_GRD_KEY/A20=CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM|| CLASS_NBR_A|| CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID; END TABLE FILE CSPRDSC_GRADE_ROSTER PRINT 'J0.CSPRDSC_GRADE_RSTR_TYPE.STRM' 'J0.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.ACAD_CAREER' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.LAST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.FIRST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CRSE_GRADE_INPUT' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRADE_ROSTER_STAT' BY 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' HEADING "" FOOTING "" WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.INSTITUTION EQ 'CSC01'; WHERE J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE EQ 'MID'; WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM EQ &STRM; ON TABLE SET PAGE-NUM OFF ON TABLE SET BYDISPLAY ON ON TABLE NOTOTAL ON TABLE HOLD AS CSCMID FORMAT FOCUS INDEX 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Join enrl file with midterm grade file to get enrl students and their midterm (if exists) and final grade for each course JOIN LEFT_OUTER CSCENRL.SEG01.CLASS_KEY IN CSCENRL TO MULTIPLE CSCMID.SEG01.MID_GRD_KEY IN CSCMID TAG J1 AS J1 END DEFINE FILE CSCENRL MIDTERM_GRADE/A3=IF (CSCENRL.SEG01.STDNT_ENRL_STATUS EQ 'E' AND CSCENRL.SEG01.CRSE_GRADE_OFF EQ 'W') THEN 'W' ELSE J1.SEG01.CRSE_GRADE_INPUT; END TABLE FILE CSCENRL PRINT 'CSCENRL.SEG01.ACAD_CAREER' 'CSCENRL.SEG01.ACAD_GROUP' 'CSCENRL.SEG01.COURSE_ID' 'CSCENRL.SEG01.SESSION_CODE' 'CSCENRL.SEG01.STDNT_ENRL_STATUS' 'J1.SEG01.CRSE_GRADE_INPUT' 'J1.SEG01.MIDTERM_GRADE' 'CSCENRL.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL.SEG01.STRM' BY 'CSCENRL.SEG01.CLASS_NBR' BY 'CSCENRL.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL1 FORMAT FOCUS INDEX 'CSCENRL.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Find the main, highest effdated advisor listed for a student (advisor number 1) JOIN LEFT_OUTER CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID IN CSPRDSC_STDNT_ADVR_HIST TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J2 AS J2 END TABLE FILE CSPRDSC_STDNT_ADVR_HIST PRINT 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EFFDT' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID' 'J2.CSPRDSC_PERSONAL_DATA.NAME' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ROLE' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' NOPRINT HEADING "" FOOTING "" WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.INSTITUTION EQ 'CSC01'; WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR EQ '1'; ON TABLE SET PAGE-NUM OFF ON TABLE SET BYDISPLAY ON ON TABLE SET FORMULTIPLE ON ON TABLE NOTOTAL ON TABLE HOLD AS CSCADV FORMAT FOCUS INDEX 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END TABLE FILE CSCADV PRINT 'CSCADV.SEG01.ADVISOR_ID' 'CSCADV.SEG01.NAME' 'CSCADV.SEG01.ADVISOR_ROLE' BY 'CSCADV.SEG01.EMPLID' BY 'CSCADV.SEG01.STDNT_ADVISOR_NBR' BY HIGHEST 1 'CSCADV.SEG01.EFFDT' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE SET BYDISPLAY ON ON TABLE NOTOTAL ON TABLE HOLD AS CSCADV1 FORMAT FOCUS INDEX 'CSCADV.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Join main file and advisor file JOIN LEFT_OUTER CSCENRL1.SEG01.EMPLID IN CSCENRL1 TO MULTIPLE CSCADV1.SEG01.EMPLID IN CSCADV1 TAG J3 AS J3 END TABLE FILE CSCENRL1 PRINT 'CSCENRL1.SEG01.STRM' 'CSCENRL1.SEG01.CLASS_NBR' 'CSCENRL1.SEG01.ACAD_CAREER' 'CSCENRL1.SEG01.COURSE_ID' 'CSCENRL1.SEG01.SESSION_CODE' 'CSCENRL1.SEG01.STDNT_ENRL_STATUS' 'CSCENRL1.SEG01.MIDTERM_GRADE' 'CSCENRL1.SEG01.CRSE_GRADE_OFF' 'J3.SEG01.ADVISOR_ID' 'J3.SEG01.NAME' BY 'CSCENRL1.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL2 FORMAT FOCUS INDEX 'CSCENRL1.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Add student name (use name here instead of from roster - if student doesn't have midterm grade then name will be missing cause of how doing join) JOIN LEFT_OUTER CSCENRL2.SEG01.EMPLID IN CSCENRL2 TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J4 AS J4 END TABLE FILE CSCENRL2 PRINT 'J4.CSPRDSC_PERSONAL_DATA.LAST_NAME' 'J4.CSPRDSC_PERSONAL_DATA.FIRST_NAME' 'CSCENRL2.SEG01.STRM' 'CSCENRL2.SEG01.ACAD_CAREER' 'CSCENRL2.SEG01.CLASS_NBR' 'CSCENRL2.SEG01.COURSE_ID' 'CSCENRL2.SEG01.SESSION_CODE' 'CSCENRL2.SEG01.MIDTERM_GRADE' 'CSCENRL2.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL2.SEG01.ADVISOR_ID' BY 'CSCENRL2.SEG01.NAME' BY 'CSCENRL2.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL3 FORMAT FOCUS INDEX 'CSCENRL2.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END DEFINE FILE CSPRDSC_SCC_EMAIL_QVW CSCC_EMAIL/A70=IF CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.E_ADDR_TYPE EQ 'CSCC' THEN CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMAIL_ADDR ELSE ' '; END TABLE FILE CSPRDSC_SCC_EMAIL_QVW SUM 'MAX.CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.CSCC_EMAIL' AS 'CSCC_EMAIL' BY 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCEMAIL FORMAT FOCUS INDEX 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=REPORT, COLUMN=N2, WRAP=6.000000, $ ENDSTYLE END JOIN LEFT_OUTER CSCENRL3.SEG01.EMPLID IN CSCENRL3 TO MULTIPLE CSCEMAIL.SEG01.EMPLID IN CSCEMAIL TAG J5 AS J5 END TABLE FILE CSCENRL3 PRINT 'CSCENRL3.SEG01.LAST_NAME' 'CSCENRL3.SEG01.FIRST_NAME' 'CSCENRL3.SEG01.STRM' 'CSCENRL3.SEG01.ACAD_CAREER' 'CSCENRL3.SEG01.CLASS_NBR' 'CSCENRL3.SEG01.COURSE_ID' 'CSCENRL3.SEG01.SESSION_CODE' 'CSCENRL3.SEG01.MIDTERM_GRADE' AS 'Midterm' 'CSCENRL3.SEG01.CRSE_GRADE_OFF' AS 'Final' 'J5.SEG01.CSCC_EMAIL' BY 'CSCENRL3.SEG01.ADVISOR_ID' BY 'CSCENRL3.SEG01.NAME' BY 'CSCENRL3.SEG01.EMPLID' BY 'CSCENRL3.SEG01.COURSE_ID' NOPRINT HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT &WFFMT.(<HTML,HTML>,<PDF,PDF>,<Excel 2000,EXL2K>,<Excel Formula,EXL2K FORMULA>,<HTML Active Report,AHTML>,<Active Report Flash/Flex,FLEX>,<PowerPoint,PPT>).Select type of display output. ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=REPORT, COLUMN=N14, WRAP=6.000000, $ ENDSTYLE END
-SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'ON TABLE SET BYDISPLAY ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1 -RUN -*Pull all students enrolled and their course info for the term DEFINE FILE CSPRDSC_CLASS_TBL_SE_VW COURSE_ID/A25=CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.SUBJECT || CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CATALOG_NBR | ' ' | CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_SECTION; CLASS_NBR_A/A5=EDIT ( CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_NBR, '99999'); CLASS_KEY/A20=CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM|| CLASS_NBR_A|| CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.EMPLID; END TABLE FILE CSPRDSC_CLASS_TBL_SE_VW PRINT 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_NBR' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.EMPLID' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.ACAD_CAREER' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.ACAD_GROUP' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.COURSE_ID' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.SESSION_CODE' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STDNT_ENRL_STATUS' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CRSE_GRADE_INPUT' 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CRSE_GRADE_OFF' BY 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_KEY' HEADING "" FOOTING "" WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.INSTITUTION EQ 'CSC01'; WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM EQ &STRM.(OR(FIND STRM,CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STRM IN csprdsc_class_tbl_se_vw)).Select Term EQ.; WHERE CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.STDNT_ENRL_STATUS EQ 'E'; ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL FORMAT FOCUS INDEX 'CSPRDSC_CLASS_TBL_SE_VW.CSPRDSC_CLASS_TBL_SE_VW.CLASS_KEY' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Create a hold file of all students and all classes with their midterm grades from midterm grade roster. JOIN CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_ROSTER TO MULTIPLE CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.STRM AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_RSTR_TYPE TAG J0 AS J0 END DEFINE FILE CSPRDSC_GRADE_ROSTER CLASS_NBR_A/A5=EDIT ( CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR, '99999'); MID_GRD_KEY/A20=CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM|| CLASS_NBR_A|| CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID; END TABLE FILE CSPRDSC_GRADE_ROSTER PRINT 'J0.CSPRDSC_GRADE_RSTR_TYPE.STRM' 'J0.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.ACAD_CAREER' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.LAST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.FIRST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CRSE_GRADE_INPUT' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRADE_ROSTER_STAT' BY 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' HEADING "" FOOTING "" WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.INSTITUTION EQ 'CSC01'; WHERE J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE EQ 'MID'; WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM EQ &STRM; ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCMID FORMAT FOCUS INDEX 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Join enrl file with midterm grade file to get enrl students and their midterm (if exists) and final grade for each course JOIN LEFT_OUTER CSCENRL.SEG01.CLASS_KEY IN CSCENRL TO MULTIPLE CSCMID.SEG01.MID_GRD_KEY IN CSCMID TAG J1 AS J1 END DEFINE FILE CSCENRL MIDTERM_GRADE/A3=IF (CSCENRL.SEG01.STDNT_ENRL_STATUS EQ 'E' AND CSCENRL.SEG01.CRSE_GRADE_OFF EQ 'W') THEN 'W' ELSE J1.SEG01.CRSE_GRADE_INPUT; END TABLE FILE CSCENRL PRINT 'CSCENRL.SEG01.ACAD_CAREER' 'CSCENRL.SEG01.ACAD_GROUP' 'CSCENRL.SEG01.COURSE_ID' 'CSCENRL.SEG01.SESSION_CODE' 'CSCENRL.SEG01.STDNT_ENRL_STATUS' 'J1.SEG01.CRSE_GRADE_INPUT' 'J1.SEG01.MIDTERM_GRADE' 'CSCENRL.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL.SEG01.STRM' BY 'CSCENRL.SEG01.CLASS_NBR' BY 'CSCENRL.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL1 FORMAT FOCUS INDEX 'CSCENRL.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Find the main, highest effdated advisor listed for a student (advisor number 1) JOIN LEFT_OUTER CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID IN CSPRDSC_STDNT_ADVR_HIST TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J2 AS J2 END TABLE FILE CSPRDSC_STDNT_ADVR_HIST PRINT 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EFFDT' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID' 'J2.CSPRDSC_PERSONAL_DATA.NAME' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ROLE' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' NOPRINT HEADING "" FOOTING "" WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.INSTITUTION EQ 'CSC01'; WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR EQ '1'; ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCADV FORMAT FOCUS INDEX 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END TABLE FILE CSCADV PRINT 'CSCADV.SEG01.ADVISOR_ID' 'CSCADV.SEG01.NAME' 'CSCADV.SEG01.ADVISOR_ROLE' BY 'CSCADV.SEG01.EMPLID' BY 'CSCADV.SEG01.STDNT_ADVISOR_NBR' BY HIGHEST 1 'CSCADV.SEG01.EFFDT' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCADV1 FORMAT FOCUS INDEX 'CSCADV.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Join main file and advisor file JOIN LEFT_OUTER CSCENRL1.SEG01.EMPLID IN CSCENRL1 TO MULTIPLE CSCADV1.SEG01.EMPLID IN CSCADV1 TAG J3 AS J3 END TABLE FILE CSCENRL1 PRINT 'CSCENRL1.SEG01.STRM' 'CSCENRL1.SEG01.CLASS_NBR' 'CSCENRL1.SEG01.ACAD_CAREER' 'CSCENRL1.SEG01.COURSE_ID' 'CSCENRL1.SEG01.SESSION_CODE' 'CSCENRL1.SEG01.STDNT_ENRL_STATUS' 'CSCENRL1.SEG01.MIDTERM_GRADE' 'CSCENRL1.SEG01.CRSE_GRADE_OFF' 'J3.SEG01.ADVISOR_ID' 'J3.SEG01.NAME' BY 'CSCENRL1.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL2 FORMAT FOCUS INDEX 'CSCENRL1.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END -*Add student name (use name here instead of from roster - if student doesn't have midterm grade then name will be missing cause of how doing join) JOIN LEFT_OUTER CSCENRL2.SEG01.EMPLID IN CSCENRL2 TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J4 AS J4 END TABLE FILE CSCENRL2 PRINT 'J4.CSPRDSC_PERSONAL_DATA.LAST_NAME' 'J4.CSPRDSC_PERSONAL_DATA.FIRST_NAME' 'CSCENRL2.SEG01.STRM' 'CSCENRL2.SEG01.ACAD_CAREER' 'CSCENRL2.SEG01.CLASS_NBR' 'CSCENRL2.SEG01.COURSE_ID' 'CSCENRL2.SEG01.SESSION_CODE' 'CSCENRL2.SEG01.MIDTERM_GRADE' 'CSCENRL2.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL2.SEG01.ADVISOR_ID' BY 'CSCENRL2.SEG01.NAME' BY 'CSCENRL2.SEG01.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCENRL3 FORMAT FOCUS INDEX 'CSCENRL2.SEG01.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END DEFINE FILE CSPRDSC_SCC_EMAIL_QVW CSCC_EMAIL/A70=IF CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.E_ADDR_TYPE EQ 'CSCC' THEN CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMAIL_ADDR ELSE ' '; END TABLE FILE CSPRDSC_SCC_EMAIL_QVW SUM 'MAX.CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.CSCC_EMAIL' AS 'CSCC_EMAIL' BY 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE HOLD AS CSCEMAIL FORMAT FOCUS INDEX 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=REPORT, COLUMN=N2, WRAP=6.000000, $ ENDSTYLE END JOIN LEFT_OUTER CSCENRL3.SEG01.EMPLID IN CSCENRL3 TO MULTIPLE CSCEMAIL.SEG01.EMPLID IN CSCEMAIL TAG J5 AS J5 END TABLE FILE CSCENRL3 PRINT 'CSCENRL3.SEG01.LAST_NAME' 'CSCENRL3.SEG01.FIRST_NAME' 'CSCENRL3.SEG01.STRM' 'CSCENRL3.SEG01.ACAD_CAREER' 'CSCENRL3.SEG01.CLASS_NBR' 'CSCENRL3.SEG01.COURSE_ID' 'CSCENRL3.SEG01.SESSION_CODE' 'CSCENRL3.SEG01.MIDTERM_GRADE' AS 'Midterm' 'CSCENRL3.SEG01.CRSE_GRADE_OFF' AS 'Final' 'J5.SEG01.CSCC_EMAIL' BY 'CSCENRL3.SEG01.ADVISOR_ID' BY 'CSCENRL3.SEG01.NAME' BY 'CSCENRL3.SEG01.EMPLID' BY 'CSCENRL3.SEG01.COURSE_ID' NOPRINT HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL &BY_DISP ON TABLE PCHOLD FORMAT &WFFMT.(<HTML,HTML>,<PDF,PDF>,<Excel 2000,EXL2K>,<Excel Formula,EXL2K FORMULA>,<HTML Active Report,AHTML>,<Active Report Flash/Flex,FLEX>,<PowerPoint,PPT>).Select type of display output. ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=REPORT, COLUMN=N14, WRAP=6.000000, $ ENDSTYLE END
-SET &ECHO=ALL; -SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'BYDISPLAY = ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', &BY_DISP, SPACES = 1 -RUN ? SET -RUN
-SET &DUMMY = &WFFMT.(<HTML,HTML>,<PDF,PDF>,<Excel 2000,EXL2K>,<Excel Formula,EXL2K FORMULA>,<HTML Active Report,AHTML>,<Active Report Flash/Flex,FLEX>,<PowerPoint,PPT>).Select type of display output.; -SET &BY_DISP = IF &WFFMT EQ 'PDF' OR 'PPT' THEN ' ' ELSE 'ON TABLE SET BYDISPLAY ON'; SET ASNAMES = ON, LINES = 998, NODATA = ' ', SPACES = 1 -RUN -* Pull all students enrolled and their course info for the term DEFINE FILE CSPRDSC_CLASS_TBL_SE_VW COURSE_ID/A25 = SUBJECT || CATALOG_NBR | ' ' | CLASS_SECTION; CLASS_NBR_A/A5 = EDIT ( CLASS_NBR, '99999'); CLASS_KEY/A20 = STRM || CLASS_NBR_A || EMPLID; END TABLE FILE CSPRDSC_CLASS_TBL_SE_VW PRINT 'STRM' 'CLASS_NBR' 'EMPLID' 'ACAD_CAREER' 'ACAD_GROUP' 'COURSE_ID' 'SESSION_CODE' 'STDNT_ENRL_STATUS' 'CRSE_GRADE_INPUT' 'CRSE_GRADE_OFF' BY 'CLASS_KEY' WHERE INSTITUTION EQ 'CSC01'; WHERE STRM EQ &STRM.(OR(FIND STRM,STRM IN csprdsc_class_tbl_se_vw)).Select Term EQ.; WHERE STDNT_ENRL_STATUS EQ 'E'; ON TABLE HOLD AS CSCENRL FORMAT FOCUS INDEX 'CLASS_KEY' END -* Create a hold file of all students and all classes with their midterm grades from midterm grade roster. JOIN CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR AND CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_ROSTER TO MULTIPLE CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.STRM AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR AND CSPRDSC_GRADE_RSTR_TYPE.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ IN CSPRDSC_GRADE_RSTR_TYPE TAG J0 AS J0 END DEFINE FILE CSPRDSC_GRADE_ROSTER CLASS_NBR_A/A5 = EDIT (CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CLASS_NBR, '99999'); MID_GRD_KEY/A20 = CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM || CLASS_NBR_A || CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID; END TABLE FILE CSPRDSC_GRADE_ROSTER PRINT 'J0.CSPRDSC_GRADE_RSTR_TYPE.STRM' 'J0.CSPRDSC_GRADE_RSTR_TYPE.CLASS_NBR' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.EMPLID' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE' 'J0.CSPRDSC_GRADE_RSTR_TYPE.GRD_RSTR_TYPE_SEQ' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.ACAD_CAREER' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.LAST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.FIRST_NAME_SRCH' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.CRSE_GRADE_INPUT' 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.GRADE_ROSTER_STAT' BY 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.INSTITUTION EQ 'CSC01'; WHERE J0.CSPRDSC_GRADE_RSTR_TYPE.GRADE_ROSTER_TYPE EQ 'MID'; WHERE CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.STRM EQ &STRM; ON TABLE HOLD AS CSCMID FORMAT FOCUS INDEX 'CSPRDSC_GRADE_ROSTER.CSPRDSC_GRADE_ROSTER.MID_GRD_KEY' END -* Join enrl file with midterm grade file to get enrl students and their midterm (if exists) and final grade for each course JOIN LEFT_OUTER CSCENRL.SEG01.CLASS_KEY IN CSCENRL TO MULTIPLE CSCMID.SEG01.MID_GRD_KEY IN CSCMID TAG J1 AS J1 END DEFINE FILE CSCENRL MIDTERM_GRADE/A3 = IF (CSCENRL.SEG01.STDNT_ENRL_STATUS EQ 'E' AND CSCENRL.SEG01.CRSE_GRADE_OFF EQ 'W') THEN 'W' ELSE J1.SEG01.CRSE_GRADE_INPUT; END TABLE FILE CSCENRL PRINT 'CSCENRL.SEG01.ACAD_CAREER' 'CSCENRL.SEG01.ACAD_GROUP' 'CSCENRL.SEG01.COURSE_ID' 'CSCENRL.SEG01.SESSION_CODE' 'CSCENRL.SEG01.STDNT_ENRL_STATUS' 'J1.SEG01.CRSE_GRADE_INPUT' 'J1.SEG01.MIDTERM_GRADE' 'CSCENRL.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL.SEG01.STRM' BY 'CSCENRL.SEG01.CLASS_NBR' BY 'CSCENRL.SEG01.EMPLID' ON TABLE HOLD AS CSCENRL1 FORMAT FOCUS INDEX 'CSCENRL.SEG01.EMPLID' END -* Find the main, highest effdated advisor listed for a student (advisor number 1) JOIN LEFT_OUTER CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID IN CSPRDSC_STDNT_ADVR_HIST TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J2 AS J2 END TABLE FILE CSPRDSC_STDNT_ADVR_HIST PRINT 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EFFDT' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ID' 'J2.CSPRDSC_PERSONAL_DATA.NAME' 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.ADVISOR_ROLE' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' BY 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR' NOPRINT WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.INSTITUTION EQ 'CSC01'; WHERE CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.STDNT_ADVISOR_NBR EQ '1'; ON TABLE HOLD AS CSCADV FORMAT FOCUS INDEX 'CSPRDSC_STDNT_ADVR_HIST.CSPRDSC_STDNT_ADVR_HIST.EMPLID' END TABLE FILE CSCADV PRINT 'CSCADV.SEG01.ADVISOR_ID' 'CSCADV.SEG01.NAME' 'CSCADV.SEG01.ADVISOR_ROLE' BY 'CSCADV.SEG01.EMPLID' BY 'CSCADV.SEG01.STDNT_ADVISOR_NBR' BY HIGHEST 1 'CSCADV.SEG01.EFFDT' ON TABLE HOLD AS CSCADV1 FORMAT FOCUS INDEX 'CSCADV.SEG01.EMPLID' END -* Join main file and advisor file JOIN LEFT_OUTER CSCENRL1.SEG01.EMPLID IN CSCENRL1 TO MULTIPLE CSCADV1.SEG01.EMPLID IN CSCADV1 TAG J3 AS J3 END TABLE FILE CSCENRL1 PRINT 'CSCENRL1.SEG01.STRM' 'CSCENRL1.SEG01.CLASS_NBR' 'CSCENRL1.SEG01.ACAD_CAREER' 'CSCENRL1.SEG01.COURSE_ID' 'CSCENRL1.SEG01.SESSION_CODE' 'CSCENRL1.SEG01.STDNT_ENRL_STATUS' 'CSCENRL1.SEG01.MIDTERM_GRADE' 'CSCENRL1.SEG01.CRSE_GRADE_OFF' 'J3.SEG01.ADVISOR_ID' 'J3.SEG01.NAME' BY 'CSCENRL1.SEG01.EMPLID' ON TABLE HOLD AS CSCENRL2 FORMAT FOCUS INDEX 'CSCENRL1.SEG01.EMPLID' END -* Add student name (use name here instead of from roster - if student doesn't have midterm grade then name will be missing cause of how doing join) JOIN LEFT_OUTER CSCENRL2.SEG01.EMPLID IN CSCENRL2 TO MULTIPLE CSPRDSC_PERSONAL_DATA.CSPRDSC_PERSONAL_DATA.EMPLID IN CSPRDSC_PERSONAL_DATA TAG J4 AS J4 END TABLE FILE CSCENRL2 PRINT 'J4.CSPRDSC_PERSONAL_DATA.LAST_NAME' 'J4.CSPRDSC_PERSONAL_DATA.FIRST_NAME' 'CSCENRL2.SEG01.STRM' 'CSCENRL2.SEG01.ACAD_CAREER' 'CSCENRL2.SEG01.CLASS_NBR' 'CSCENRL2.SEG01.COURSE_ID' 'CSCENRL2.SEG01.SESSION_CODE' 'CSCENRL2.SEG01.MIDTERM_GRADE' 'CSCENRL2.SEG01.CRSE_GRADE_OFF' BY 'CSCENRL2.SEG01.ADVISOR_ID' BY 'CSCENRL2.SEG01.NAME' BY 'CSCENRL2.SEG01.EMPLID' ON TABLE HOLD AS CSCENRL3 FORMAT FOCUS INDEX 'CSCENRL2.SEG01.EMPLID' END DEFINE FILE CSPRDSC_SCC_EMAIL_QVW CSCC_EMAIL/A70 = IF CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.E_ADDR_TYPE EQ 'CSCC' THEN CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMAIL_ADDR ELSE ' '; END TABLE FILE CSPRDSC_SCC_EMAIL_QVW SUM 'MAX.CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.CSCC_EMAIL' AS 'CSCC_EMAIL' BY 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' ON TABLE HOLD AS CSCEMAIL FORMAT FOCUS INDEX 'CSPRDSC_SCC_EMAIL_QVW.CSPRDSC_SCC_EMAIL_QVW.EMPLID' END JOIN LEFT_OUTER CSCENRL3.SEG01.EMPLID IN CSCENRL3 TO MULTIPLE CSCEMAIL.SEG01.EMPLID IN CSCEMAIL TAG J5 AS J5 END TABLE FILE CSCENRL3 PRINT 'CSCENRL3.SEG01.LAST_NAME' 'CSCENRL3.SEG01.FIRST_NAME' 'CSCENRL3.SEG01.STRM' 'CSCENRL3.SEG01.ACAD_CAREER' 'CSCENRL3.SEG01.CLASS_NBR' 'CSCENRL3.SEG01.COURSE_ID' 'CSCENRL3.SEG01.SESSION_CODE' 'CSCENRL3.SEG01.MIDTERM_GRADE' AS 'Midterm' 'CSCENRL3.SEG01.CRSE_GRADE_OFF' AS 'Final' 'J5.SEG01.CSCC_EMAIL' BY 'CSCENRL3.SEG01.ADVISOR_ID' BY 'CSCENRL3.SEG01.NAME' BY 'CSCENRL3.SEG01.EMPLID' BY 'CSCENRL3.SEG01.COURSE_ID' NOPRINT HEADING "" FOOTING "" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL &BY_DISP.EVAL ON TABLE PCHOLD FORMAT &WFFMT ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=REPORT, COLUMN=N14, WRAP=6.000000, $ ENDSTYLE END
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |