4: IS
5: key1 JTF_DIAGNOSTIC_CMAP.appName%TYPE;
6: key2 JTF_DIAGNOSTIC_CMAP.groupName%TYPE;
7: key3 JTF_DIAGNOSTIC_CMAP.testClassName%TYPE;
8: classList JTF_DIAGNOSTIC_LOG.versions%TYPE;
9: CURSOR diagnose IS
10: select
11: appName,
12: groupName,
12: groupName,
13: testClassName,
14: versions
15: from
16: JTF_DIAGNOSTIC_LOG;
17: entries INTEGER := 0;
18: BEGIN
19: OPEN diagnose;
20: LOOP
27:
28: FUNCTION diagsync( key1 JTF_DIAGNOSTIC_CMAP.appName%TYPE,
29: key2 JTF_DIAGNOSTIC_CMAP.groupName%TYPE,
30: key3 JTF_DIAGNOSTIC_CMAP.testClassName%TYPE,
31: classList JTF_DIAGNOSTIC_LOG.versions%TYPE)
32: RETURN INTEGER IS
33: entries INTEGER := 0;
34: x INTEGER := 0;
35: prev INTEGER;