LANGBLK

Prolog  

Control Block Contents  
   LANGBLK DSECT

Storage Layout  

Cross Reference (Contains links to field and bit definitions)  

LANGBLK Prolog

 Name       : LANGBLK
 Description: CMS Language Control Block
 DSECT      : LANGBLK
 Function   : Generates a copy of language control
              block for the caller. LANGBLK points to
              language information that an application uses.
              The LANGBLK for the default language is in
              DMSNUC. A LANGBLK is created by the set
              language command. LANGBLK is called by the
              LANGBLK macro.

LANGBLK Control Block Content

LANGBLK DSECT

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      LANGBLK        CMS Language Control Block
0000    0 Address      4 LANGNEXT       Pointer to next LANGBLK
0004    4 Character    3 LANGAPID       APPLICATION ID
0007    7 Bitstring    1 LANGFLG1       Flag byte
          1... ....      LANGET         X'80' On indicates DBCS language
          .1.. ....      LANGUSSY       X'40' User synonyms wanted
          ..1. ....      LANGUSTR       X'20' User translations wanted
          ...1 ....      LANGSYSY       X'10' System synonyms wanted
          .... 1...      LANGSYTR       X'08' System translations wanted
0008    8 Character    5 LANGLANG       Language identifier
000D   13 Bitstring    1 *              RESERVED FOR FUTURE USE
000E   14 Bitstring    2 LANGDISK       HELP (OR APPLICATION) DISK
                                        ADDRESS
0010   16 Address      4 LANGMSG        Message repository
0014   20 Address      4 LANGSPA        System parser table
0018   24 Address      4 LANGUPA        User parser table
001C   28 Address      4 LANGSSY        System Synonym and Abbreviation
                                        table
0020   32 Address      4 LANGUSY        User Synonym and Abbreviation
                                        table
0024   36 Address      4 LANGTRTS       NLS translation tables
0028   40 Address      4 LANGUSER       Reserved for application's use
002C   44 Address      4 LANGUME        User additions to message
                                        repository
          00000030       LANGBLKB       *-LANGBLK Bytes of storage for
                                        LANGBLK
          00000006       LANGBLKD       (LANGBLKB+7)/8 Double words of
                                        storage for LANGBLK

LANGBLK Storage Layout

          
*** LANGBLK - CMS Language Control Block
*
*     +---------------------------+--------------------+------+
*   0 |         LANGNEXT          |     LANGAPID       |:GFLG1|
*     +---------------------------+------+------+------+------+
*   8 |            LANGLANG              |//////|  LANGDISK   |
*     +---------------------------+------+------+-------------+
*  10 |         LANGMSG           |         LANGSPA           |
*     +---------------------------+---------------------------+
*  18 |         LANGUPA           |         LANGSSY           |
*     +---------------------------+---------------------------+
*  20 |         LANGUSY           |         LANGTRTS          |
*     +---------------------------+---------------------------+
*  28 |         LANGUSER          |         LANGUME           |
*     +---------------------------+---------------------------+
*  30
*
*** LANGBLK - CMS Language Control Block

LANGBLK Cross Reference

Symbol         Dspl Value
-------------- ---- -----
LANGAPID       0004
LANGBLKB       002C 00000030
LANGBLKD       002C 00000006
LANGDISK       000E
LANGET         0007 80
LANGFLG1       0007
LANGLANG       0008
LANGMSG        0010
LANGNEXT       0000
LANGSPA        0014
LANGSSY        001C
LANGSYSY       0007 10
LANGSYTR       0007 08
LANGTRTS       0024
LANGUME        002C
LANGUPA        0018
LANGUSER       0028
LANGUSSY       0007 40
LANGUSTR       0007 20
LANGUSY        0020