* Report types
* I - INCOMPLETE
* F - FINAL
* V - VERIFIED
* N - No / Missing Verified Grades
***********************************
* FIELDS
* JS.VAR1       TERM
* JS.DATE.VAR1  START DATE
* JS.DATE.VAR2  END DATE
* JS.LIST.VAR1  SUBJECTS
* JS.LIST.VAR2  SCHOOLS
* JS.VAR2       REPORT TYPE
* 2/7/5 - Mark Wiaduck:  Added new select and arguments
* JS.DATE.VAR3  Meeting date 1
* JS.DATE.VAR4  Meeting date 2
***********************************
*
BEGIN CASE
   CASE V.JS.VAR2 EQ "I"
      PROCEDURE SELECT USING "XSTL01A"
   CASE V.JS.VAR2 EQ "F"
      PROCEDURE SELECT USING "XSTL01C"
   CASE V.JS.VAR2 EQ "V"
      PROCEDURE SELECT USING "XSTL01B"
   CASE V.JS.VAR2 EQ "N"
      PROCEDURE SELECT USING "XSTL01D"
END CASE
*
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 "REPORT"
IF V.JS.VAR2 NE "V" THEN
   PROCEDURE CALL BROWSE XSTR01( V.JS.VAR1, V.JS.DATE.VAR1, V.JS.DATE.VAR2, VL.JS.LIST.VAR1, VL.JS.LIST.VAR2, V.JS.VAR2)
END ELSE
   PROCEDURE CALL BROWSE XSTR01A( V.JS.VAR1, V.JS.DATE.VAR1, V.JS.DATE.VAR2, VL.JS.LIST.VAR1, VL.JS.LIST.VAR2, V.JS.VAR2)
END
*
**********
KILL.LIST:  PROCEDURE LINE "KILL.LIST:"
**********
PROCEDURE CALL NOBROWSE UTDLST( V.JS.LISTNAME )
PROCEDURE RUN

Hosted by www.Geocities.ws