XL.IDS = ""
*
* ARGUMENTS
* JS.USE.LISTNAME        savedlist name
* JS.LIST.VAR1           Terms
* JS.LIST.VAR2           Faculty id's
* JS.LIST.VAR3           Subjects
* JS.LIST.VAR4           Courses
* JS.LIST.VAR5           Locations
* JS.DATE.VAR1           Contract sent start date
* JS.DATE.VAR2           Contract sent end date
* JS.VAR1                Report type (eXcel, or Report)
* JS.VAR4                DPAR record id
* JS.VAR3                Subject of email
* JS.VAR2                Reply to email address
* JS.VAR5                Accepted Contracts Y/N
* JS.DATE.VAR3           Date of acceptance
*
BEGIN CASE
   CASE LEN(V.JS.USE.LISTNAME )
      PROCEDURE LINE "GET.LIST ":V.JS.USE.LISTNAME
   CASE 1
      PROCEDURE SELECT USING "XFIL04A"
END CASE
*
* If a sent date range specified, select contracts within the range
*
IF LEN( V.JS.DATE.VAR1 ) THEN
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.USER4
GE ":V.JS.DATE.VAR1:" SELECT.ONLY"
END
IF LEN( V.JS.DATE.VAR2 ) THEN
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.USER4 LE ":V.JS.DATE.VAR2:" SELECT.ONLY"
END                                                                           
*
* ...otherwise, if the contract are not accepted, select a 'sent' date
* that is null.  If the contract IS accepted, do not perform this select
*
*
IF NOT(LEN( V.JS.DATE.VAR1)) AND NOT(LEN( V.JS.DATE.VAR2 )) THEN
   IF V.JS.VAR5 NE 'Y' THEN
      PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.USER4 EQ '' SELECT.ONLY"
   END
END
*
IF LEN( VL.JS.LIST.VAR2 ) THEN
   XL.IDS = VL.JS.LIST.VAR2
   CONVERT @VM TO " " IN XL.IDS
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.FACULTY = ":XL.IDS:"
SELECT.ONLY"
END
*
IF V.JS.VAR5 = 'Y' THEN
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.USER7 = 'Y' SELECT.ONLY"
END ELSE
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH NO CSF.USER7 = 'Y' SELECT.ONLY"       
END
*
IF LEN( V.JS.DATE.VAR3 ) THEN
   PROCEDURE LINE "SELECT COURSE.SEC.FACULTY WITH CSF.USER8 = ":V.JS.DATE.V
 SELECT.ONLY"
END
*
PROCEDURE STMT "SAVE.LIST ":V.JS.LISTNAME
PROCEDURE STMT "GET.LIST ":V.JS.LISTNAME
PROCEDURE LINE "IF @SYSTEM.RETURN.CODE LE 0 THEN GO KILL.LIST"
PROCEDURE OUTPUT HOLD "XOFC"
BEGIN CASE
   CASE V.JS.VAR1 = "R"
      PROCEDURE CALL BROWSE XFIR04A(V.JS.DATE.VAR1, V.JS.DATE.VAR2, V.JS.VAVAR1, V.JS.VAR4, V.JS.VAR2, V.JS.VAR3)
   CASE V.JS.VAR1 = "X"                                                    
      PROCEDURE CALL BROWSE XFIR04B(V.JS.DATE.VAR1, V.JS.DATE.VAR2, V.JS.VAVAR1, V.JS.VAR4, V.JS.VAR2, V.JS.VAR3)
   CASE V.JS.VAR1 = "E"                                                    
      PROCEDURE CALL BROWSE XFIR04C(V.JS.DATE.VAR1,V.JS.DATE.VAR2,V.JS.VAR1, V.JS.VAR4, V.JS.VAR2, V.JS.VAR3)
END CASE
*
KILL.LIST:   PROCEDURE LINE "KILL.LIST:"
*
PROCEDURE CALL NOBROWSE UTDLST( V.JS.LISTNAME )
PROCEDURE RUN     


Hosted by www.Geocities.ws