*
PROCEDURE SELECT USING "XARL03"
* PROCEDURE STMT "SELECT AR.ACCTS SAMPLED 50"
* PROCEDURE STMT "SELECT PERSON SAMPLED 50"
*
PROCEDURE STMT "SAVE.LIST ":V.JSPARAMS.ID
PROCEDURE OUTPUT "ARJ017"
PROCEDURE STMT "GET.LIST  ":V.JSPARAMS.ID
PROCEDURE STMT "IF @SYSTEM.RETURN.CODE LE 0 THEN GO ABORT.JOB"
*
BEGIN CASE
   CASE V.JS.VAR2 EQ "DI" OR V.JS.VAR2 EQ "DT"
      PROCEDURE CALL BROWSE XARR03A(V.JS.VAR1,V.JS.DATE.VAR1,V.JS.DATE.VAR2,V.JS.VAR2,VL.JS.LIST.VAR4,V.JS.VAR3)
   CASE V.JS.VAR2 EQ "GLD" OR V.JS.VAR2 EQ "GLA" OR V.JS.VAR2 = "GLS" OR
V.JS.VAR2 = "GLT"
      PROCEDURE CALL BROWSE XARR03B(V.JS.VAR1,V.JS.DATE.VAR1,V.JS.DATE.VAR2,V.JS.VAR2,VL.JS.LIST.VAR3,V.JS.VAR3)
   CASE 1
      PROCEDURE CALL BROWSE XARR03A(V.JS.VAR1,V.JS.DATE.VAR1,V.JS.DATE.VAR2,V.JS.VAR2,VL.JS.LIST.VAR4,V.JS.VAR3)
END CASE
PROCEDURE LINE "ABORT.JOB:"
PROCEDURE CALL NOBROWSE UTDLST(V.JSPARAMS.ID)
PROCEDURE RUN

Hosted by www.Geocities.ws