V.MONEY.VAR1 = OCONV(V.MONEY.VAR1,"MD2") V.JS.LIST.VAR1 = "XRUD.LIST1" D1 = "DISPLAY Accounts Receivable records with a balance greater that $" D2 = "DISPLAY are being selected. This will take a few minutes." D3 = "DISPLAY A ":V.JS.VAR1: " restriction will be placed on these " D3 := "students." PROCEDURE STMT D1:V.MONEY.VAR1 PROCEDURE STMT D2 PROCEDURE STMT D3 S1 = "SELECT AR.ACCTS WITH GCU.ARA.BALANCE.01 GT ":V.MONEY.VAR1 S1 := " SAVING UNIQUE ARA.PERSON.ID " S1 := " SAMPLE 20 " PROCEDURE LINE S1 PROCEDURE STMT "SAVE.LIST ":V.JS.VAR1 * V.JS.LIST.VAR2 = "XRUD.LIST2" D4 = "DISPLAY Student Restriction records with a code of " D5 = "DISPLAY for students with an AR balance less that " D6 = "DISPLAY are being selected. This will also take a few minutes." D7 = "DISPLAY The ":V.JS.VAR1:" restriction will be removed from " D7 := "these students." PROCEDURE STMT "DISPLAY" PROCEDURE STMT D4:V.JS.VAR1 PROCEDURE STMT D5:"$":V.MONEY.VAR1 PROCEDURE STMT D6 PROCEDURE STMT D7 S2 = "SELECT STUDENT.RESTRICTIONS WITH STR.RESTRICTION EQ ":V.JS.VAR1:" " S2 := "AND STR.END.DATE EQ '' " S2 := "AND GCU.STR.BALANCE LE ":V.MONEY.VAR1:" " S2 := "SAVING UNIQUE STR.STUDENT " S2 := " SAMPLE 20 " PROCEDURE LINE S2 PROCEDURE STMT "SAVE.LIST ":V.JS.LIST.VAR2 * PROCEDURE STMT "GET.LIST ":V.JS.LIST.VAR1 PROCEDURE LINE "IF @SYSTEM.RETURN.CODE LE 0 THEN GO NEXT.PRC" PROCEDURE OUTPUT HOLD "REPORT" PROCEDURE CALL BROWSE XSTR096A(V.JS.VAR1, V.MONEY.VAR1) * NEXT.PRC: PROCEDURE LINE "NEXT.PRC:" PROCEDURE STMT "GET.LIST ":V.JS.LIST.VAR2 PROCEDURE LINE "IF @SYSTEM.RETURN.CODE LE 0 THEN GO KILL.LIST" PROCEDURE OUTPUT HOLD "REPORT" PROCEDURE CALL BROWSE XSTR096B(V.JS.VAR1, V.MONEY.VAR1) * KILL.LIST: PROCEDURE LINE "KILL.LIST:" *PROCEDURE CALL NOBROWSE UTDLST( V.JS.LIST.VAR1 ) *PROCEDURE CALL NOBROWSE UTDLST( V.JS.LIST.VAR2 ) PROCEDURE RUN