ibm:vm370-lib:cms:dmsgrn.assemble_hst
Table of Contents
DMSGRN History
References
- Fixes Applied : 3
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [R13288DS]
Update History
CMS File Input : DMSGRN ASSEMBLE
Date : 12/12/1978 8:27:00 AM
VM Context : MAINT(393)
File Name : DMSGRN.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R10299DS 616 UV01690 GEN3705 FAILS TO HANDLE SINGLE LINK EDIT STEP
- R12800DS 619 UV03840 MSDMSGRN078E IF SYSLMOD NAME EIGHT CHARACTERS
- R13288DS 622 UV04587 DMSGRN GIVES INCORRECT DSN FOR VM PE VM10299
R10299DS
Date Friday Sep 19, 1980 09:19:00 AM
Loaded from MAINT(193)
R10299DS: ./ R 00165000 00166000 $ 165000 1000 07/18/80 23:41:13
R10299DS: * ERROR. THE PROGRAM NAME IFKASM, CWAX00 OR IEWL MUST FOLLOW 00165000
R10299DS: * THE KEYWORD PRG= ON THE EXEC CARD OR IT IS A DATA ERROR. 00166000
R10299DS: ./ I 00563000 $ 563300 300 07/18/80 23:41:13
R10299DS: TM PROCSW1,NEWJCL IF NEWJCL WE DO NOT NEED @VA10299 00563300
R10299DS: BO PROCEND2 ..... THE ERASE CMD @VA10299 00563600
R10299DS: ./ I 00816000 $ 816100 100 07/18/80 23:41:13
R10299DS: CLC SYSPCH(8),INPUT+2 IS IT SYSPUNCH? @VA10299 00816100
R10299DS: BNE IEWLJ2D NO - KEEP ON TRUCKING @VA10299 00816200
R10299DS: TM PROCSW1,LKDFIRST PASSED THIS WAY BEFOR? @VA10299 00816300
R10299DS: BNZ IEWLJ2D YES - NOT SINGLE JCL @VA10299 00816400
R10299DS: MVC PCH3NM,NCPNM SAVE NCPNAME @VA10299 00816500
R10299DS: IEWLJ2D DS 0H @VA10299 00816600
R10299DS: ./ R 00826000 $ 826000 1000 07/18/80 23:41:13
R10299DS: LA R8,9 FIGURE OUT WHERE TO SAVE THE @VA10299 00826000
R10299DS: ./ R 00829000 $ 829000 1000 07/18/80 23:41:13
R10299DS: LA R8,9 AND THEN CALCULATE THE COUNT @VA10299 00829000
R10299DS: ./ I 00831000 $ 831500 500 07/18/80 23:41:13
R10299DS: BCTR R9,0 POINT TO CORRECT SPOT FOR COUNT @VA10299 00831500
R10299DS: ./ R 00912000 $ 912000 30 07/18/80 23:41:13
R10299DS: BNZ SMODSWCK OK - NOT A DATA ERROR @VA10299 00912000
R10299DS: TM PROCSW1,LKDFIRST 1ST TIME THRU LNKEDT @VA10299 00912030
R10299DS: BNZ 4(R7) NOT OLD OR NEW JCL - ERROR @VA10299 00912060
R10299DS: LA R2,SYS1 LOCATE CHARS. 'SYS1.' @VA10299 00912090
R10299DS: BAL R14,EDITIN @VA10299 00912120
R10299DS: B SLMODA HURRAY - WE FOUND IT @VA10299 00912150
R10299DS: B 4(R7) RETURN POINT IF DATA ERROR @VA10299 00912180
R10299DS: SLMODA EQU * @VA10299 00912210
R10299DS: LA R3,5(R3) POINT PASS 'SYS1.' @VA10299 00912240
R10299DS: LA R5,LDM3NM DSN FIELD OF FILEDEF @VA10299 00912270
R10299DS: LA R6,8 MAX LENGTH OF DSN @VA10299 00912300
R10299DS: SLMODB DS 0H @VA10299 00912330
R10299DS: CLI 0(R3),C'(' TEST FOR END OF DSN @VA10299 00912360
R10299DS: BE SLMODC BR IF YES - @VA10299 00912390
R10299DS: CLI 0(R3),C',' TEST END OF DSN @VA10299 00912420
R10299DS: BE SLMODC BR IF YES @VA10299 00912450
R10299DS: CLI 0(R3),C' ' TEST END OF DSN @VA10299 00912480
R10299DS: BE SLMODC BR IF YES @VA10299 00912510
R10299DS: MVC 0(1,R5),0(R3) SAVE THE CHARACTER @VA10299 00912540
R10299DS: LA R5,1(,R5) BUMP THE POINTER @VA10299 00912570
R10299DS: LA R3,1(R3) MOVE TO NEXT DSN BYTE @VA10299 00912600
R10299DS: BCT R6,SLMODB HAS MAX. BEEN REACHED - BR IF NOT @VA10299 00912630
R10299DS: B 4(R7) ERROR RETURN NAME GREATER THAN 8 @VA10299 00912660
R10299DS: SLMODC DS 0H @VA10299 00912690
R10299DS: OI PROCSW1,NEWJCL SET ON NEWJCL SWITCH @VA10299 00912720
R10299DS: BR R7 A.O.K. @VA10299 00912750
R10299DS: SMODSWCK EQU * @VA10299 00912780
R10299DS: ./ R 00921000 $ 921000 1000 07/18/80 23:41:13
R10299DS: BE STMX1 NO - GO ON @VA10299 00921000
R10299DS: ./ I 00923000 $ 923500 500 07/18/80 23:41:13
R10299DS: B STMX1 SET JCL3 IN CASE ONLY LKD STEP @VA10299 00923500
R10299DS: ./ R 00925000 $ 925000 1000 07/18/80 23:41:13
R10299DS: LA R10,9 MAX. NUMBER OF CHARS. @VA10299 00925000
R10299DS: ./ R 00933000 $ 933000 60 07/18/80 23:41:13
R10299DS: SPACE 2 @VA10299 00933000
R10299DS: STMX1 DS 0H @VA10299 00933060
R10299DS: TM PROCSW1,LKDFIRST FIRST TIME THRU LKEDSTACK @VA10299 00933120
R10299DS: BNZ STMX GO - THIS IS 2ND TIME THRU @VA10299 00933180
R10299DS: CLC OBJTST(7),INPUT+2 IS THIS OBJ3705? @VA10299 00933240
R10299DS: BNE STMX2 NO - WELL WHAT IS IT? @VA10299 00933300
R10299DS: MVC OBJ3NM(7),OBJTST MOVE TO JCL3 JUST IN CASE @VA10299 00933360
R10299DS: B STMX RETURN @VA10299 00933420
R10299DS: STMX2 EQU * @VA10299 00933480
R10299DS: CLI OBJ3NM,X'40' HAVE WE FILLED A OBJ FILEDEF? @VA10299 00933540
R10299DS: BNE STMX YES-THEN IGNORE THIS TURKEY @VA10299 00933600
R10299DS: MVC OBJ3NM(8),INPUT+2 FILL DD NAME IN CASE ONLY JCL@VA10299 00933660
R10299DS: B STMX RETURN - DON'T CHANGE NORMAL FLOW @VA10299 00933720
R10299DS: OBJTST DC C'OBJ3705' @VA10299 00933780
R10299DS: SPACE 2 @VA10299 00933840
R10299DS: ./ R 00938000 $ 938000 1000 07/18/80 23:41:13
R10299DS: LA R10,9 MAX. COUNT @VA10299 00938000
R10299DS: ./ R 00940000 $ 940000 1000 07/18/80 23:41:13
R10299DS: SPACE 2 @VA10299 00940000
R10299DS: ./ I 00953000 $ 953300 300 07/18/80 23:41:13
R10299DS: TM PROCSW1,NEWJCL IF NEW JCL IGNORE CKINCL SW @VA10299
R10299DS: BO WRTSIN ....AND GO WRITE THE INCLUDE CARD @VA10299
R10299DS: ./ I 01083000 $ 1083500 500 07/18/80 23:41:13
R10299DS: MVC FNAME3(8),FNAME1 ......ALSO FOR SINGLE JCL @VA10299 01083500
R10299DS: ./ I 01087000 $ 1087100 100 07/18/80 23:41:13
R10299DS: TM PROCSW1,NEWJCL DO WE HAVE NEW JCL? @VA10299 01087100
R10299DS: BNO LKDSTK2 NOT NEW JCL @VA10299 01087200
R10299DS: MVC OPTION3(51),OPTION1 LKED OPTIONS @VA10299 01087300
R10299DS: LM R1,R2,STAKLKD3 INIT. REG'S @VA10299 01087400
R10299DS: B STACK30 BEG TO STACK END @VA10299 01087500
R10299DS: LKDSTK2 DS 0H @VA10299 01087600
R10299DS: ./ I 01211000 $ 1211060 60 07/18/80 23:41:13
R10299DS: STAKLKD3 DC A(4),A(LKEDCMSC) @VA10299 01211060
R10299DS: LKEDCMSC DS 0C @VA10299 01211120
R10299DS: DC X'28',C'FILEDEF OBJ3705 DISK ' @VA10299 01211180
R10299DS: OBJ3NM DC C' ' NCP NAME @VA10299 01211240
R10299DS: DC C' TXTLIB A1' @VA10299 01211300
R10299DS: DC X'29',C'FILEDEF SYSPUNCH DISK ' @VA10299 01211360
R10299DS: PCH3NM DC C' ' ASM3705 OBJ FILE @VA10299 01211420
R10299DS: DC C' TXTLIB A1' @VA10299 01211480
R10299DS: DC X'3B',C'FILEDEF SYSLMOD DISK ' @VA10299 01211540
R10299DS: LDM3NM DC C' ' SYSLMOD DSN @VA10299 01211600
R10299DS: DC C' LOADLIB A1 (RECFM U BLOCK 260' @VA10299 01211660
R10299DS: LKEDCMS3 DC X'50',C'LKED ' @VA10299 01211720
R10299DS: FNAME3 DC CL9' ' @VA10299 01211780
R10299DS: DC C'( PRINT NOTERM ' @VA10299 01211840
R10299DS: OPTION3 DC CL51' ' @VA10299 01211900
R10299DS: ./ I 01522000 $ 1522500 500 07/18/80 23:41:13
R10299DS: NEWJCL EQU X'40' SINGLE LNKED STEP SWITCH @VA10299 01522500
R10299DS: ./ I 01664000 $ 1664300 300 07/18/80 23:41:13
R10299DS: SPACE 1 @VA10299 01664300
R10299DS: SYS1 DC H'60',H'05',C'SYS1.' SYS1 KEYWORD @VA10299 01664600
BEGIN APPLY >>> ./ R 00165000 00166000 $ 165000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00165000 00166000 $ 165000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 00563000 $ 563300 300 07/18/80 23:41:13
END APPLY >>> ./ I 00563000 $ 563300 300 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 00816000 $ 816100 100 07/18/80 23:41:13
END APPLY >>> ./ I 00816000 $ 816100 100 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00826000 $ 826000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00826000 $ 826000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00829000 $ 829000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00829000 $ 829000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 00831000 $ 831500 500 07/18/80 23:41:13
END APPLY >>> ./ I 00831000 $ 831500 500 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00912000 $ 912000 30 07/18/80 23:41:13
END APPLY >>> ./ R 00912000 $ 912000 30 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00921000 $ 921000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00921000 $ 921000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 00923000 $ 923500 500 07/18/80 23:41:13
END APPLY >>> ./ I 00923000 $ 923500 500 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00925000 $ 925000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00925000 $ 925000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00933000 $ 933000 60 07/18/80 23:41:13
END APPLY >>> ./ R 00933000 $ 933000 60 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00938000 $ 938000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00938000 $ 938000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ R 00940000 $ 940000 1000 07/18/80 23:41:13
END APPLY >>> ./ R 00940000 $ 940000 1000 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 00953000 $ 953300 300 07/18/80 23:41:13
END APPLY >>> ./ I 00953000 $ 953300 300 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 01083000 $ 1083500 500 07/18/80 23:41:13
END APPLY >>> ./ I 01083000 $ 1083500 500 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 01087000 $ 1087100 100 07/18/80 23:41:13
END APPLY >>> ./ I 01087000 $ 1087100 100 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 01211000 $ 1211060 60 07/18/80 23:41:13
END APPLY >>> ./ I 01211000 $ 1211060 60 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 01522000 $ 1522500 500 07/18/80 23:41:13
END APPLY >>> ./ I 01522000 $ 1522500 500 07/18/80 23:41:13
BEGIN APPLY >>> ./ I 01664000 $ 1664300 300 07/18/80 23:41:13
END APPLY >>> ./ I 01664000 $ 1664300 300 07/18/80 23:41:13
Update Succeeded
Update Execution Time 63 milliseconds.
R12800DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12800DS: ./ R 00912300 $ 912300 30 02/13/81 18:10:13
R12800DS: LA R6,9 MAX LENGTH OF DSN + 1 @VA12800 00912300
BEGIN APPLY >>> ./ R 00912300 $ 912300 30 02/13/81 18:10:13
END APPLY >>> ./ R 00912300 $ 912300 30 02/13/81 18:10:13
Update Succeeded
Update Execution Time 16 milliseconds.
R13288DS
Date Tuesday Jun 30, 1981 06:24:00 AM
Loaded from MAINT(193)
R13288DS: ./ I 00910000 $ 910500 500 06/03/81 20:21:48
R13288DS: LA R5,FISMODNM 2 STEP FILEDEF @VA13288
R13288DS: ./ D 00912240 06/03/81 20:21:48
R13288DS: ./ D 00912300 00912690 06/03/81 20:21:48
R13288DS: ./ D 00912750 06/03/81 20:21:48
R13288DS: ./ R 00914000 $ 914000 1000 06/03/81 20:21:48
R13288DS: MVC 0(8,R5),FSCBFN-DFSCB(R10) . . . @VA13288
BEGIN APPLY >>> ./ I 00910000 $ 910500 500 06/03/81 20:21:48
END APPLY >>> ./ I 00910000 $ 910500 500 06/03/81 20:21:48
BEGIN APPLY >>> ./ D 00912240 06/03/81 20:21:48
END APPLY >>> ./ D 00912240 06/03/81 20:21:48
BEGIN APPLY >>> ./ D 00912300 00912690 06/03/81 20:21:48
END APPLY >>> ./ D 00912300 00912690 06/03/81 20:21:48
BEGIN APPLY >>> ./ D 00912750 06/03/81 20:21:48
END APPLY >>> ./ D 00912750 06/03/81 20:21:48
BEGIN APPLY >>> ./ R 00914000 $ 914000 1000 06/03/81 20:21:48
END APPLY >>> ./ R 00914000 $ 914000 1000 06/03/81 20:21:48
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsgrn.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator