$STAC mapping

Table 1. Structure STAC
`Offset Dec`	`Offset Hex`	`Type`	`Len`	`Name(Dim)`	`Description`
`0`	`(0)`	`STRUCTURE`	`0`	`STAC`
`0`	`(0)`	`CHARACTER`	`4`	`SACEYE`	`Eye catcher`
`Chaining is double threaded. The pointer fields are positive (hi-bit off) if pointing to a STAC element. The pointer fields have the high bit on if pointing to the head. The next and prev pointer words must be this order`
`4`	`(4)`	`ADDRESS`	`4`	`SACNEXT`	`<----+ Address of next STAC`
`8`	`(8)`	`ADDRESS`	`4`	`SACPREV`	`<----+ Address of previous STAC`
`12`	`(C)`	`ADDRESS`	`4`	`SACSJB`	`Address of SJB (zero means SJB user no longer wants a response)`
`16`	`(10)`	`ADDRESS`	`4`	`SACTAREA`	`Address of work area`
`20`	`(14)`	`CHARACTER`	`8`	`SACTJOBN`	`Job name`
`28`	`(1C)`	`SIGNED`	`4`	`SACTJOBI`	`Job number`
`32`	`(20)`	`SIGNED`	`2`	`SACTDIMP`	`Size of extension`
`34`	`(22)`	`SIGNED`	`2`	`SACTDIMR`	`Size used or required`
`36`	`(24)`	`SIGNED`	`2`	`SACTFUNC`	`Requested function`
`38`	`(26)`	`SIGNED`	`2`	`SACTRETB`	`SSOBRETN return code`
`40`	`(28)`	`SIGNED`	`2`	`SACTRETR`	`R15 return code`
`42`	`(2A)`	`BITSTRING`	`1`	`SACTFLGS`	`Flags from SSOB extension`
`43`	`(2B)`	`SIGNED`	`1`	`SACTULEN`	`User ID length`
`44`	`(2C)`	`BITSTRING`	`1`	`SACTFLOW`	`JES2 in process indicator`
`45`	`(2D)`	`BITSTRING`	`1`	`SACFLAG1`	`Flags (serialized via CS)`
		`1... ....`		`SAC1XPST`	`"B'10000000'" Action is complete Data in STAC can be used`
		`..1. ....`		`SAC1PCE`	`"B'00100000'" In process (SACPCE valid)`
		`...1 ....`		`SAC1QUED`	`"B'00010000'" On FIFO queue`
`46`	`(2E)`	`BITSTRING`	`16`	`SACTCBT`	`TCB Token of requestor`
`62`	`(3E)`	`BITSTRING`	`2`		`Reserved for future use`
`64`	`(40)`	`CHARACTER`	`80`	`SACTOKEN`	`Security token work area`
`144`	`(90)`	`ADDRESS`	`4`	`SACPCE`	`Address of PCE processing the STAC request`
`MACDATE = 04/03/89`
`148`	`(94)`	`SIGNED`	`4`	`SACTTOK(0)`
`148`	`(94)`	`CHARACTER`	`16`	`(0)`	`TCB TOKEN (INPUT/OUTPUT)`
`148`	`(94)`	`BITSTRING`	`8`
`156`	`(9C)`	`SIGNED`	`4`
`160`	`(A0)`	`ADDRESS`	`4`
`164`	`(A4)`	`ADDRESS`	`4`		`ASCB ADDRESS (INPUT)`
`168`	`(A8)`	`SIGNED`	`4`	`(0)`	`FLAGS (INPUT)`
`168`	`(A8)`	`SIGNED`	`1`		`TYPE OF TCBTOKEN REQUEST`
`169`	`(A9)`	`SIGNED`	`3`		`RESERVED`
`169`	`(A9)`	`X'AC'`	`0`	`SACLEN1`	`"*-STAC" IPCS STAC length`
`4096`	`(1000)`	`BITSTRING`	`1`	`SACFAREA`	`Maximum caller area`
`4096`	`(1000)`	`X'10FFF'`	`0`	`SACLEN`	`"*-STAC" STAC Length`

Table 2. Cross Reference for $STAC
`Name`	`Offset`	`Hex Tag`
`SACEYE`	`0`
`SACFAREA`	`1000`
`SACFLAG1`	`2D`
`SACLEN`	`1000`	`10FFF`
`SACLEN1`	`A9`	`AC`
`SACNEXT`	`4`
`SACPCE`	`90`
`SACPREV`	`8`
`SACSJB`	`C`
`SACTAREA`	`10`
`SACTCBT`	`2E`
`SACTDIMP`	`20`
`SACTDIMR`	`22`
`SACTFLGS`	`2A`
`SACTFLOW`	`2C`
`SACTFUNC`	`24`
`SACTJOBI`	`1C`
`SACTJOBN`	`14`
`SACTOKEN`	`40`
`SACTRETB`	`26`
`SACTRETR`	`28`
`SACTTOK`	`94`
`SACTULEN`	`2B`
`SAC1PCE`	`2D`	`20`
`SAC1QUED`	`2D`	`10`
`SAC1XPST`	`2D`	`80`
`STAC`	`0`