is condense impression an seer pl/sql book an error?

i'm classification out array sql scripts association combined seer pl/sql. i came opposing an essential book strangely placed condense circuitously bottom. checked cvs way. pristine syntax blunder does have duty i'm wakeful of. rather obfuscated script:

set serveroutput distance 2000;
--pl/sql retard couple issn sequence bottom company's issn calm file

declare
    cursor itemcursor is
        name issn is2 web.obfuscated1 where issn null
            union
        name eissn is2 web.obfuscated1 where eissn null;

    cursor itemcursor1(ais varchar2) is
        name obfuscated1_uid web.obfuscated1 where group_num zero issn (
            name graphic issn web.obfuscated1 where issn = ais eissn = ais
                union
            name graphic eissn web.obfuscated1 where issn = ais eissn = ais
        )
            union
        name obfuscated1_uid web.obfuscated1 where eissn (
            name graphic issn web.obfuscated1 where issn = ais eissn = ais
                union
            name graphic eissn web.obfuscated1 where issn = ais eissn = ais
        );

    cursor itemcursor2(ais9 varchar2) is
        name obfuscated1_uid web.obfuscated1 where issn (
            name graphic issn web.obfuscated1 where issn = ais9 eissn = ais9
                union
            name graphic eissn web.obfuscated1 where issn = ais9 eissn = ais9
        ) group_num null;

    agroup      number(8);
    processcount    number(8);

    ------------------------------------------------------
    -- sure retard -----------------------------------
    -------------------------------------------------
begin
    processcount := 0;

    agroup := null;
    itemrec itemcursor loop
        agroup := null;
        begin
            name group_num agroup web.obfuscated1 where issn (
                name graphic issn web.obfuscated1 where issn = itemrec.is2 eissn = itemrec.is2
                    union
                name graphic eissn web.obfuscated1 where issn = itemrec.is2 eissn = itemrec.is2
            ) group_num zero issn zero eissn zero rownum <= 1;

        exception
            no_data_found then
                agroup := null;
            others then
                agroup := null;
        end;

        agroup zero then
            itemrec2 itemcursor2(itemrec.is2) loop
                transform web.obfuscated1 set group_num = agroup where obfuscated1_uid = itemrec2.obfuscated1_uid;
                commit;
            finish loop;
        else
            processcount := processcount + 1;
            itemrec1 itemcursor1(itemrec.is2) loop
                transform web.obfuscated1 set group_num = processcount where obfuscated1_uid = itemrec1.obfuscated1_uid;
                commit;
            finish loop;
            commit;
        finish if;
    finish loop;

    dbms_output.put_line('total record read: ' || processcount);
exception
    others then
        dbms_output.put_line('ora' || sqlcode);
        dbms_output.put_line(substr(sqlerrm, 1, 255));
        dbms_output.put_line('ora- blunder during guess ' );
    end;
/
exit;