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
