Typical DCL Command Procedure to run the program :

$ DEFINE FOC$DIR1 SI$DATA
$ DELETE SI$FOCUS:*.FTM;*/LOG
$ DELETE SI$FOCUS:*.MAS;*/LOG
$ DELETE SI$FOCUS:*.WP;*/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
$ NAME = F$GETJPI("","USERNAME")
$ MAIL/SUBJECT="Dropped Students List/(FOCEXEC name)" SI$FOCUS:PLAY2.WP -
  'NAME'
$ EXIT

FOCUS program :

-*  THIS FOCEXEC WILL DROP THE NON-CE COURSES OF ANY UNPAID STUDENTS.
-*    VARIABLES USED :
-*      INTERM : THE ENROLLMENT TERM TO LOOK AT.
-*
-SET &HDRKEY = '$$$MSC107      SR DRP NOP     YRE';
-INCLUDE (SIS Batch Header).SEG
JOIN CLEAR *
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE RTFILE
OUT_RECORD/A60=('45B'|SID_RT|'  DRP'|TERM_RT|SPE_SECT_RT|
'                           5');
END
TABLE FILE RTFILE
PRINT OUT_RECORD AS '' IN 1
ON TABLE SAVE AS PLAY
IF TERM_RT EQ '&INTERM'
IF RPT12_FLG_RT EQ 'N'
IF CURR_AHRS_RT GT 00.00
IF CRS_LVL_RT NE 'CE'
WHERE RT_020_ORDER LE SPE_CTR_RT;
END
TABLE FILE RTFILE
PRINT RPT12_FLG_RT BY SID_RT
ON TABLE HOLD AS RTTEMP1
IF TERM_RT EQ '&INTERM'
IF RPT12_FLG_RT EQ 'N'
IF CURR_AHRS_RT GT 00.00
IF CRS_LVL_RT NE 'CE'
END
JOIN TEMP_KEY WITH SID_RT IN RTTEMP1 TO KEY IN BRFILE AS J1
DEFINE FILE RTTEMP1
TEMP_KEY/A11=('XX'|SID_RT);
END
TABLE FILE RTTEMP1
PRINT ACCT_BAL_STU BY SID_RT
ON TABLE HOLD AS BRTEMP1
END
JOIN TEMP_KEY WITH SID_RT IN BRTEMP1 TO KEY IN AAFILE AS J2
DEFINE FILE BRTEMP1
TEMP_KEY/A11=('XX'|SID_RT);
SID_OUT/A11=EDIT(SID_RT, '999-99-9999');
END
TABLE FILE BRTEMP1
PRINT SID_OUT AS 'Student ID' ACCT_BAL_STU AS 'Account Bal' BY STU_NAME_AA
ON TABLE SAVE AS PLAY2 FORMAT WP
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage