Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //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))
- //*
- //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement