Handy views

svn path=/Customer/; revision=44247

onces/AA/AAFM/HandyViews.sql

@@ -187,9 +187,9 @@ SELECT 'ASMS',
        fac_setting_pvalue
   FROM asms.fac_setting s
  WHERE fac_setting_pvalue IS NOT NULL
- 
- 
- 
+
+
+
  DECLARE
    str          VARCHAR2 (400);
    last_login   DATE;
@@ -201,7 +201,7 @@ BEGIN
                   WHERE   table_name = 'PRS_PERSLID')
    LOOP
       IF length(klant.owner) = 4
-      THEN 
+      THEN
          v_like := chr(39) || '%aa-fm%' || chr(39);
          str :=
          'SELECT count(*)   FROM '|| klant.owner || '.prs_perslid WHERE PRS_PERSLID_OSLOGIN IS NULL AND PRS_PERSLID_OSLOGIN2 IS NOT NULL';
@@ -219,10 +219,28 @@ END;
 
 
 
-declare 
+declare
  c_uitvoertijd          mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(0.0001, 'U');
- 
+
  begin
  update mld_stdmelding set mld_stdmelding_t_uitvoertijd= c_uitvoertijd;
  commit;
- end;
+ end;
+
+ -- script om anonymize te checken
+DECLARE
+   str          VARCHAR2 (400);
+   v_count      NUMBER;
+   v_like       VARCHAR2 (100);
+BEGIN
+   FOR klant IN (SELECT owner FROM all_tables WHERE table_name = 'PRS_PERSLID')
+   LOOP
+      IF length(klant.owner) = 4
+      THEN
+         v_like := chr(39) || '%@FACILITOR.NL' || chr(39);
+         str := 'SELECT count(*)   FROM '|| klant.owner || '.prs_perslid WHERE UPPER(PRS_PERSLID_EMAIL) LIKE ' || v_like;
+         EXECUTE IMMEDIATE str INTO v_count;
+         DBMS_OUTPUT.put_line (v_count || ' ' || klant.owner);
+      END IF;
+   END LOOP;
+END;