/************************************************************/ 01000006 /* REPAIRV I/O MAPPING MACRO -AMSDF66 */ 02000006 /* */ 03000006 /* THE FOLLOWING STRUCTURE IS USED BY IDCRDRD & REPAIRV */ 04000006 /* TO DETERMINE THE LOCATION & READ RETURN CODES OF THE */ 05000006 /* RECORDS ON A TRACK. */ 06000006 /* */ 07000006 /* IT ALSO CONTAINS A SAVE AREA FOR THE COUNT FIELD AND */ 08000006 /* LENGTH INFORMATION FOR EACH RECORD,IF REQUIRED */ 09000006 /************************************************************/ 10000006 DCL 1 LOCTAB(125) BDY (WORD) BASED, /* LOC TABLE FOR READS */ 11000006 2 LOCADDR PTR(31), /* ENTRY ADDRESS */ 12000006 2 LOCRCNT FIXED(15), /*RET CODE OF READ COUNT*/ 13000006 2 LOCRCKD FIXED(15), /*RET CODE KEY/DATA RD */ 14000006 2 LOCCNTFD CHAR(8), /*SAVE AREA FOR COUNT */ 15000006 2 * CHAR(1), /*SAVE AREA FOR COUNT */ 16000006 2 LOCKLEN FIXED(8), /*KEY LEN FOR SPACCR */ 17000006 2 LOCDLEN FIXED(15); /*DATA LEN FOR SPACCR */ 18000006 DCL 1 RIOAREA BDY(WORD) BASED, 19000006 2 RIOHDR, 20000006 3 RFIRST CHAR(1), /* FIRST TIME INDICATOR */ 21000006 3 * CHAR(1), /* RESERVED */ 22000006 3 RPREV, /* PREVIOUS CCHHR */ 23000006 4 RPREVCC FIXED(15), /* PREVIOUS CYLINDER ADDRESS*/ 24000006 4 RPREVHH FIXED(15), /* PREVIOUS READ ADDR */ 25000006 4 RPREVR FIXED(8), /* PREVIOUS RECORD NUMBER */ 26000006 3 * CHAR(1), /* RESERVED */ 27000006 3 RNUMREC FIXED(15), /* NUM OR RECS TO READ */ 28000006 3 * CHAR(16), /* RESERVED FOR KEY AREA */ 29000006 3 * CHAR(256), /* RESERVED */ 30000006 2 RBUFF CHAR(*); /* BUFFER READ IN AREA */ 31000006 DCL 1 RKEY BASED, /* STRUCTURE FOR KEYAREA */ 32000006 2 RKEYVOL CHAR(6), /* VOLID */ 33000006 2 RKEYCHR, /* CCHHR */ 34000006 3 RKEYCC FIXED(15), /* CYLINDER ADDRESS */ 35000006 3 RKEYHH FIXED(15), /* HEAD ADDRESS */ 36000006 3 RKEYR FIXED(8), /* RECORD NUMBER */ 37000006 2 RKEYFLG, /* FLAG BYTES */ 38000006 3 RKEYFLG1 CHAR(1), /* FLAG BYTE ONE */ 39000006 3 RKEYFLG2 CHAR(2), /* SECOND FLAGS */ 40000006 3 RKEYFLG3 CHAR(1), /* THIRD FLAGS */ 41000006 3 * CHAR(1); /* RESERVED */ 42000006 DCL 1 RBUF BASED, /* STRUC FOR RECS IN RBUFF */ 43000006 2 RBUFCNT, /* RECORD COUNT AREA */ 44000006 3 RBCCHHR, /* CCHHR */ 45000006 4 RBCC FIXED(15), /* CYLINDER ADDRESS */ 46000006 4 RBHH FIXED(15), /* HEAD ADDRESS */ 47000006 4 RBREC FIXED(8), /* RECORD NUMBER */ 48000006 3 RBKL FIXED(8), /* KEY LENGTH */ 49000006 3 RBDL FIXED(15), /* DATA LENGTH */ 50000006 2 RKEYDAT CHAR(*); /* KEY AND DATA AREA */ 51000006 DCL 1 WIOAREA BASED BDY(WORD), 52000006 2 WNUMREC FIXED(31), /* NUM OF RECORDS TO WRITE */ 53000006 2 WBUFF CHAR(*); /* DATA AREAS FOR WRITES */ 54000006 DCL 1 WBUF BASED, /* STRUC WRITES FROM WBUFF */ 55000006 2 WBUFCNT, /* RECORD COUNT AREA */ 56000006 3 WBCCHHR, /* CCHHR */ 57000006 4 WBCC FIXED(15), /* CYLINDER ADDRESS */ 58000006 4 WBHH FIXED(15), /* HEAD ADDRESS */ 59000006 4 WBREC FIXED(8), /* RECORD NUMBER */ 60000006 3 WBKL FIXED(8), /* KEY LENGTH */ 61000006 3 WBDL FIXED(15), /* DATA LENGTH */ 62000006 2 WKEYDAT CHAR(*); /* KEY AND DATA BUFFER */ 63000006