FOCUS program (1) :

-*
-*  This FOCUS program shows all non-credit classes with credit hours.
-*
JOIN CLEAR *
TABLE FILE RCFILE
PRINT SECTION_ID BY TERM
WHERE (CTF_MAX_CREDIT GT 0) OR (CTF_MIN_CREDIT GT 0);
WHERE COLLEGE EQ 'CE';
END
JOIN CLEAR *


FOCUS program (2) :

-*
-*  This FOCUS program creates batch transactions to clear out the credit 
-*  hours field of students who are registered in a non-credit class that 
-*  was mistakenly set up with credit hours. 
-*
JOIN CLEAR *
FILEDEF FINFIX DISK FINFIX.FTM APPEND LREC 90 RECFM F
-*
-*  Create The Batch Header
-*
DEFINE FILE AAFILE
BATCH_HEADER1/A35 = '$$$MSC502        CLR CRE HRS    YSA';
BATCH_HEADER2/A55 =      
'                                                       ';
END
TABLE FILE AAFILE
PRINT BATCH_HEADER1 AS ''
      BATCH_HEADER2 AS ''
BY STU_ID NOPRINT   
ON TABLE SAVE AS FINFIX   
IF RECORDLIMIT EQ 1  
END
DEFINE FILE RTFILE
JN_KEY/A14=TERM|SECTION_ID;
END
TABLE FILE RTFILE
PRINT TERM SECTION_ID BY STU_ID
ON TABLE HOLD AS RTTEMP2
WHERE TERM EQ '<COURSE TERM>';
WHERE SECTION_ID EQ '<COURSE SECTION>';
END
-*
DEFINE FILE RTTEMP2
BTH_TRANS/A90 = ('45B'|STU_ID|'MNT  '|TERM|SECTION_ID|' *');
END
TABLE FILE RTTEMP2
PRINT BTH_TRANS BY STU_ID NOPRINT
ON TABLE SAVE AS FINFIX
END
JOIN CLEAR *


FOCUS program (3) :

-*
-*  This FOCUS program checks results after above batch transactions have been
-*  processed.
-*
JOIN CLEAR *
TABLE FILE RTFILE
PRINT CURR_ATTEMPTED_HRS BY STU_ID
WHERE TERM EQ '<COURSE TERM>';
WHERE SECTION_ID EQ '<COURSE SECTION>';
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage