IBM: LANGBLK

Programming Interface Information: This page documents intended Programming
Interfaces that allow the customer to write programs to obtain the services of VM/ESA.

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