execute block (wb_id integer= :wb_id)
returns (object_id integer,  object_f_name varchar ( 255 ),
    branche_number integer,  branche_f_name varchar ( 255 ),
    building_number integer, building_f_name varchar ( 255 ),
    album_number integer, album_f_name varchar ( 255 ),
    issued_id integer, issued_number integer,
    iss_quantity integer, iss_exem integer,
    iss_code integer,
    albtype_f_name varchar ( 50 ), albtype_s_name varchar ( 10 ), albstady_f_name varchar ( 50 ), albstady_s_name varchar ( 10 )
    )
as
declare variable i integer;
    begin
        for select
            t5.object_id, t5.object_f_name,
            t4.branche_number, t4.branche_f_name,
            t3.building_number, t3.building_f_name,
            t2.album_number, t2.album_f_name,
            t1.issued_id, t1.issued_number, t6.iiw_quantity,
            cast('201'||cast(t1.issued_id as varchar ( 10 )) as integer),
            t7.albtype_f_name, t7.albtype_s_name, t8.albstady_f_name, t8.albstady_s_name

        from rissued t1
            inner join ralbum t2 on (t2.album_id=t1.album_id)
            inner join rbuilding t3 on (t3.building_id=t2.building_id)
            inner join rbranche t4 on (t4.branche_id=t3.branche_id)
            inner join robject t5 on (t5.object_id=t4.object_id)
            inner join rissuedinwaybill t6 on (t6.issued_id=t1.issued_id)
            inner join ralbtype t7 on (t7.albtype_id=t2.albtype_id)
            inner join ralbstady t8 on (t8.albstady_id=t2.albstady_id)
        where t6.wb_id=:wb_id
        order by  1 ,  3 ,  5 ,  8 
        into:
            object_id, object_f_name,
            branche_number, branche_f_name,
            building_number, building_f_name,
            album_number, album_f_name,
            issued_id, issued_number, iss_quantity,
            iss_code,
            albtype_f_name, albtype_s_name, albstady_f_name, albstady_s_name
        do
            begin
             i= 1 ;
             while (i<:iss_quantity+ 1 )
                do
                    begin
                        iss_exem=i;
                        suspend;
                        i=i+ 1 ;
                     end
            end
   end