Typical DCL Command Procedure to run the program :
(1)
$ DELETE SI$FOCUS:*.FTM;*/LOG
$ DELETE SI$FOCUS:*.MAS;*/LOG
$ DEFINE FOC$DIR1 SI$DATA
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC name)
FIN
$ CONVERT/APPEND/PAD=%D32 SI$FOCUS:PLAY.FTM SI$DATA:AIBBFL.DAT
$ SET DEFAULT Z$PRT
$ NAME = F$GETJPI("","USERNAME")
$ MAIL/SUBJ="TAP FORM" TEMPFILE.DOC 'NAME'
$ RENAME TEMPFILE.DOC (FOCEXEC name).PRT /LOG
$ EXIT
(2)
$ DELETE SI$FOCUS:*.FTM;*/LOG
$ DELETE SI$FOCUS:*.MAS;*/LOG
$ DEFINE FOC$DIR1 SI$DATA
$ SET DEFAULT SI$FOCUS
$ FOCUS
EXEC (FOCEXEC name #1)
FIN
$ COPY SI$FOCUS:EVAL.MFD SI$FOCUS:RTTEMP11.MAS;/LOG
$ COPY SI$FOCUS:EMPTY_FILE.DOC SI$FOCUS:RTTEMP11.FTM;/LOG
$ STA1 = F$SEARCH ("SI$FOCUS:RTTEMP1.FTM;*",1)
$ STA2 = F$SEARCH ("SI$FOCUS:RTTEMP2.FTM;*",2)
$ IF (STA1 .NES. "") THEN CONVERT/APPEND RTTEMP1.FTM SI$FOCUS:RTTEMP11.FTM
$ IF (STA2 .NES. "") THEN CONVERT/APPEND RTTEMP2.FTM SI$FOCUS:RTTEMP11.FTM
$ DELETE SI$FOCUS:RTTEMP1.FTM;*/LOG
$ DELETE SI$FOCUS:RTTEMP2.FTM;*/LOG
$ FOCUS
EXEC (FOCEXEC name #2)
FIN
$ CONVERT/APPEND/PAD=%D32 SI$FOCUS:PLAY.FTM SI$DATA:AIBBFL.DAT
$ SET DEFAULT Z$PRT
$ NAME = F$GETJPI("","USERNAME")
$ MAIL/SUBJ="EVAL. REPORT" TEMPFILE.DOC 'NAME'
$ RENAME TEMPFILE.DOC (FOCEXEC name).PRT /LOG
$ EXIT
FOCUS program :
(1)
-* THIS FOCEXEC WILL GENERATE A TAP EVALUATION SHEET
-* FOR EACH INDICATED STUDENT. THEN, THE FLAG ON SCREEN 119 IS CLEARED.
-*
-SET &HDRKEY = '$$$MSC109 RESET TAP FLD YAM';
-INCLUDE (SIS Batch Header).SEG
SET PAGE=NOPAGE
OFFLINE CLOSE
FILEDEF OFFLINE DISK Z$PRT:TEMPFILE.DOC
FILEDEF D_MAJOR DISK SI$FOCUS:D_MAJOR.DOC
FILEDEF INSTFL DISK SI$DATA:INSTFL.DAT
JOIN CLEAR *
TABLE FILE RTFILE
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT BY SID_RT
ON TABLE HOLD AS RTTEMP1
IF RPT10_FLG_RT EQ 'Y'
END
JOIN TEMP_KEY WITH SID_RT IN RTTEMP1 TO KEY IN RPFILE AS J1
DEFINE FILE RTTEMP1
TEMP_KEY/A11=('XX'|SID_RT);
END
TABLE FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
BY ADVSR1_ID_RP
ON TABLE HOLD AS RTTEMP2
END
JOIN CLEAR *
JOIN ADVSR1_ID_RP IN RTTEMP2 TO ADVISOR_CODE IN INSTFL AS J1
TABLE FILE RTTEMP2
PRINT ADVISOR_NAME TERM_RT PRIM_MJR1_RT RPT3_FLG_RT
BY SID_RT
ON TABLE HOLD AS RTTEMP3
END
JOIN CLEAR *
JOIN TEMP_KEY WITH SID_RT IN RTTEMP3 TO KEY IN AAFILE AS J1
DEFINE FILE RTTEMP3
TEMP_KEY/A11=('XX'|SID_RT);
SORT_KEY_TEMP/A12=(TERM_RT|SID_RT);
END
TABLE FILE RTTEMP3
PRINT STU_NAME_AA STREET1_AA STREET2_AA CITY_AA STATE_AA
ZIP_AA TERM_RT PRIM_MJR1_RT RPT3_FLG_RT ADVISOR_NAME
SORT_KEY_TEMP
BY SID_RT
ON TABLE HOLD AS RTTEMP4
WHERE AA_020_ORDER EQ 1;
END
DEFINE FILE RTTEMP4
TMP_NAME/A32 = GETTOK(STU_NAME_AA,32,2,',',32,TMP_NAME);
SFX_NAME/A5 = GETTOK(STU_NAME_AA,32,3,',',5,SFX_NAME);
FMN_NAME/A32 = LJUST(32,TMP_NAME,FMN_NAME);
FST_NAME/A32 = GETTOK(FMN_NAME,32,1,' ',32,FST_NAME);
MDL_NAME/A32 = GETTOK(STU_NAME_AA,32,2,',',32,MDL_NAME);
LST_NAME/A32 = GETTOK(STU_NAME_AA,32,1,',',32,LST_NAME);
EXPNDNME/A72 = FMN_NAME || (' '|LST_NAME|' ') || SFX_NAME || '*';
CMPRSNME/A32 = GETTOK (EXPNDNME,66,1,'*',32,CMPRSNME);
R_NAME/A32 = LJUST(32,CMPRSNME,R_NAME);
PRINT_MAJOR/A35=DECODE PRIM_MJR1_RT (D_MAJOR ELSE '*****');
PRINT_TERM/A4=EDIT(TERM_RT, '99-9');
SID_LINE1/A11=EDIT(SID_RT,'999-99-9999');
CAMPUS_LINE/A12=DECODE RPT3_FLG_RT (A 'CAMPUS A' B 'CAMPUS B'
C 'CAMPUS C' ELSE 'CAMPUS A');
-*
OUT_LINE1/A74=(' '|PRIM_MJR1_RT|' '|PRINT_MAJOR|' '|PRINT_TERM|
' '|SID_LINE1);
DASH_LINE1/A75=('---------- ----------------------------------- '|
'---- -----------');
DESC_LINE1/A74=('MAJOR CODE MAJOR '|
'TERM STUDENT ID');
OUT_LINE2/A80=(' '|STU_NAME_AA|' ADVISOR : '|ADVISOR_NAME);
OUT_LINE3/A80=(' '|STREET1_AA|' CAMPUS : '|CAMPUS_LINE);
OUT_LINE4/A37=(' '|STREET2_AA);
OUT_LINE5/A33=(' '|CITY_AA|', '|STATE_AA|' '|ZIP_AA);
-*
LET_LINE1/A80=('We have received your student articulation record for '|
'Technical Advanced');
LET_LINE2/A80=('Placement (TAP) from your high school. Upon the '|
'recommendation of the');
LET_LINE3/A80=('Department Head and completion of all TAP requirements, '|
'per the articulation');
LET_LINE4/A80=('guidelines for the designated course and major, credit '|
'will be awarded for ');
LET_LINE5/A80=('the course(es) checked below:');
-*
LET_LINE6/A80=('DEPARTMENT HEAD SIGNATURE REQUIRED PER COURSE.');
LET_LINE7/A80=('_______________________ ACC 101 Accounting Principles I'|
' 3.0');
LET_LINE8/A80=('_______________________ ACR 101 Fundamental of Refrigeration'|
' 5.0');
LET_LINE9/A80=('_______________________ ACR 103 The Refrigeration System'|
' 2.0');
LET_LINE10/A80=('_______________________ ACR 106 Basic Electricity'|
' for HVAC/R 4.0');
LET_LINE11/A80=('_______________________ ACR 110 Heating Fundamentals'|
' 4.0');
LET_LINE12/A80=('_______________________ ACR 140 Automatic Controls'|
' 3.0');
LET_LINE13/A80=('_______________________ ACR 206 Advanced Electricity for'|
' HVAC/R 2.0');
LET_LINE14/A80=('_______________________ CPT 111 Basic Programming I'|
' 3.0');
LET_LINE15/A80=('_______________________ CPT 114 Computers and Programming'|
' 3.0');
LET_LINE15A/A80=('_______________________ CPT 170 Microcomputer Applications'|
' 3.0');
LET_LINE16/A80=('_______________________ CPT 179 Microcomputer Word Processing'|
' 3.0');
LET_LINE17/A80=('_______________________ EGT 101 Basic Technical Drawing'|
' 2.0');
LET_LINE18/A80=('_______________________ EGT 151 Introduction to CAD'|
' 3.0');
LET_LINE19/A80=('_______________________ ELT 101 Circuit Fundamentals DC'|
' 4.0');
LET_LINE20/A80=('_______________________ ELT 102 Circuit Fundamentals AC'|
' 4.0');
LET_LINE21/A80=('_______________________ HOS 101 Principles of Food '|
'Production I 3.0');
LET_LINE22/A80=('_______________________ HOS 155 Hospitality Sanitation'|
' 3.0');
LET_LINE23/A80=('_______________________ HRT 154 Grounds Maintenance'|
' 3.0');
LET_LINE24/A80=('_______________________ MKT 101 Marketing'|
' 3.0');
LET_LINE25/A80=('_______________________ MKT 120 Selling Principles'|
' 3.0');
LET_LINE26/A80=('_______________________ MTT 120 Machine Tool Print Reading'|
' 3.0');
LET_LINE27/A80=('_______________________ MTT 121 Machine Tool Theory I'|
' 3.0');
LET_LINE28/A80=('_______________________ MTT 122 Machine Tool Practice'|
' 4.0');
LET_LINE29/A80=('_______________________ OST 105 Keyboarding'|
' 3.0');
LET_LINE30/A80=('_______________________ OST 110 Document Formatting'|
' 3.0');
LET_LINE31/A80=('_______________________ OST 143 Office Systems and '|
'Procedures 3.0');
LET_LINE32/A80=('_______________________ TUF 172 Turf Management'|
' 3.0');
LET_LINE33/A80=('_______________________ WLD 102 Introduction to Welding'|
' 2.0');
-*
LET_LINE34/A80=(' _________________________________ _______'|
'_________________________');
LET_LINE35/A80=(' Department Head Signature (Major) '|
'Registrar''s Office');
-*
LET_LINE36/A80=(' COPY TO: ADVISOR, HIGH SCHOOL COUNSELOR, VA');
-*
EXTRA_LINE/A10=(' ');
END
TABLE FILE RTTEMP4
HEADING
"<FF>"
"<22 SOME COLLEGE"
"<22 Technical Advanced Placement/(TAP) </1"
PRINT OUT_LINE1 AS '' IN 1 OVER DASH_LINE1 AS '' IN 1
OVER DESC_LINE1 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_LINE2 AS '' IN 1 OVER OUT_LINE3 AS '' IN 1 OVER
OUT_LINE4 AS '' IN 1 OVER OUT_LINE5 AS '' IN 1
OVER EXTRA_LINE AS '' OVER
LET_LINE1 AS '' IN 1 OVER LET_LINE2 AS '' IN 1 OVER
LET_LINE3 AS '' IN 1 OVER LET_LINE4 AS '' IN 1 OVER
LET_LINE5 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
LET_LINE6 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
LET_LINE7 AS '' IN 1 OVER LET_LINE8 AS '' IN 1 OVER
LET_LINE9 AS '' IN 1 OVER LET_LINE10 AS '' IN 1 OVER
LET_LINE11 AS '' IN 1 OVER LET_LINE12 AS '' IN 1 OVER
LET_LINE13 AS '' IN 1 OVER LET_LINE14 AS '' IN 1 OVER
LET_LINE15 AS '' IN 1 OVER LET_LINE15A AS '' IN 1 OVER
LET_LINE16 AS '' IN 1 OVER
LET_LINE17 AS '' IN 1 OVER LET_LINE18 AS '' IN 1 OVER
LET_LINE19 AS '' IN 1 OVER LET_LINE20 AS '' IN 1 OVER
LET_LINE21 AS '' IN 1 OVER LET_LINE22 AS '' IN 1 OVER
LET_LINE23 AS '' IN 1 OVER LET_LINE24 AS '' IN 1 OVER
LET_LINE25 AS '' IN 1 OVER LET_LINE26 AS '' IN 1 OVER
LET_LINE27 AS '' IN 1 OVER LET_LINE28 AS '' IN 1 OVER
LET_LINE29 AS '' IN 1 OVER LET_LINE30 AS '' IN 1 OVER
LET_LINE31 AS '' IN 1 OVER LET_LINE32 AS '' IN 1 OVER
LET_LINE33 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
EXTRA_LINE AS '' OVER
LET_LINE34 AS '' IN 1 OVER LET_LINE35 AS '' IN 1 OVER
EXTRA_LINE AS '' OVER LET_LINE36 AS '' IN 1
BY SORT_KEY_TEMP NOPRINT
ON SORT_KEY_TEMP PAGE-BREAK
END
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE RTTEMP4
BTH_TRANS1/A31 = ('40E'|SID_RT|' '|TERM_RT|' C');
END
TABLE FILE RTTEMP4
PRINT BTH_TRANS1 IN 1 AS ''
ON TABLE SAVE AS PLAY
END
JOIN CLEAR *
(2)
(a)
-* THIS FOCEXEC WILL GENERATE A HOLD FILE THAT WILL BE USED TO
-* GENERATE THE TRANSFER CREDIT EVALUATION SHEETS.
-*
JOIN CLEAR *
DEFINE FILE RTFILE
JN_KEY/A11=('XX'|SID_RT);
END
TABLE FILE RTFILE
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT BY JN_KEY
ON TABLE HOLD AS RTTEMP14
IF RPT6_FLG_RT EQ 'Y'
END
JOIN JN_KEY IN RTTEMP14 TO KEY IN RBFILE AS J1
TABLE FILE RTTEMP14
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD RB_040_ORDER
BY JN_KEY
ON TABLE HOLD AS RTTEMP11
END
JOIN CLEAR *
JOIN JN_KEY IN RTTEMP14 TO JN_KEY IN RTTEMP11 AS J1
DEFINE FILE RTTEMP14
PREV_COLL_XX/A7='0009999';
RB_040_XX/I3=1;
END
TABLE FILE RTTEMP14
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_XX RB_040_XX
BY JN_KEY
IF PREV_COLL_CD EQ ' '
ON TABLE SAVE AS RTTEMP1
END
TABLE FILE RTTEMP11
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD RB_040_ORDER
BY JN_KEY
ON TABLE SAVE AS RTTEMP2
END
JOIN CLEAR *
(b)
-* THIS FOCEXEC WILL GENERATE A TRANSFER CREDIT EVALUATION SHEET
-* FOR EACH INDICATED STUDENT. THEN, THE FLAG ON SCREEN 119 IS CLEARED.
-*
-SET &HDRKEY = '$$$MSC108 RESET EVA FLD YAM';
-INCLUDE (SIS Batch Header).SEG
SET PAGE=NOPAGE
OFFLINE CLOSE
FILEDEF OFFLINE DISK Z$PRT:TEMPFILE.DOC
FILEDEF D_MAJOR DISK SI$FOCUS:D_MAJOR.DOC
FILEDEF INSTFL DISK SI$DATA:INSTFL.DAT
FILEDEF RTTEMP11 DISK RTTEMP11.FTM
JOIN CLEAR *
DEFINE FILE RTTEMP11
KEYTOAC/A18=('070XX'|PREV_COLL_CD|' ');
END
TABLE FILE RTTEMP11
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD RB_040_ORDER JN_KEY
BY KEYTOAC
ON TABLE HOLD AS RTTEMP12
END
JOIN KEYTOAC IN RTTEMP12 TO SCH_IND_KEY IN ACFILE AS J2
TABLE FILE RTTEMP12
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD SCHL_NAME RB_040_ORDER JN_KEY
BY KEYTOAC
ON TABLE HOLD AS RTTEMP13
END
TABLE FILE RTTEMP13
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD SCHL_NAME RB_040_ORDER
BY JN_KEY
ON TABLE HOLD AS RTTEMP1
END
MATCH FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
BY JN_KEY
IF RB_040_ORDER EQ ' 1'
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_1 SCHL_NAME AS PRINT_COLLEGE1
BY JN_KEY
IF RB_040_ORDER EQ ' 1'
IF PREV_COLL_CD NE '0009999'
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
CODE_1 PRINT_COLLEGE1 BY JN_KEY
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_2 SCHL_NAME AS PRINT_COLLEGE2
BY JN_KEY
IF RB_040_ORDER EQ ' 2'
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
BY JN_KEY
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_3 SCHL_NAME AS PRINT_COLLEGE3
BY JN_KEY
IF RB_040_ORDER EQ ' 3'
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 BY JN_KEY
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_4 SCHL_NAME AS PRINT_COLLEGE4
BY JN_KEY
IF RB_040_ORDER EQ ' 4'
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
BY JN_KEY
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_5 SCHL_NAME AS PRINT_COLLEGE5
BY JN_KEY
IF RB_040_ORDER EQ ' 5'
AFTER MATCH HOLD OLD
END
-RUN
MATCH FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
CODE_5 PRINT_COLLEGE5
BY JN_KEY
RUN
FILE RTTEMP1
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT SID_RT
PREV_COLL_CD AS CODE_6 SCHL_NAME AS PRINT_COLLEGE6
BY JN_KEY
IF RB_040_ORDER EQ ' 6'
AFTER MATCH HOLD OLD
END
-RUN
TABLE FILE HOLD
PRINT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
CODE_5 PRINT_COLLEGE5 CODE_6 PRINT_COLLEGE6
BY SID_RT
ON TABLE HOLD AS RTTEMP10
END
JOIN CLEAR *
JOIN TEMP_KEY WITH SID_RT IN RTTEMP10 TO KEY IN RPFILE AS J1
DEFINE FILE RTTEMP10
TEMP_KEY/A11=('XX'|SID_RT);
END
TABLE FILE RTTEMP10
PRINT SID_RT TERM_RT PRIM_MJR1_RT RPT3_FLG_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
CODE_5 PRINT_COLLEGE5 CODE_6 PRINT_COLLEGE6
BY ADVSR1_ID_RP
ON TABLE HOLD AS RTTEMP2
END
JOIN CLEAR *
JOIN ADVSR1_ID_RP IN RTTEMP2 TO ADVISOR_CODE IN INSTFL AS J1
TABLE FILE RTTEMP2
PRINT ADVISOR_NAME TERM_RT PRIM_MJR1_RT RPT3_FLG_RT
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
CODE_5 PRINT_COLLEGE5 CODE_6 PRINT_COLLEGE6
BY SID_RT
ON TABLE HOLD AS RTTEMP3
END
JOIN CLEAR *
JOIN TEMP_KEY WITH SID_RT IN RTTEMP3 TO KEY IN AAFILE AS J1
DEFINE FILE RTTEMP3
TEMP_KEY/A11=('XX'|SID_RT);
SORT_KEY_TEMP/A12=(TERM_RT|SID_RT);
END
TABLE FILE RTTEMP3
PRINT STU_NAME_AA STREET1_AA STREET2_AA CITY_AA STATE_AA
ZIP_AA TERM_RT PRIM_MJR1_RT RPT3_FLG_RT ADVISOR_NAME
CODE_1 PRINT_COLLEGE1 CODE_2 PRINT_COLLEGE2
CODE_3 PRINT_COLLEGE3 CODE_4 PRINT_COLLEGE4
CODE_5 PRINT_COLLEGE5 CODE_6 PRINT_COLLEGE6
SORT_KEY_TEMP NAME_SORT_AA
BY SID_RT
ON TABLE HOLD AS RTTEMP4
WHERE AA_020_ORDER EQ 1;
END
DEFINE FILE RTTEMP4
TMP_NAME/A32 = GETTOK(STU_NAME_AA,32,2,',',32,TMP_NAME);
SFX_NAME/A5 = GETTOK(STU_NAME_AA,32,3,',',5,SFX_NAME);
FMN_NAME/A32 = LJUST(32,TMP_NAME,FMN_NAME);
FST_NAME/A32 = GETTOK(FMN_NAME,32,1,' ',32,FST_NAME);
MDL_NAME/A32 = GETTOK(STU_NAME_AA,32,2,',',32,MDL_NAME);
LST_NAME/A32 = GETTOK(STU_NAME_AA,32,1,',',32,LST_NAME);
EXPNDNME/A72 = FMN_NAME || (' '|LST_NAME|' ') || SFX_NAME || '*';
CMPRSNME/A32 = GETTOK (EXPNDNME,66,1,'*',32,CMPRSNME);
R_NAME/A32 = LJUST(32,CMPRSNME,R_NAME);
PRINT_MAJOR/A35=DECODE PRIM_MJR1_RT (D_MAJOR ELSE '*****');
PRINT_TERM/A4=EDIT(TERM_RT, '99-9');
SID_LINE1/A11=EDIT(SID_RT,'999-99-9999');
CAMPUS_LINE/A12=DECODE RPT3_FLG_RT (A 'CAMPUS A' B 'CAMPUS B'
C 'CAMPUS C' ELSE 'CAMPUS A');
-*
OUT_LINE1/A74=(' '|PRIM_MJR1_RT|' '|PRINT_MAJOR|' '|PRINT_TERM|
' '|SID_LINE1);
DASH_LINE1/A75=('---------- ----------------------------------- '|
'---- -----------');
DESC_LINE1/A74=('MAJOR CODE MAJOR '|
'TERM STUDENT ID');
OUT_LINE2/A37=(' '|STU_NAME_AA);
OUT_LINE3/A37=(' '|STREET1_AA);
OUT_LINE4/A37=(' '|STREET2_AA);
OUT_LINE5/A33=(' '|CITY_AA|', '|STATE_AA|' '|ZIP_AA);
-*
ADV_LINE/A46=(' ADVISOR : '|ADVISOR_NAME);
CAMPUS_LINE/A25=(' CAMPUS : '|CAMPUS_LINE);
-*
OUT_LINE6/A56=' CREDITS EVALUATED : ';
OUT_COL1/A56=' (1) SOME COLLEGE ';
OUT_COL2/A66=(' (2) '|PRINT_COLLEGE1|' '|CODE_1);
OUT_COL3/A66=(' (3) '|PRINT_COLLEGE2|' '|CODE_2);
OUT_COL4/A66=(' (4) '|PRINT_COLLEGE3|' '|CODE_3);
OUT_COL5/A66=(' (5) '|PRINT_COLLEGE4|' '|CODE_4);
OUT_COL6/A66=(' (6) '|PRINT_COLLEGE5|' '|CODE_5);
-*
OUT_LINE8/A56=' SEE ATTACHED GUIDE SHEET FOR CREDITS GRANTED IF';
OUT_LINE9/A56=' APPLICABLE. PLEASE CONTACT THE REGISTRAR''S';
OUT_LINE9A/A56=' OFFICE, CAMPUS A, TELEPHONE ###-#### IF';
OUT_LINE9B/A56=' YOU HAVE ANY QUESTIONS';
-*
OUT_LINE10/A56=' COMMENTS : _________________________________';
OUT_LINE11/A56=' ____________________________________________';
OUT_LINE12/A56=' ____________________________________________';
-*
OUT_LINE13/A56=' EVALUATED BY : ';
OUT_LINE14/A56=' ';
OUT_LINE15/A56=' ____________________________________________';
OUT_LINE16/A56=' COPY TO : ADVISOR, VA ';
-*
EXTRA_LINE/A10=(' ');
END
TABLE FILE RTTEMP4
HEADING
"<FF>"
"<22 SOME COLLEGE"
"<29 Evaluation of Credit </3"
PRINT OUT_LINE1 AS '' IN 1 OVER DASH_LINE1 AS '' IN 1
OVER DESC_LINE1 AS '' IN 1
OVER EXTRA_LINE AS '' OVER EXTRA_LINE AS '' OVER
OUT_LINE2 AS '' IN 1 OVER OUT_LINE3 AS '' IN 1 OVER
OUT_LINE4 AS '' IN 1 OVER OUT_LINE5 AS '' IN 1
OVER EXTRA_LINE AS '' OVER EXTRA_LINE AS '' OVER
ADV_LINE AS '' IN 1 OVER CAMPUS_LINE AS '' IN 1
OVER EXTRA_LINE AS '' OVER EXTRA_LINE AS '' OVER
OUT_LINE6 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_COL1 AS '' IN 1 OVER OUT_COL2 AS '' IN 1 OVER
OUT_COL3 AS '' IN 1 OVER OUT_COL4 AS '' IN 1 OVER
OUT_COL5 AS '' IN 1 OVER OUT_COL6 AS '' IN 1 OVER
EXTRA_LINE AS '' OVER
OUT_LINE10 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_LINE11 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_LINE12 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_LINE8 AS '' IN 1 OVER OUT_LINE9 AS '' IN 1 OVER
OUT_LINE9A AS '' IN 1 OVER OUT_LINE9B AS '' IN 1 OVER
EXTRA_LINE AS '' OVER EXTRA_LINE AS '' OVER
OUT_LINE13 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
OUT_LINE14 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
EXTRA_LINE AS '' OVER
OUT_LINE15 AS '' IN 1 OVER EXTRA_LINE AS '' OVER
EXTRA_LINE AS '' OVER EXTRA_LINE AS '' OVER
OUT_LINE16 AS '' IN 1
BY NAME_SORT_AA NOPRINT
ON NAME_SORT_AA PAGE-BREAK
END
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE RTTEMP4
BTH_TRANS1/A26 = ('40E'|SID_RT|' '|TERM_RT|' C');
END
TABLE FILE RTTEMP4
PRINT BTH_TRANS1 IN 1 AS ''
ON TABLE SAVE AS PLAY
END
JOIN CLEAR *
Master File Description (MFD) for EVAL :
FILE=RTTEMP11,SUFFIX=FIX SEGNAME=RTTEMP11 FIELDNAME=JN_KEY,E01,A11,A11,$ FIELDNAME=TERM_RT,E02,A03,A03,$ FIELDNAME=PRIM_MJR1_RT,E03,A04,A04,$ FIELDNAME=RPT3_FLG_RT,E04,A01,A01,$ FIELDNAME=SID_RT,E05,A09,A09,$ FIELDNAME=PREV_COLL_CD,E06,A07,A07,$ FIELDNAME=RB_040_ORDER,E07,A03,A03,$
This page hosted by 
Get your own Free Homepage