FOCUS program (1) :
-*begin doc
-*
-*FEX:
-*
-*INPUT
-* TERM_IN : Enrollment Term
-*
-* This FOCUS request is a substitute for the RBA120 report.
-*
-*end doc
-*
JOIN CLEAR *
SET LINES=57
-PROMPT &TERM_IN/A5.ENTER THE FIVE DIGIT TERM FOR REPORT (CCYYX) :
-*
DEFINE FILE RCFILE
SUBJ_CD/A3=EDIT(SECTION_ID,'999');
CNV_CALL_NUM/A5=EDIT(CALL_NUMBER);
FMT_MNTDT/A10=EDIT(CRS_SECT_MNTDT,'9999$$$$')|'/'|
EDIT(CRS_SECT_MNTDT,'$$$$99$$')|'/'|EDIT(CRS_SECT_MNTDT,'$$$$$$99');
-*
SEC_TXT/A16='SECTION BEGINS: ';
ENDS_TXT/A6='ENDS: ';
STA_TXT/A8='STATUS: ';
-*
SSTAT/A30=IF SECT_STATUS EQ 'O' THEN
'Open - Students may register'
ELSE IF SECT_STATUS EQ 'C' THEN
'Closed - Limit exceeded'
ELSE IF SECT_STATUS EQ 'H' THEN
'Hold - Wait List'
ELSE IF SECT_STATUS EQ 'X' THEN
'Cancelled'
ELSE 'Status Undefined';
-*
MT/A5='MTG ';
DH/A5=' - ';
FULL_TIME/A17=(START_TIME|' - '|STOP_TIME);
BD/A5='BLDG-';
RM/A3='RM-';
END
-*
TABLE FILE RCFILE
PRINT SECTION_SITE AS '' IN 1 CNV_CALL_NUM AS '' IN 5 SECTION_ID AS '' IN 12
RC_CRS_TITLE AS '' IN 23 CTF_CRS_LEVEL AS '' IN 48
CRS_LEVEL_APPLY_1 AS '' IN 50 CRS_LEVEL_APPLY_2 AS '' IN 52
CRS_LEVEL_APPLY_3 AS '' IN 54 CRS_SCHD_INSTR_1 AS '' IN 59
ACTIVITY_TYPE1 AS '' IN 74 CTF_MAX_CREDIT AS '' IN 82
MIN_ENRL AS '' IN 91 CTF_MAX_ENRL AS '' IN 96
SECT_TALLY_ENRL AS '' IN 103 SECT_TALLY_DEMAND AS '' IN 110
FMT_MNTDT AS '' IN 118
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP1 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
END
-*
TABLE FILE RCFILE
PRINT SEC_TXT AS '' IN 5 SECT_START_DT AS '' IN 21 ENDS_TXT AS '' IN 34
SECT_END_DT AS '' IN 40 STA_TXT AS '' IN 52 SSTAT AS '' IN 60
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP2 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
END
-*
TABLE FILE RCFILE
PRINT MT AS '' IN 7 RC020_ORDER/I1 AS '' IN 12 DH AS '' IN 13
MTG_DAYS AS '' IN 18 FULL_TIME AS '' IN 30 BD AS '' IN 49
MTG_BLDG AS '' IN 54 RM AS '' IN 63 MTG_ROOM AS '' IN 66
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP3 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
WHERE RC020_ORDER LE MEETINGS_CNTR;
END
-*
-RUN
-VMS COPY RCTEMP1.WP,RCTEMP2.WP,RCTEMP3.WP RCTEMP.FTM
-VMS COPY SI$FOCUS:RBA120CS.MFD *.MAS;
-*
SET LINES=57
FILEDEF RBA120CS DISK RCTEMP.FTM
TABLE FILE RBA120CS
HEADING
"DATE RUN:&DATE <47 SOME COLLEGE "
"TIME RUN:&TOD
<50 STUDENT INFORMATON SYSTEM - PLUS <110 PGM:RBA120CSESIZ.FEX"
"<47 COURSE TERM FILE AUDIT REPORT FOR &TERM_IN "
"<DATA_COLLEGE"
" <DATA_SUBJECT </1"
" CALL <49 COURSE <83 CREDIT *----- REGISTRATION -----* <122 LAST"
" SITE NO COURSE ID COURSE TITLE <49 LEVELS INSTRUCTOR ACT
<84 HRS MIN MAX CUR DMD MAINTAIN"
PRINT DATA_ELEMENT_1 AS '' IN 1 DATA_ELEMENT_2 AS '' IN 100
BY DATA_COLLEGE NOPRINT
BY DATA_SUBJECT NOPRINT
BY DATA_SECTION NOPRINT
ON DATA_SECTION SKIP-LINE
ON TABLE HOLD AS REPORT FORMAT WP
WHERE DATA_COLLEGE NE '';
END
JOIN CLEAR *
FOCUS program (2) :
-*begin doc
-*
-*FEX:
-*
-*INPUT
-* TERM_IN : Enrollment Term
-*
-* This FOCUS request is a substitute for the RBA120 report.
-*
-*end doc
-*
JOIN CLEAR *
-PROMPT &TERM_IN/A5.ENTER THE FIVE DIGIT TERM FOR REPORT (CCYYX) :
SET LINES=999999
SET PAGE=NOPAGE
-*
-* Get session start and end date for term.
-*
FILEDEF ACFL055 DISK SI$DATA:ACFILE.DAT
TABLE FILE ACFL055
PRINT CLASS_END_DATE CLASS_BEGIN_DATE SESSION_CODE
ON TABLE SAVE AS TRMSEC
WHERE TERM_CODE_SES EQ '&TERM_IN';
END
FILEDEF EXTFILE DISK TRMSEC.FTM
-RUN
-READ EXTFILE &ENDDEF.I8. &BEGDEF.I8. &SESDEF.A1.
-READ EXTFILE &ENDFST.I8. &BEGFST.I8. &SESFST.A1.
-READ EXTFILE &ENDSEC.I8. &BEGSEC.I8. &SESSEC.A1.
-*
DEFINE FILE RCFILE
SUBJ_CD/A3=EDIT(SECTION_ID,'999');
CNV_CALL_NUM/A5=EDIT(CALL_NUMBER);
-*
SEC_TXT/A16='SECTION BEGINS: ';
CRS_START_ALPHA/A8=EDIT(SECT_START_DT);
CRS_END_ALPHA/A8=EDIT(SECT_END_DT);
START_DT_ALPHA/A10=EDIT(CRS_START_ALPHA, '$$$$99$$')
|'/'|EDIT(CRS_START_ALPHA, '$$$$$$99')|'/'|EDIT(CRS_START_ALPHA, '9999$$$$');
END_DT_ALPHA/A10=EDIT(CRS_END_ALPHA, '$$$$99$$')|'/'|
EDIT(CRS_END_ALPHA, '$$$$$$99')|'/'|EDIT(CRS_END_ALPHA, '9999$$$$');
-*
ENDS_TXT/A6='ENDS: ';
STA_TXT/A8='STATUS: ';
-*
SSTAT/A30=IF SECT_STATUS EQ 'C' THEN
'Closed - Limit exceeded'
ELSE IF SECT_STATUS EQ 'X' THEN
'Cancelled'
ELSE '';
-*
MT/A5='MTG ';
DH/A5=' - ';
FULL_TIME/A17=(START_TIME|' - '|STOP_TIME);
BD/A5='BLDG-';
RM/A3='RM-';
-*
OUT_NOTE1/A35=XSFOCT(35,'RC405',SCHD_CONTROL_NOTE1,'',OUT_NOTE);
OUT_NOTE2/A45=IF RC040_ORDER EQ 1 THEN 'NOTE: '|OUT_NOTE1
ELSE ' '|OUT_NOTE1;
END
TABLE FILE RCFILE
PRINT SECTION_SITE AS '' IN 1 CNV_CALL_NUM AS '' IN 5 SECTION_ID AS '' IN 12
RC_CRS_TITLE AS '' IN 26 CTF_CRS_LEVEL AS '' IN 60
CRS_LEVEL_APPLY_1 AS '' IN 63 CRS_LEVEL_APPLY_2 AS '' IN 66
CRS_LEVEL_APPLY_3 AS '' IN 69 CTF_MAX_CREDIT AS '' IN 74
ACTIVITY_TYPE1 AS '' IN 86 CRS_SCHD_INSTR_1 AS '' IN 97
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP1 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
END
-*
TABLE FILE RCFILE
PRINT STA_TXT AS '' IN 7 SSTAT AS '' IN 15
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP2 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
WHERE (SECT_STATUS EQ 'C') OR (SECT_STATUS EQ 'X');
END
-*
TABLE FILE RCFILE
PRINT MT AS '' IN 7 RC020_ORDER/I1 AS '' IN 12 DH AS '' IN 13
MTG_DAYS AS '' IN 18 FULL_TIME AS '' IN 30 BD AS '' IN 49
MTG_BLDG AS '' IN 54 RM AS '' IN 63 MTG_ROOM AS '' IN 66
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP3 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
WHERE RC020_ORDER LE MEETINGS_CNTR;
END
-*
TABLE FILE RCFILE
PRINT OUT_NOTE2 AS '' IN 19
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP4 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
WHERE RC040_ORDER LE SCHEDULING_CNTR;
END
-*
TABLE FILE RCFILE
PRINT SEC_TXT AS '' IN 19 START_DT_ALPHA AS '' IN 35 ENDS_TXT AS '' IN 48
END_DT_ALPHA AS '' IN 54
COLLEGE AS '' IN 132 SUBJ_CD AS '' IN 135 SECTION_ID AS '' IN 138
ON TABLE SAVE AS RCTEMP5 FORMAT WP
BY COLLEGE NOPRINT
BY SUBJ_CD NOPRINT
BY SECTION_ID NOPRINT
IF TERM EQ '&TERM_IN'
IF COLLEGE NE 'CE'
WHERE (SECT_START_DT NE &BEGDEF) OR (SECT_END_DT NE &ENDDEF);
END
-*
-RUN
-VMS COPY RCTEMP1.WP,RCTEMP2.WP,RCTEMP3.WP,RCTEMP4.WP,RCTEMP5.WP RCTEMP.FTM
-VMS COPY SI$FOCUS:RBA120CS.MFD *.MAS;
-*
SET PRINT=ONLINE,LINES=57,PAPER=60
FILEDEF RBA120CS DISK RCTEMP.FTM
DEFINE FILE RBA120CS
STR_COLL/A3=EDIT(DATA_COLLEGE,'$$$$999');
OUT_COLL/A35=XSFOCT(35,'A 030',STR_COLL,'',OUT_COLL);
OUT_SUBJ/A31=XSFOCT(31,'A 035',DATA_SUBJECT,'',OUT_SUBJ);
IN_TERM/A5='&TERM_IN';
OUT_TERM/A30=XSFOCT(30,'RT005',IN_TERM,'',OUT_TERM);
END
TABLE FILE RBA120CS
HEADING
" "
"<OUT_TERM <50 SCHEDULE OF CLASSES <115 PAGE: <TABPAGENO"
" "
"<OUT_COLL"
" <OUT_SUBJ </1"
" CALL <61 COURSE <75 CREDIT"
" SITE NO COURSE ID COURSE TITLE <61 LEVELS HRS
<88 ACT INSTRUCTOR"
PRINT DATA_ELEMENT_1 AS '' IN 1 DATA_ELEMENT_2 AS '' IN 100
BY DATA_COLLEGE NOPRINT
BY DATA_SUBJECT NOPRINT
BY DATA_SECTION NOPRINT
ON DATA_SUBJECT PAGE-BREAK
ON DATA_SECTION SKIP-LINE
ON TABLE HOLD AS REPORT FORMAT WP
WHERE DATA_COLLEGE NE '';
END
JOIN CLEAR *
RBA120CS.MFD :
FILE=RBA120,SUFFIX=FIX
SEGNAME=ROOT
FIELD=DATA_ELEMENT_1, ,A99,A99,$
FIELD=DATA_ELEMENT_2, ,A30,A30,$
FIELD=DATA_COLLEGE, ,A07,A07,$
FIELD=DATA_SUBJECT, ,A03,A03,$
FIELD=DATA_SECTION, ,A09,A09,$
This page hosted by 
Get your own Free Homepage