//MVS0080 JOB  (SETUP),
//             'Build Netsol',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             COND=(0,NE),
//             NOTIFY=HERC01
//********************************************************************
//*
//* Name: SYS1.SETUP.CNTL(MVS0080)
//*
//* Desc: Build new NETSOL logon screen
//*
//********************************************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.UMODMAC(TURNKEY)
 SET MAXCC=0
 SET LASTCC=0
//COMP    EXEC COMPRESS,LIB='SYS1.UMODMAC'
//COPY    EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=SYS1.MACLIB
//SYSUT2   DD  DISP=SHR,DSN=SYS1.UMODMAC
//SYSIN    DD  *
 COPY INDD=SYSUT1,OUTDD=SYSUT2
 SELECT MEMBER=((NETSOL,,R))
//UPDATE  EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=SYS1.UMODMAC
//SYSUT2   DD  DISP=SHR,DSN=SYS1.UMODMAC
//SYSIN    DD  *
./ ADD NAME=TURNKEY
* >>>>>>>>>>>>>>>>>>>>>> Sample Screen Layout <<<<<<<<<<<<<<<<<<<<<<<<
*
* ----+----1----5----2----+----3----+----4----+----5----+----6----+---
*  Terminal:
*
*
*     YY     YY    OOOOOO     SSSSS    PPPPPPP    OOOOOO     SSSSS
*      YY   YY    OO    OO   SSSSSSS   PP    PP  OO    OO   SSSSSSS
*       YY YY     OO    OO   SSS       PP    PP  OO    OO   SSS
*        YYY      OO    OO    SSS      PPPPPPP   OO    OO    SSS
*        YYY      OO    OO     SSS     PP        OO    OO     SSS
*        YYY      OO    OO      SSS    PP        OO    OO      SSS
*        YYY      OO    OO   SSSSSSS   PP        OO    OO   SSSSSSS
*        YYY       OOOOOO     SSSSS    PP         OOOOOO     SSSSS
*
*
*
*      heres somethin i whipped up                    brought to you by
*      for laughs... if you are offended                 Optimus_rhyme
*      by this i am sorry                          starwars420@juno.com
*
*
*
*        Welcome to YOSPOS 380, running under the Hercules emulator
*
*  Logon ===>
*
         PUSH  PRINT
         PRINT OFF
TURNKEY  DS    0D
TURNKEYE $ESC
TURNKEYI $IO   ERASE/WRITE
TURNKEYW $WCC  (RESETKBD,MDT)
         $SBA  (1,1)
         $SF   (SKIP)
         DC    C'Terminal:'
         $SBA  (1,11)
         $SF   (SKIP,HI)
TKDEV    DC    CL8' '
         $SBA  (1,20)
         $SF   (SKIP)
         $SBA  (4,4)
         $SF   (SKIP,HI)
         DC    C'YY'
         $SBA  (4,7)
         $SF   (SKIP)
         $SBA  (4,11)
         $SF   (SKIP,HI)
         DC    C'YY'
         $SBA  (4,14)
         $SF   (SKIP)
         $SBA  (4,17)
         $SF   (SKIP,HI)
         DC    C'OOOOOO'
         $SBA  (4,24)
         $SF   (SKIP)
         $SBA  (4,28)
         $SF   (SKIP,HI)
         DC    C'SSSSS'
         $SBA  (4,34)
         $SF   (SKIP)
         $SBA  (4,37)
         $SF   (SKIP,HI)
         DC    C'PPPPPPP'
         $SBA  (4,45)
         $SF   (SKIP)
         $SBA  (4,48)
         $SF   (SKIP,HI)
         DC    C'OOOOOO'
         $SBA  (4,55)
         $SF   (SKIP)
         $SBA  (4,59)
         $SF   (SKIP,HI)
         DC    C'SSSSS'
         $SBA  (4,65)
         $SF   (SKIP)
         $SBA  (5,5)
         $SF   (SKIP,HI)
         DC    C'YY   YY'
         $SBA  (5,13)
         $SF   (SKIP)
         $SBA  (5,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (5,19)
         $SF   (SKIP)
         $SBA  (5,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (5,25)
         $SF   (SKIP)
         $SBA  (5,27)
         $SF   (SKIP,HI)
         DC    C'SSSSSSS'
         $SBA  (5,35)
         $SF   (SKIP)
         $SBA  (5,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (5,40)
         $SF   (SKIP)
         $SBA  (5,43)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (5,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (5,50)
         $SF   (SKIP)
         $SBA  (5,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (5,56)
         $SF   (SKIP)
         $SBA  (5,58)
         $SF   (SKIP,HI)
         DC    C'SSSSSSS'
         $SBA  (5,66)
         $SF   (SKIP)
         $SBA  (6,6)
         $SF   (SKIP,HI)
         DC    C'YY YY'
         $SBA  (6,12)
         $SF   (SKIP)
         $SBA  (6,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (6,19)
         $SF   (SKIP)
         $SBA  (6,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (6,25)
         $SF   (SKIP)
         $SBA  (6,27)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (6,31)
         $SF   (SKIP)
         $SBA  (6,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (6,40)
         $SF   (SKIP)
         $SBA  (6,43)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (6,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (6,50)
         $SF   (SKIP)
         $SBA  (6,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (6,56)
         $SF   (SKIP)
         $SBA  (6,58)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (6,62)
         $SF   (SKIP)
         $SBA  (7,7)
         $SF   (SKIP,HI)
         DC    C'YYY'
         $SBA  (7,11)
         $SF   (SKIP)
         $SBA  (7,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (7,19)
         $SF   (SKIP)
         $SBA  (7,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (7,25)
         $SF   (SKIP)
         $SBA  (7,28)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (7,32)
         $SF   (SKIP)
         $SBA  (7,37)
         $SF   (SKIP,HI)
         DC    C'PPPPPPP'
         $SBA  (7,45)
         $SF   (SKIP)
         $SBA  (7,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (7,50)
         $SF   (SKIP)
         $SBA  (7,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (7,56)
         $SF   (SKIP)
         $SBA  (7,59)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (7,63)
         $SF   (SKIP)
         $SBA  (8,7)
         $SF   (SKIP,HI)
         DC    C'YYY'
         $SBA  (8,11)
         $SF   (SKIP)
         $SBA  (8,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (8,19)
         $SF   (SKIP)
         $SBA  (8,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (8,25)
         $SF   (SKIP)
         $SBA  (8,29)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (8,33)
         $SF   (SKIP)
         $SBA  (8,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (8,40)
         $SF   (SKIP)
         $SBA  (8,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (8,50)
         $SF   (SKIP)
         $SBA  (8,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (8,56)
         $SF   (SKIP)
         $SBA  (8,60)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (8,64)
         $SF   (SKIP)
         $SBA  (9,7)
         $SF   (SKIP,HI)
         DC    C'YYY'
         $SBA  (9,11)
         $SF   (SKIP)
         $SBA  (9,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (9,19)
         $SF   (SKIP)
         $SBA  (9,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (9,25)
         $SF   (SKIP)
         $SBA  (9,30)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (9,34)
         $SF   (SKIP)
         $SBA  (9,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (9,40)
         $SF   (SKIP)
         $SBA  (9,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (9,50)
         $SF   (SKIP)
         $SBA  (9,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (9,56)
         $SF   (SKIP)
         $SBA  (9,61)
         $SF   (SKIP,HI)
         DC    C'SSS'
         $SBA  (9,65)
         $SF   (SKIP)
         $SBA  (10,7)
         $SF   (SKIP,HI)
         DC    C'YYY'
         $SBA  (10,11)
         $SF   (SKIP)
         $SBA  (10,16)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (10,19)
         $SF   (SKIP)
         $SBA  (10,22)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (10,25)
         $SF   (SKIP)
         $SBA  (10,27)
         $SF   (SKIP,HI)
         DC    C'SSSSSSS'
         $SBA  (10,35)
         $SF   (SKIP)
         $SBA  (10,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (10,40)
         $SF   (SKIP)
         $SBA  (10,47)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (10,50)
         $SF   (SKIP)
         $SBA  (10,53)
         $SF   (SKIP,HI)
         DC    C'OO'
         $SBA  (10,56)
         $SF   (SKIP)
         $SBA  (10,58)
         $SF   (SKIP,HI)
         DC    C'SSSSSSS'
         $SBA  (10,66)
         $SF   (SKIP)
         $SBA  (11,7)
         $SF   (SKIP,HI)
         DC    C'YYY'
         $SBA  (11,11)
         $SF   (SKIP)
         $SBA  (11,17)
         $SF   (SKIP,HI)
         DC    C'OOOOOO'
         $SBA  (11,24)
         $SF   (SKIP)
         $SBA  (11,28)
         $SF   (SKIP,HI)
         DC    C'SSSSS'
         $SBA  (11,34)
         $SF   (SKIP)
         $SBA  (11,37)
         $SF   (SKIP,HI)
         DC    C'PP'
         $SBA  (11,40)
         $SF   (SKIP)
         $SBA  (11,48)
         $SF   (SKIP,HI)
         DC    C'OOOOOO'
         $SBA  (11,55)
         $SF   (SKIP)
         $SBA  (11,59)
         $SF   (SKIP,HI)
         DC    C'SSSSS'
         $SBA  (11,65)
         $SF   (SKIP)
         $SBA  (15,5)
         $SF   (SKIP)
         DC    C'heres somethin i whipped up'
         $SBA  (15,33)
         $SF   (SKIP)
         $SBA  (15,52)
         $SF   (SKIP)
         DC    C'brought to you by'
         $SBA  (15,70)
         $SF   (SKIP)
         $SBA  (16,5)
         $SF   (SKIP)
         DC    C'for laughs... if you are offended'
         $SBA  (16,39)
         $SF   (SKIP)
         $SBA  (16,55)
         $SF   (SKIP)
         DC    C'Optimus_rhyme'
         $SBA  (16,69)
         $SF   (SKIP)
         $SBA  (17,5)
         $SF   (SKIP)
         DC    C'by this i am sorry'
         $SBA  (17,24)
         $SF   (SKIP)
         $SBA  (17,49)
         $SF   (SKIP)
         DC    C'starwars420@juno.com'
         $SBA  (17,70)
         $SF   (SKIP)
         $SBA  (21,7)
         $SF   (SKIP)
         DC    C'Welcome to YOSPOS 380, running under the'
         $SBA  (21,48)
         $SF   (SKIP,HI)
         DC    C'Hercules'
         $SBA  (21,57)
         $SF   (SKIP)
         DC    C'emulator'
         $SBA  (21,66)
         $SF   (SKIP)
         $SBA  (23,1)
         $SF   (SKIP,HI)
         DC    C'Logon ===>'
         $SBA  (23,12)
         $SF   (UNPROT,HI)
         $IC
TKINP    DC    CL61' '
         $SBA  (23,74)
         $SF   (SKIP)
TURNKEYL EQU   *-TURNKEY
         POP   PRINT
./ CHANGE NAME=NETSOL
         CLI   MSGINDEX,X'0C'             , is this msg to be shown?    23164805
         BNE   NOUSS                      , bif not                     23164810
*                                         , Now write the screen        23164815
         LA    R3,TURNKEYL                , load length of screen data  23164820
         L     R4,=A(TURNKEY)             , load address of screen data 23164825
         WRITE RPL=(PTRRPL),              , send data                  X23164830
               OPTCD=(LBT,ERASE),         , erase screen first         X23164835
               AREA=(R4),                 , address is in R4           X23164840
               RECLEN=(R3),               , length is in R3            X23164845
               EXIT=WRITEND                                             23164850
         B     USSOK                      , continue normal processing  23164855
NOUSS    DS    0H                         , issue netsol message <> 12  23164860
USSOK    DS    0H                         , logon screen has been sent  23166010
         COPY TURNKEY                     , logon screen copy book      66810010
//ASM     EXEC PGM=IFOX00,REGION=1024K
//SYSLIB   DD  DISP=SHR,DSN=SYS1.UMODMAC,DCB=LRECL=32720
//         DD  DISP=SHR,DSN=SYS2.MACLIB
//         DD  DISP=SHR,DSN=SYS1.MACLIB
//         DD  DISP=SHR,DSN=SYS1.AMODGEN
//SYSUT1   DD  UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT2   DD  UNIT=VIO,SPACE=(1700,(300,50))
//SYSUT3   DD  UNIT=VIO,SPACE=(1700,(300,50))
//SYSPRINT DD  SYSOUT=*,DCB=BLKSIZE=1089
//SYSPUNCH DD  DISP=(NEW,PASS,DELETE),
//             UNIT=VIO,SPACE=(TRK,(2,2)),
//             DCB=(BLKSIZE=80,LRECL=80,RECFM=F)
//SYSIN    DD  *
ISTNSC00 CSECT ,
         NETSOL SYSTEM=VS2
         END   ,
//LKED    EXEC PGM=IEWL,PARM='XREF,LIST,LET,NCAL',REGION=1024K
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=(OLD,DELETE,DELETE),DSN=*.ASM.SYSPUNCH
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.VTAMLIB(ISTNSC00)
//SYSUT1   DD  UNIT=VIO,SPACE=(1024,(200,20))
//*
//