PROCEDURE PROC_DISPLAY_MISSING_CUST_CODE IS
CNT NUMBER(6) :=0;
COMPAIR NUMBER(6) :=0;

BEGIN
  	SELECT COUNT(MISSING_CUST_CODE) INTO CNT
	FROM 
	   ( SELECT TO_CHAR((:CUST_MST.TXT_CUST_SERIES||'000') + LEVEL) MISSING_CUST_CODE 
  	     FROM DUAL
             CONNECT BY LEVEL <=999
           ) WHERE MISSING_CUST_CODE NOT IN 
  					(
  					SLECT CUST_CD
  					FROM CUST_MST
  					WHERE CUST_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  					UNION
  					SELECT SL_CD
  					FROM FAS.GL_MST 
  					WHERE GL_CD IN ('J100') AND SL_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  					UNION
  					SELECT SL_CD
  					FROM FINACC.SUBMST_T 
  					WHERE GL_CD IN ('1300','13100') AND SL_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  					)
    ORDER BY MISSING_CUST_CODE;
  
  WHILE COMPAIR < CNT LOOP
  		SELECT MISSING_CUST_CODE INTO :CUST_MST.TXT_CUST_SERIES
			FROM 
			 ( SELECT TO_CHAR((:CUST_MST.TXT_CUST_SERIES||'000') + LEVEL) MISSING_CUST_CODE 
  			   FROM DUAL
  			   CONNECT BY LEVEL <=999
			 ) WHERE MISSING_CUST_CODE NOT IN 
  						(
  						SELECT CUST_CD
  						FROM CUST_MST
  						WHERE CUST_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  						UNION
  						SELECT SL_CD
  						FROM FAS.GL_MST 
  						WHERE GL_CD IN ('J100') AND SL_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  						UNION
  						SELECT SL_CD
  						FROM FINACC.SUBMST_T 
  						WHERE GL_CD IN ('1300','13100') AND SL_CD LIKE ':CUST_MST.TXT_CUST_SERIES%'
  																		)
  	  ORDER BY MISSING_CUST_CODE;
  END LOOP;
  EXCEPTION 
	WHEN TOO_MANY_ROWS THEN 
	  ERR_MESSAGE('Too Many Records Found in the Master');
	  RAISE FORM_TRIGGER_FAILURE;
	WHEN NO_DATA_FOUND THEN
	  ERR_MESSAGE('No Data Found ');
  RAISE FORM_TRIGGER_FAILURE;
	WHEN OTHERS THEN
	  :CUST_MST.TXT_CUST_SERIES := NULL;		
  
END;