Table of Contents

GRTBLOK History

References

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

  1. R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
  2. HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
  3. HRC065DK V01 Logical Device Support Facility
  4. 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.