Typical DCL Command Procedure to run the program :

$ DEFINE FOC$DIR1 SI$DATA
$ DELETE SI$FOCUS:*.FTM;*/LOG
$ DELETE SI$FOCUS:*.MAS;*/LOG
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC name) INTERM=(Enrollment term)
FIN
$ CONVERT/APPEND/PAD=%D32 SI$FOCUS:PLAY.FTM SI$DATA:AIBBFL.DAT
$ EXIT

FOCUS program :

-*  THIS FOCEXEC WILL CHANGE ANY I GRADES FOR THE INPUT TERM TO F.
-*    VARIABLES USED :
-*      INTERM : THE ENROLLMENT TERM TO LOOK AT.
-*
-SET &HDRKEY = '$$$MSC106      SR RPT GRD     YRE';
-INCLUDE (SIS Batch Header).SEG
JOIN CLEAR *
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE RTFILE
JN_KEY/A11=('XX'|SID_RT);
CHK_COURSE/A7=EDIT(SPE_SECT_RT, '9999999$$$$');
OUT_RECORD/A44=IF CHK_COURSE EQ 'HOS 270' OR 'HOS 271' OR 'FOR 220' OR 
'TUF 201' THEN ('45B'|SID_RT|'  PST'|TERM_RT|SPE_SECT_RT|
'         U  I') ELSE ('45B'|SID_RT|'  PST'|TERM_RT|SPE_SECT_RT|
'         F  I');
END
TABLE FILE RTFILE
PRINT OUT_RECORD AS '' IN 1
ON TABLE SAVE AS PLAY
IF TERM_RT EQ '&INTERM'
IF COLLEGE_RT NE 'CE'
IF CURR_AHRS_RT GT 00.00
IF OFCL_GRD_RT EQ 'I'
IF SPE_STAT_RT NE 'D'
END
JOIN CLEAR *
-SET &HDRKEY = '$$$MSC104      SR RPT GRD     YRE';
-INCLUDE (SIS Batch Header).SEG
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE RTFILE
JN_KEY/A11=('XX'|SID_RT);
OUT_RECORD/A53=('40C'|SID_RT|'     '|TERM_RT|'                        '|
'        4');
END
TABLE FILE RTFILE
PRINT OUT_RECORD AS '' IN 1
ON TABLE SAVE AS PLAY
IF TERM_RT EQ '&INTERM'
IF COLLEGE_RT NE 'CE'
IF CURR_AHRS_RT GT 00.00
IF OFCL_GRD_RT EQ 'I'
IF SPE_STAT_RT NE 'D'
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage