$!
$! DEFINE_TUITION_CALC.COM
$!
$ SET NOVERIFY
$ SET NOCONTROL_Y
$ SET TERM/WIDTH=80
$ ASK  := READ/END=NOCHANGE/PROMPT=
$ SAY  := WRITE SYS$OUTPUT
$ TERM1 = ""
$ TERM2 = ""
$ TERM3 = ""
$!
$!  Get current terms defined.
$!
$ OPEN/READ/ERROR=GET_TERMS INFILE SI$DATA:BBC220PRM.DAT
$ READ INFILE INRECORD
$ READ INFILE INRECORD
$ TERM1 = F$EXTRACT(0,5,INRECORD)
$ TERM2 = F$EXTRACT(15,5,INRECORD)
$ TERM3 = F$EXTRACT(30,5,INRECORD)
$ CLOSE INFILE
$ TYPE SYS$INPUT



	This procedure will allow definition of tuition calculation
	terms for the SIS billing system.

        Up to three terms may be defined.

	CONTROL-Z to exit without updating terms.


$ IF TERM3 .NES. ""
$ THEN
$	SAY "Current tuition calc terms are ''TERM1' and ''TERM2' and ''TERM3'."
$ ENDIF
$!
$ IF (TERM2 .NES. "") .AND. (TERM3 .EQS. "")
$ THEN
$	SAY "Current tuition calc terms are ''TERM1' and ''TERM2'."
$ ENDIF
$!
$ IF (TERM1 .NES. "") .AND. (TERM2 .EQS. "") .AND. (TERM3 .EQS. "")
$ THEN
$	SAY "Current tuition calc term is ''TERM1'."
$ ENDIF
$!
$!  Prompt for new terms.
$!
$GET_TERMS:
$ SAY " "
$ SAY " "
$ SAY " "
$ ASK "First tuition calc term : " SYS$COMMAND TERM1
$ SAY " "
$ SAY "Second tuition calc term : "
$ ASK "Press <ENTER> if none : " SYS$COMMAND TERM2
$ SAY " "
$ SAY "Third tuition calc term : "
$ ASK "Press <ENTER> if none : " SYS$COMMAND TERM3
$ SAY " "
$!
$ IF TERM1 .EQS. ""
$ THEN
$	SAY "Tuition calc terms are undefined."
$	GOTO GET_TERMS
$ ENDIF
$!
$ SAY " "
$!
$ IF TERM3 .NES. ""
$ THEN
$	SAY "New tuition calc terms will be ''TERM1' and ''TERM2' and ''TERM3'."
$ ENDIF
$!
$ IF (TERM2 .NES. "") .AND. (TERM3 .EQS. "")
$ THEN
$	SAY "New tuition calc terms will be ''TERM1' and ''TERM2'."
$ ENDIF
$!
$ IF (TERM1 .NES. "") .AND. (TERM2 .EQS. "") .AND. (TERM3 .EQS. "")
$ THEN
$	SAY "New tuition calc term is ''TERM1'."
$ ENDIF
$!
$ SAY " "
$ ASK "Are the above terms correct Y/N  [Y] " SYS$COMMAND YN
$ IF YN .EQS. "" THEN YN = "Y"
$ IF YN
$ THEN
$ 	OPEN/WRITE OUTFILE SI$DATA:BBC220PRM.DAT
$	WRITE OUTFILE "PGM=BBC220,OPTION1=Y,OPTION2=N,UPDATE=Y"  
$ 	IF TERM3 .NES. ""
$ 	THEN
$		OUTREC = TERM1 + "ALL       " + TERM2 + "ALL       " + TERM3 + "ALL       "
$ 	ENDIF
$!
$ 	IF (TERM2 .NES. "") .AND. (TERM3 .EQS. "")
$ 	THEN
$		OUTREC = TERM1 + "ALL       " + TERM2 + "ALL       "
$ 	ENDIF
$!
$ 	IF (TERM1 .NES. "") .AND. (TERM2 .EQS. "") .AND. (TERM3 .EQS. "")
$	THEN
$		OUTREC = TERM1 + "ALL       "
$ 	ENDIF
$	WRITE OUTFILE OUTREC
$	CLOSE OUTFILE
$ 	SAY " "
$ 	SAY " "
$	SAY "Current tuition calc terms sucessfully updated."
$ 	GOTO EXPROC
$ ENDIF
$ GOTO GET_TERMS
$NOCHANGE:
$ SAY " "
$ SAY " "
$ SAY "No changes were made to current tuition calc terms."
$!
$EXPROC:
$ SAY " "
$ SAY " "
$ ASK " <RETURN> to continue ....  " SYS$COMMAND DUMMY
$!
$ EXIT

This page hosted by Get your own Free Homepage