| Title: | -={ H A C K E R S }=- |
| Notice: | Write locked - see NOTED::HACKERS |
| Moderator: | DIEHRD::MORRIS |
| Created: | Thu Feb 20 1986 |
| Last Modified: | Mon Aug 03 1992 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 680 |
| Total number of notes: | 5456 |
This at least gets you the UICs! Thanks for the earlier help... Ill
try the latter help now
Thanks
John
$ Write sys$output "Username to UIC procedure. John Brewer 6-10-86"
$LOOP:
$INQUIRE USERNAME "Enter username in CAPITAL LETTERS"
$UIC_INT=F$IDENTIFIER(USERNAME,"NAME_TO_NUMBER")
$SH SYMBOL UIC_INT
$UIC=F$FAO("!%U",UIC_INT)
$SH SYMBOL UIC
$INQUIRE BRANCH "MORE USENAME TO UIC CONVERSIONS? <YES>"
$IF BRANCH .EQ. "YES" THEN GOTO LOOP
$EXIT
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 257.1 | Same, but nicely formatted | DECWET::SCHREIBER | Sat Jul 12 1986 00:54 | 11 | |
$ user = p1
$ if user .eqs. "" then user = f$getjpi(0,"username")
$ user = f$edit (user, "COLLAPSE")
$ id = f$identifier (user, "name_to_number")
$ idstr = f$fao ("!XL", id)
$ grp = f$integer ("%X" + f$extract (0, 4, idstr))
$ mem = f$integer ("%X" + f$extract (4, 4, idstr))
$ grp = f$fao ("X!OW", grp) - "X00000" - "X0000" - "X000" - "X00" - "X0"
$ mem = f$fao ("X!OW", mem) - "X00000" - "X0000" - "X000" - "X00" - "X0"
$ write sys$output f$fao ("User ''user' - UIC is [!AS,!AS]", grp, mem)
$ exit
| |||||
| 257.2 | !%U | LOGIC::PUDER | Karl Puder | Wed Jul 16 1986 14:57 | 4 |
Why not use f$fao("!%U", id) instead of all that f$extract()ing ?
"!%U" is the numeric uic format.
:Karl_who_just_looked_it_up_in_the_manual.
| |||||