github.com/moshix.mvs
1
0
Fork 0
mirror of https://github.com/moshix/mvs.git synced 2026-01-13 15:17:35 +00:00
Code Issues Releases Wiki Activity
moshix.mvs/USSN
moshix ba3b064463
USSN logon screen creationg JCL for z/OS
2019-04-23 12:37:39 -05:00

389 lines
18 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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

Reference in New Issue View Git Blame Copy Permalink