Repair pointer values online using VER and REP functions
JCL to repair pointer values online using VER and REP functions
02 // PARM=(IFP,PFPSAMP,DBF#FPU0)
03 //STEPLIB DD DISP=SHR,DSN=BMC.PFP.LOAD
04 // DD DISP=SHR,DSN=IMSVS.RESLIB
05 //PFPSYSIN DD *
06 PROCESS_AREA DBD=PFPSAMP,IAREA=(PFPSAMP3)
07 PERFORM SCRIPT={ VER (X'02DF3E', X'0000000E');
08 REP (X'02DF3E', X'0001ECA0');
09 VER (X'01ECA4', X'FF240000');
10 REP (X'01ECA4', X'00004ED8');
11 VER (X'0043E2', X'40404040');
12 REP (X'0043E2', X'001E34C6');
13 VER (X'1E34D2', X'C3C2C5E4');
14 REP (X'1E34D2', X'00000000');
15 COMMIT (); }
/*
Descriptive text for JCL to repair pointer values online using VER and REP functions
Line no. | Comments |
|---|---|
01-04 | EXEC and STEPLIB DD statements for Fast Path/EP online execution. |
05 | PFPSYSIN DD for Fast Path/EP control statements. |
06 | Defines DEDB name for PROCESS_AREA command. The VERify and REPlace functions will be performed for area PFPSAMP3. |
07-08 | Verify the existence of pointer 0000000E at RBA 02DF3E. Replace the corrupted pointer with the value 0001ECA0. |
09-10 | Verify the existence of pointer FF240000 at RBA 01ECA4. Replace the corrupted pointer with the value 00004ED8. |
11-12 | Verify the existence of pointer 40404040 at RBA 0043E2. Replace the corrupted pointer with the value 001E34C6. |
13-14 | Verify the existence of pointer C3C2C5E4 at RBA 1E34D2. Replace the corrupted pointer with the value 00000000. |
15 | The COMMIT ( ); function must be specified to write (commit) the repaired pointer values to disk. |