Created
October 25, 2022 14:56
-
-
Save mainframed/9411a0e084ae6f1c9a08fec0bbed0c94 to your computer and use it in GitHub Desktop.
BSidesSD NETSOL EBCDIC ART
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
| [+] ANSi to EBCDiC Starting | |
| [+] Arguments: | |
| ANSi File: bsdiesSD.ans | |
| Jobname: AWESOME | |
| Dataset: ANSI.ART | |
| Member: ANSIART | |
| Cursor: (IC) | |
| Location: 22,20 | |
| Input length: 20 | |
| Input Color: RED | |
| [+] ANSi File Info: | |
| Original Title: | |
| Original Author: Anonymous | |
| Original Group: | |
| Original Date: 20221022 | |
| [+] Printing JCL + HLASM | |
| ---------------------------- ><8 CUT AFTER HERE 8>< ---------------------------- | |
| //AWESOME JOB (SETUP), | |
| // 'Build Netsol', | |
| // CLASS=A, | |
| // MSGCLASS=X, | |
| // MSGLEVEL=(1,1) | |
| //******************************************************************** | |
| //* | |
| //* Desc: Build new NETSOL logon screen: ANSIART | |
| //* Date: 22-10-2022 | |
| //* Built using Soldier of FORTRANs ANSi to EBCDiC builder | |
| //* | |
| //* Original ANSi File: bsdiesSD.ans | |
| //* Original ANSi Artist: Anonymous | |
| //* Original ANSi Date: 20221022 | |
| //* | |
| //* Command Line Args: --ROW 22 --COL 20 --sysgen bsdiesSD.ans | |
| //* | |
| //* After submitting run the following to refresh VTAM in hercules | |
| //* console: | |
| //* | |
| //* /P TSO | |
| //* /Z NET,QUICK | |
| //* | |
| //* Then the commands to bring the services back is: | |
| //* | |
| //* /S NET | |
| //* | |
| //******************************************************************** | |
| //* | |
| //* First delete the previous version if it exists | |
| //* | |
| //CLEANUP EXEC PGM=IDCAMS | |
| //SYSPRINT DD SYSOUT=* | |
| //SYSIN DD * | |
| DELETE SYS1.UMODMAC(ANSIART) | |
| SET MAXCC=0 | |
| SET LASTCC=0 | |
| //* | |
| //* Then we "compress" SYS1.UMODMAC to free up space | |
| //* | |
| //COMP EXEC COMPRESS,LIB='SYS1.UMODMAC' | |
| //* | |
| //* THEN WE COPY THE ORIGINAL NETSOL SOURCE FROM SYS1.AMACLIB | |
| //* TO SYS1.UMODMAC | |
| //* | |
| //UMODMAC EXEC PGM=IEBGENER | |
| //SYSIN DD DUMMY | |
| //SYSPRINT DD SYSOUT=* | |
| //SYSUT1 DD DISP=SHR,DSN=SYS1.AMACLIB(NETSOL) | |
| //SYSUT2 DD DISP=SHR,DSN=SYS1.UMODMAC(NETSOL) | |
| //* | |
| //* THEN WE UPDATE SYS1.UMODMAC(NETSOL) TO DISPLAY OUR CUSTOM 3270 | |
| //* | |
| //UPDATE EXEC PGM=IEBUPDTE | |
| //SYSPRINT DD SYSOUT=* | |
| //SYSUT1 DD DISP=SHR,DSN=SYS1.UMODMAC | |
| //SYSUT2 DD DISP=SHR,DSN=SYS1.UMODMAC | |
| //SYSIN DD DATA,DLM=$$ | |
| ./ ADD NAME=ANSIART | |
| * NETSOL screen created by ANSi2EBCDiC.py | |
| PUSH PRINT | |
| PRINT OFF | |
| EGMSG DS 0C EGMSG | |
| $WCC (RESETKBD,MDT) | |
| $SBA (1,1) | |
| * (1,1) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (1,2) | |
| * (1,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'Sides San Diego BSides San Diego BSides San ' | |
| DC C'Diego BSides San Diego BSides San' | |
| $SBA (2,1) | |
| * (2,1) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (2,2) | |
| * (2,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'BSides San Diego BS' | |
| $SBA (2,21) | |
| * (2,21) (FG) Blue | |
| DC X'2842F1' | |
| DC 5C's' | |
| DC C'$' | |
| DC X'EA' | |
| $SBA (2,28) | |
| * (2,28) (FG) Black | |
| DC X'2842F0' | |
| DC C'n Diego BSides San Die' | |
| $SBA (2,50) | |
| * (2,50) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.sS' | |
| DC 15C'$' | |
| DC C'ss.' | |
| $SBA (2,71) | |
| * (2,71) (FG) Black | |
| DC X'2842F0' | |
| DC C'Sides San' | |
| $SBA (2,80) | |
| * (2,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (3,3) | |
| * (3,3) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'BSides San D' | |
| $SBA (3,15) | |
| * (3,15) (FG) Blue | |
| DC X'2842F1' | |
| DC C'ss' | |
| DC 6C'$' | |
| DC X'EAEA' | |
| $SBA (3,25) | |
| * (3,25) (FG) Black | |
| DC X'2842F0' | |
| DC C's San Diego BSides S' | |
| $SBA (3,45) | |
| * (3,45) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.sS' | |
| DC 24C'$' | |
| DC C'Ss' | |
| $SBA (3,74) | |
| * (3,74) (FG) Black | |
| DC X'2842F0' | |
| DC C'des Sa' | |
| $SBA (3,80) | |
| * (3,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (4,2) | |
| * (4,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'o BSides' | |
| $SBA (4,10) | |
| * (4,10) (FG) Blue | |
| DC X'2842F1' | |
| DC C'ss' | |
| DC 6C'$' | |
| DC X'EAEAEA' | |
| $SBA (4,21) | |
| * (4,21) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides San Diego BSid' | |
| $SBA (4,42) | |
| * (4,42) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.sS' | |
| DC 13C'$' | |
| DC 8X'EA' | |
| DC C'S' | |
| DC 7C'$' | |
| DC C'S.' | |
| $SBA (4,76) | |
| * (4,76) (FG) Black | |
| DC X'2842F0' | |
| DC C'es S' | |
| $SBA (4,80) | |
| * (4,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (5,2) | |
| * (5,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'go BS' | |
| $SBA (5,7) | |
| * (5,7) (FG) Blue | |
| DC X'2842F1' | |
| DC C'sS' | |
| DC 5C'$' | |
| DC X'EAEA' | |
| $SBA (5,16) | |
| * (5,16) (FG) Black | |
| DC X'2842F0' | |
| DC C'Diego BSides San Diego ' | |
| $SBA (5,39) | |
| * (5,39) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.sS' | |
| DC 7C'$' | |
| DC X'EAEAEA' | |
| DC 6C'$' | |
| DC C'.' | |
| $SBA (5,59) | |
| * (5,59) (FG) Black | |
| DC X'2842F0' | |
| DC C'des' | |
| $SBA (5,62) | |
| * (5,62) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (5,63) | |
| * (5,63) (FG) Black | |
| DC X'2842F0' | |
| DC C'San D' | |
| $SBA (5,68) | |
| * (5,68) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'S' | |
| DC 7C'$' | |
| DC C's' | |
| $SBA (5,77) | |
| * (5,77) (FG) Black | |
| DC X'2842F0' | |
| DC C'es' | |
| $SBA (6,1) | |
| * (6,1) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (6,2) | |
| * (6,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'ego' | |
| $SBA (6,5) | |
| * (6,5) (FG) Blue | |
| DC X'2842F1' | |
| DC C'S$$$$' | |
| DC X'EAEA' | |
| $SBA (6,12) | |
| * (6,12) (FG) Black | |
| DC X'2842F0' | |
| DC C' San Diego BSides San Dieg' | |
| $SBA (6,38) | |
| * (6,38) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'sS' | |
| DC 6C'$' | |
| DC X'EA' | |
| $SBA (6,47) | |
| * (6,47) (FG) Black | |
| DC X'2842F0' | |
| DC C'San D' | |
| $SBA (6,52) | |
| * (6,52) (FG) Cyan | |
| DC X'2842F5' | |
| DC 7C'$' | |
| $SBA (6,59) | |
| * (6,59) (FG) Black | |
| DC X'2842F0' | |
| DC C'ides' | |
| $SBA (6,63) | |
| * (6,63) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (6,64) | |
| * (6,64) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (6,67) | |
| * (6,67) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (6,68) | |
| * (6,68) (FG) Black | |
| DC X'2842F0' | |
| DC C'B' | |
| $SBA (6,69) | |
| * (6,69) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC C'.' | |
| $SBA (6,78) | |
| * (6,78) (FG) Black | |
| DC X'2842F0' | |
| DC C'es' | |
| $SBA (6,80) | |
| * (6,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (7,2) | |
| * (7,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'ie' | |
| $SBA (7,4) | |
| * (7,4) (FG) Blue | |
| DC X'2842F1' | |
| DC C'S' | |
| DC 5C'$' | |
| DC C'sss' | |
| $SBA (7,13) | |
| * (7,13) (FG) Black | |
| DC X'2842F0' | |
| DC C' San Diego BSides San D' | |
| $SBA (7,36) | |
| * (7,36) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'sS' | |
| DC 5C'$' | |
| DC X'EA' | |
| $SBA (7,44) | |
| * (7,44) (FG) Black | |
| DC X'2842F0' | |
| DC C'des San' | |
| $SBA (7,51) | |
| * (7,51) (FG) Cyan | |
| DC X'2842F5' | |
| DC 6C'$' | |
| DC C'SS' | |
| $SBA (7,59) | |
| * (7,59) (FG) Black | |
| DC X'2842F0' | |
| DC C'Sides' | |
| $SBA (7,64) | |
| * (7,64) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (7,65) | |
| * (7,65) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (7,68) | |
| * (7,68) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (7,69) | |
| * (7,69) (FG) Black | |
| DC X'2842F0' | |
| DC C'B' | |
| $SBA (7,70) | |
| * (7,70) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC C'.' | |
| $SBA (7,79) | |
| * (7,79) (FG) Black | |
| DC X'2842F0' | |
| DC C'e' | |
| $SBA (7,80) | |
| * (7,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (8,2) | |
| * (8,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'Di' | |
| $SBA (8,4) | |
| * (8,4) (FG) Blue | |
| DC X'2842F1' | |
| DC 17C'$' | |
| DC 5C's' | |
| $SBA (8,26) | |
| * (8,26) (FG) Black | |
| DC X'2842F0' | |
| DC C'Sides San' | |
| $SBA (8,35) | |
| * (8,35) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.' | |
| DC 5C'$' | |
| DC X'EA' | |
| $SBA (8,42) | |
| * (8,42) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides' | |
| $SBA (8,48) | |
| * (8,48) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' .s' | |
| DC 6C'$' | |
| DC C'S ' | |
| $SBA (8,59) | |
| * (8,59) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides' | |
| $SBA (8,65) | |
| * (8,65) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (8,66) | |
| * (8,66) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (8,69) | |
| * (8,69) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| DC 9C'$' | |
| $SBA (8,79) | |
| * (8,79) (FG) Black | |
| DC X'2842F0' | |
| DC C'd' | |
| $SBA (8,80) | |
| * (8,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (9,3) | |
| * (9,3) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'D' | |
| $SBA (9,4) | |
| * (9,4) (FG) Blue | |
| DC X'2842F1' | |
| DC X'EA' | |
| DC 24C'$' | |
| DC C'ss' | |
| $SBA (9,31) | |
| * (9,31) (FG) Black | |
| DC X'2842F0' | |
| DC C's Sa' | |
| $SBA (9,35) | |
| * (9,35) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'S$SSSSssss.' | |
| $SBA (9,46) | |
| * (9,46) (FG) Black | |
| DC X'2842F0' | |
| DC C'des' | |
| $SBA (9,49) | |
| * (9,49) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC C'S' | |
| $SBA (9,58) | |
| * (9,58) (FG) Black | |
| DC X'2842F0' | |
| DC C'o' | |
| $SBA (9,59) | |
| * (9,59) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (9,60) | |
| * (9,60) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides' | |
| $SBA (9,66) | |
| * (9,66) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (9,67) | |
| * (9,67) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (9,70) | |
| * (9,70) (FG) Cyan | |
| DC X'2842F5' | |
| DC 9C'$' | |
| $SBA (9,79) | |
| * (9,79) (FG) Black | |
| DC X'2842F0' | |
| DC C'i' | |
| $SBA (9,80) | |
| * (9,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (10,2) | |
| * (10,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'n Diego BSides San ' | |
| $SBA (10,21) | |
| * (10,21) (FG) Blue | |
| DC X'2842F1' | |
| DC X'EAEAEAEA' | |
| DC 7C'S' | |
| $SBA (10,32) | |
| * (10,32) (FG) Black | |
| DC X'2842F0' | |
| DC C's S' | |
| $SBA (10,35) | |
| * (10,35) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'S' | |
| DC 9C'$' | |
| DC C'S' | |
| $SBA (10,46) | |
| * (10,46) (FG) Black | |
| DC X'2842F0' | |
| DC C'id' | |
| $SBA (10,48) | |
| * (10,48) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC X'EA' | |
| $SBA (10,57) | |
| * (10,57) (FG) Black | |
| DC X'2842F0' | |
| DC C'ego' | |
| $SBA (10,60) | |
| * (10,60) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (10,61) | |
| * (10,61) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides' | |
| $SBA (10,67) | |
| * (10,67) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (10,68) | |
| * (10,68) (FG) Black | |
| DC X'2842F0' | |
| DC C'Sa' | |
| $SBA (10,70) | |
| * (10,70) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| $SBA (10,78) | |
| * (10,78) (FG) Black | |
| DC X'2842F0' | |
| DC C'BS' | |
| $SBA (10,80) | |
| * (10,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (11,2) | |
| * (11,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'an Diego BSides San D' | |
| $SBA (11,23) | |
| * (11,23) (FG) Blue | |
| DC X'2842F1' | |
| DC C',s' | |
| DC 6C'$' | |
| DC X'EA' | |
| $SBA (11,32) | |
| * (11,32) (FG) Black | |
| DC X'2842F0' | |
| DC C'es Sa' | |
| $SBA (11,37) | |
| * (11,37) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8X'EA' | |
| $SBA (11,45) | |
| * (11,45) (FG) Black | |
| DC X'2842F0' | |
| DC C'BS' | |
| $SBA (11,47) | |
| * (11,47) (FG) Cyan | |
| DC X'2842F5' | |
| DC 9C'$' | |
| $SBA (11,56) | |
| * (11,56) (FG) Black | |
| DC X'2842F0' | |
| DC C'Diego' | |
| $SBA (11,61) | |
| * (11,61) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (11,62) | |
| * (11,62) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides' | |
| $SBA (11,68) | |
| * (11,68) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| DC 9C'$' | |
| $SBA (11,78) | |
| * (11,78) (FG) Black | |
| DC X'2842F0' | |
| DC C' B' | |
| $SBA (11,80) | |
| * (11,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (12,2) | |
| * (12,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'San Diego BSides San' | |
| $SBA (12,22) | |
| * (12,22) (FG) Blue | |
| DC X'2842F1' | |
| DC C's' | |
| DC 5C'$' | |
| DC X'EAEA' | |
| $SBA (12,30) | |
| * (12,30) (FG) Black | |
| DC X'2842F0' | |
| DC C'Sides San Diego ' | |
| $SBA (12,46) | |
| * (12,46) (FG) Cyan | |
| DC X'2842F5' | |
| DC 9C'$' | |
| $SBA (12,55) | |
| * (12,55) (FG) Black | |
| DC X'2842F0' | |
| DC C'n' | |
| $SBA (12,56) | |
| * (12,56) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (12,57) | |
| * (12,57) (FG) Black | |
| DC X'2842F0' | |
| DC C'Diego' | |
| $SBA (12,62) | |
| * (12,62) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (12,63) | |
| * (12,63) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSid' | |
| $SBA (12,67) | |
| * (12,67) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.' | |
| DC 9C'$' | |
| $SBA (12,77) | |
| * (12,77) (FG) Black | |
| DC X'2842F0' | |
| DC C'go' | |
| $SBA (13,1) | |
| * (13,1) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (13,3) | |
| * (13,3) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'San Diego BSides' | |
| $SBA (13,19) | |
| * (13,19) (FG) Blue | |
| DC X'2842F1' | |
| DC C's' | |
| DC 6C'$' | |
| DC X'EA' | |
| $SBA (13,27) | |
| * (13,27) (FG) Black | |
| DC X'2842F0' | |
| DC C'go BSides San Dieg' | |
| $SBA (13,45) | |
| * (13,45) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC C'"' | |
| $SBA (13,54) | |
| * (13,54) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (13,57) | |
| * (13,57) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (13,58) | |
| * (13,58) (FG) Black | |
| DC X'2842F0' | |
| DC C'Diego' | |
| $SBA (13,63) | |
| * (13,63) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' .s' | |
| DC 9C'$' | |
| $SBA (13,75) | |
| * (13,75) (FG) Black | |
| DC X'2842F0' | |
| DC C'Diego' | |
| $SBA (13,80) | |
| * (13,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (14,2) | |
| * (14,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C's San Diego B' | |
| $SBA (14,15) | |
| * (14,15) (FG) Blue | |
| DC X'2842F1' | |
| DC C',w' | |
| DC 6C'$' | |
| DC X'EA' | |
| $SBA (14,24) | |
| * (14,24) (FG) Black | |
| DC X'2842F0' | |
| DC C' Diego BSides San Di' | |
| $SBA (14,44) | |
| * (14,44) (FG) Cyan | |
| DC X'2842F5' | |
| DC 8C'$' | |
| DC C'"' | |
| $SBA (14,53) | |
| * (14,53) (FG) Black | |
| DC X'2842F0' | |
| DC C's' | |
| $SBA (14,54) | |
| * (14,54) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (14,55) | |
| * (14,55) (FG) Black | |
| DC X'2842F0' | |
| DC C'San' | |
| $SBA (14,58) | |
| * (14,58) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (14,59) | |
| * (14,59) (FG) Black | |
| DC X'2842F0' | |
| DC C'Di' | |
| $SBA (14,61) | |
| * (14,61) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.s' | |
| DC 10C'$' | |
| $SBA (14,73) | |
| * (14,73) (FG) Black | |
| DC X'2842F0' | |
| DC C'an Dieg' | |
| $SBA (14,80) | |
| * (14,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (15,2) | |
| * (15,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'es San D' | |
| $SBA (15,10) | |
| * (15,10) (FG) Blue | |
| DC X'2842F1' | |
| DC C'swwS' | |
| DC 5C'$' | |
| DC X'EAEA' | |
| $SBA (15,21) | |
| * (15,21) (FG) Black | |
| DC X'2842F0' | |
| DC C' San Diego BSides San ' | |
| $SBA (15,43) | |
| * (15,43) (FG) Cyan | |
| DC X'2842F5' | |
| DC C's' | |
| DC 8C'$' | |
| DC C'"' | |
| $SBA (15,53) | |
| * (15,53) (FG) Black | |
| DC X'2842F0' | |
| DC C'es' | |
| $SBA (15,55) | |
| * (15,55) (FG) Cyan | |
| DC X'2842F5' | |
| DC C' ' | |
| $SBA (15,56) | |
| * (15,56) (FG) Black | |
| DC X'2842F0' | |
| DC C'S' | |
| $SBA (15,57) | |
| * (15,57) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.sS' | |
| DC 13C'$' | |
| $SBA (15,73) | |
| * (15,73) (FG) Black | |
| DC X'2842F0' | |
| DC C'San Die' | |
| $SBA (15,80) | |
| * (15,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (16,2) | |
| * (16,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'des S' | |
| $SBA (16,7) | |
| * (16,7) (FG) Blue | |
| DC X'2842F1' | |
| DC C'sS' | |
| DC 7C'$' | |
| DC X'EAEA' | |
| $SBA (16,18) | |
| * (16,18) (FG) Black | |
| DC X'2842F0' | |
| DC C'ides San Diego BSides San' | |
| $SBA (16,43) | |
| * (16,43) (FG) Cyan | |
| DC X'2842F5' | |
| DC 27C'$' | |
| DC C'"' | |
| $SBA (16,71) | |
| * (16,71) (FG) Black | |
| DC X'2842F0' | |
| DC C'es San Di' | |
| $SBA (16,80) | |
| * (16,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (17,2) | |
| * (17,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'ide' | |
| $SBA (17,5) | |
| * (17,5) (FG) Blue | |
| DC X'2842F1' | |
| DC C's' | |
| DC 8C'$' | |
| DC X'EA' | |
| $SBA (17,15) | |
| * (17,15) (FG) Black | |
| DC X'2842F0' | |
| DC C'o BSides San Diego BSide' | |
| $SBA (17,39) | |
| * (17,39) (FG) Cyan | |
| DC X'2842F5' | |
| DC C'.' | |
| DC 26C'$' | |
| DC C'S' | |
| DC X'EA' | |
| $SBA (17,68) | |
| * (17,68) (FG) Black | |
| DC X'2842F0' | |
| DC C'BSides San D' | |
| $SBA (17,80) | |
| * (17,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (18,2) | |
| * (18,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'Sid' | |
| $SBA (18,5) | |
| * (18,5) (FG) Blue | |
| DC X'2842F1' | |
| DC X'EA' | |
| DC 6C'$' | |
| DC X'EA' | |
| $SBA (18,13) | |
| * (18,13) (FG) Black | |
| DC X'2842F0' | |
| DC C'iego BSides San Diego BSid' | |
| $SBA (18,39) | |
| * (18,39) (FG) Cyan | |
| DC X'2842F5' | |
| DC 23C'$' | |
| DC X'EAEA' | |
| DC C'"' | |
| $SBA (18,65) | |
| * (18,65) (FG) Black | |
| DC X'2842F0' | |
| DC C'ego BSides San' | |
| $SBA (19,1) | |
| * (19,1) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (19,2) | |
| * (19,2) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'BSide' | |
| $SBA (19,7) | |
| * (19,7) (FG) Blue | |
| DC X'2842F1' | |
| DC X'EAEAEA' | |
| $SBA (19,10) | |
| * (19,10) (FG) Black | |
| DC X'2842F0' | |
| DC C'an Diego BSides San Diego BSi' | |
| $SBA (19,39) | |
| * (19,39) (FG) Cyan | |
| DC X'2842F5' | |
| DC X'EA' | |
| DC 14C'$' | |
| DC C'S' | |
| DC X'EAEAEA' | |
| DC C'"' | |
| $SBA (19,59) | |
| * (19,59) (FG) Black | |
| DC X'2842F0' | |
| DC C' San Diego BSides San' | |
| $SBA (19,80) | |
| * (19,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (20,3) | |
| * (20,3) Bold/Intense (FG) Black | |
| DC X'2841F82842F0' | |
| DC C'BSides San Diego BSides San Diego BSides San ' | |
| DC C'Diego BSides San Diego BSides Sa' | |
| $SBA (20,80) | |
| * (20,80) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (21,4) | |
| * (21,4) Bold/Intense (FG) Magenta | |
| DC X'2841F82842F3' | |
| DC C'To Logon type' | |
| $SBA (21,17) | |
| * (21,17) (FG) Green | |
| DC X'2842F4' | |
| DC C' DC## ' | |
| $SBA (21,23) | |
| * (21,23) (FG) Magenta | |
| DC X'2842F3' | |
| DC C'where' | |
| $SBA (21,28) | |
| * (21,28) (FG) Green | |
| DC X'2842F4' | |
| DC C' ## ' | |
| $SBA (21,32) | |
| * (21,32) (FG) Magenta | |
| DC X'2842F3' | |
| DC C'is a number from 01 to 30' | |
| $SBA (21,57) | |
| * (21,57) Normal Display | |
| DC X'280000' | |
| DC C' ' | |
| $SBA (22,4) | |
| * (22,4) Bold/Intense (FG) Cyan | |
| DC X'2841F82842F5' | |
| DC C'Logon here ===' | |
| DC X'6E' | |
| $SBA (23,1) | |
| * (23,1) Normal Display | |
| DC X'280000' | |
| * Insert Cursor and unprotected field | |
| $SBA (22,20) | |
| DC X'2842F2' SA COLOR RED | |
| $SF (UNPROT,HI) | |
| $IC | |
| DC CL20' ' | |
| DC X'280000' | |
| DC X'1DF8' SF (PROT,HIGH INTENSITY) | |
| $SBA (24,80) | |
| $SF (SKIP,HI) | |
| EGMSGLN EQU *-EGMSG | |
| POP PRINT | |
| ./ CHANGE NAME=NETSOL | |
| CLI MSGINDEX,X'0C' 23164802 | |
| BNE EGSKIP 23164804 | |
| 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 | |
| COPY ANSIART , logon screen copy book 66810010 | |
| $$ | |
| //* | |
| //* With that done its time to assemble our new screen | |
| //* We assemble SYS1.UMODMAC(NETSOL) with IFOX00 | |
| //* | |
| //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 , | |
| //* | |
| //* Then we link it and put it in SYS1.VTAMLIB(ISTNSC00) | |
| //* | |
| //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)) | |
| //* | |
| // |
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
| [0m [1;30mSides San Diego BSides San Diego BSides San Diego BSides San Diego BSides San | |
| [0m [1;30mBSides San Diego BS[34msssss$�[30mn Diego BSides San Die[36m.sS$$$$$$$$$$$$$$$ss.[30mSides San[0m | |
| [1;30mBSides San D[34mss$$$$$$��[30ms San Diego BSides S[36m.sS$$$$$$$$$$$$$$$$$$$$$$$$Ss[30mdes Sa[0m | |
| [1;30mo BSides[34mss$$$$$$���[30mBSides San Diego BSid[36m.sS$$$$$$$$$$$$$��������S$$$$$$$S.[30mes S[0m | |
| [1;30mgo BS[34msS$$$$$��[30mDiego BSides San Diego [36m.sS$$$$$$$���$$$$$$.[30mdes[36m [30mSan D[36mS$$$$$$$s[30mes | |
| [0m [1;30mego[34mS$$$$��[30m San Diego BSides San Dieg[36msS$$$$$$�[30mSan D[36m$$$$$$$[30mides[36m [30mSan[36m [30mB[36m$$$$$$$$.[30mes[0m | |
| [1;30mie[34mS$$$$$sss[30m San Diego BSides San D[36msS$$$$$�[30mdes San[36m$$$$$$SS[30mSides[36m [30mSan[36m [30mB[36m$$$$$$$$.[30me[0m | |
| [1;30mDi[34m$$$$$$$$$$$$$$$$$sssss[30mSides San[36m.$$$$$�[30mBSides[36m .s$$$$$$S [30mBSides[36m [30mSan[36m $$$$$$$$$[30md[0m | |
| [1;30mD[34m�$$$$$$$$$$$$$$$$$$$$$$$$ss[30ms Sa[36mS$SSSSssss.[30mdes[36m$$$$$$$$S[30mo[36m [30mBSides[36m [30mSan[36m$$$$$$$$$[30mi[0m | |
| [1;30mn Diego BSides San [34m����SSSSSSS[30ms S[36mS$$$$$$$$$S[30mid[36m$$$$$$$$�[30mego[36m [30mBSides[36m [30mSa[36m$$$$$$$$[30mBS[0m | |
| [1;30man Diego BSides San D[34m,s$$$$$$�[30mes Sa[36m��������[30mBS[36m$$$$$$$$$[30mDiego[36m [30mBSides[36m $$$$$$$$$[30m B[0m | |
| [1;30mSan Diego BSides San[34ms$$$$$��[30mSides San Diego [36m$$$$$$$$$[30mn[36m [30mDiego[36m [30mBSid[36m.$$$$$$$$$[30mgo | |
| [0m [1;30mSan Diego BSides[34ms$$$$$$�[30mgo BSides San Dieg[36m$$$$$$$$"[30mSan[36m [30mDiego[36m .s$$$$$$$$$[30mDiego[0m | |
| [1;30ms San Diego B[34m,w$$$$$$�[30m Diego BSides San Di[36m$$$$$$$$"[30ms[36m [30mSan[36m [30mDi[36m.s$$$$$$$$$$[30man Dieg[0m | |
| [1;30mes San D[34mswwS$$$$$��[30m San Diego BSides San [36ms$$$$$$$$"[30mes[36m [30mS[36m.sS$$$$$$$$$$$$$[30mSan Die[0m | |
| [1;30mdes S[34msS$$$$$$$��[30mides San Diego BSides San[36m$$$$$$$$$$$$$$$$$$$$$$$$$$$"[30mes San Di[0m | |
| [1;30mide[34ms$$$$$$$$�[30mo BSides San Diego BSide[36m.$$$$$$$$$$$$$$$$$$$$$$$$$$S�[30mBSides San D[0m | |
| [1;30mSid[34m�$$$$$$�[30miego BSides San Diego BSid[36m$$$$$$$$$$$$$$$$$$$$$$$��"[30mego BSides San | |
| [0m [1;30mBSide[34m���[30man Diego BSides San Diego BSi[36m�$$$$$$$$$$$$$$S���"[30m San Diego BSides San[0m | |
| [1;30mBSides San Diego BSides San Diego BSides San Diego BSides San Diego BSides Sa[0m | |
| [1;35mTo Logon type[32m DC## [35mwhere[32m ## [35mis a number from 01 to 30[0m | |
| [1;36mLogon here ===> | |
| [0m | |
| SAUCE00 Anonymous 20221022h |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment