Hi Folks, (I'm sorry that my previous post was sent incomplete--pressed
the wrong key)
As you probably know by now, z/OS 2.3 has introduced the possibility
of having 8-character TSO userids and 8-character TSO prefixes. These
name fields were previously limited to 7 characters, ever since TSO came
into existence. (I think the reason for the limitation was that the
SYS1.UADS members, representing the definition of TSO userids before
RACF, ACF2, Top Secret etc. had to have a number at the end of them,
e.g. IBMUSER0, IBMUSER1, etc. So the id itself was limited to 7
characters in length.)
Many programs, especially TSO commands, look to find the TSO userid
in the PSCBUSER field (7 characters long) of the PSCB control block
(mapped by macro IKJPSCB). Also, the TSO prefix for your session is
usually found in the UPTPREFX field (also 7 characters) of the UPT
control block (mapped by macro IKJUPT).
General 8-character userid support, in z/OS 2.3 (and presumably
above) is turned on or off by a switch. It was explained to me, that
the support is quite complicated, so the installation has to be able to
decide whether to turn it on, or not. The installation's control is in
PARMLIB member IKJTSOxx, in the LOGON parameter: LOGON USERIDMAX(8) .
The place where this switch is located, is +6 bytes off the beginning of
the TSVT (TSO Vector Table) mapped by macro IKJTSVT. The setting is
x'00' for pre z/OS 2.3, x'07' for z/OS 2.3 with support OFF, and x'08'
for z/OS 2.3 with support ON.
With the switch on, and if you have defined an 8-character userid,
then the PSCBUSER field and the UPTPREFX field cannot contain the userid
or the prefix, since they are only 7 characters long. So there are 2 new
fields, at 2 new locations in the PSCB and UPT control blocks,
respectively. The display below shows where they are. Also, the length
fields in the PSCB and UPT are both new, when you have an 8-character
userid.
The displays below will show the location and content of all the
relevant fields. They were produced by the LPSCB program (parameter U)
from CBT File 300, and by the ALLIDS program (CBT File 731) both on the
UPDATES page of www.cbttape.org .
So without further ado, here are the displays. You should be able
to use this information to do almost any conversion that you'll need to
do. There's more of course, but this is the basic layout. If there is
an 8-character userid defined, then the old fields (PSCBUSER and
UPTPREFX) will contan the characters '>7BYTES' with a length of 7.
Thanks for listening.
Output of LPSCB U , TSO command from CBT File 300
This program shows field layouts for PSCB and UPT.
8-CHARACTER USERID SUPPORT IS: ON
00006F80 PSCB ADDRESS
+0 PSCBUSER 6EF7C2E8E3C5E2 >7BYTES
+7 PSCBUSRL 07
+8 PSCBGPNM E2E8E2C1D3D3C4C1 SYSALLDA
+10 PSCBATR1 E100 OPER ACCT JCL CONS
+12 PSCBATR2 0000
+14 PSCBLTIM D395E64338C46389 2017.348 09:57.47.143238
+1C PSCBSUBH 00
+1D PSCBSUBC 00
+1E PSCBSUBM 00
+1F PSCBSOUT 00
+20 PSCBU8L 08
+21 PSCBDRBA 000000
+24 RESERVED 00000000
+28 PSCBDEST 0000000000000000
+30 PSCBRLGB 00007EF8
+34 PSCBUPT 00008FC8
+38 PSCBUPTL 0038
+3A PSCBCHAR 00
+3B PSCBLINE 00
+3C PSCBRSZ 000F4240
+40 PSCBU 0000000000000000
+48 PSCBEXWD
+48 PSCBEXK 00000000
+4C PSCBEXL 00000004
+50 PSCBEXD 00000000
+54 PSCBUID8 C9C2D4E4E2C5D9C3 IBMUSERC
+5C RESERVED 00000000000000000000000000000000
00008FC8 UPT FROM PSCB
00008FC8 UPT FROM CPPL
+0 UPTLEN 0038
+2 UPTUSER 00000000000000000000
+C UPTSWS 00
+D UPTCDEL 00
+E UPTLDEL 00
+F UPTVERS 01
+10 UPTPREFX 6EF7C2E8E3C5E2 >7BYTES
+17 UPTPREFL 07
+18 UPTPLANG C5D5E4 ENU
+1B UPTSLANG C5D5E4 ENU
+1E UPTLNGFL 0000
+20 UPTSWS2 00
+21 UPTPREF8 C9C2D4E4E2C5D9C3 IBMUSERC
+29 UPTPRF8L 08
+2A RESERVED 0000000000000000000000000000
Output of my ALLIDS TSO command - CBT File 731
ALLIDS - SHOW TSO USERID OCCURRENCES - V1.2
------ ---- --- ------ ----------- ----
old len new len
field gth field gth
My PSCB Userid is >7BYTES 07 IBMUSERC 08
My UPT Prefix is >7BYTES 07 IBMUSERC 08
My JCT Userid is IBMUSERC
My JMR Userid is IBMUSERC
My TIOT Userid is IBMUSERC
My ASCB Userid is IBMUSERC
My ASXB Userid is IBMUSERC
My ACEE Userid is IBMUSERC 08
My LWA Userid is 08 IBMUSERC
My TSBX Userid is IBMUSERC
My CSCB Userid is IBMUSERC
My CSCX Userid is IBMUSERC
My OUCB Userid is IBMUSERC
My JSAB Userid is IBMUSERC Jobname IBMUSERC
My CAUB Userid is IBMUSERC
8-CHARACTER USERID SUPPORT IS: ON
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
