Last active
October 1, 2020 12:03
-
-
Save racingmars/35895b7d546dcd13165d079c470c003c to your computer and use it in GitHub Desktop.
Create a customized network solicitor screen for my MVS 3.8J system
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //MWILSONU JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1) | |
| //* | |
| //* CREATE A CUSTOMIZED NETWORK SOLICITOR SCREEN FOR MY MVS3.8J | |
| //* SYSTEM, BASED ON THE EXAMPLE PROVIDED BY TOMMY SPRINKLE AT | |
| //* http://tommysprinkle.com/mvs/netsol/index.htm | |
| //* | |
| //* RESTORE ORIGINAL NETSOL SO WE CAN MODIFY A CLEAN COPY. | |
| //* THIS, OF COURSE, ASSUMES YOU HAVE PREVIOUSLY BACKED UP THE ORIGINAL | |
| //* SYS1.MACLIB(NETSOL) TO SYS1.MACLIB(NETSOL00). DO THAT BEFORE EVER | |
| //* RUNNING THIS JOB FOR THE FIRST TIME. | |
| //* | |
| //RESTORE EXEC PGM=IEBGENER | |
| //SYSIN DD DUMMY | |
| //SYSPRINT DD SYSOUT=* | |
| //SYSUT1 DD DISP=SHR,DSN=SYS1.MACLIB(NETSOL00) | |
| //SYSUT2 DD DISP=SHR,DSN=SYS1.MACLIB(NETSOL) | |
| //* | |
| //* APPLY OUR UPDATES TO SYS1.MACLIB(NETSOL). | |
| //* | |
| //UPDATE 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'1140D8',X'2902C0F842F1' R01,C25 HI BLUE 66810040 | |
| DC C'___' 66810045 | |
| DC X'11406B',X'2902C0F842F5' R01,C44 HI TURQUISE 66810050 | |
| DC C'MVS 3.8J MW01' 66810055 | |
| DC X'11C1E5',X'2902C0F842F1' R02,C22 HI BLUE 66810060 | |
| DC C'.-'' `''.' 66810065 | |
| DC X'11C17B',X'2902C0F842F5' R02,C44 HI TURQUISE 66810070 | |
| DC C'J. Moseley sysgen + M. Wilson' 66810075 | |
| DC X'11C2F4',X'2902C0F842F1' R02,C21 HI BLUE 66810080 | |
| DC C'/ \' 66810085 | |
| DC X'11C4C5' R04,C22 66810090 | |
| DC C'| ; ___.--,' 66810095 | |
| DC X'11C54C' R04,C13 66810096 | |
| DC C'_.._ |0) ~ (0) | _.---''`__.-( (_.' 66810097 | |
| DC X'11C6D5' R06,C06 66810100 | |
| DC C'__.--''`_.. ''.__.\ ''--. \_.-'' ,.--''` `""`' 66810105 | |
| DC X'11C7E4' R07,C05 66810110 | |
| DC C'( ,.--''` '',__ /./; ;, ''.__.''` __' 66810115 | |
| DC X'11C8F4' R08,C05 66810120 | |
| DC C'_`) ) .---.__.'' / | |\ \__..--"" """--.,_' 66810125 | |
| DC X'114AC3' R09,C04 66810130 | |
| DC C'`---'' .''.''''-._.-''`_./ /\ ''. \ _.-~~~````~~~-._`-.__.''' 66810135 | |
| DC X'114BD9' R10,C10 66810140 | |
| DC C'| | .'' _.-'' | | \ \ ''. `~---`' 66810145 | |
| DC X'114C6A' R11,C11 66810150 | |
| DC C'\ \/ .'' \ \ ''. ''-._)' 66810155 | |
| DC X'114D4D',X'2902C0F842F4' R11,C46 HI GREEN 66810160 | |
| DC C'__ ____ _____ _' 66810165 | |
| DC X'114D7A',X'2902C0F842F1' R12,C11 HI BLUE 66810170 | |
| DC C'\/ / \ \ `=.__`~-.' 66810175 | |
| DC X'114E5C',X'2902C0F842F4' R12,C45 HI GREEN 66810180 | |
| DC C'| \/ \ \ / / _ \/ |' 66810185 | |
| DC X'114F4A',X'2902C0F842F1' R13,C11 HI BLUE 66810190 | |
| DC C'/ /\ `) ) / / `"".`\' 66810195 | |
| DC X'114F6C',X'2902C0F842F4' R13,C45 HI GREEN 66810200 | |
| DC C'| |\/| |\ \ /\ / / | | | |' 66810205 | |
| DC X'1150D4',X'2902C0F842F1' R14,C05 HI BLUE 66810210 | |
| DC C', _.-''.''\ \ / / ( ( / /' 66810215 | |
| DC X'11507C',X'2902C0F842F4' R14,C45 HI GREEN 66810220 | |
| DC C'| | | | \ V V /| |_| | |' 66810225 | |
| DC X'11D1E5',X'2902C0F842F1' R15,C06 HI BLUE 66810230 | |
| DC C'`--~` ) ) .-''.'' ''.''. | (' 66810235 | |
| DC X'11D24C',X'2902C0F842F4' R15,C45 HI GREEN 66810240 | |
| DC C'|_| |_| \_/\_/ \___/|_|' 66810245 | |
| DC X'11D27C',X'2902C0F842F1' R16,C13 HI BLUE 66810250 | |
| DC C'(/` ( (` ) ) ''-;' 66810255 | |
| DC X'11D44E' R17,C15 66810260 | |
| DC C'` ''-; (-''' 66810265 | |
| DC X'11D6E5',X'2902C0F442F2' R19,C06 RED 66810270 | |
| DC C'*** ALL ACTIVITY IS LOGGED AND MONITORED' 66810275 | |
| DC C' ***' 66810280 | |
| DC X'11D940',X'2902C0F442F2' R21,C01 HI RED 66810285 | |
| DC C'===> Enter "LOGON" followed by your userid (' 66810290 | |
| DC X'2902C0F442F7' WHITE 66810295 | |
| DC C'LOGON JSMITH' 66810300 | |
| DC X'2902C0F442F2' HI RED 66810305 | |
| DC C') for TSO.' 66810310 | |
| DC X'115B61' R23,C02 66810315 | |
| DC C'===>' 66810320 | |
| DC X'1DC4' LOGIN INPUT FIELD 66810325 | |
| * END INPUT FIELD: 66810330 | |
| DC X'115CE5',X'1DF4' R23,C70 66810335 | |
| * 66810410 | |
| EGDATA DC CL8' ',C' ',CL8' ' 66810450 | |
| * SET CURSOR TO ROW 23 COL 7: 66810455 | |
| DC X'115BE6',X'13' 66810460 | |
| EGMSGLN EQU *-EGMSG 66810470 | |
| $$ | |
| //* | |
| //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=* | |
| //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=* | |
| //SYSLIN DD DSN=&&A,DISP=(OLD,DELETE,DELETE) | |
| //SYSLMOD DD DISP=SHR,DSN=SYS1.VTAMLIB(ISTNSC00) | |
| //SYSUT1 DD UNIT=3350, | |
| // SPACE=(1024,(200,20)) | |
| //* |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment