Tadeu's Wiki

User Tools

Site Tools

Trace:
mvsesa-mine

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
mvsesa-mine [2020/12/28 18:58] – prppedromvsesa-mine [2021/01/02 12:00] (current) – [Some references] prppedro
Line 12: Line 12:
  
 As for the devices, I'm using LCS, because Layer II goodness. So I picked up two CTC(A) devices already defined in IODF (don't know it it's really necessary, perhaps not): 0530-0531. They should be varied online: ''v 0530,online'' and ''v 0531,online'' (also through op. con.). Don't know how to make it happen automatically.  As for the devices, I'm using LCS, because Layer II goodness. So I picked up two CTC(A) devices already defined in IODF (don't know it it's really necessary, perhaps not): 0530-0531. They should be varied online: ''v 0530,online'' and ''v 0531,online'' (also through op. con.). Don't know how to make it happen automatically. 
 +
 +Update: it's varied online upon boot. It wasn't that time probably because I've hot plugged them. 
  
 ===== Data sets ===== ===== Data sets =====
Line 17: Line 19:
 Outside of Dmtcat (3.4 in ISPF), remember to always use apostrophes, like in '''SYSPRG1.BATATA'''. Otherwise, it always infer whatever the prefix you are using (it defaults to the logged in username). Another way to counter that is to turn the prefix thing off (''tso profile noprefix'' -- which can be reverted by ''tso profile prefix [youruser]'').   Outside of Dmtcat (3.4 in ISPF), remember to always use apostrophes, like in '''SYSPRG1.BATATA'''. Otherwise, it always infer whatever the prefix you are using (it defaults to the logged in username). Another way to counter that is to turn the prefix thing off (''tso profile noprefix'' -- which can be reverted by ''tso profile prefix [youruser]'').  
  
 +===== VTAM logon screen =====
 +
 +The default one is not exactly beautiful. So I wanted to change it. It wasn't quite simple because what we see as logon screen isn't only a frontend. It's actually a VTAM application (and a USS table at it). Luckly, I've came across [[https://mainframed.wordpress.com/2012/06/17/changing-the-logon-screen-on-the-mainframe-zos-vtam-in-adcd/|a post]] which gave me some good leads, even if it was talking about z/OS ADCD. 
 +
 +Now, the JCL he mentions builds and links an USS application which seems to be suitable to the version of MVS he's using. Mine is older, and has a different generation, so I had to find other solution. Again, luckly, I've found a partitioned data set at 'CENTER.SOURCE' a member (USSTELT) which contained the source for, well, 'USSTELT' (which is defined on my TCP/IP profile to be the USS for VTAM TCP connections). 
 +
 +However, it's only the source, it lacks the JCL part. So, I combined the JCL stuff from the script refered by the post. And ended up with this: 
 +
 +<code>
 +//SYSPRG1B JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,                  00010000
 +//*            TYPRUN=SCAN,                                             00020000
 +//             MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID                 00030000
 +//*
 +//BUILD   EXEC ASMACL
 +//C.SYSLIB  DD DSN=SYS1.SISTMAC1,DISP=SHR
 +//          DD DSN=SYS1.MACLIB,DISP=SHR
 +//C.SYSIN   DD *
 +********************************************************************
 +* TESTMVS TCP USSTABLE
 +********************************************************************
 +USSAEHOO USSTAB   FORMAT=DYNAMIC
 +*
 +TSO      USSCMD  CMD=TSO,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=TSTTSO
 +NVAS     USSCMD  CMD=NVAS,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=TSTNVAS1
 +CICS     USSCMD  CMD=CICS,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=CICSACB
 +IMS      USSCMD  CMD=IMS,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=IMSACB
 +AOF      USSCMD  CMD=AOF,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=AOF19
 +NETVIEW  USSCMD  CMD=NETVIEW,REP=LOGON,FORMAT=BAL
 +         USSPARM PARM=APPLID,DEFAULT=CNM19
 +********************************************************************
 +MESSAGE  USSMSG   MSG=10,BUFFER=(MSG10,SCAN)
 +STDTRANS DC   128AL1(*-STDTRANS)
 +         DC   X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
 +         DC   X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
 +         DC   X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
 +         DC   X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
 +         DC   X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
 +         DC   X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
 +         DC   X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
 +         DC   X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
 +END      USSEND
 +********************************************************************
 +MSG10    DC    AL2(MSG10E-MSG10S)
 +MSG10S   DC    X'F5'         ERASE WRITE COMMAND
 +         DC    X'C7'         WCC ALARM
 +         DC    X'11'         SET BUFFER ADDRESS ORDER
 +         DC    X'40C1'       BUFFER ADDRESS
 +         DC    X'1D'         SET COLOR
 +         DC    X'F8'         COLOR
 +*
 +         DC C'       ==      ====== ===  ===    ===   '
 +         DC C'    ===                                 '
 +         DC C'     =====     ====== ===  ===   =====  '
 +         DC C'   =====                                '
 +         DC C'   ====  ====  ===    ===  === ===   ==='
 +         DC C'===   ===                               '
 +         DC C'   ===    ===  ===    ===  === ===   ==='
 +         DC C'===   ===                               '
 +         DC C'   ==========  ====== ======== ===   ==='
 +         DC C'===   ===    nn nnn    eeeeee    t      '
 +         DC C'   ==========  ====== ======== ===   ==='
 +         DC C'===   ===   nnnn  nn  ee    ee  ttt     '
 +         DC C'   ===    ===  ===    ===  === ===   ==='
 +         DC C'===   ===  nnn   nn  eeeeeeeee tt       '
 +         DC C'   ===    ===  ====== ===  ===   =====  '
 +         DC C'  =====   nn    nn   ee       tt        '
 +         DC C'   ===    ===  ====== ===  ===    ===   '
 +         DC C'   ===   nn    nn     eeeee   tttt      '
 +         DC C'                                        '
 +         DC C'                                        ' 
 +         DC X'1DC8'          *CHANGE COLOR TO RED*    '
 +         DC C'                          ** WELCOME TO '
 +         DC C'AEHOOFRAME **                           '
 +         DC C'                                        '
 +         DC C'                                        '
 +         DC X'1D'            * CHANGE COLOR TO GREEN  '
 +         DC C' REMOTE IP : @@@@@@@@@IPADDR:@@PRT      '
 +         DC C' SNA LU :    @@LUNAME                   '
 +         DC C' DATE :      @@DATE                     '
 +         DC C' TIME :      @@TIME                     '
 +         DC C'         -------------------------------'
 +         DC C'--------------------------              '
 +         DC C'         |   APPLICATIONS AVAILABLE ON T'
 +         DC C'HE OS/390 DEMOPKG SYSTEM:|              '
 +         DC C'         |------------------------------'
 +         DC C'-------------------------|              '
 +         DC C'         |  TSO        |  CICS       |  '
 +         DC C'NETVIEW    |             |              '
 +         DC C'         |  NVAS       |  IMS        |  '
 +         DC C'AOF        |             |              '
 +         DC C'         -------------------------------'
 +         DC C'--------------------------              '
 +         DC C'                                        '
 +         DC C'                                        '
 +         DC C'                                        '
 +         DC C'                                        '
 +         DC X'1DF8'          * CHANGE COLOR TO WHITE  *
 +         DC C'SELECTION ==> '
 +         DC X'1D4013'
 +MSG10E   EQU   *
 +         END
 +//L.SYSLMOD DD DISP=SHR,DSN=CENTER.VTAMLIB
 +//L.SYSIN   DD *
 +  NAME USSNAEHO(R)
 +//*
 +</code>
 +
 +It compiles as USSNAEHO, which can be changed at TCPPROF to the USS. To make it work you should reload the profile by doing this: 
 +
 +<code>
 +vary tcpip,tcpip,obeyfile,dns=neocntr.parmlib(tcpprof)
 +</code>
 +
 +==== Some references ====
 +
 +  * https://bit.listserv.ibmtcp-l.narkive.com/hMHGfV0a/dynamic-update-of-uss-table
 +  * https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.istrdr0/ubufr.htm
 ===== Memories ===== ===== Memories =====
  
mvsesa-mine.1609192705.txt.gz · Last modified: 2020/12/28 18:58 by prppedro

Page Tools

Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
CC Attribution-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki