* /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01050090 * /* */ 01100090 * /* ISAM INTERFACE CONTROL BLOCK - IICB */ 02000090 * /* */ 03000090 * /* */ 03050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 03100002 * /* MACSTAT Y-2 73212/Y02113 @Y021130*/ 03150002 * /* */ 03200002 * /* ISAM INTERFACE OPEN CREATES AND INITIALIZES THE IICB. */ 04000090 * /* IT IS USED TO POINT TO THE ISAM (DCB) AND VSAM (ACB */ 05000090 * /* AND RPL) CONTROL BLOCKS AND ASSOCIATED AREAS NEEDED BY */ 06000090 * /* THE ISAM INTERFACE. IT IS POINTED TO BY THE ISAM DEB */ 07000090 * /* (DEBWKPT5) TO PROVIDE INTEGRITY AND BY THE RPL EXTENSION */ 08000090 * /* (RRLIICB) TO PROVIDE A CONNECTION TO THE VSAM CONTROL BLOCK */ 09000090 * /* STRUCTURE. IT IS FREED BY ISAM INTERFACE CLOSE. */ 10000090 * /* */ 11000090 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 11050090 * /* */ 13000090 * DCL 1 IDAIICB BASED, /* ISAM INTERFACE CONTROL BLK*/ 14000090 * 2 IICBID PTR(8), /* IICB ID X'80' */ 15000090 * 2 * PTR(8), /* RESERVED */ 16000090 * 2 IICBLEN FIXED(15),/* LENGTH OF IICB */ 17000090 * 2 IIDCBPTR PTR(31), /* DCB POINTER */ 18000090 * 2 IIACBPTR PTR(31), /* ABC POINTER */ 19000090 * 2 IIRPLPTR PTR(31), /* RPL POINTER */ 20000090 * /* WORK AREA PTR */ 21000090 * 2 IIW1CBF PTR(31), /* DUMMY SCAN WA PTR */ 22000090 * 3 IISAVLRL FIXED (15), /* SAVE REC LENGTH @Y021130*/ 22100002 * 3 IIMAXLRL FIXED (15), /* MAX REC LENGTH @Y021130*/ 22150002 * 2 IIKEYPT PTR(31), /* KEYSAVE PTR */ 23000090 * 2 IIFLAG1 BIT(8), /* ISAM INTERFACE FLAG BYTE 1*/ 24000090 * 3 IIFSCAN BIT(1), /* SCAN MODE */ 25000090 * 3 IIFGET BIT(1), /* FIRST GET */ 26000090 * 3 * BIT(1), /* RESERVED */ 27000090 * 3 IIFCLOSE BIT(1), /* CLOSE IN PROCESS */ 28000090 * 3 IIDATA BIT(1), /* DATA ONLY RETRIVAL */ 29000090 * 3 IIFTEST BIT(1), /* LOOP TEST BIT */ 30000090 * 3 * BIT(1), /* RESERVED */ 31000090 * 3 IIQBFRS BIT(1), /* QISAM W/O BFRS-NO FREEMAIN*/ 32000090 * /* GETMAIN/FREEMAIN LENGTHS */ 33000090 * 2 IIACBL FIXED(24),/* ACB,EXLST,IICB LENGTH */ 34000002 * 2 IIFLAG2 BIT(8), /* ISAM INTERFACE FLAG BYTE 2*/ 35000090 * /* USED BY OPEN TO DESIGNATE */ 36000090 * /* THE FIELDS BEING MERGED */ 37000090 * /* BY II. II CLOSE USES THE */ 38000090 * /* SAME MASK TO RESTORE THE */ 39000090 * /* DCB TO PRE-OPEN CONDITION */ 40000090 * 3 MRKP BIT (1), /* RELATIVE KEY POSITION */ 41000090 * 3 MLRECL BIT (1), /* LOGICAL RECORD LENGTH */ 42000090 * 3 MBLKSI BIT (1), /* BLOCK SIZE */ 43000090 * 3 MOPTCD BIT (1), /* OPTION CODE */ 44000090 * 3 MRECFM BIT (1), /* RECORD FORMAT */ 45000090 * 3 MBUFL BIT (1), /* BUFFER LENGTH */ 46000090 * 3 MBUFNO BIT (1), /* BUFFER NUMBER */ 47000090 * 3 MKEYLE BIT (1), /* KEY LENGTH */ 48000090 * 2 IIRPLL FIXED(24),/* RPL, RPLE LENGTH-FREEMAIN */ 49000090 * 2 IIKEYSL FIXED(15),/* KEY SAVE AREA LENGTH */ 50000090 * 2 IIBUFL FIXED(15),/* II SINGLE BUFFER LENGTH */ 51000090 * 2 IIFLAG3 BIT(8), /* ISAM INTERFACE FLAG BYTE 3*/ 52000090 * 3 MBFALN BIT(1), /* BFALN MERGE BIT */ 53000090 * 3 * BIT(7), /* RESERVED */ 54000090 * 2 IIMSGL FIXED(24),/* MESSAGE AREA LENGTH */ 55000090 * 2 IIMSGPTR PTR(31), /* MESSAGE AREA POINTER */ 56000090 * 2 IIBUFNO PTR(8), /* II BUFFER NUMBER */ 57000090 * 2 IITBUFL FIXED(24),/* TOTAL BCB & BUFFER LENGTH */ 58000090 * 2 IISVCLST PTR(31), /* SVC EXIT - SYNADAF */ 59000090 * 2 IISAMSYN CHAR(8), /* ISAM SYNAD NAME */ 60000090 * 2 IIREGSAV, /* REG SAVE AREA (II - VSAM) */ 60010002 * 3 * PTR(31), /* */ 60020002 * 3 IIREGBC PTR(31), /* PREVIOUS SAVE AREA PTR */ 60030002 * 3 IIREGFC PTR(31), /* NEXT SAVE AREA PTR */ 60040002 * 3 * CHAR(60), /* REMAINDER OF SAVE AREA */ 60042002 * 2 IIAUD , /* AUDIT INFORMATION @Y021130*/ 60050002 * 3 IIAUDHDR , /* FIRST WORD @Y021130*/ 60100002 * 4 IIAUDFL1 BIT(8), /* II AUDIT FLAGS @Y021130*/ 60150002 * 5 AUDACBOP BIT (1), /* ACB OPEN ISSUED @Y021130*/ 60200002 * 5 AUDACBRO BIT (1), /* ACB OPEN RETURNED @Y021130*/ 60250002 * 5 AUDDCBEX BIT (1), /* DCB EXIT TAKEN @Y021130*/ 60300002 * 5 AUDDCBRT BIT (1), /* DCB EXIT RETURNED @Y021130*/ 60350002 * 5 AUDPRMOD BIT (2), /* PROCESSING MOD LOADED */ 60400002 * /* '11' = IDAIIPM3 @Y021130*/ 60450002 * /* '10' = IDAIIPM2 @Y021130*/ 60500002 * /* '01' = IDAIIPM1 @Y021130*/ 60550002 * 5 AUDIISYN BIT (1), /* II SYNAD LOADED @Y021130*/ 60600002 * 5 AUDURSYN BIT (1), /* USER SYNAD LOADED @Y021130*/ 60650002 * 4 IIAUDFL2 BIT(8), /* II AUDIT FLAGS @Y021130*/ 60660002 * 5 AUDIIFBF BIT (1), /* IDAIIFBF LOADED @Y021130*/ 60670002 * 5 AUDACBCL BIT (1), /* ACB CLOSE ISSUED @Y021130*/ 60680002 * 5 AUDACBRC BIT (1), /* ACB CLOSE RETURN @Y021130*/ 60690002 * 5 AUDBFREX BIT (1), /* FLUSH BFR EXIT @Y021130*/ 60700002 * 5 AUDBFRRT BIT (1), /* FLUSH BFR RETURN @Y021130*/ 60702002 * 5 AUDDEBXF BIT (1), /* DEB EXTENSION FREED */ 60704002 * 5 * BIT (2), /* UNUSED @Y021130*/ 60710002 * 4 IIGMCNTR FIXED (15), /* USED FOR OFFSET TO ENTRY */ 60750002 * /* OF GOTTEN CORE @Y021130*/ 60800002 * 3 IIGMAUD , /* LIST OF CORE ADDRESSES */ 60850002 * /* GOTTEN @Y021130*/ 60900002 * 4 AUDCIICB PTR (31), /* ADDR IICB @Y021130*/ 60950002 * 4 AUDCSPLI PTR (32), /* SUBPOOL/LENGTH @Y021130*/ 60960002 * 5 AUDCSPI FIXED (8), /* SUBPOOL @Y021130*/ 60962002 * 5 AUDCLI FIXED (24), /* LENGTH @Y021130*/ 60964002 * 4 AUDCDEB PTR (31), /* ADDR DEB @Y021130*/ 60970002 * 4 AUDCSPLD PTR (32), /* SUBPOOL/LENGTH @Y021130*/ 60980002 * 5 AUDCSPD FIXED (8), /* SUBPOOL @Y021130*/ 60982002 * 5 AUDCLD FIXED (24), /* LENGTH @Y021130*/ 60984002 * 4 AUDCBFRS PTR (31), /* BUFFERS,RPLS,ETC @Y021130*/ 60990002 * 4 AUDCSPLB PTR (32), /* SUBPOOL/LENGTH @Y021130*/ 60992002 * 5 AUDCSPB FIXED (8), /* SUBPOOL @Y021130*/ 60992402 * 5 AUDCLB FIXED (24), /* LENGTH @Y021130*/ 60992802 * 4 AUDCMSGA PTR (31), /* MESSAGE AREA @Y021130*/ 60994002 * 4 AUDCSPLM PTR (32), /* SUBPOOL/LENGTH @Y021130*/ 60996002 * 5 AUDCSPM FIXED (8), /* SUBPOOL @Y021130*/ 60998002 * 5 AUDCLM FIXED (24); /* LENGTH @Y021130*/ 60998402 * /* AUDIT GETMAIN ENTRY DESCRIPTION @Y021130*/ 65010002 * DCL 1 IIGMNTRY BASED (ADDR(IIAUD)+IIGMCNTR), /* DESCRIPTION */ 65050002 * /* OF GOTTEN CORE ENTRIES */ 65100002 * 2 IIGMADDR PTR(31), /* ADDRESS OF CORE @Y021130*/ 65150002 * 2 IIGMSPLG , /* SUBPOOL/LENGTH @Y021130*/ 65200002 * 3 IIGMPOOL FIXED(8), /* SUBPOOL @Y021130*/ 65250002 * 3 IIGMLEN FIXED (24); /* LENGTH @Y021130*/ 65300002