124:
125: -- Cursor to make sure it is a valid class
126: cursor c (p_cls_code okc_k_seq_lines.cls_code%TYPE) is
127: select 'x' 128: from okc_classes_b 129: where code = p_cls_code;
130:
131: l_dummy Varchar2(1);
132: l_row_notfound Boolean := False;