* Screen Arguments
* JS.VAR1         START TERM
* JS.DATE.VAR1    ADD DATE RANGE (DATE 1)
* JS.DATE.VAR2    ADD DATE RANGE (DATE 2)
* JS.VAR4         ADMISSIONS REP
* JS.DATE.VAR3    CRNT APPL STATUS DATE RANGE (DATE 1)
* JS.DATE.VAR4    CRNT APPL STATUS DATE RANGE (DATE 2)
* JS.LIST.VAR2    PROGRAM TYPES
* JS.LIST.VAR3    PROGRAMS
* JS.VAR2         (OUT OF DATE) TOP MOST MISC2 VALUE
**********************************************************************
* Selection statement
PROCEDURE SELECT USING "XADL01A"
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"
* Sort statement
PROCEDURE SELECT USING "XADL01B"
PROCEDURE OUTPUT HOLD "REPORT"
IF V.JS.VAR3 = "R" THEN
   PROCEDURE CALL BROWSE XADR01( V.JS.VAR1, V.JS.DATE.VAR1, V.JS.DATE.VAR2, V.VAR2,
       V.JS.DATE.VAR3, V.JS.DATE.VAR4, VL.JS.LIST.VAR2, VL.JS.LIST.VAR3, V.JS.VAR4)
END ELSE
   PROCEDURE CALL BROWSE XADR01X( V.JS.VAR1, V.JS.DATE.VAR1, V.JS.DATE.VAR2,
    V.JS.VAR2, V.JS.DATE.VAR3, V.JS.DATE.VAR4, VL.JS.LIST.VAR2, VL.JS.LIST.VAR3, V.JS.VAR4 )                          
END
************
KILL.LIST:   PROCEDURE LINE "KILL.LIST:"
************
PROCEDURE CALL NOBROWSE UTDLST( V.JS.LISTNAME )
PROCEDURE RUN


Hosted by www.Geocities.ws