Damaged RFBLG (CPF3285)

[Former Member]

Hi

I have a problem with the database library save - it issues a CPF3285 damage found on RFBLG in the SAP database library. (release is 46C EBCDIC) OS level is V5R2.

I can DSPOBJD for the file and it does not show object damaged. This file has 900,000 + records and RFBLG is a cluster table.

SE11 check of the database and runtime object is ok. Table check shows no inconsitencies found.

I can run DSPPFM ok.

Must I use the procedure below from note 831678 to fix this?

1. CRTLIB LIB(RFBLGLIB) - create temporary library (as <SID>OFR)

2. DSPDBR - no dependent files

1/21/09 Display Data Base Relations

DSPDBR Command Input

File . . . . . . . . . . . . . . . . . . . : FILE RFBLG

Library . . . . . . . . . . . . . . . . . : R3LX3DATA

Member . . . . . . . . . . . . . . . . . . : MBR *NONE

Record format . . . . . . . . . . . . . . . : RCDFMT *NONE

Output . . . . . . . . . . . . . . . . . . : OUTPUT *

Specifications

Type of file . . . . . . . . . . . . . . . : Physical

File . . . . . . . . . . . . . . . . . . . : RFBLG

Library . . . . . . . . . . . . . . . . . : R3LX3DATA

Member . . . . . . . . . . . . . . . . . : *NONE

Record format . . . . . . . . . . . . . . : *NONE

Number of dependent files . . . . . . . . : 0

3.

ENDJRNPF FILE(R3LX3DATA/RFBLG)

4.

MOVOBJ OBJ(R3LX3DATA/RFBLG) OBJTYPE(*LIB) TOLIB(RFBLGLIB)

5. Delete primary key

RMVPFCST FILE(RFBLGLIB/RGBLG) CST(*ALL)

6. Run SE14??? System must be started at this step.

RFBLG Pool/cluster - Create database table

Is the system then stopped for next steps?

7. Copy records to new file

CPYF FROMFILE(RFBLGLIB/RFBLG) TOFILE(R3LX3DATA/RFBLG) MBROPT(ADD) FROMRCD(1) TORCD(END) FMTOPT(*MAP)

8. If terminates use DSPJOBLOG -find record number and repeat above CPYF with

FROMRCD(<terminated record> + 1)

Repeat until done

Thanks for your help,

Michael.

[dorothea_stein]

Hi Michael,

good that you did not loose too much data!

This seems to be a serious database bug. - Would you mind opening a PMR with IBM for this in case you still have RFBLG stored in a save file?

Best regards,

Dorothea

[Former Member]

Hi Dorothea

IBM PMR number is 45647,101,616

thanks,

Michael

[dorothea_stein]

Thanks a lot Michael,

we'll monitor your PMR for PTFs and after testing put them into the SAP Info APAR!

Kind regards,

Dorothea

[Former Member]

G'day Michael,

nice to hear from you )

more or less, this is the right way ...

But, I would not risk all of that ....

I would make it sligthly different:

5. Please do NOT use the following as it is not necessary in a different lib:

RMVPFCST FILE(RFBLGLIB/RGBLG) CST(*ALL)

6. instead of SE14 or SE11 - I would use CRTDUPOBJ as I never saw, that the result is not proper (then SAP can stay down) - you can try a backup of the empty table to a SAVF and if this works go ahead ...

7. Copy records to new file

old: (very slow)

CPYF FROMFILE(RFBLGLIB/RFBLG) TOFILE(R3LX3DATA/RFBLG) MBROPT(ADD) FROMRCD(1) TORCD(END) FMTOPT(*MAP)

new: (a lot faster, but only possible, when you NOT used SE14)

CPYF FROMFILE(RFBLGLIB/RFBLG) TOFILE(R3LX3DATA/RFBLG) MBROPT(ADD) FROMRCD(1) TORCD(END)

Then you need strjrnpf with *OPNCO in the end.

Regards

Volker Gueldenpfennig, consolut international ag

http://www.consolut.net - http://www.4soi.de - http://www.easymarketplace.de

[Former Member]

Hi Volker

Thanks, just back from a holiday in New Zealand (highly recommended!)

So, I've got the commands after step 4. of the note as follows-

CRTDUPOBJ OBJ(RFBLG) FROMLIB(RFBLGLIB) OBJTYPE(FILE) TOLIB(R3LX3DATA) DATA(NO)

Do a SAVOBJ of RFBLG in R3LX3DATA to DEV(*SAVF)

CPYF FROMFILE(RFBLGLIB/RFBLG) TOFILE(R3LX3DATA/RFBLG) MBROPT(ADD) FROMRCD(1) TORCD(END)

STRJRNPF FILE(R3LX3DATA/RFBLG) JRN(R3LX3DATA/QSQJRN) IMAGES(BOTH) OMTJRNE(OPNCLO)

Then I can start SAP and cross fingers!

regards

Michael.

[Former Member]

Hi Michael,

yes, that's it

good luck,

Volker Gueldenpfennig, consolut international ag

http://www.consolut.net - http://www.4soi.de - http://www.easymarketplace.de

[Former Member]

All was going well up to the

CPYF

Then I have these errors in the log after 244,033 records got copied (of 970,446)

CPYF FROMFILE(RFBLGLIB/RFBLG) TOFILE(R3LX3DATA/RFBLG) MBROPT(*ADD)

FROMRCD(1) TORCD(*END)

System object RFBLG RFBLG partially damaged. Internal dump ID . Error

class 0, device number X'0000'.

System object RFBLG RFBLG partially damaged. Internal dump ID . Error

class 0, device number X'0000'.

Partial damage on member RFBLG.

C

Cancel reply received for message CPF5030.

Error reading member RFBLG in file RFBLG.

244033 records copied to RFBLG in R3LX3DATA.

regards

Michael.

[Former Member]

Hi Michael,

ok, then a few vouchers are lost ...

I would rerun the cpyf after clrpfm to the target table with errlvl(*nomax)

good luck,

Volker Gueldenpfennig, consolut international ag

http://www.consolut.net - http://www.4soi.de - http://www.easymarketplace.de

[Former Member]

Hi Volker

Thanks.

All done now.

I've ended up with 1 less record out of 970,446.

regards

Michael.