Skip to content

Instantly share code, notes, and snippets.

@mainframed

mainframed/UIDGID.REXX

Created February 14, 2018 22:33
Show Gist options
  • Save mainframed/966f8ea8bf2c77d00f12e6ee59b65007 to your computer and use it in GitHub Desktop.
Save mainframed/966f8ea8bf2c77d00f12e6ee59b65007 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
UIDGID.REXX
/* REXX */
/* Maps Storage to find UNIX UID/GID location */
ASCB_PTR = C2X(STORAGE(D2X(X2D("224")),4))
ASXB_PTR = C2X(STORAGE(D2X(X2D(ASCB_PTR) + X2D("6C")),4))
ACEE_PTR = C2X(STORAGE(D2X(X2D(ASXB_PTR) + X2D("C8")),4))
ACEE_LEN = C2D(STORAGE(D2X(X2D(ACEE_PTR) + X2D("14")),1))
ACEE_UID = STORAGE(D2X(X2D(ACEE_PTR) + X2D("15")),ACEE_LEN)
ACEEOCOX = C2X(STORAGE(D2X(X2D(ACEE_PTR) + X2D("98")),4))
ACEX = STORAGE(D2X(X2D(ACEEOCOX)),76)
USP = C2X(STORAGE(D2X(X2D(ACEEOCOX) + X2D("48")),4))
USP_INFO = STORAGE(D2X(X2D(USP)),32 )
UID = X2D(C2X(SUBSTR(USP_INFO,9,4)))
GID = X2D(C2X(SUBSTR(USP_INFO,21,4)))
SAY "POINTER TO USP --->" USP
SAY "ACEE UID:" ACEE_UID
SAY "UID :" UID
SAY "GID :" GID
EXIT
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment