Date Wednesday Jun 10, 1981 04:21:00 AM
Loaded from MAINT(193)
R12931DS: ./ R 0080000 $ 80000 300 DMS00010
R12931DS: * XX REPRESENTS VARIOUS *VA12931 DMS00020
R12931DS: * ENTRY POINTS 0 TO 80 *VA12931 DMS00030
R12931DS: * + BAL 14,XX(,15) BRANCH TO ROUTINE *VA12931 DMS00040
R12931DS: ./ R 0108000 0113000 $ 108000 1000 DMS00050
R12931DS: BALR R15,0 SET ADDRESSABILITY *VA12931 DMS00060
R12931DS: USING *,R15 *VA12931 DMS00070
R12931DS: L R15,ADMSVIB1 SET TEMP BASE REG *VA12931 DMS00080
R12931DS: BR R15 BRANCH AROUND ADCON *VA12931 DMS00090
R12931DS: ORG DMSVIB+12 MUST BE AT DISPLACEMENT 12 *VA12931 DMS00100
R12931DS: ./ R 0120000 $ 120000 20 DMS00110
R12931DS: ADMSVIB1 DC A(DMSVIB1) SECOND MACRO ENTRY POINT *VA12931 DMS00120
R12931DS: SPACE 2 *VA12931 DMS00130
R12931DS: * *VA12931 DMS00140
R12931DS: * ENHANCED OS/VS VSAM CONTROL BLOCK MANIPULATION MACROS USE *VA12931 DMS00150
R12931DS: * BRANCH TABLE ENTRIES TO SUPPORT THE APPROPRIATE VSAM FUNC- *VA12931 DMS00160
R12931DS: * TION. THE FOLLOWING TABLE SUPPORTS BRANCH TABLE ENTRY. *VA12931 DMS00170
R12931DS: * *VA12931 DMS00180
R12931DS: DMSVIB1 DS 0H VSAM MACRO SECOND ENTRY ADDR *VA12931 DMS00190
R12931DS: USING DMSVIB1,R15 *VA12931 DMS00200
R12931DS: SPACE 2 *VA12931 DMS00210
R12931DS: B DMSVIB2 + 0 *VA12931 DMS00220
R12931DS: B DMSVIB2 + 4 *VA12931 DMS00230
R12931DS: B DMSVIB2 + 8 GENCB = ACB *VA12931 DMS00240
R12931DS: B DMSVIB2 + 12 GENCB = RPL *VA12931 DMS00250
R12931DS: B DMSVIB2 + 16 GENCB = EXLST *VA12931 DMS00260
R12931DS: B DMSVIB2 + 20 ** RESERVED ** *VA12931 DMS00270
R12931DS: B DMSVIB2 + 24 MODCB AN ACB *VA12931 DMS00280
R12931DS: B DMSVIB2 + 28 MODCB AN RPL *VA12931 DMS00290
R12931DS: B DMSVIB2 + 32 MODCB AN EXLST *VA12931 DMS00300
R12931DS: B DMSVIB2 + 36 ** RESERVED ** *VA12931 DMS00310
R12931DS: B DMSVIB2 + 40 SHOWCB = ACB *VA12931 DMS00320
R12931DS: B DMSVIB2 + 44 SHOWCB = RPL *VA12931 DMS00330
R12931DS: B DMSVIB2 + 48 SHOWCB = EXLST *VA12931 DMS00340
R12931DS: B DMSVIB2 + 52 ** RESERVED ** *VA12931 DMS00350
R12931DS: B DMSVIB2 + 56 TESTCB AN ACB *VA12931 DMS00360
R12931DS: B DMSVIB2 + 60 TESTCB AN RPL *VA12931 DMS00370
R12931DS: B DMSVIB2 + 64 TESTCB AN EXLST *VA12931 DMS00380
R12931DS: B DMSVIB2 + 68 ** RESERVED ** *VA12931 DMS00390
R12931DS: B DMSVIB2 + 72 SHOWCB/TESTCB (KEYWORDS) *VA12931 DMS00400
R12931DS: B DMSVIB2 + 76 SHOWCB (RECLEN OF RPL) *VA12931 DMS00410
R12931DS: B DMSVIB2 + 80 MODCB (RECLEN OF RPL) *VA12931 DMS00420
R12931DS: SPACE 2 *VA12931 DMS00430
R12931DS: DMSVIB2 DS 0H *VA12931 DMS00440
R12931DS: DMSKEY NUCLEUS GET NUCLEUS STORAGE KEY *VA12931 DMS00450
R12931DS: DROP R15 *VA12931 DMS00460
R12931DS: ./ R 0123000 0124000 $ 123000 600 DMS00470
R12931DS: STM R0,R14,BALRSAVE SAVE USER'S REGS *VA12931 DMS00480
R12931DS: BALR R12,0 SET ADDRESSABILITY *VA12931 DMS00490
R12931DS: USING *,R12 *VA12931 DMS00500
BEGIN APPLY >>> ./ R 0080000 $ 80000 300 DMS00010
END APPLY >>> ./ R 0080000 $ 80000 300 DMS00010
BEGIN APPLY >>> ./ R 0108000 0113000 $ 108000 1000 DMS00050
END APPLY >>> ./ R 0108000 0113000 $ 108000 1000 DMS00050
BEGIN APPLY >>> ./ R 0120000 $ 120000 20 DMS00110
END APPLY >>> ./ R 0120000 $ 120000 20 DMS00110
BEGIN APPLY >>> ./ R 0123000 0124000 $ 123000 600 DMS00470
END APPLY >>> ./ R 0123000 0124000 $ 123000 600 DMS00470
Update Succeeded
Update Execution Time 16 milliseconds.