ibm:vm370-lib:cms:dmsxcp.assemble_hst
Table of Contents
DMSXCP History
References
- Fixes Applied : 6
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [R15315DS]
Update History
CMS File Input : DMSXCP ASSEMBLE
Date : 12/12/1978 8:37:00 AM
VM Context : MAINT(393)
File Name : DMSXCP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:33 AM
Created : 1/16/2021 7:31:32 AM
Update Order
- R08678DS 601 POOR PERFORMANCE OF SVC0 IN DMSXCP
- R10745DS 613 UV01065 ACTION ERROR ON REPRO FIXED FILE
- R10244DS 613 UV01074 DROPS 60TH RECORD ON IMPORT FILE
- R12729DS 619 UV03865 PASS RESIDUAL COUNT ON INCORRECT LENGTH.
- R12870DS 620 UV04137 INCORRECT LENGTH REPRO OF VARIABLE INPUT CMS FILE.
- R15315DS 629 UV06157 MSDMSXCP104S ERROR CODE 26.
R08678DS
Date Wednesday Feb 21, 1979 09:52:00 AM
Loaded from MAINT(193)
R08678DS: ./ R 579000 585000 $ 579050 50
R08678DS: SR R4,R4 CLEAR @VA08678
R08678DS: IC R4,IOSW GET CCW CODE @VA08678
R08678DS: A R4,ASDCODES DISPLACE INTO CODES LIST @VA08678
R08678DS: SR R5,R5 CLEAR @VA08678
R08678DS: IC R5,0(0,R4) GET ROUTINE ID @VA08678
R08678DS: B DSKRTN(R5) BRANCH TO PROPER ROUTINE @VA08678
R08678DS: DSKRTN DS 0H @VA08678
R08678DS: B INVCCW 00 INVALID CCW CODE @VA08678
R08678DS: B SDEXIT 04 NO-OP @VA08678
R08678DS: B SDSRCHID 08 SEARCH ID @VA08678
R08678DS: B SDRDCNT 0C READ COUNT @VA08678
R08678DS: B SDREAD 10 READ KEY AND DATA @VA08678
R08678DS: B SDRDCKD 14 READ COUNT, KEY AND DATA @VA08678
R08678DS: B SDWRCKD 18 WRITE COUNT,KEY AND DATA @VA08678
R08678DS: B SDWRITE 1C WRITE, KEY AND DATA @VA08678
R08678DS: B SDEXIT2 20 TIC CCW @VA08678
R08678DS: ./ I 1512000 $ 1512100 100
R08678DS: DC AL1(1),AL3(CDPUNCH) CARD PUNCH,FEED,SS @VA08678
R08678DS: ./ R 1522000 1523000 $ 1523100 100
R08678DS: ENDCDC EQU (*-CDCODES)/4 LENGTH OF CDCODES @VA08678
R08678DS: ASDCODES DC A(SDCODES) ADDRESS OF SDCODES TABLE @VA08678
R08678DS: ./ R 1531000 1607000 $ 1531100 100
R08678DS: * 0 1 2 3 4 5 6 7 8 9 A B C D E F
R08678DS: SDCODES DC X'00,18,04,04,04,1C,10,04,20,00,00,04,00,1C,10,04' 00
R08678DS: DC X'00,04,0C,04,00,04,04,04,20,04,04,04,00,18,14,04' 10
R08678DS: DC X'00,00,04,04,04,04,00,04,20,04,00,04,00,04,00,00' 20
R08678DS: DC X'00,08,00,00,00,04,00,00,20,04,00,00,00,00,00,00' 30
R08678DS: DC X'00,00,00,00,04,04,00,00,20,04,00,00,00,04,00,00' 40
R08678DS: DC X'00,08,00,04,00,04,00,00,20,00,00,00,00,00,00,00' 50
R08678DS: DC X'00,00,00,00,00,04,00,00,20,04,00,00,00,04,00,00' 60
R08678DS: DC X'00,00,00,04,00,04,00,00,20,00,00,00,00,00,00,00' 70
R08678DS: * 0 1 2 3 4 5 6 7 8 9 A B C D E F
R08678DS: DC X'00,00,00,08,00,00,10,04,20,00,00,00,00,00,10,00' 80
R08678DS: DC X'00,00,0C,00,04,00,04,00,20,00,04,00,00,00,14,00' 90
R08678DS: DC X'00,00,00,00,04,04,00,00,20,04,00,00,00,04,00,00' A0
R08678DS: DC X'00,08,00,00,04,04,00,00,20,04,00,00,00,00,00,00' B0
R08678DS: DC X'00,00,00,00,00,04,00,00,20,04,00,00,00,04,00,00' C0
R08678DS: DC X'00,08,00,00,00,04,00,00,20,00,00,00,00,00,00,00' D0
R08678DS: DC X'00,00,00,00,00,04,00,00,20,04,00,00,00,04,00,00' E0
R08678DS: DC X'00,08,00,00,00,04,00,00,20,00,00,00,00,00,00,00' F0
R08678DS: * 0 1 2 3 4 5 6 7 8 9 A B C D E F
BEGIN APPLY >>> ./ R 579000 585000 $ 579050 50
END APPLY >>> ./ R 579000 585000 $ 579050 50
BEGIN APPLY >>> ./ I 1512000 $ 1512100 100
END APPLY >>> ./ I 1512000 $ 1512100 100
BEGIN APPLY >>> ./ R 1522000 1523000 $ 1523100 100
END APPLY >>> ./ R 1522000 1523000 $ 1523100 100
BEGIN APPLY >>> ./ R 1531000 1607000 $ 1531100 100
END APPLY >>> ./ R 1531000 1607000 $ 1531100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R10745DS
Date Wednesday Jun 04, 1980 05:23:00 AM
Loaded from MAINT(193)
R10745DS: ./ I 653000 $ 653100 100
R10745DS: CLI 0(R3),VSRDCNT IS CURRENT CCW A READ COUNT @VA10745
R10745DS: BNE VSROK1 NO-FORGET RD CNT AFTER READ @VA10745
R10745DS: ICM R4,15,DOSREAD SEE IF EOF ON READCNT @VA10745
R10745DS: BZ SDNORES YES-IN THIS CASE NO RESID CNT @VA10745
R10745DS: VSROK1 EQU * CONTINUE TO TEST FOR RESID CNT @VA10745
R10745DS: ./ I 1351000 $ 1351500
R10745DS: VSRDCNT EQU X'92' READ COUNT CCW (VSAM SPECIAL) @VA10745
BEGIN APPLY >>> ./ I 653000 $ 653100 100
END APPLY >>> ./ I 653000 $ 653100 100
BEGIN APPLY >>> ./ I 1351000 $ 1351500
END APPLY >>> ./ I 1351000 $ 1351500
Update Succeeded
Update Execution Time 23 milliseconds.
R10244DS
Date Wednesday Jun 04, 1980 05:23:00 AM
Loaded from MAINT(193)
R10244DS: ./ I 740000 $ 740250 250
R10244DS: TM 21(R2),INP INPUT FILE? @VA10244
R10244DS: BO SDBYPASS BYPASS OUTPUT TEST @VA10244
R10244DS: ./ I 742000 $ 742500
R10244DS: SDBYPASS EQU * @VA10244
BEGIN APPLY >>> ./ I 740000 $ 740250 250
END APPLY >>> ./ I 740000 $ 740250 250
BEGIN APPLY >>> ./ I 742000 $ 742500
END APPLY >>> ./ I 742000 $ 742500
Update Succeeded
Update Execution Time 16 milliseconds.
R12729DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12729DS: ./ R 905000 $ 905000 250
R12729DS: STH R8,CCBCNT PASS RESIDUAL COUNT @VA12729
R12729DS: BZ IODONE GOOD I/O, EXIT @VA12729
BEGIN APPLY >>> ./ R 905000 $ 905000 250
END APPLY >>> ./ R 905000 $ 905000 250
Update Succeeded
Update Execution Time 23 milliseconds.
R12870DS
Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
R12870DS: ./ R 665000 $ 665000
R12870DS: B IODONE2 I/O COMPLETE @VA12870
BEGIN APPLY >>> ./ R 665000 $ 665000
END APPLY >>> ./ R 665000 $ 665000
Update Succeeded
Update Execution Time 16 milliseconds.
R15315DS
Date Monday Mar 15, 1982 08:45:00 AM
Loaded from MAINT(193)
R15315DS: ./ R 683000 $ 683000 500
R15315DS: SR R5,R5 CLEAR REG 5 @VA15315
R15315DS: ICM R5,B'0011',0(R4) LOAD CC INTO REG 5 @VA15315
BEGIN APPLY >>> ./ R 683000 $ 683000 500
END APPLY >>> ./ R 683000 $ 683000 500
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cms/dmsxcp.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator