Hello, z/OS 1.4 here. I'm looking for a clue as to why I'm getting "*** AN ERROR OCCURRED IN THE INDEX RECORDS" from my first attempt to execute pgm RACFUSER, (CBT Tape, file 034).
Here's a snippet of the (relevant?) code. PINDX01 XR R2,R2 CLEAR FOR THE DIVIDE LH R3,DCBLRECL LOAD THE LRECL MH R3,RECNO+2 RECNO SHOULD BE ZERO, BUT... AR R7,R3 ADD THE OFFSET TO THE BEGINNING A R7,RBAOFF ADD ANY OFFSET TO THE RBA BEGINNING SPACE CLI INDXHID,HEX8A Q. IS THIS THE INDEX BLOCK ID BNE ERRINDEX A. NO, PUNT SPACE CLI INDXHI2,HEX4E Q. IS THIS THE INDEX BLOCK ID BNE ERRINDEX A. NO, PUNT SPACE CLI INDXHILN,HEX01 Q. IS THIS INDEX LEVEL 1 BNE ERRINDEX A. NO, PUNT Thanks. Stg ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html