-
Notifications
You must be signed in to change notification settings - Fork 51
/
Copy pathUSSN
388 lines (387 loc) · 18.4 KB
/
USSN
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
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)
//*