Program Code

Typical DCL Command Procedure to run the program :

$ DEFINE FOC$DIR1 SI$DATA
$ DELETE/LOG SI$FOCUS:*.FTM;*/LOG
$ DELETE/LOG SI$FOCUS:*.MAS;*/LOG
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC name) ETERM1=(Application Term)
FIN
$ SET DEFAULT Z$PRT
$ RENAME TEMPFILE.DOC (FOCEXEC name).PRT /LOG
$ EXIT

FOCUS program :

-*  THIS FOCEXEC PRODUCES THE ADMISSIONS APPLICANT STATUS REPORT.
-*    VARIABLES USED :
-*      ETERM1 : THE ADMISSIONS TERM TO SELECT RECORDS FROM
-*
JOIN CLEAR *
OFFLINE CLOSE
FILEDEF OFFLINE DISK Z$PRT:TEMPFILE.DOC
-*
-*    THIS FOCUS SEGMENT WILL PLACE INTO A HOLD FILE IN A HORIZONTAL FORMAT
-*    THE FIRST 6 ADMISSIONS TEST SCORES.
-*
DEFINE FILE MMFILE
JN_KEY/A11=('XX'|SID_MM);
END
TABLE FILE MMFILE
PRINT APP_TERM SID_MM BY JN_KEY
IF APP_TERM EQ '&ETERM1'
ON TABLE HOLD AS MMTEMP10
END
JOIN JN_KEY IN MMTEMP10 TO KEY IN RBFILE AS J1
MATCH FILE MMTEMP10
PRINT APP_TERM SID_MM TEST_CTR AS TEST_SCORE_NUMBER BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD1 TEST_DT AS TEST_DT1 SCORE1 AS SCORE1A 
      SCORE2 AS SCORE1B SCORE3 AS SCORE1C SCORE4 AS SCORE1D 
      SCORE5 AS SCORE1E 
BY JN_KEY
IF RB_030_ORDER EQ 1
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_SCORE_NUMBER
BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD2 TEST_DT AS TEST_DT2 SCORE1 AS SCORE2A 
      SCORE2 AS SCORE2B SCORE3 AS SCORE2C SCORE4 AS SCORE2D 
      SCORE5 AS SCORE2E 
BY JN_KEY
IF RB_030_ORDER EQ 2
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_SCORE_NUMBER
BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD3 TEST_DT AS TEST_DT3 SCORE1 AS SCORE3A 
      SCORE2 AS SCORE3B SCORE3 AS SCORE3C SCORE4 AS SCORE3D 
      SCORE5 AS SCORE3E 
BY JN_KEY
IF RB_030_ORDER EQ 3
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_SCORE_NUMBER
BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD4 TEST_DT AS TEST_DT4 SCORE1 AS SCORE4A 
      SCORE2 AS SCORE4B SCORE3 AS SCORE4C SCORE4 AS SCORE4D 
      SCORE5 AS SCORE4E 
BY JN_KEY
IF RB_030_ORDER EQ 4
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_SCORE_NUMBER
BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD5 TEST_DT AS TEST_DT5 SCORE1 AS SCORE5A 
      SCORE2 AS SCORE5B SCORE3 AS SCORE5C SCORE4 AS SCORE5D 
      SCORE5 AS SCORE5E 
BY JN_KEY
IF RB_030_ORDER EQ 5
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_CD5 TEST_DT5 SCORE5A SCORE5B SCORE5C SCORE5D SCORE5E
      TEST_SCORE_NUMBER
BY JN_KEY
RUN
FILE MMTEMP10
PRINT TEST_CD AS TEST_CD6 TEST_DT AS TEST_DT6 SCORE1 AS SCORE6A 
      SCORE2 AS SCORE6B SCORE3 AS SCORE6C SCORE4 AS SCORE6D 
      SCORE5 AS SCORE6E
BY JN_KEY
IF RB_030_ORDER EQ 6
AFTER MATCH HOLD OLD
END
-RUN
TABLE FILE HOLD
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_CD5 TEST_DT5 SCORE5A SCORE5B SCORE5C SCORE5D SCORE5E
      TEST_CD6 TEST_DT6 SCORE6A SCORE6B SCORE6C SCORE6D SCORE6E
      TEST_SCORE_NUMBER
BY JN_KEY
ON TABLE HOLD AS MMTEMP11
END
-*
-*    THIS FOCUS SEGMENT WILL PLACE INTO A HOLD FILE IN A HORIZONTAL FORMAT
-*    THE FIRST 8 ADMISSIONS REQUIREMENTS ALONG WITH THE STATUS OF EACH.
-*
DEFINE FILE MMFILE
JN_KEY/A11=('XX'|SID_MM);
END
TABLE FILE MMFILE
PRINT JN_KEY MM_030_ORDER 
IF APP_TERM EQ '&ETERM1'
ON TABLE HOLD AS MMTEMP1
END
JOIN JN_KEY IN MMTEMP1 TO KEY IN MMFILE AS J1
MATCH FILE MMTEMP1
PRINT MM_030_ORDER AS INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD1 RQMT_STAT AS STATUS1 BY JN_KEY 
IF MM_040_ORDER EQ 1
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD2 RQMT_STAT AS STATUS2 BY JN_KEY 
IF MM_040_ORDER EQ 2
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD3 RQMT_STAT AS STATUS3 BY JN_KEY
IF MM_040_ORDER EQ 3
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD4 RQMT_STAT AS STATUS4 BY JN_KEY
IF MM_040_ORDER EQ 4
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 REQD4 STATUS4 INPUT_COUNT 
      BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD5 RQMT_STAT AS STATUS5 BY JN_KEY
IF MM_040_ORDER EQ 5
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 REQD4 STATUS4 
      REQD5 STATUS5 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD6 RQMT_STAT AS STATUS6 BY JN_KEY
IF MM_040_ORDER EQ 6
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 REQD4 STATUS4 
      REQD5 STATUS5 REQD6 STATUS6 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD7 RQMT_STAT AS STATUS7 BY JN_KEY
IF MM_040_ORDER EQ 7
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 REQD4 STATUS4 
      REQD5 STATUS5 REQD6 STATUS6 REQD7 STATUS7 INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP1
PRINT RQMNT_TYP AS REQD8 RQMT_STAT AS STATUS8 BY JN_KEY
IF MM_040_ORDER EQ 8
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 REQD4 STATUS4 
      REQD5 STATUS5 REQD6 STATUS6 REQD7 STATUS7 REQD8 STATUS8 
      INPUT_COUNT BY JN_KEY
RUN
FILE MMTEMP11
PRINT TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_CD5 TEST_DT5 SCORE5A SCORE5B SCORE5C SCORE5D SCORE5E
      TEST_CD6 TEST_DT6 SCORE6A SCORE6B SCORE6C SCORE6D SCORE6E
      TEST_SCORE_NUMBER
BY JN_KEY
AFTER MATCH HOLD OLD-OR-NEW
END
-RUN
JOIN JN_KEY IN HOLD TO KEY IN MMFILE AS J2
TABLE FILE HOLD
PRINT JN_KEY SID_MM APP_TERM ADMIT_TYP DCSN_STAT APP_STATUS APP_FOR_PGM
      APP_FOR_LVL APP_CLASS REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 
      REQD4 STATUS4 REQD5 STATUS5 REQD6 STATUS6 REQD7 STATUS7 REQD8 STATUS8 
      HSG_STAT_MM APP_FOR_MJR APP_DT_MM
      TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_CD5 TEST_DT5 SCORE5A SCORE5B SCORE5C SCORE5D SCORE5E
      TEST_CD6 TEST_DT6 SCORE6A SCORE6B SCORE6C SCORE6D SCORE6E
      TEST_SCORE_NUMBER
ON TABLE HOLD AS MMTEMP2
WHERE MM_030_ORDER EQ INPUT_COUNT;
END
JOIN JN_KEY IN MMTEMP2 TO KEY IN AAFILE AS J3
TABLE FILE MMTEMP2
PRINT STU_NAME_AA SID_MM APP_TERM ADMIT_TYP DCSN_STAT APP_STATUS 
      APP_FOR_PGM
      APP_FOR_LVL APP_CLASS REQD1 STATUS1 REQD2 STATUS2 REQD3 STATUS3 
      REQD4 STATUS4 REQD5 STATUS5 REQD6 STATUS6 REQD7 STATUS7 REQD8 STATUS8 
      HSG_STAT_MM APP_FOR_MJR PHONE_AA STREET1_AA STREET2_AA CITY_AA
      STATE_AA ZIP_AA APP_DT_MM
      TEST_CD1 TEST_DT1 SCORE1A SCORE1B SCORE1C SCORE1D SCORE1E
      TEST_CD2 TEST_DT2 SCORE2A SCORE2B SCORE2C SCORE2D SCORE2E
      TEST_CD3 TEST_DT3 SCORE3A SCORE3B SCORE3C SCORE3D SCORE3E
      TEST_CD4 TEST_DT4 SCORE4A SCORE4B SCORE4C SCORE4D SCORE4E
      TEST_CD5 TEST_DT5 SCORE5A SCORE5B SCORE5C SCORE5D SCORE5E
      TEST_CD6 TEST_DT6 SCORE6A SCORE6B SCORE6C SCORE6D SCORE6E
      TEST_SCORE_NUMBER
      BY NAME_SORT_AA
ON TABLE HOLD AS MMTEMP3
IF AA_020_ORDER EQ 1
END
DEFINE FILE MMTEMP3
EDIT_SSN/A11=EDIT(SID_MM, '999-99-9999');
EDIT_PHONE/A14=EDIT(PHONE_AA, '(999) 999-9999');
APP_DT_OUT/A8=EDIT(APP_DT_MM, '99/99/99');
REQD_LINE/A52=('REQD '|REQD1|' '|REQD2|' '|REQD3|' '|REQD4|' '|REQD5|' '|
                REQD6|' '|REQD7|' '|REQD8);
STAT_LINE/A115=(STREET1_AA|'                                   '
               |'STAT '|STATUS1|'     '|STATUS2|'     '|STATUS3|'     '|
               STATUS4|'     '|STATUS5|'     '|STATUS6|'     '|STATUS7|
               '     '|STATUS8);
ADDR2_LINE/A86=(STREET2_AA|'                                   '|
               'PROGRAM : '|APP_FOR_PGM);
CITY_LINE/A103=(CITY_AA|'  '|STATE_AA|'  '|ZIP_AA|'            '|EDIT_PHONE
               |'             CAMPUS : '|HSG_STAT_MM|'    APPLY DATE : '|
               APP_DT_OUT);
DESC_LINE/A5=(DCSN_STAT|'/'|APP_STATUS);
EXTRA_LINE/A10=('          ');
-*
TEST_YEAR1/A2=EDIT(TEST_DT1, '99$$$$');
TEST_MONTH1/A2=EDIT(TEST_DT1, '$$99$$');
TEST_DAY1/A2=EDIT(TEST_DT1, '$$$$99');
TEST_YEAR2/A2=EDIT(TEST_DT2, '99$$$$');
TEST_MONTH2/A2=EDIT(TEST_DT2, '$$99$$');
TEST_DAY2/A2=EDIT(TEST_DT2, '$$$$99');
TEST_YEAR3/A2=EDIT(TEST_DT3, '99$$$$');
TEST_MONTH3/A2=EDIT(TEST_DT3, '$$99$$');
TEST_DAY3/A2=EDIT(TEST_DT3, '$$$$99');
TEST_YEAR4/A2=EDIT(TEST_DT4, '99$$$$');
TEST_MONTH4/A2=EDIT(TEST_DT4, '$$99$$');
TEST_DAY4/A2=EDIT(TEST_DT4, '$$$$99');
TEST_YEAR5/A2=EDIT(TEST_DT5, '99$$$$');
TEST_MONTH5/A2=EDIT(TEST_DT5, '$$99$$');
TEST_DAY5/A2=EDIT(TEST_DT5, '$$$$99');
TEST_YEAR6/A2=EDIT(TEST_DT6, '99$$$$');
TEST_MONTH6/A2=EDIT(TEST_DT6, '$$99$$');
TEST_DAY6/A2=EDIT(TEST_DT6, '$$$$99');
-*
OUT_SCORE1A/A4=EDIT(SCORE1A);
OUT_SCORE1B/A4=EDIT(SCORE1B);
OUT_SCORE1C/A4=EDIT(SCORE1C);
OUT_SCORE1D/A4=EDIT(SCORE1D);
OUT_SCORE1E/A4=EDIT(SCORE1E);
OUT_SCORE2A/A4=EDIT(SCORE2A);
OUT_SCORE2B/A4=EDIT(SCORE2B);
OUT_SCORE2C/A4=EDIT(SCORE2C);
OUT_SCORE2D/A4=EDIT(SCORE2D);
OUT_SCORE2E/A4=EDIT(SCORE2E);
OUT_SCORE3A/A4=EDIT(SCORE3A);
OUT_SCORE3B/A4=EDIT(SCORE3B);
OUT_SCORE3C/A4=EDIT(SCORE3C);
OUT_SCORE3D/A4=EDIT(SCORE3D);
OUT_SCORE3E/A4=EDIT(SCORE3E);
OUT_SCORE4A/A4=EDIT(SCORE4A);
OUT_SCORE4B/A4=EDIT(SCORE4B);
OUT_SCORE4C/A4=EDIT(SCORE4C);
OUT_SCORE4D/A4=EDIT(SCORE4D);
OUT_SCORE4E/A4=EDIT(SCORE4E);
OUT_SCORE5A/A4=EDIT(SCORE5A);
OUT_SCORE5B/A4=EDIT(SCORE5B);
OUT_SCORE5C/A4=EDIT(SCORE5C);
OUT_SCORE5D/A4=EDIT(SCORE5D);
OUT_SCORE5E/A4=EDIT(SCORE5E);
OUT_SCORE6A/A4=EDIT(SCORE6A);
OUT_SCORE6B/A4=EDIT(SCORE6B);
OUT_SCORE6C/A4=EDIT(SCORE6C);
OUT_SCORE6D/A4=EDIT(SCORE6D);
OUT_SCORE6E/A4=EDIT(SCORE6E);
TEST_SCORE_ALPHA/A3=EDIT(TEST_SCORE_NUMBER);
-*
TEST_SCORE_LINE1/A124=IF TEST_SCORE_ALPHA EQ '000' THEN ' '
ELSE IF TEST_SCORE_ALPHA EQ '001' THEN 
(TEST_CD1|' '|TEST_MONTH1|'/'|TEST_DAY1|'/'|TEST_YEAR1|' '|OUT_SCORE1A|' '|
OUT_SCORE1B|' '|OUT_SCORE1C|' '|OUT_SCORE1D|' '|OUT_SCORE1E|' ') 
ELSE IF TEST_SCORE_ALPHA EQ '002' THEN 
(TEST_CD1|' '|TEST_MONTH1|'/'|TEST_DAY1|'/'|TEST_YEAR1|' '|OUT_SCORE1A|' '|
OUT_SCORE1B|' '|OUT_SCORE1C|' '|OUT_SCORE1D|' '|OUT_SCORE1E|' '|TEST_CD2|' '|
TEST_MONTH2|'/'|TEST_DAY2|'/'|TEST_YEAR2|' '|OUT_SCORE2A|' '|OUT_SCORE2B|' '|
OUT_SCORE2C|' '|OUT_SCORE2D|' '|OUT_SCORE2E|' ') 
ELSE IF TEST_SCORE_ALPHA GE '003' THEN 
(TEST_CD1|' '|TEST_MONTH1|'/'|TEST_DAY1|'/'|TEST_YEAR1|
' '|OUT_SCORE1A|' '|OUT_SCORE1B|' '|OUT_SCORE1C|' '|OUT_SCORE1D|' '|
OUT_SCORE1E|' '|TEST_CD2|' '|TEST_MONTH2|'/'|TEST_DAY2|'/'|TEST_YEAR2|' '|
OUT_SCORE2A|' '|OUT_SCORE2B|' '|OUT_SCORE2C|' '|OUT_SCORE2D|' '|OUT_SCORE2E|
' '|TEST_CD3|' '|TEST_MONTH3|'/'|TEST_DAY3|'/'|TEST_YEAR3|' '|OUT_SCORE3A|
' '|OUT_SCORE3B|' '|OUT_SCORE3C|' '|OUT_SCORE3D|' '|OUT_SCORE3E);
-*
TEST_SCORE_LINE2/A124=IF TEST_SCORE_ALPHA LE '003' THEN ' '
ELSE IF TEST_SCORE_ALPHA EQ '004' THEN 
(TEST_CD4|' '|TEST_MONTH4|'/'|TEST_DAY4|'/'|TEST_YEAR4|' '|OUT_SCORE4A|
' '|OUT_SCORE4B|' '|OUT_SCORE4C|' '|OUT_SCORE4D|' '|OUT_SCORE4E|' ') 
ELSE IF TEST_SCORE_ALPHA EQ '005' THEN 
(TEST_CD4|' '|TEST_MONTH4|'/'|TEST_DAY4|'/'|TEST_YEAR4|' '|OUT_SCORE4A|
' '|OUT_SCORE4B|' '|OUT_SCORE4C|' '|OUT_SCORE4D|' '|OUT_SCORE4E|' '|
TEST_CD5|' '|TEST_MONTH5|'/'|TEST_DAY5|'/'|TEST_YEAR5|' '|OUT_SCORE5A|
' '|OUT_SCORE5B|' '|OUT_SCORE5C|' '|OUT_SCORE5D|' '|OUT_SCORE5E|' ') 
ELSE IF TEST_SCORE_ALPHA GE '006' THEN 
(TEST_CD4|' '|TEST_MONTH4|'/'|TEST_DAY4|'/'|TEST_YEAR4|
' '|OUT_SCORE4A|' '|OUT_SCORE4B|' '|OUT_SCORE4C|' '|OUT_SCORE4D|' '|
OUT_SCORE4E|' '|TEST_CD5|' '|TEST_MONTH5|'/'|TEST_DAY5|'/'|TEST_YEAR5|' '|
OUT_SCORE5A|' '|OUT_SCORE5B|' '|OUT_SCORE5C|' '|OUT_SCORE5D|' '|OUT_SCORE5E|
' '|TEST_CD6|' '|TEST_MONTH6|'/'|TEST_DAY6|'/'|TEST_YEAR6|' '|OUT_SCORE6A|
' '|OUT_SCORE6B|' '|OUT_SCORE6C|' '|OUT_SCORE6D|' '|OUT_SCORE6E);
-*
END
TABLE FILE MMTEMP3
HEADING
"<55 APPLICANT STATUS REPORT </1"
"<3 NAME/ADDRESS/TEST SCORES <+5 ID NUMBER   TERM TYPE STATUS LVL CLA     
<+6 REQUIREMENTS </1"
PRINT STU_NAME_AA AS '' IN 1 EDIT_SSN AS '' IN 29 APP_TERM AS '' IN 42
      ADMIT_TYP AS '' IN 47 DESC_LINE AS '' IN 52
      APP_FOR_LVL AS '' IN 60 APP_CLASS AS '' IN 63 
      REQD_LINE AS '' IN 68 OVER STAT_LINE AS '' 
      OVER ADDR2_LINE AS '' OVER
      CITY_LINE AS '' OVER EXTRA_LINE AS '' OVER TEST_SCORE_LINE1 AS '' 
      OVER TEST_SCORE_LINE2 AS '' 
      OVER EXTRA_LINE AS '' OVER EXTRA_LINE AS ''
      BY APP_FOR_MJR NOPRINT
      ON APP_FOR_MJR PAGE-BREAK
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage

Hosted by www.Geocities.ws