ibm:vm370-lib:cms:dmsscr.assemble_hst
Table of Contents
DMSSCR History
References
- Fixes Applied : 4
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC073DS]
Update History
CMS File Input : DMSSCR ASSEMBLE
Date : 12/12/1978 8:33:00 AM
VM Context : MAINT(393)
File Name : DMSSCR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
- HRC104DS V02 ADD SUPPORT FOR LARGE CRTS MODEL 3 AND 4
- HRC340DS V01 ADD SUPPORT FOR HIGHLIET CURRENT LINE
- HRC342DS V01 ADD SUPPORT FOR HIGHLIET CURRENT LINE
- HRC073DS V01 ADD EDIT SUPPORT OF 3278 MODEL 5 TERMINALS
HRC104DS
Date Thursday Mar 09, 2006 02:40:00 PM
Loaded from MAINT(093)
HRC104DS: ./ R 00539000 00541000 $ 539690 690 03/09/06 14:40:33
HRC104DS: DC H'12,13,29,30,0960,2400' - 3278 MODEL 3 HRC104DS 00539000
HRC104DS: DC H'18,19,40,41,1440,3280' - 3278 MODEL 4 HRC104DS 00540000
HRC104DS: DC H'07,08,17,18,0560,1440' - 3278 MODEL 2A HRC104DS 00541000
BEGIN APPLY >>> ./ R 00539000 00541000 $ 539690 690 03/09/06 14:40:33
END APPLY >>> ./ R 00539000 00541000 $ 539690 690 03/09/06 14:40:33
Update Succeeded
Update Execution Time 23 milliseconds.
HRC340DS
Date Thursday Oct 16, 2008 10:35:00 PM
Loaded from MAINT(093)
HRC340DS: ./ * ************* GG934D0 00001000
HRC340DS: ./ * * GG934D0 00002000
HRC340DS: ./ * * HRC310DS 9/26/77 GG934D0 00003000
HRC340DS: ./ * * USE HI-INTENSITY FOR CURRENT EDIT LINE GG934D0 00000400
HRC340DS: ./ * * GG934D0 00005000
HRC340DS: ./ * ************* GG934D0 00006000
HRC340DS: ./ I 00159000 $ 00159010 010
HRC340DS: MVC ZN,=C'ZONE='
HRC340DS: MVC VER,=C'VERFY='
HRC340DS: MVC CSE,=C'CASE='
HRC340DS: MVC TNCC,=C'TRUNC='
HRC340DS: MVI ZNH,C'-'
HRC340DS: MVI VERH,C'-'
HRC340DS: MVI CASE,C'U'
HRC340DS: CLI CASESW,C'U' IS IT?
HRC340DS: BE *+8 SKIP IS SO
HRC340DS: MVI CASE,C'M' NOPE MOVE M
HRC340DS: LH R5,ZONE1 GET FIRST ZONE CHAR
HRC340DS: LA R5,1(0,R5) BUMP
HRC340DS: CVD R5,DECLTH CONVERT TO DECIMAL
HRC340DS: MVC EDMSK,PATRN MASK FOR EDIT OP
HRC340DS: ED EDMSK,DECLTH+6 EDIT LENGTH FIELD
HRC340DS: MVC ZNS(3),EDMSK+1 MOVE TO BUFFER
HRC340DS: LH R5,ZONE2 GET END OF ZONE
HRC340DS: CVD R5,DECLTH CONVERT TO DECIMAL
HRC340DS: MVC EDMSK,PATRN MASK FOR EDIT OP
HRC340DS: ED EDMSK,DECLTH+6 EDIT LENGTH FIELD
HRC340DS: MVC ZNE(3),EDMSK+1 AND MOVE TO HEADER LINE
HRC340DS: LH R5,TRUNCOL
HRC340DS: CVD R5,DECLTH CONVERT TO DECIMAL
HRC340DS: MVC EDMSK,PATRN MASK FOR EDIT OP
HRC340DS: ED EDMSK,DECLTH+6 EDIT LENGTH FIELD
HRC340DS: MVC TNC(3),EDMSK+1 AND MOVE TO HEADER LINE
HRC340DS: LH R5,VERCOL1
HRC340DS: CVD R5,DECLTH
HRC340DS: MVC EDMSK,PATRN
HRC340DS: ED EDMSK,DECLTH+6
HRC340DS: MVC VERS(3),EDMSK+1
HRC340DS: LH R5,VERCOL2
HRC340DS: CVD R5,DECLTH
HRC340DS: MVC EDMSK,PATRN
HRC340DS: ED EDMSK,DECLTH+6
HRC340DS: MVC VERE(3),EDMSK+1
HRC340DS: ./ I 00491000 $ 491100 100 01490000
HRC340DS: CH R4,CLNUMBER ARE WE ON LINE 9
HRC340DS: BNE NOTCUR
HRC340DS: S R3,=F'1'
HRC340DS: MVI FLAGLOC,X'04' YES SET HILIGHT
HRC340DS: NOTCUR EQU *
HRC340DS: ./ R 00558000 00558000 $ 00558010 010
HRC340DS: DS C
HRC340DS: ZN DS CL5
HRC340DS: ZNS DS CL3
HRC340DS: ZNH DS C
HRC340DS: ZNE DS CL3
HRC340DS: DS C
HRC340DS: VER DS CL6
HRC340DS: VERS DS CL3
HRC340DS: VERH DS C
HRC340DS: VERE DS CL3
HRC340DS: DS C
HRC340DS: CSE DS CL5
HRC340DS: CASE DS C
HRC340DS: DS C
HRC340DS: TNCC DS CL6
HRC340DS: TNC DS CL3
BEGIN APPLY >>> ./ * ************* GG934D0 00001000
Comment >>> ./ * ************* GG934D0 00001000
END APPLY >>> ./ * ************* GG934D0 00001000
BEGIN APPLY >>> ./ * * GG934D0 00002000
Comment >>> ./ * * GG934D0 00002000
END APPLY >>> ./ * * GG934D0 00002000
BEGIN APPLY >>> ./ * * HRC310DS 9/26/77 GG934D0 00003000
Comment >>> ./ * * HRC310DS 9/26/77 GG934D0 00003000
END APPLY >>> ./ * * HRC310DS 9/26/77 GG934D0 00003000
BEGIN APPLY >>> ./ * * USE HI-INTENSITY FOR CURRENT EDIT LINE GG934D0 00000400
Comment >>> ./ * * USE HI-INTENSITY FOR CURRENT EDIT LINE GG934D0 00000400
END APPLY >>> ./ * * USE HI-INTENSITY FOR CURRENT EDIT LINE GG934D0 00000400
BEGIN APPLY >>> ./ * * GG934D0 00005000
Comment >>> ./ * * GG934D0 00005000
END APPLY >>> ./ * * GG934D0 00005000
BEGIN APPLY >>> ./ * ************* GG934D0 00006000
Comment >>> ./ * ************* GG934D0 00006000
END APPLY >>> ./ * ************* GG934D0 00006000
BEGIN APPLY >>> ./ I 00159000 $ 00159010 010
END APPLY >>> ./ I 00159000 $ 00159010 010
BEGIN APPLY >>> ./ I 00491000 $ 491100 100 01490000
END APPLY >>> ./ I 00491000 $ 491100 100 01490000
BEGIN APPLY >>> ./ R 00558000 00558000 $ 00558010 010
END APPLY >>> ./ R 00558000 00558000 $ 00558010 010
Update Succeeded
Update Execution Time 23 milliseconds.
HRC342DS
Date Thursday Oct 16, 2008 10:36:00 PM
Loaded from MAINT(093)
HRC342DS: ./ * ************* GG934D0 00001000
HRC342DS: ./ * * GG934D0 00002000
HRC342DS: ./ * * HRC342DS 9/26/77 GG934D0 00003000
HRC342DS: ./ * * PUT LEVEL NUMBER IN HEADER
HRC342DS: ./ * * GG934D0 00005000
HRC342DS: ./ * ************* GG934D0 00006000
HRC342DS: ./ I 00153000 $ 00153010 010
HRC342DS: MVC LVL,EDITLVL
HRC342DS: ./ R 00160000 $ 00160010 0010
HRC342DS: MVC STAT(5),EDMSG ASSUME EDIT MODE
HRC342DS: ./ R 00163000 $ 00163010 0010
HRC342DS: MVC STAT(5),NEWFMSG ASSUME EDIT MODE
HRC342DS: ./ R 00168000 $ 00168010 0010
HRC342DS: MVC STAT(5),INPMSG ASSUME EDIT MODE
HRC342DS: ./ R 00522000 00524000 $ 00524010 0010
HRC342DS: NEWFMSG DC CL5'NEW '
HRC342DS: INPMSG DC CL5'INPUT'
HRC342DS: EDMSG DC CL5'EDIT '
HRC342DS: ./ R 00547000 00548000 $ 00547010 0010
HRC342DS: STAT DS CL5
HRC342DS: DS CL1
HRC342DS: LVL DS CL1
HRC342DS: DS CL1
BEGIN APPLY >>> ./ * ************* GG934D0 00001000
Comment >>> ./ * ************* GG934D0 00001000
END APPLY >>> ./ * ************* GG934D0 00001000
BEGIN APPLY >>> ./ * * GG934D0 00002000
Comment >>> ./ * * GG934D0 00002000
END APPLY >>> ./ * * GG934D0 00002000
BEGIN APPLY >>> ./ * * HRC342DS 9/26/77 GG934D0 00003000
Comment >>> ./ * * HRC342DS 9/26/77 GG934D0 00003000
END APPLY >>> ./ * * HRC342DS 9/26/77 GG934D0 00003000
BEGIN APPLY >>> ./ * * PUT LEVEL NUMBER IN HEADER
Comment >>> ./ * * PUT LEVEL NUMBER IN HEADER
END APPLY >>> ./ * * PUT LEVEL NUMBER IN HEADER
BEGIN APPLY >>> ./ * * GG934D0 00005000
Comment >>> ./ * * GG934D0 00005000
END APPLY >>> ./ * * GG934D0 00005000
BEGIN APPLY >>> ./ * ************* GG934D0 00006000
Comment >>> ./ * ************* GG934D0 00006000
END APPLY >>> ./ * ************* GG934D0 00006000
BEGIN APPLY >>> ./ I 00153000 $ 00153010 010
END APPLY >>> ./ I 00153000 $ 00153010 010
BEGIN APPLY >>> ./ R 00160000 $ 00160010 0010
END APPLY >>> ./ R 00160000 $ 00160010 0010
BEGIN APPLY >>> ./ R 00163000 $ 00163010 0010
END APPLY >>> ./ R 00163000 $ 00163010 0010
BEGIN APPLY >>> ./ R 00168000 $ 00168010 0010
END APPLY >>> ./ R 00168000 $ 00168010 0010
BEGIN APPLY >>> ./ R 00522000 00524000 $ 00524010 0010
END APPLY >>> ./ R 00522000 00524000 $ 00524010 0010
BEGIN APPLY >>> ./ R 00547000 00548000 $ 00547010 0010
END APPLY >>> ./ R 00547000 00548000 $ 00547010 0010
Update Succeeded
Update Execution Time 23 milliseconds.
HRC073DS
Date Tuesday Feb 06, 2018 06:37:00 PM
Loaded from MAINT(093)
HRC073DS: ./ I 00180000 $ 00180100 100
HRC073DS: CLI TYPSCR,X'05' 3278 MODEL 5? HRC073DS
HRC073DS: BNE *+8 No HRC073DS
HRC073DS: LA R1,132 Else line length is 132 HRC073DS
HRC073DS: ./ R 00185000 00187000 $ 00185000 1000
HRC073DS: ** THE FOLLOWING CODE CHANGES THE MODEL NUMBER OF 3278 MOD 2A TO 6 73DS
HRC073DS: ** IN TYPSCR SO THAT THE DISPLACMENT OF 16 (6-2*4=16) INTO SCRPRMSZ73DS
HRC073DS: ** CAN BE ESTABLISHED. IF THE ACTUAL MODEL NUMBER OF 6 IS EVER USED73DS
HRC073DS: ./ R 00193000 00193000 $ 00193000 10
HRC073DS: MVI TYPSCR,6 MOVE 6 FOR INDEX TO MODEL 2A HRC073DS
HRC073DS: ./ I 00281000 $ 00281300 100
HRC073DS: CLI TYPSCR,X'05' 3278 MODEL 5? HRC073DS
HRC073DS: BNE CLONE1 No HRC073DS
HRC073DS: LA R4,52(,R4) Else incr length total by 132 HRC073DS
HRC073DS: ./ I 00540380 $ 00541000 10
HRC073DS: DC H'11,12,24,25,1452,3300' - 3278 MODEL 5 HRC073DS
BEGIN APPLY >>> ./ I 00180000 $ 00180100 100
END APPLY >>> ./ I 00180000 $ 00180100 100
BEGIN APPLY >>> ./ R 00185000 00187000 $ 00185000 1000
END APPLY >>> ./ R 00185000 00187000 $ 00185000 1000
BEGIN APPLY >>> ./ R 00193000 00193000 $ 00193000 10
END APPLY >>> ./ R 00193000 00193000 $ 00193000 10
BEGIN APPLY >>> ./ I 00281000 $ 00281300 100
END APPLY >>> ./ I 00281000 $ 00281300 100
BEGIN APPLY >>> ./ I 00540380 $ 00541000 10
END APPLY >>> ./ I 00540380 $ 00541000 10
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cms/dmsscr.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator