* Screen fields
*
* FA.YEAR          FA Year
* JS.VAR1          Award Period (new feature for XLDV)
* JS.VAR2          Report type
* LIST.NAME        Inbound saved list name
* JS.LIST.VAR1     FA Offices
* JS.LIST.VAR2     Student ids
* JS.VAR3          Output saved list name
*
IF LEN(V.LIST.NAME) THEN
   PROCEDURE LINE "GET.LIST ":V.LIST.NAME
END ELSE
   IF LEN( V.FA.YEAR ) THEN
      IF LEN( VL.JS.LIST.VAR1 ) THEN
         XL.OFFICES = VL.JS.LIST.VAR1
         SWAP @VM WITH " " IN XL.OFFICES
         PROCEDURE LINE "SSELECT SL.":V.FA.YEAR:" WITH SL.OFFICE = ":XL.OFF
      END
      IF LEN( VL.JS.LIST.VAR2 ) THEN
         XL.STUDENTS = VL.JS.LIST.VAR2
         SWAP @VM WITH " " IN XL.STUDENTS
         PROCEDURE LINE "SSELECT SL.":V.FA.YEAR:" WITH SL.STUDENT.ID = ":XL.STUDENTS
      END
   END
END
*
PROCEDURE LINE "SAVE.LIST ":V.JS.LISTNAME
PROCEDURE LINE "GET.LIST ":V.JS.LISTNAME
PROCEDURE LINE "IF @SYSTEM.RETURN.CODE LE 0 THEN GO KILL.LIST"
PROCEDURE OUTPUT HOLD "REPORT"
PROCEDURE CALL BROWSE XFAR101(V.JS.VAR2,V.JS.VAR3,V.JS.VAR1,V.FA.YEAR)
*
KILL.LIST:   PROCEDURE LINE "KILL.LIST:"
*
PROCEDURE CALL UTDLST( V.JS.LISTNAME )
PROCEDURE RUN


Hosted by www.Geocities.ws