Change the rainbow bright logon

Friday, February 3rd, 2012

So I was thinking about changing TURNKEY to YOSPOS/380. Should be easy enough right…. WRONG!

The standard network solicitor (NETSOL) sign-on screen is rather boring. I have written a little REXX procedure to help me in defining 3270 data streams, and used this for a homegrown SDF (Screen Definition Facility). The first screen designed was a logon screen for the Tur(n)key system. This job (mvs0080) will modify the local NETSOL macro, and includes SYS1.UMODMAC(TURNKEY), the actual screen definition. Run this job, stop, then start VTAM, and you will see the new LOGON screen.

By modifying SYS1.UMODMAC(TURNKEY) you can provide your own screen. I have included the REXX script as file NETSOL.REX in directory REXX on the CDROM. You will also see one or two other sample screens.

So now maybe we should take a look at SYS1.UMODMAC(TURNKEY)

* »»»»»»»»»»» Sample Screen Layout ««««««««««««

*
* ----+----1----+----2----+----3----+----4----+----5----+----6----+---
*             Welcome to MVS3.8J, running under the Hercules emulator
*
*
*
*  TTTTTTTT   UU    UU   RRRRRRR    NN     NN   KK   KK    EEEEEEEE
*     TT      UU    UU   RR    RR   NNN    NN   KK  KK     EE
*     TT      UU    UU   RR    RR   NNNN   NN   KK KK      EE
*     TT      UU    UU   RRRRRRR    NN NN  NN   KKKK       EEEEEEE
*     TT      UU    UU   RRRR       NN  NN NN   KK  KK     EE
*     TT      UU    UU   RR  RR     NN   NNNN   KK   KK    EE
*     TT      UU    UU   RR   RR    NN    NNN   KK    KK   EE
*     TT       UUUUUU    RR    RR   NN     NN   KK     KK  EEEEEEE   Y
*
*
*                        !      _,,,---,,_                brought to
*                 ZZZzz /,'.-'`'    -.  ;-;;,              Volker Band
*                      !,4-  ) )-,_. ,( (  ''-'            vbandke bsp
*                     '---''(_/--'  `-'_)
*
*
*
*
*  Logon ===>

*

alright pretty easy, let me just PGDN

PUSH  PRINT
PRINT ON,GEN
TURNKEY  DS    0C
$WCC  (RESETKBD,MDT)
$SBA  (01,12)
$SF   (SKIP)
$SA   (YELLOW)
DC    C'Welcome to MVS3.8J, running under the'
DC    C' '
$SA   (WHITE,USCOR)
DC    C'Hercules'
$SA   (YELLOW,HDEFAULT)
DC    C' '
DC    C'emulator'
$SA   DEFAULT
$SBA  (01,68)
$SF   (SKIP)
$SBA  (5,1)
$SF   (SKIP,HI)
DC    X'2842F1'
DC    C'TTTTTTTT'
$SBA  (5,10)
$SF   (SKIP)
$SBA  (5,12)
$SF   (SKIP,HI)
DC    X'2842F2'
DC    C'UU'
$SBA  (5,15)
$SF   (SKIP)
$SBA  (5,18)
$SF   (SKIP,HI)
DC    C'UU'
$SBA  (5,21)
$SF   (SKIP)
$SBA  (5,23)
$SF   (SKIP,HI)
DC    X'2842F3'
DC    C'RRRRRRR'
$SBA  (5,31)
$SF   (SKIP)
$SBA  (5,34)
$SF   (SKIP,HI)
DC    X'2842F4'
DC    C'NN'
$SBA  (5,37)
$SF   (SKIP)
$SBA  (5,41)
$SF   (SKIP,HI)
DC    C'NN'
$SBA  (5,44)
$SF   (SKIP)
$SBA  (5,46)
$SF   (SKIP,HI)
DC    X'2842F5'
DC    C'KK'
$SBA  (5,49)
$SF   (SKIP)
$SBA  (5,51)
$SF   (SKIP,HI)
DC    C'KK'
$SBA  (5,54)
$SF   (SKIP)
$SBA  (5,57)
$SF   (SKIP,HI)
DC    X'2842F6'
DC    C'EEEEEEEE'
$SBA  (5,66)
$SF   (SKIP)
$SBA  (5,68)
$SF   (SKIP,HI)
DC    X'2842F7'
DC    C'YY'
$SBA  (5,71)
$SF   (SKIP)
$SBA  (5,74)
$SF   (SKIP,HI)
DC    C'YY'
$SBA  (5,77)
$SF   (SKIP)
$SBA  (6,4)
$SF   (SKIP,HI)
DC    X'2842F1'
DC    C'TT'
$SBA  (6,7)
$SF   (SKIP)
$SBA  (6,12)
$SF   (SKIP,HI)
DC    X'2842F2'
DC    C'UU'
$SBA  (6,15)
$SF   (SKIP)
$SBA  (6,18)
$SF   (SKIP,HI)
DC    C'UU'
$SBA  (6,21)
$SF   (SKIP)
$SBA  (6,23)
$SF   (SKIP,HI)
DC    X'2842F3'
it goes on like this for a fucking while, UGH
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: