| |
Hex Dec Type/Val Lng Label (dup) Comments
---- ---- --------- ---- -------------- --------
0000 0 Structure LNGBK Language Information Block
0000 0 Address 4 LNGNEXT Address of next LNGBK
0004 4 Address 4 LNGBACK Address of previous LNGBK Notes :
If there is only one LNGBK, then
this field will have the same
address as "LNGNEXT" in it.
0008 8 Dbl-Word 8 LNGLOCK (3) Purge LNGBK lock. If both the
LNGBK queue lock (SYSLNGBK), and
the LNGBK lock (LNGLOCK), must be
acquired, one must acquire them
in this order: SYSLNGBK, then
LNGLOCK
0020 32 Signed 2 LNGPAGE Total number of repository pages
0022 34 Bitstring 1 LNGFLAG Language flag byte
1... .... LNGDBCS X'80' LNGDBCS Double-byte
character set. Notes : LNGDBCS is
originally set by the compiler if
the language uses the double-byte
character set.
.... ...1 LNGSKIP X'01' LNGSKIP For HCPERM: skip
this LNGBK at the moment because
it is being manipulated,
therefore is not complete, and we
don't want to get into a deadly
embrace of multiple acquisitions
of the LNGLOCK.
0023 35 Bitstring 1 * Reserved
0024 36 Address 4 LNGIMGBK Address of imgbk
0028 40 Character 5 LNGLANG Language identifier
002D 45 Character 3 LNGCOMP Component identifier
0030 48 Signed 4 LNGCNT User count
0034 52 Address 4 LNGLBX Address of LBXBK
0038 56 Address 4 * Reserved
003C 60 Address 4 LNGEPADR Virtual address of LNGEPNAM. For
its real address, use the page
pointers in the LBXBK.
0040 64 Bitstring 16 LNGICR (0) The ICRBK fields
0040 64 Character 8 LNGEPNAM Associated epname
0048 72 Address 4 LNGADDRL Address of ICLBK
004C 76 Bitstring 1 LNGATTR Attributes of epname
.1.. .... ICRRLONG X'40' ICRRLONG Caller is LONGREG
..1. .... ICRELONG X'20' ICRELONG Callee is LONGREG
...1 .... ICRESTA X'10' ICRESTA callee uses static
savearea
.... 1... ICRRMP X'08' ICRRMP caller MP capable
.... .1.. ICRERES X'04' ICRERES callee Resident
.... ..1. ICREMP X'02' ICREMP callee MP capable
.... ...1 ICRTRC X'01' ICRTRC issue TRACE
instruction
004D 77 Bitstring 1 LNGF1 Attributes
.... ...1 ICRNLOSS X'01' ICRNLOSS HCPCALL
TYPE=INDIRECT must not result in
loss of control
004E 78 Bitstring 1 * (2) Reserved
0050 80 Dbl-Word 8 LNGUSRD1 Reserved for non-IBM use
0058 88 Dbl-Word 8 LNGUSRD2 Reserved for non-IBM use
0060 96 Signed 4 LNGUSRF1 Reserved for non-IBM use
0064 100 Signed 4 LNGUSRF2 Reserved for non-IBM use
0068 104 Signed 2 LNGUSRH1 Reserved for non-IBM use
006A 106 Signed 2 LNGUSRH2 Reserved for non-IBM use
006C 108 Bitstring 1 LNGUSRX1 Reserved for non-IBM use
006D 109 Bitstring 1 LNGUSRX2 Reserved for non-IBM use
006E 110 Bitstring 1 LNGUSRX3 Reserved for non-IBM use
006F 111 Bitstring 1 LNGUSRX4 Reserved for non-IBM use
0000000E LNGSIZE (*-LNGBK+7)/8 Size of the LNGBK
| |