FOCUS program :

-*
-*   This FOCUS program will create batch transactions that will
-*   move the rap codes from one award year to the next.
-*
JOIN CLEAR *                                                                    
-*
FILEDEF FARAP DISK FARAP.FTM APPEND LREC 80 RECFM F
-*
-*  Create The Batch Header
-*
DEFINE FILE AAFILE
BATCH_HEADER1/A40 = '$$$MSC520        FA RAP UPD     YFA     ';
BATCH_HEADER2/A40 = '                                        ';
END
TABLE FILE AAFILE
PRINT BATCH_HEADER1 AS ''
      BATCH_HEADER2 AS ''
BY STU_ID NOPRINT   
ON TABLE SAVE AS FARAP  
IF RECORDLIMIT EQ 1  
END
-*
MATCH FILE SAFILE
PRINT PK_RAP_CODE BY STU_ID 
WHERE AWD_YR EQ '1999';
WHERE AWD_PER EQ '1999A';
WHERE PK_RAP_CODE NE '';
WHERE SA002_ORDER LE 2;
RUN
FILE SAFILE
PRINT PK_RAP_CODE BY STU_ID 
WHERE AWD_YR EQ '2000';
WHERE AWD_PER EQ '2000A';
WHERE PK_RAP_CODE NE '';
WHERE SA002_ORDER LE 2;
AFTER MATCH HOLD OLD-NOT-NEW
END
-RUN
-*
DEFINE FILE HOLD
BTH_TRANS1/A80 = ('73B'|STU_ID|'      '|'2000A'|'                         '|
'                      '|PK_RAP_CODE);
END
TABLE FILE HOLD
PRINT BTH_TRANS1 IN 1 AS ''
ON TABLE SAVE AS FARAP
END
-*
JOIN CLEAR *

This page hosted by Get your own Free Homepage