Also, if you need help, please create a new question, so your problem gets the attention it deserves.

create or replace procedure t5 as
declare no1=1;
while(no1<500)
begin
print no1
no1:=no1+1
if no1=500
EXIT;
end;

You use the IN, OUT and NOCOPY keywords when declaring a procedure, not when calling it.

In your case, the call to dbms_lob.copy should be something like this:

dbms_lob.copy(tpsr,spsr,amount,dest_offset,src_offset);

But if you are going to use the default values (1) for dest_offset and src_offset, this would suffice:

dbms_lob.copy(tpsr,spsr,amount);

If the variables being passed to the procedure are not declared or contain invalid values you will get more errors.

SQL> Declare
2 tpsr Blob;
3 spsr blob;
4 Begin
5 Select ’8502′ into tpsr from ca90joetmp.spec_form_psr where spec_form_id = ’90710′;
6 Select ’8502′ into tpsr from specdev_mst.spec_form_psr where spec_form_id = ’29401′;
7 DBMS_LOB.COPY (
8 tpsr IN OUT NOCOPY BLOB,
9 spsr IN BLOB,
10 amount IN INTEGER,
11 dest_offset IN INTEGER := 1,
12 src_offset IN INTEGER := 1);
13 end;
14 /
tpsr IN OUT NOCOPY BLOB,
*
ERROR at line 8:
ORA-06550: line 8, column 15:
PLS-00103: Encountered the symbol “OUT” when expecting one of the following:
(