//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) //*