facing VSAM I/O problem.. getting S0C1 abend

[nareshv_99]

hi all,
i wrote a ASM pgm which copies VSAM files to a flat file . the program was very big (as there are around 30 VSAM input files) so had use 3 base registers(12,11,10).
below is the snippet of the ASM program.


READ DS 0H
GET RPL=RPLNAME
MVC OFIELD1,IFILED1
MVC OFIELD2,IFIELD2
PUT OUTREC,OUTFILE
B READ

the program was reading the first record of the first VSAM file correctly but when it tries to read the second record the VSAM file it is giving S0C1 at the GET statement. but it went file when i commented out PUT statement.

i think it is because somewhere Registers are getting changed in between GET and PUT.


can anyone help me what needs to be taken care when the program is very big (or when multiple base registers are used) and I/O handling with VSAM files ?

Thanks in advance..