From ba3b0644630cbeb89cfe0f6505017cc8d141bc55 Mon Sep 17 00:00:00 2001 From: moshix Date: Tue, 23 Apr 2019 12:37:39 -0500 Subject: [PATCH] USSN logon screen creationg JCL for z/OS --- USSN | 388 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 388 insertions(+) create mode 100644 USSN diff --git a/USSN b/USSN new file mode 100644 index 0000000..67c163d --- /dev/null +++ b/USSN @@ -0,0 +1,388 @@ +//IBMUSER JOB 'CREATE USS SCREEN ',CLASS=A,MSGCLASS=H, 00010000 +// MSGLEVEL=(1,1),NOTIFY=&SYSUID 00030000 +//* +//BUILD EXEC ASMACL +//C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR +// DD DSN=SYS1.MACLIB,DISP=SHR +//C.SYSIN DD * +* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + MACRO +&NAME SCREEN &MSG=Â,&TEXT=Â + AIF ('&MSG' EQ 'Â' OR '&TEXT' EQ 'Â').END + LCLC &BFNAME,&BFSTART,&BFEND +&BFNAME SETC 'BUF'.'&MSG' +&BFBEGIN SETC '&BFNAME'.'B' +&BFEND SETC '&BFNAME'.'E' +.BEGIN DS 0F +&BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH +&BFBEGIN EQU * START OF MESSAGE + DC X'F57A' ERASE/WRITE, WCC + DC X'110000' SBA, 0000 ROW 00 COL 01 + DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW + DC C'SYSTEM UNDER CONSTANT SURVEILLANCE ' + DC C' z/OS V1.13' +* NEXT ELEVEN LINES DISPLAYS LOGOs + DC X'110050' SBA, 0080 ROW 01 COL 01 + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' SSSS Y Y SSS' + DC C'S 00000 11 SSSS ' + DC C' S Y Y S ' + DC C' 0 0 1 1 S ' + DC C' SSS Y SSS' + DC C' 0 0 1 SSS ' + DC C' S Y ' + DC C'S 0 0 1 S ' + DC C' SSSS Y SSSS' + DC C' 00000 1 SSSS ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC X'110410' SBA, 0960 ROW 12 COL 01 + DC X'290242F4C0E0' SFE, PROTECTED/NORMAL/GREEN + DC C' WELCOME TO SYS 01S SY' + DC C'STEM ' + DC X'1104B0' SBA, 1120 ROW 14 COL 01 + DC X'290242F5C0E0' SFE, PROTECTED/NORMAL/PURPLE + DC C' ' + DC C' ' +.* APPLICATION: TSO + DC X'110508' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'TSO' APPLICATION NAME + DC X'110511' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- Logon to TSO/ISPF' APPLICATION DESCRIPTION +.* APPLICATION: NETVIEW + DC X'11052C' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'CNM05' APPLICATION NAME + DC X'110535' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- Logging System' APPLICATION DESCRIPTION +.* APPLICATION: CICSTEST + DC X'110558' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'CICSTEST' APPLICATION NAME + DC X'110561' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- CICS Test ' APPLICATION DESCRIPTION +.* APPLICATION: SA + DC X'11057C' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'SA' APPLICATION NAME + DC X'110585' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- System Access Mon' APPLICATION DESCRIPTION +.* APPLICATION: TEST + DC X'1105A8' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'TEST' APPLICATION NAME + DC X'1105B1' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- Test System' APPLICATION DESCRIPTION +.* OTHER INFORMATION + DC X'110640' SBA, 1600 ROW 21 COL 01 + DC C'Enter your choice==>' + DC X'110654' SBA, 1622 ROW 21 COL 22 + DC X'290242F2C0C8' SFE, UNPROTECTED/NORMAL + DC X'13' INSERT CURSOR + DC X'11068F' SBA, 1690 ROW 22 COL 01 + DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW + DC C&TEXT USS MESSAGES + DC X'11072F' SBA, 1840 ROW 24 COL 01 + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/GREEN + DC C'Your IP(@@@@@@@@@IPADDR:@@PRT), SNA LU(@@LUNAME)' + DC C' @@@@DATE @@@@TIME' +&BFEND EQU * END OF MESSAGE +.END MEND +* +* +* .............. +USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC +* SPACE +TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL TSO + USSPARM PARM=APPLID,DEFAULT=TSO + USSPARM PARM=P1,REP=DATA +* SPACE +CNM01 USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CNM01 +CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CICS +IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=IMS81CR1 +SA USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CNM01 +* SPACE + USSMSG MSG=00,BUFFER=(BUF00,SCAN) + USSMSG MSG=01,BUFFER=(BUF01,SCAN) + USSMSG MSG=02,BUFFER=(BUF02,SCAN) + USSMSG MSG=03,BUFFER=(BUF03,SCAN) +* USSMSG MSG=04,BUFFER=(BUF04,SCAN) + USSMSG MSG=05,BUFFER=(BUF05,SCAN) + USSMSG MSG=06,BUFFER=(BUF06,SCAN) + USSMSG MSG=08,BUFFER=(BUF08,SCAN) + USSMSG MSG=10,BUFFER=(BUF10,SCAN) + USSMSG MSG=11,BUFFER=(BUF11,SCAN) + USSMSG MSG=12,BUFFER=(BUF12,SCAN) + USSMSG MSG=14,BUFFER=(BUF14,SCAN) +* SPACE +STDTRANS DC X'000102030440060708090A0B0C0D0E0F' + DC X'101112131415161718191A1B1C1D1E1F' + DC X'202122232425262728292A2B2C2D2E2F' + DC X'303132333435363738393A3B3C3D3E3F' + DC X'404142434445464748494A4B4C4D4E4F' + DC X'505152535455565758595A5B5C5D5E5F' + DC X'604062636465666768696A6B6C6D6E6F' + DC X'707172737475767778797A7B7C7D7E7F' + DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' + DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' + DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' + DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' + DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' + DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' + DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' + DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' +END USSEND +* SPACE +*********************************************************************** ******** +*DEFAULT MESSAGE PROVIDED BY VTAM: +* MSG 00: IST457I POSITIVE command COMMAND RESPONSE +* MSG 01: IST450I INVALID command COMMAND SYNTAX +* MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter +* MSG 03: IST452I parameter PARAMETER EXTRANEOUS +* MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID +* MSG 05: N/A +* MSG 06: IST792I NO SUCH SESSION EXISTS +* MSG 07: N/A +* MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE +* MSG 09: N/A +* MSG 10: READY +* MSG 11: IST455I parameters SESSIONS ENDED +* MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED +* MSG 13: N/A +* MSG 14: IST458I USS MESSAGE number NOT DEFINED +*********************************************************************** ******** +* CUSTOMIZED USS MESSAGES: + SCREEN MSG=00,TEXT='Command is in progress...' + SCREEN MSG=01,TEXT='Invalid command or syntax' + SCREEN MSG=02,TEXT='Invalid Command' + SCREEN MSG=03,TEXT='Parameter is unrecognized!' +* SCREEN MSG=04,TEXT='Parameter with value is invalid' + SCREEN MSG=05,TEXT='The key you pressed is inactive' + SCREEN MSG=06,TEXT='There is not such session.' + SCREEN MSG=08,TEXT='Command failed as storage shortage.' + SCREEN MSG=10,TEXT='Enter one of above commands in red' + SCREEN MSG=11,TEXT='Your session has ended' + SCREEN MSG=12,TEXT='Required parameter is missing' + SCREEN MSG=14,TEXT='There is an undefined USS message' + END +/* +//L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z113.VTAMLIB +//L.SYSIN DD * + NAME USSN(R) +//* +clone this paste RAW Paste Data + +//USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A, 00010000 +//* TYPRUN=SCAN, 00020000 +// MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID 00030000 +//* +//BUILD EXEC ASMACL +//C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR +// DD DSN=SYS1.MACLIB,DISP=SHR +//C.SYSIN DD * +* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + MACRO +&NAME SCREEN &MSG=Â,&TEXT=Â + AIF ('&MSG' EQ 'Â' OR '&TEXT' EQ 'Â').END + LCLC &BFNAME,&BFSTART,&BFEND +&BFNAME SETC 'BUF'.'&MSG' +&BFBEGIN SETC '&BFNAME'.'B' +&BFEND SETC '&BFNAME'.'E' +.BEGIN DS 0F +&BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH +&BFBEGIN EQU * START OF MESSAGE + DC X'F57A' ERASE/WRITE, WCC + DC X'110000' SBA, 0000 ROW 00 COL 01 + DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW + DC C'SYSTEM UNDER CONSTANT SURVEILLANCE ' + DC C' z/OS V1.13' +* NEXT ELEVEN LINES DISPLAYS LOGOs + DC X'110050' SBA, 0080 ROW 01 COL 01 + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC C' SSSS Y Y SSS' + DC C'S 00000 11 SSSS ' + DC C' S Y Y S ' + DC C' 0 0 1 1 S ' + DC C' SSS Y SSS' + DC C' 0 0 1 1 SSS ' + DC C' S Y ' + DC C'S 0 0 1 S ' + DC C' SSSS Y SSSS' + DC C' 00000 1 SSSS ' + DC C' ' + DC C' ' + DC C' ' + DC C' ' + DC X'110410' SBA, 0960 ROW 12 COL 01 + DC X'290242F4C0E0' SFE, PROTECTED/NORMAL/GREEN + DC C' WELCOME TO SYS 01S SY' + DC C'STEM ' + DC X'1104B0' SBA, 1120 ROW 14 COL 01 + DC X'290242F5C0E0' SFE, PROTECTED/NORMAL/PURPLE + DC C' ' + DC C' ' +.* APPLICATION: TSO + DC X'110508' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'TSO' APPLICATION NAME + DC X'110511' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- Logon to TSO/ISPF' APPLICATION DESCRIPTION +.* APPLICATION: NETVIEW + DC X'11052C' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'CNM05' APPLICATION NAME + DC X'110535' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- System Monitor' APPLICATION DESCRIPTION +.* APPLICATION: CICSTS32 + DC X'110558' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'CICSPROD' APPLICATION NAME + DC X'110561' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- CICS System' APPLICATION DESCRIPTION +.* APPLICATION: SA + DC X'11057C' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'SA' APPLICATION NAME + DC X'110585' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- System Access ' APPLICATION DESCRIPTION +.* APPLICATION: IMS + DC X'1105A8' APPLICATION POSITION + DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED + DC C'LRU' APPLICATION NAME + DC X'1105B1' DESCRIPTION POSITION + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE + DC C'- Line Realtime Use' APPLICATION DESCRIPTION +.* OTHER INFORMATION + DC X'110640' SBA, 1600 ROW 21 COL 01 + DC C'Enter your choice==>' + DC X'110654' SBA, 1622 ROW 21 COL 22 + DC X'290242F2C0C8' SFE, UNPROTECTED/NORMAL + DC X'13' INSERT CURSOR + DC X'11068F' SBA, 1690 ROW 22 COL 01 + DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW + DC C&TEXT USS MESSAGES + DC X'11072F' SBA, 1840 ROW 24 COL 01 + DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/GREEN + DC C'Your IP(@@@@@@@@@IPADDR:@@PRT), SNA LU(@@LUNAME)' + DC C' @@@@DATE @@@@TIME' +&BFEND EQU * END OF MESSAGE +.END MEND +* +* +* .............. +USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC +* SPACE +TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL TSO + USSPARM PARM=APPLID,DEFAULT=TSO + USSPARM PARM=P1,REP=DATA +* SPACE +CNM01 USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CNM01 +CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CICS +IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=IMS81CR1 +SA USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL + USSPARM PARM=APPLID,DEFAULT=CNM01 +* SPACE + USSMSG MSG=00,BUFFER=(BUF00,SCAN) + USSMSG MSG=01,BUFFER=(BUF01,SCAN) + USSMSG MSG=02,BUFFER=(BUF02,SCAN) + USSMSG MSG=03,BUFFER=(BUF03,SCAN) +* USSMSG MSG=04,BUFFER=(BUF04,SCAN) + USSMSG MSG=05,BUFFER=(BUF05,SCAN) + USSMSG MSG=06,BUFFER=(BUF06,SCAN) + USSMSG MSG=08,BUFFER=(BUF08,SCAN) + USSMSG MSG=10,BUFFER=(BUF10,SCAN) + USSMSG MSG=11,BUFFER=(BUF11,SCAN) + USSMSG MSG=12,BUFFER=(BUF12,SCAN) + USSMSG MSG=14,BUFFER=(BUF14,SCAN) +* SPACE +STDTRANS DC X'000102030440060708090A0B0C0D0E0F' + DC X'101112131415161718191A1B1C1D1E1F' + DC X'202122232425262728292A2B2C2D2E2F' + DC X'303132333435363738393A3B3C3D3E3F' + DC X'404142434445464748494A4B4C4D4E4F' + DC X'505152535455565758595A5B5C5D5E5F' + DC X'604062636465666768696A6B6C6D6E6F' + DC X'707172737475767778797A7B7C7D7E7F' + DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' + DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' + DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' + DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' + DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' + DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' + DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' + DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' +END USSEND +* SPACE +*********************************************************************** ******** +*DEFAULT MESSAGE PROVIDED BY VTAM: +* MSG 00: IST457I POSITIVE command COMMAND RESPONSE +* MSG 01: IST450I INVALID command COMMAND SYNTAX +* MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter +* MSG 03: IST452I parameter PARAMETER EXTRANEOUS +* MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID +* MSG 05: N/A +* MSG 06: IST792I NO SUCH SESSION EXISTS +* MSG 07: N/A +* MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE +* MSG 09: N/A +* MSG 10: READY +* MSG 11: IST455I parameters SESSIONS ENDED +* MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED +* MSG 13: N/A +* MSG 14: IST458I USS MESSAGE number NOT DEFINED +*********************************************************************** ******** +* CUSTOMIZED USS MESSAGES: + SCREEN MSG=00,TEXT='Command is in progress...' + SCREEN MSG=01,TEXT='Invalid command or syntax' + SCREEN MSG=02,TEXT='Invalid Command' + SCREEN MSG=03,TEXT='Parameter is unrecognized!' +* SCREEN MSG=04,TEXT='Parameter with value is invalid' + SCREEN MSG=05,TEXT='The key you pressed is inactive' + SCREEN MSG=06,TEXT='There is not such session.' + SCREEN MSG=08,TEXT='Command failed as storage shortage.' + SCREEN MSG=10,TEXT='Enter one of above commands in red' + SCREEN MSG=11,TEXT='Your session has ended' + SCREEN MSG=12,TEXT='Required parameter is missing' + SCREEN MSG=14,TEXT='There is an undefined USS message' + END +/* +//L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z113.VTAMLIB +//L.SYSIN DD * + NAME USSN(R) +//* +