MVS 3.8
NETSOL Full Screen Logo
Here is my modifications to NETSOL to produce a full screen logo when
VTAM starts. I originally wrote this code over 20 in the past.
To install you need to do the following:
If you have any questions, comments, suggestions, or corrections, please send me a note at tommy@tommysprinkle.com Thanks, Tommy |
JCL to make a backup of the NETSOL macro //TCS3GENR JOB 5222,'SPRINKLE',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //* //IEBGENER EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT2 DD DISP=SHR,DSN=SYS1.MACLIB(NETSOL) //SYSUT1 DD DISP=SHR,DSN=SYS1.MACLIB(NETSOL00) //* |
JCL to update NETSOL macro //TCS3UPDT JOB 5222,'SPRINKLE',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //* //IEBUPDTE EXEC PGM=IEBUPDTE //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=SYS1.MACLIB //SYSUT2 DD DISP=SHR,DSN=SYS1.MACLIB //SYSIN DD DATA,DLM=$$ ./ CHANGE NAME=NETSOL CLI MSGINDEX,X'0C' 23164802 BNE EGSKIP 23164804 MVC EGDATA(8),NAMEDEV 23164806 MVC EGDATA+9(8),APPLID 23164807 LA R3,EGMSGLN 23164808 L R4,=A(EGMSG) 23164810 * 23164812 WRITE RPL=(PTRRPL), X23164814 OPTCD=(LBT,ERASE), X23164816 AREA=(R4), X23164818 RECLEN=(R3), X23164820 EXIT=WRITEND 23164822 * 23164824 B EGOK 23164826 * 23164828 * 23164830 EGSKIP DS 0H EGSKIP 23164832 EGOK DS 0H EGOK 23166010 EGMSG DS 0C EGMSG 66810010 DC X'C3' 66810020 * 66810030 DC X'11',X'C5C4',X'1D',X'E8' 66810040 DC C'@@ @@ @@@@@@@ @@@@@@ @@@@@ @@ @@ @@ @@@@@@@ ' 66810050 DC C' @@@@@' 66810060 * 66810070 DC X'11',X'C6D4',X'1D',X'E8' 66810080 DC C'@@ @@ @@@@@@@ @@@@@@@ @@@@@@@ @@ @@ @@ @@@@@@@ ' 66810090 DC C'@@@@@@@' 66810100 * 66810110 DC X'11',X'C7E4',X'1D',X'E8' 66810120 DC C'@@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ ' 66810130 DC C'@@ @@' 66810140 * 66810150 DC X'11',X'C8F4',X'1D',X'E8' 66810160 DC C'@@@@@@@ @@@@ @@@@@@@ @@ @@ @@ @@ @@@@ ' 66810170 DC C' @@@ ' 66810180 * 66810190 DC X'11',X'4AC4',X'1D',X'E8' 66810200 DC C'@@@@@@@ @@@@ @@@@@@ @@ @@ @@ @@ @@@@ ' 66810210 DC C' @@@ ' 66810220 * 66810230 DC X'11',X'4BD4',X'1D',X'E8' 66810240 DC C'@@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ ' 66810250 DC C'@@ @@' 66810260 * 66810270 DC X'11',X'4CE4',X'1D',X'E8' 66810280 DC C'@@ @@ @@@@@@@ @@ @@ @@@@@@@ @@@@@@@ @@@@@@@ @@@@@@@ ' 66810290 DC C'@@@@@@@' 66810300 * 66810310 DC X'11',X'4DF4',X'1D',X'E8' 66810320 DC C'@@ @@ @@@@@@@ @@ @@ @@@@@ @@@@@ @@@@@@@ @@@@@@@ ' 66810330 DC C' @@@@@ ' 66810340 * 66810350 DC X'11',X'D1F9',X'1D',X'E8' 66810360 DC C'T O M M Y S P R I N K L E' 66810370 * 66810380 DC X'11',X'D3D3',X'1D',X'E8' 66810390 DC C'MVS 3.8' 66810400 * 66810410 DC X'11',X'5B60',X'1D',X'E8' 66810420 DC C'===>' 66810430 DC X'1D',X'C1' 66810440 EGDATA DC CL8' ',C' ',CL8' ' 66810450 DC X'13' 66810460 EGMSGLN EQU *-EGMSG 66810470 $$ //* |
JCL to assemble and link ISTNSC00 //TCS3ASML JOB 5222,'SPRINKLE',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //* //ASM EXEC PGM=IFOX00,REGION=1024K, // PARM='LINECOUNT(49)' //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=SYS1.AMODGEN //SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100)) //SYSUT2 DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50)) //SYSUT3 DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50)) //SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 //SYSPUNCH DD DSN=&&A,DISP=(NEW,PASS,DELETE), // UNIT=3350,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=A //SYSLIN DD DSN=&&A,DISP=(OLD,DELETE,DELETE) //SYSLMOD DD DISP=SHR,DSN=SYS1.VTAMLIB(ISTNSC00) //SYSUT1 DD UNIT=3350, // SPACE=(1024,(200,20)) //* //
|