Paragraph Name: CLOSE.S1
PA
* S1 ACCOUNT STILL OPEN WITH NO FUNDS ON DEPOSIT OR LOAN BALANCE
* WRITTEN BY BOB STUBBS, DATA MANAGEMENT SERVICES, 02 NOV 01
CS
DISPLAY
DISPLAY S1 ACCOUNT STILL OPEN WITH NO FUNDS ON DEPOSIT OR LOAN BALANCE
DISPLAY --------------------------------------------------------------
DISPLAY
DISPLAY <<A,DO YOU WISH TO CONTINUE (Y/N)?>>
IF <<DO YOU WISH TO CONTINUE (Y/N)?>> # 'Y' THEN GO EXIT
SP-ASSIGN HS!CLOSE.S1
SELECT S1.INDEX
SELECT ACCOUNT WITH CLOSED = "" REQUIRE.SELECT
SELECT ACCOUNT SAVING UNIQUE CLIENTNO
SELECT CLIENT WITH TOT.DEP = "0.00" AND\
WITH TOT.LN = "0.00" REQUIRE.SELECT
SORT CLIENT BY @ID NAME TOT.SH TOT.CD TOT.DEP TOT.LN\
HEADING "S1 ACCOUNTS THAT NEED TO BE CLOSED 'L'NO FUNDS ON DEPOSIT\
AND NO LOAN BALANCES 'L'AS OF 'D' 'L'PARAGRAPH NAME: CLOSE.S1 'L'"\
REQUIRE.SELECT LPTR
EXIT:
WHICH
CS
Go to Home Page