ibm:vm370-lib:macro:grtblok.macro_hst
Table of Contents
GRTBLOK History
References
- Fixes Applied : 4
- Latest Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC108DK]
Update History
CMS File Input : GRTBLOK MACRO
Date : 12/8/1978 4:35:00 PM
VM Context : MAINT(394)
File Name : GRTBLOK.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Update Order
- R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
- HRC065DK V01 Logical Device Support Facility
- HRC108DK H40 Implement SYSID (System identification)
R10567DK
Date Friday Mar 14, 1980 02:01:00 AM
Loaded from MAINT(294)
R10567DK: ./ R 98000 99000 $ 98100 100 00001000
R10567DK: DC AL1(&IA1,&IA2,SF,ATTR457,IC,EUA) @VA10567 00002000
R10567DK: DC AL1(&SA1,&SA2,SBA) @VA10567 00003000
R10567DK: DC AL1(&IA1,&IA2,SF,ATTR7,SBA) @VA10567 00004000
R10567DK: DC AL1(&SA1,&SA2,SF,ATTR2) @VA10567 00005000
BEGIN APPLY >>> ./ R 98000 99000 $ 98100 100 00001000
END APPLY >>> ./ R 98000 99000 $ 98100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00002000 $ 2490 490 03/13/06 13:14:10
HRC101DK: &LABEL GRTBLOK &TYPE,&SCRSIZE=1920 HRC101DK 00002490
HRC101DK: ./ R 00004000 $ 4290 290 03/13/06 13:14:10
HRC101DK: LCLC &LC2,&MODEL HRC101DK 00004290
HRC101DK: &EWR SETC 'EWR' HRC101DK 00004580
HRC101DK: ./ I 00010000 $ 10300 300 03/13/06 13:14:10
HRC101DK: &LC2 SETC 'X''7F''' HRC101DK 00010300
HRC101DK: &MODEL SETC '2' HRC101DK 00010600
HRC101DK: ./ I 00014000 $ 14500 500 03/13/06 13:14:10
HRC101DK: AIF ('&SYSPARM' NE 'SUP').GRT02 HRC101DK 00014500
HRC101DK: ./ R 00020000 $ 20290 290 03/13/06 13:14:10
HRC101DK: &MODEL SETC '2A' HRC101DK 00020290
HRC101DK: &EWR SETC 'EWR' HRC101DK 00020580
HRC101DK: ./ R 00024000 $ 24030 30 03/13/06 13:14:10
HRC101DK: &LC2 SETC 'X''6F''' HRC101DK 00024030
HRC101DK: AIF ('&SCRSIZE' EQ '1600').GRT02 HRC101DK 00024060
HRC101DK: &MODEL SETC '3' HRC101DK 00024090
HRC101DK: &EWR SETC 'EWA' HRC101DK 00024120
HRC101DK: &IA1 SETC 'X''E5''' HRC101DK 00024150
HRC101DK: &RA1 SETC 'X''5D''' HRC101DK 00024180
HRC101DK: &RA2 SETC 'X''7F''' HRC101DK 00024210
HRC101DK: &SA1 SETC 'X''E7''' HRC101DK 00024240
HRC101DK: AIF ('&SCRSIZE' EQ '2560').GRT02 HRC101DK 00024270
HRC101DK: &MODEL SETC '4' HRC101DK 00024300
HRC101DK: &EWR SETC 'EWA' HRC101DK 00024330
HRC101DK: &IA1 SETC 'X''F3''' HRC101DK 00024360
HRC101DK: &IA2 SETC 'X''4F''' HRC101DK 00024390
HRC101DK: &SA1 SETC 'X''F5''' HRC101DK 00024420
HRC101DK: &SA2 SETC 'X''5B''' HRC101DK 00024450
HRC101DK: AIF ('&SCRSIZE' EQ '3440').GRT02 HRC101DK 00024480
HRC101DK: &MODEL SETC '5' HRC101DK 00024510
HRC101DK: &EWR SETC 'EWA' HRC101DK 00024540
HRC101DK: &IA1 SETC 'X''F3''' HRC101DK 00024570
HRC101DK: &IA2 SETC 'X''E3''' HRC101DK 00024600
HRC101DK: &SA1 SETC 'X''F7''' HRC101DK 00024630
HRC101DK: &SA2 SETC 'X''D7''' HRC101DK 00024660
HRC101DK: AIF ('&SCRSIZE' EQ '3564').GRT02 HRC101DK 00024690
HRC101DK: &MODEL SETC '' HRC101DK 00024720
HRC101DK: ./ R 00028000 $ 28090 90 03/13/06 13:14:10
HRC101DK: SPACE 1 HRC101DK 00028090
HRC101DK: *--------------------------------------------------------------HRC101DK 00028180
HRC101DK: * GRTBLOK - DATA STREAMS FOR 327X MODEL &MODEL DISPLAYS HRC101DK 00028270
HRC101DK: *--------------------------------------------------------------HRC101DK 00028360
HRC101DK: SPACE 1 HRC101DK 00028450
HRC101DK: ./ I 00033000 $ 33200 200 03/13/06 13:14:10
HRC101DK: GRTCNCCP CCW X'0B',0,SILI+CC,1 CLEAR THE SCREEN HRC101DK 00033200
HRC101DK: CCW X'01',GRTCNCDS,SILI,GRTCNCL HRC101DK 00033400
HRC101DK: SPACE , HRC101DK 00033600
HRC101DK: ./ I 00078000 $ 78200 200 03/13/06 13:14:10
HRC101DK: SPACE , HRC101DK 00078200
HRC101DK: GRTRSTCP CCW X'0B',0,SILI+CC,1 HRC101DK 00078400
HRC101DK: CCW X'01',GRTRSTDS,SILI,GRTRSTL HRC101DK 00078600
HRC101DK: ./ R 00087000 $ 87490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'RUNNING' HRC101DK 00087490
HRC101DK: ./ I 00089000 $ 89100 100 03/13/06 13:14:10
HRC101DK: GRTCNCDS DC AL1(WCC6,SBA,X'40',X'40',RA) CLEAR THE DISPLAY HRC101DK 00089100
HRC101DK: * DC AL1(X'C7',X'5F',X'00',RA) HRC101DK 00089200
HRC101DK: * DC AL1(X'4E',X'7F',X'00',RA) HRC101DK 00089300
HRC101DK: * DC AL1(&OA1,&OA2,X'00',RA) HRC101DK 00089400
HRC101DK: GRTCNCIA DC AL1(&IA1,&IA2,X'00',SBA) HRC101DK 00089500
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'RUNNING' HRC101DK 00089600
HRC101DK: GRTCNCL EQU *-GRTCNCDS HRC101DK 00089700
HRC101DK: SPACE , HRC101DK 00089800
HRC101DK: ./ R 00093000 $ 93490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'CP READ' HRC101DK 00093490
HRC101DK: ./ R 00102000 $ 102490 490 03/13/06 13:14:10
HRC101DK: DC CL19'RUNNING' HRC101DK 00102490
HRC101DK: ./ R 00106000 $ 106490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'HOLDING' HRC101DK 00106490
HRC101DK: ./ R 00114000 $ 114490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'MORE...' HRC101DK 00114490
HRC101DK: ./ R 00118000 $ 118490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'NOT ACCEPTED' HRC101DK 00118490
HRC101DK: ./ R 00127000 $ 127490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'RUNNING' HRC101DK 00127490
HRC101DK: ./ R 00135000 $ 135490 490 03/13/06 13:14:10
HRC101DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL19'VM READ' HRC101DK 00135490
HRC101DK: ./ I 00143000 $ 143200 200 03/13/06 13:14:10
HRC101DK: GRTRSTDS DC AL1(WCC3) HRC101DK 00143200
HRC101DK: GRTRSTL EQU *-GRTRSTDS HRC101DK 00143400
HRC101DK: GRTLAST DC AL1(&SA1,&LC2) LAST CHAR ON SCREEN HRC101DK 00143600
HRC101DK: ./ R 00151000 00153000 $ 151590 590 03/13/06 13:14:10
HRC101DK: WCC5 EQU X'C4' SOUND ALARM HRC101DK 00151590
HRC101DK: WCC6 EQU X'C2' RESTORE KEYBOARD HRC101DK 00152180
HRC101DK: WCC56 EQU X'C6' RESTORE KEYBOARD, ALARM HRC101DK 00152770
HRC101DK: WCCALRM EQU X'04' BIT TO SOUND ALARM HRC101DK 00153360
HRC101DK: ./ I 00163000 $ 163500 500 03/13/06 13:14:10
HRC101DK: ATTRPRHI EQU X'F8' PROTECTED, HI INTENSITY 00163000
HRC101DK: ./ I 00166000 $ 166050 50 03/13/06 13:14:10
HRC101DK: *--------------------------------------------------------------HRC101DK 00166050
HRC101DK: * EQUATES FOR THE VARIOUS OPCODES HRC101DK 00166100
HRC101DK: *--------------------------------------------------------------HRC101DK 00166150
HRC101DK: SPACE 1 HRC101DK 00166200
HRC101DK: WR EQU X'01' LOCAL CCW OPCODE WRITE HRC101DK 00166250
HRC101DK: EWR EQU X'05' LOCAL CCW OPCODE ERASE/WRITE HRC101DK 00166300
HRC101DK: EWA EQU X'0D' LOCAL CCW OPCODE ERASE/WRITE ALTEHRC101DK 00166350
HRC101DK: RM EQU X'06' LOCAL CCW OPCODE READ-MODIFIED HRC101DK 00166400
HRC101DK: RB EQU X'02' LOCAL CCW OPCODE READ-BUFFER HRC101DK 00166450
HRC101DK: SELECT EQU X'0B' SELECT (3270) HRC101DK 00166500
HRC101DK: SELRM EQU X'0B' SELECT READ MODIFIED HRC101DK 00166550
HRC101DK: SELRB EQU X'1B' SELECT READ BUFFER HRC101DK 00166600
HRC101DK: SELRMP EQU X'2B' SELECT READ XXX HRC101DK 00166650
HRC101DK: SELRBP EQU X'3B' SELECT READ XXX HRC101DK 00166700
HRC101DK: SELWRT EQU X'4B' SELECT WRITE HRC101DK 00166750
HRC101DK: WSF EQU X'11' WRITE STRUCTURED FIELD OP CODE HRC101DK 00166800
HRC101DK: SENSEID EQU X'E4' SENSE ID OP CODE HRC101DK 00166850
BEGIN APPLY >>> ./ R 00002000 $ 2490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00002000 $ 2490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00004000 $ 4290 290 03/13/06 13:14:10
END APPLY >>> ./ R 00004000 $ 4290 290 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00010000 $ 10300 300 03/13/06 13:14:10
END APPLY >>> ./ I 00010000 $ 10300 300 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00014000 $ 14500 500 03/13/06 13:14:10
END APPLY >>> ./ I 00014000 $ 14500 500 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00020000 $ 20290 290 03/13/06 13:14:10
END APPLY >>> ./ R 00020000 $ 20290 290 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00024000 $ 24030 30 03/13/06 13:14:10
END APPLY >>> ./ R 00024000 $ 24030 30 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00028000 $ 28090 90 03/13/06 13:14:10
END APPLY >>> ./ R 00028000 $ 28090 90 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00033000 $ 33200 200 03/13/06 13:14:10
END APPLY >>> ./ I 00033000 $ 33200 200 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00078000 $ 78200 200 03/13/06 13:14:10
END APPLY >>> ./ I 00078000 $ 78200 200 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00087000 $ 87490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00087000 $ 87490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00089000 $ 89100 100 03/13/06 13:14:10
END APPLY >>> ./ I 00089000 $ 89100 100 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00093000 $ 93490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00093000 $ 93490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00102000 $ 102490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00102000 $ 102490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00106000 $ 106490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00106000 $ 106490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00114000 $ 114490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00114000 $ 114490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00118000 $ 118490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00118000 $ 118490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00127000 $ 127490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00127000 $ 127490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00135000 $ 135490 490 03/13/06 13:14:10
END APPLY >>> ./ R 00135000 $ 135490 490 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00143000 $ 143200 200 03/13/06 13:14:10
END APPLY >>> ./ I 00143000 $ 143200 200 03/13/06 13:14:10
BEGIN APPLY >>> ./ R 00151000 00153000 $ 151590 590 03/13/06 13:14:10
END APPLY >>> ./ R 00151000 00153000 $ 151590 590 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00163000 $ 163500 500 03/13/06 13:14:10
END APPLY >>> ./ I 00163000 $ 163500 500 03/13/06 13:14:10
BEGIN APPLY >>> ./ I 00166000 $ 166050 50 03/13/06 13:14:10
END APPLY >>> ./ I 00166000 $ 166050 50 03/13/06 13:14:10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ R 00059000 $ 00059000
HRC065DK: CCW X'03',GRTRMIDS,SILI+CC,GRTRMIL HRC065DK
BEGIN APPLY >>> ./ R 00059000 $ 00059000
END APPLY >>> ./ R 00059000 $ 00059000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC108DK
Date Sunday Feb 26, 2017 01:05:00 PM
Loaded from MAINT(094)
HRC108DK: ./ R 00087490 $ 00087980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK
HRC108DK: GRTRNST1 DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00089600 $ 0089620 20
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK
HRC108DK: GRTRNST2 DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00093490 $ 00093980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'CP READ' HRC108DK
HRC108DK: GRTCPRST DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00102490 $ 00102980 10
HRC108DK: DC CL10'RUNNING' HRC108DK
HRC108DK: GRTRNST3 DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00106490 $ 00106980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'HOLDING' HRC108DK
HRC108DK: GRTHLDST DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00114490 $ 00114980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'MORE...' HRC108DK
HRC108DK: GRTMORST DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00127490 $ 00127980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK
HRC108DK: GRTRNST4 DC CL8' ',CL1' ' HRC108DK
HRC108DK: ./ R 00135490 $ 00135980 10
HRC108DK: DC AL1(&SA1,&SA2,SF,ATTR2),CL10'VM READ' HRC108DK
HRC108DK: GRTVMRST DC CL8' ',CL1' ' HRC108DK
BEGIN APPLY >>> ./ R 00087490 $ 00087980 10
END APPLY >>> ./ R 00087490 $ 00087980 10
BEGIN APPLY >>> ./ R 00089600 $ 0089620 20
END APPLY >>> ./ R 00089600 $ 0089620 20
BEGIN APPLY >>> ./ R 00093490 $ 00093980 10
END APPLY >>> ./ R 00093490 $ 00093980 10
BEGIN APPLY >>> ./ R 00102490 $ 00102980 10
END APPLY >>> ./ R 00102490 $ 00102980 10
BEGIN APPLY >>> ./ R 00106490 $ 00106980 10
END APPLY >>> ./ R 00106490 $ 00106980 10
BEGIN APPLY >>> ./ R 00114490 $ 00114980 10
END APPLY >>> ./ R 00114490 $ 00114980 10
BEGIN APPLY >>> ./ R 00127490 $ 00127980 10
END APPLY >>> ./ R 00127490 $ 00127980 10
BEGIN APPLY >>> ./ R 00135490 $ 00135980 10
END APPLY >>> ./ R 00135490 $ 00135980 10
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/macro/grtblok.macro_hst.txt · Last modified: 2023/08/06 13:38 by Site Administrator