CMS File Input : DMSVIP ASSEMBLE
Date : 12/12/1978 8:37:00 AM
VM Context : MAINT(393)
File Name : DMSVIP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Date Thursday Jul 31, 1980 07:02:00 AM
Loaded from MAINT(193)
R11684DS: ./ I 00391000 $ 391200 200 06/25/80 16:44:57
R11684DS: LA R1,SETDOSPA POINT TO PLIST @VA11684 00389000
R11684DS: SVC 202 INITIALIZE DOSPART @VA11684 00390000
R11684DS: DC AL4(*+4) @VA11684 00391000
R11684DS: ./ I 01755000 $ 1755100 100 06/25/80 16:44:57
R11684DS: SETDOSPA DS 0D @VA11684 01749000
R11684DS: DC CL8'SET' @VA11684 01750000
R11684DS: DC CL8'DOSPART' @VA11684 01751000
R11684DS: DC CL8'10K' @VA11684 01752000
R11684DS: DC 8X'FF' @VA11684 01753000
BEGIN APPLY >>> ./ I 00391000 $ 391200 200 06/25/80 16:44:57
END APPLY >>> ./ I 00391000 $ 391200 200 06/25/80 16:44:57
BEGIN APPLY >>> ./ I 01755000 $ 1755100 100 06/25/80 16:44:57
END APPLY >>> ./ I 01755000 $ 1755100 100 06/25/80 16:44:57
Update Succeeded
Update Execution Time 23 milliseconds.
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12328DS: ./ D 391200 391600 $
R12328DS: ./ D 1755100 1755500 $
BEGIN APPLY >>> ./ D 391200 391600 $
END APPLY >>> ./ D 391200 391600 $
BEGIN APPLY >>> ./ D 1755100 1755500 $
END APPLY >>> ./ D 1755100 1755500 $
Update Succeeded
Update Execution Time 23 milliseconds.
Date Wednesday Jun 10, 1981 04:21:00 AM
Loaded from MAINT(193)
R12931DS: ./ R 0178000 $ 178000 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 0351000 $ 351000 DMS00050
R12931DS: ADMSVIP1 DC AL4(DMSVIP1) @VA12931 DMS00060
R12931DS: ./ R 0358300 $ 358300 10 DMS00070
R12931DS: DMSVIP1 DS 0H MACRO ENTRY POINT @VA12931 DMS00080
R12931DS: * @VA12931 DMS00090
R12931DS: * THE ENHANCED OS/VS VSAM CONTROL BLOCK MANIPULATION MACROS @VA12931 DMS00100
R12931DS: * USE A BRANCH TABLE ENTRY TO INVOKE THE APPROPRIATE VSAM @VA12931 DMS00110
R12931DS: * FUNCTION. THE FOLLOWING TABLE SUPPORTS BRANCH TABLE ENTRY. @VA12931 DMS00120
R12931DS: * @VA12931 DMS00130
R12931DS: SPACE 2 @VA12931 DMS00140
R12931DS: USING DMSVIP1,R15 @VA12931 DMS00150
R12931DS: B VIPENTRY + 0 @VA12931 DMS00160
R12931DS: B VIPENTRY + 4 @VA12931 DMS00170
R12931DS: B VIPENTRY + 8 GENCB = ACB @VA12931 DMS00180
R12931DS: B VIPENTRY + 12 GENCB = RPL @VA12931 DMS00190
R12931DS: B VIPENTRY + 16 GENCB = EXLST @VA12931 DMS00200
R12931DS: B VIPENTRY + 20 ** RESERVED ** @VA12931 DMS00210
R12931DS: B VIPENTRY + 24 MODCB AN ACB @VA12931 DMS00220
R12931DS: B VIPENTRY + 28 MODCB AN RPL @VA12931 DMS00230
R12931DS: B VIPENTRY + 32 MODCB AN EXLST @VA12931 DMS00240
R12931DS: B VIPENTRY + 36 ** RESERVED ** @VA12931 DMS00250
R12931DS: B VIPENTRY + 40 SHOWCB = ACB @VA12931 DMS00260
R12931DS: B VIPENTRY + 44 SHOWCB = RPL @VA12931 DMS00270
R12931DS: B VIPENTRY + 48 SHOWCB = EXLST @VA12931 DMS00280
R12931DS: B VIPENTRY + 52 ** RESERVED ** @VA12931 DMS00290
R12931DS: B VIPENTRY + 56 TESTCB AN ACB @VA12931 DMS00300
R12931DS: B VIPENTRY + 60 TESTCB AN RPL @VA12931 DMS00310
R12931DS: B VIPENTRY + 64 TESTCB AN EXLST @VA12931 DMS00320
R12931DS: B VIPENTRY + 68 ** RESERVED ** @VA12931 DMS00330
R12931DS: B VIPENTRY + 72 SHOWCB/TESTCB (KEYWORDS) @VA12931 DMS00340
R12931DS: B VIPENTRY + 76 SHOWCB (RECLEN OF RPL) @VA12931 DMS00350
R12931DS: B VIPENTRY + 80 MODCB (RECLEN OF RPL) @VA12931 DMS00360
R12931DS: DROP R15 @VA12931 DMS00370
R12931DS: VIPENTRY DS 0H MAIN OR COMMON ENTRY @VA12931 DMS00380
BEGIN APPLY >>> ./ R 0178000 $ 178000 300 DMS00010
END APPLY >>> ./ R 0178000 $ 178000 300 DMS00010
BEGIN APPLY >>> ./ R 0351000 $ 351000 DMS00050
END APPLY >>> ./ R 0351000 $ 351000 DMS00050
BEGIN APPLY >>> ./ R 0358300 $ 358300 10 DMS00070
END APPLY >>> ./ R 0358300 $ 358300 10 DMS00070
Update Succeeded
Update Execution Time 31 milliseconds.