TITLE ' /* IRBMFFUR LOCK RELEASE FAILURE RECOVERY ROUTINE *00001000 ' 00002000 IRBMFFUR CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IRBMFFUR 74.087' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 IHASDWA 00013000 IRBMFFUR CSECT 00014000 SETRP DUMP=YES,RC=0,FRELOCK=(DISP) 00015000 * RETURN; /* PERCOLATE: RETURN TO RTM */ 00016000 @EL00001 DS 0H 0009 00017000 @EF00001 DS 0H 0009 00018000 @ER00001 BR @14 0009 00019000 * END IRBMFFUR; 0010 00020000 @DATA DS 0H 00021000 @DATD DSECT 00022000 DS 0F 00023000 IRBMFFUR CSECT 00024000 DS 0F 00025000 @DATD DSECT 00026000 DS 0D 00027000 @ENDDATD EQU * 00028000 IRBMFFUR CSECT 00029000 NOPR ((@ENDDATD-@DATD)*16) 00030000 DS 0F 00031000 @SIZDATD DC AL1(0) 00032000 DC AL3(@ENDDATD-@DATD) 00033000 DS 0D 00034000 FUPATCH DS CL50 00035000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00036000 @01 EQU 01 00037000 @02 EQU 02 00038000 @03 EQU 03 00039000 @04 EQU 04 00040000 @05 EQU 05 00041000 @06 EQU 06 00042000 @07 EQU 07 00043000 @08 EQU 08 00044000 @09 EQU 09 00045000 @10 EQU 10 00046000 @11 EQU 11 00047000 @12 EQU 12 00048000 @13 EQU 13 00049000 @14 EQU 14 00050000 @15 EQU 15 00051000 GPR00P EQU @00 00052000 GPR01P EQU @01 00053000 GPR14P EQU @14 00054000 GPR15P EQU @15 00055000 GPR00F EQU @00 00056000 GPR01F EQU @01 00057000 GPR14F EQU @14 00058000 GPR15F EQU @15 00059000 IKEBC EQU 0 00060000 IKEBF15 EQU 0 00061000 IKEBF31 EQU 0 00062000 IKEBP15 EQU 0 00063000 IKEBP31 EQU 0 00064000 IKEBP8 EQU 0 00065000 @ENDDATA EQU * 00066000 END IRBMFFUR,(C'PL/S-II',0502,74087) 00067000