Dormant Account exclude some accounts

SUBROUTINE LOCAL.IC.UPDATE.INACTIVE.SELECT
*********************************************************************
* This is the .SELECT routine of LOCAL.IC.UPDATE.INACTIVE           *
*********************************************************************
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.ACCOUNT
$INSERT I_F.COMPANY
$INSERT I_IC.UPDATE.INACTIVE.COMMON
*
*---> YINACTIVE.DATE TO BE USED AS COMPARISON TO DATES, IS SET IN .LOAD FROM FIELD IN COMPANY
*
      YSELECT.STATEMENT  = "SELECT ":FN.ACCOUNT:" WITH CUSTOMER NE ''"
      YSELECT.STATEMENT := " AND WITH INACTIV.MARKER EQ ''"
      YSELECT.STATEMENT := "AND WITH DATE.LAST.DR.CUST LT ":YINACTIVE.DATE
      YSELECT.STATEMENT := "AND WITH DATE.LAST.CR.CUST LT ":YINACTIVE.DATE
      YSELECT.STATEMENT := "AND WITH --> YOUR CRITERIA HERE <---"

      LIST.PARAMETER = ""
      LIST.PARAMETER<1>=""
      LIST.PARAMETER<3> = YSELECT.STATEMENT
      CALL BATCH.BUILD.LIST(LIST.PARAMETER,'')

      RETURN
   END

SUBROUTINE LOCAL.IC.UPDATE.INACTIVE.LOAD
*********************************************************************
* This is the .LOAD routine of LOCAL.IC.UPDATE.INACTIVE             *
*********************************************************************

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_IC.UPDATE.INACTIVE.COMMON

	CALL IC.UPDATE.INACTIVE.LOAD

      RETURN
   END

SUBROUTINE LOCAL.IC.UPDATE.INACTIVE(ACCT.ID)
*********************************************************************
* This is the record routine of LOCAL.IC.UPDATE.INACTIVE            *
*********************************************************************
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_IC.UPDATE.INACTIVE.COMMON

      CALL UPDATE.INACTIVE.MARKER(ACCT.ID)

      RETURN
   END