/********************************************************************/ 00050004 /* */ 00100004 /* MACRO NAME = IDAUPT */ 00150004 /* */ 00200004 /* DESCRIPTIVE NAME = UPGRADE TABLE. */ 00250004 /* */ 00300004 /* FUNCTION = THE UPT CONTAINS INFORMATION RELATING TO THE */ 00310004 /* IMMEDIATE UPGRADE SET. */ 00320004 /* */ 00330004 /* CONTROL BLOCK STRUCTURE = POINTED TO BY THE BIB (BIBUPT) */ 00340004 /* WHENEVER THE IMMEDIATE UPGRADE SET */ 00342004 /* IS OPENED. */ 00344003 /* */ 00346004 /* INCLUDED MACROS = NONE */ 00348004 /* */ 00348404 /* METHOD OF ACCESS = PL/S - RESPECIFY IDAUPT BASED. */ 00348804 /* */ 00349204 /* CREATED BY: VSAM OPEN MODULE IDA0192F. */ 00349604 /* */ 00349704 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3. */ 00349804 /* */ 00349904 /* DATE OF LAST CHANGE = 1 AUGUST 74 */ 00366604 /* */ 00376604 /********************************************************************/ 00378604 DCL 00383304 1 IDAUPT BASED BDY(WORD), /* UPGRADE TABLE */ 00400004 2 UPTHDR, /* UPT HEADER SECTION */ 00450004 3 UPTID CHAR(1), /* CONTROL BLOCK ID */ 00500004 3 UPTFLG0 BIT(8), /* FLAGS */ 00550004 4 UPTPWS BIT(1), /* CONTINUE WITH SCAN */ 00600004 3 UPTLEN FIXED(15), /* LENGTH OF UPT */ 00650004 2 UPTNEW PTR(31), /* ADDR OF NEW AIX RECORD */ 00700004 2 UPTOLD PTR(31), /* ADDR OF OLD AIX RECORD */ 00750004 2 UPTRSC BIT(8), /* RESOURCE BYTE -- USED TO 00800004 SERIALIZE UPDATES */ 00850004 2 UPTNOENT FIXED(8), /* NUMBER OF AIX ENTRIES */ 00900004 2 UPTLLEN FIXED(15), /* LARGEST VALUE OF RKP + KEYLEN */ 00950004 2 UPTSA CHAR(72) BDY(WORD), /* SAVE AREA */ 01000004 3 UPTBRPL PTR(31), /* PTR TO BASE RPL */ 01050003 3 UPTLSA PTR(31), /* LAST SAVE AREA */ 01100004 3 UPTBEREG FIXED(8), /* BASE RPLERREG */ 01150004 3 UPTBERCD FIXED(8), /* BASE RPLERRCD */ 01160004 3 * FIXED(8), /* UNUSED */ 01170003 3 UPTSARES BIT(8), /* UPT SAVE AREA RESOURCE BYTE */ 01180003 3 UPTR14 PTR(31), /* RETURN ADDR FROM IDA019R4 01200004 AFTER I/O INITIATED */ 01250004 3 UPTR15 CHAR(56) BDY(WORD),/* REST OF SAVE AREA */ 01300004 2 UPTAXENT(*), /* AIX ENTRY--ONE PER AIX */ 01350004 3 UPTRPL PTR(31), /* ADDR OF UPGRADE RPL */ 01400004 4 UPTF1LOP BIT(8), /* LAST OPERATION AGAINST UPG ACB*/ 01450004 3 UPTFLG1 BIT(16), /* FLAGS */ 01500004 4 UPTF1LST BIT(1), /* LAST ENTRY */ 01550004 4 UPTF1ATV BIT(1), /* ENTRY IS ACTIVE FOR UPGRADE */ 01600004 4 UPTF1NUK BIT(1), /* NON-UNIQUE KEYS */ 01650004 4 UPTF1NOP BIT(1), /* AIX NOT OPEN */ 01700004 4 UPTF1NRF BIT(1), /* NO RECORD FOUND ERR DETECTED */ 01750004 4 UPTF1KEY BIT(1), /* KEY BEING WORKED UPON 01800004 0=OLD KEY 1=NEW KEY */ 01850004 4 UPTF1RTY BIT(1), /* LAST OPERATION BEING RETRIED */ 01900004 4 UPTF1UPG BIT(1), /* AIX IS IN UPGRADE */ 01950004 4 UPTF1BKO BIT(1), /* BACKOUT IS IN PROGRESS */ 02000004 4 UPTF1LOG BIT(1), /* THIS AIX HAD LOGICAL ERROR */ 02050004 4 UPTF1PHY BIT(1), /* THIS AIX HAD PHYSICAL ERROR */ 02100004 4 UPTF1ERA BIT(1), /* BASE FUNCTION WAS ERASE */ 02150004 4 UPTF1PNU BIT(1), /* BASE FUNCTION WAS PUT INSERT */ 02200004 4 UPTF1PUD BIT(1), /* BASE FUNCTION WAS PUT UPDATE */ 02250004 3 UPTRKP FIXED(15), /* RELATIVE KEY POSITION */ 02300004 3 UPTPASS FIXED(8), /* PROCESSING PASS NUMBER */ 02350004 3 UPTLNCDE FIXED(8), /* KEY LENGTH - ONE */ 02400004 3 UPTBG FIXED(15); /* LENGTH OF RPLAREA FIELD */ 02450004 DCL 02500004 (UPTOKEY CONSTANT('0'B), /* OLD KEY FOR UPTF1KEY */ 02550004 UPTNKEY CONSTANT('1'B)) BIT(1);/* NEW KEY FOR UPTF1KEY */ 02600004 DCL 02650004 (UPTLOPER CONSTANT('10000000'B),/* LAST OPERATION WAS ERASE */ 02700004 UPTLOPGU CONSTANT('01000000'B),/* LAST OPERATION WAS GET UPDATE*/ 02750004 UPTLOPPU CONSTANT('00100000'B),/* LAST OPERATION WAS PUT UPDATE*/ 02800004 UPTLOPPN CONSTANT('00010000'B),/* LAST OPERATION WAS PUT NUP */ 02850004 UPTLOPEN CONSTANT('00000000'B))/* LAST OPERATION WAS ENDREQ */ 02900004 BIT(8); 02950004