NAME       : HCPLGNBK
 DESCRIPTION: LOGON work buffer
 DSECT      : LGNBK
 FUNCTION   : Used by the LOGON/(X)AUTOLOG code as a work area
              for LOGON/(X)AUTOLOG processing.
 LOCATED BY : NONE
 CREATED BY : HCPAUT   HCPLOG
 DELETED BY : HCPLGB
 RELOCATION CONSIDERATIONS : None

 LGNBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      LGNBK          LOGON work buffer
0000    0 Signed       4 LGNFLGS (0)    Parameter flags for logon
0000    0 Bitstring    1 LGNFLAG        Command line option flag 1
          1... ....      LGNAUTO        X'80' LGNAUTO An AUTOLOG command
                                        in process
          .1.. ....      LGNNOIPL       X'40' LGNNOIPL No system IPL to
                                        be performed
          ..1. ....      LGNAPL         X'20' LGNAPL APL option specified
          ...1 ....      LGNTEXT        X'10' LGNTEXT TEXT option
                                        specified
          .... 1...      LGNQUIET       X'08' LGNQUIET QUIET option
                                        specified
          .... .1..      LGNDATA        X'04' LGNDATA Data line present
                                        with command
          .... ..1.      LGNIPL         X'02' LGNIPL IPL option specified
          .... ...1      LGNNORUN       X'01' LGNNORUN NORUN option
                                        specified
0001    1 Bitstring    1 LGNFLAG2       Command line option flag 2
          1... ....      LGNPASS        X'80' LGNPASS PASSWORD option
                                        specified
          .1.. ....      LGNPROMT       X'40' LGNPROMT PROMPT option
                                        specified
          ..1. ....      LGNDIRCT       X'20' LGNDIRCT DIRECTORY option
                                        specified
          ...1 ....      LGNHERE        X'10' LGNHERE HERE option
                                        specified
          .... 1...      LGNSYNCH       X'08' LGNSYNCH SYNCH option
                                        specified
          .... .1..      LGNMASK        X'04' LGNMASK Mask option
                                        specified
          .... ..1.      LGNSECLB       X'02' LGNSECLB SECLABEL option
                                        specified
          .... ...1      LGNMCH         X'01' LGNMCH MACHINE option
                                        specified
0002    2 Bitstring    1 LGNFLAG3       Program execution flag 1
          1... ....      LGNNOFAT       X'80' LGNNOFAT Nonfatal error -
                                        return to caller
          .1.. ....      LGNRECON       X'40' LGNRECON User to be
                                        reconnected
          ..1. ....      LGNMAXU        X'20' LGNMAXU This user is
                                        allowed to LOGON even if the
                                        maxusers limit has been exceeded.
          ...1 ....      LGNFLBK        X'10' LGNFLBK FALLBACK option
                                        specified
          .... 1...      LGNASYNC       X'08' LGNASYNC Processing
                                        Asynchronous XAUTOLOG
          .... ..1.      LGNALOGS       X'02' LGNALOGS Autolog process -
                                        first pass through
                                        (X)AUTOLOG/LOGON modules
          .... ...1      LGNDLOCK       X'01' LGNDLOCK User directory
                                        entry is locked
0003    3 Bitstring    1 LGNFLAG4       Program execution flag 2
          1... ....      LGNDFRWK       X'80' LGNDFRWK Indicates that the
                                        deferred work counter for target
                                        VMDBK of a reconnect has been
                                        incremented.
          .1.. ....      LGNDEV         X'40' LGNDEV ON option specified
          ..1. ....      LGNLDEV        X'20' LGNLDEV Logical device
                                        address supplied
          .... .1..      LGNNOCMD       X'04' LGNNOCMD Indicates this is
                                        a dummy logon from the LOGO
                                        panel.
          .... ..1.      LGNNAUDT       X'02' LGNNAUDT Indicates that
                                        LOGON/(X)AUTOLOG has gone far
                                        enough that HCPLGALF should no
                                        longer be called.
          .... ...1      LGNNOPAS       X'01' LGNNOPAS Password=NOPASS in
                                        the directory.
0004    4 Bitstring    1 LGNFLAG5       Logon work area flag 5
          1... ....      LGNAUTH        X'80' LGNAUTH User passed
                                        password(ESM) check so we need to
                                        call HCPJRLOG
          .1.. ....      LGNBADPW       X'40' LGNBADPW User fail
                                        password(ESM) check so we need to
                                        call HCPJRLPW
          ..1. ....      LGNPRMPT       X'20' LGNPRMPT Causes HCPLGALF to
                                        display logon prompt on exit.
          ...1 ....      LGNNOPMT       X'10' LGNNOPMT Do not force the
                                        user even though we should not
                                        display the logon prompt.
          .... 1...      LGNLOGBY       X'08' LGNLOGBY A BYUSER entered
                                        the LOGON command
          .... .1..      LGNADJ         X'04' LGNADJ Adjunct virtual
                                        machine logon
          .... ..1.      LGNCHGPW       X'02' LGNCHGPW CHANGE option
                                        specified
          .... ...1      LGNMACHZ       X'01' LGNMACHZ MACHINE Z
                                        specified
0005    5 Bitstring    1 LGNCMD
          00000004       LGNLOGON       X'04' LGNLOGON This is a LOGON
                                        command
          00000008       LGNAUTOL       X'08' LGNAUTOL This is an AUTOLOG
                                        command
          0000000C       LGNXAUT        X'0C' LGNXAUT This is a CLASS A
                                        or B XAUTOLOG
          00000010       LGNXAUTG       X'10' LGNXAUTG This is a CLASS G
                                        XAUTOLOG
          00000014       LGNAUTSI       X'14' LGNAUTSI This is a system
                                        initialization autolog.
          00000018       LGNAUTPR       X'18' LGNAUTPR This is a TSAF
                                        private server autolog.
          0000001C       LGNLOGOP       X'1C' LGNLOGOP This is the
                                        operator logging on system
                                        initialization.
0006    6 Bitstring    1 LGNMLVL
          1... ....      VMDMSGON       X'80' VMDMSGON CONTROLS WHETHER
                                        MESSAGES SENT BY OTHER USERS ARE
                                        DISPLAYED. (CONTROLLED BY THE SET
                                        MSG OR TERMINAL MSG COMMANDS)
          .1.. ....      VMDWNGON       X'40' VMDWNGON CONTROLS WHETHER
                                        MESSAGES SENT USING THE WARNING
                                        COMMAND ARE DISPLAYED.
                                        (CONTROLLED BY THE SET WNG OR
                                        TERMINAL WNG COMMANDS)
          ..1. ....      VMDMCODE       X'20' VMDMCODE CONTROLS ERROR
                                        MESSAGE DISPLAY OF THE ERROR
                                        MESSAGE CODE. (CONTROLLED BY THE
                                        SET EMSG OR TERMINAL EMSG
                                        COMMANDS)
          ...1 ....      VMDMTEXT       X'10' VMDMTEXT CONTROLS ERROR
                                        MESSAGE DISPLAY OF THE ERROR
                                        MESSAGE TEXT. (CONTROLLED BY THE
                                        SET EMSG OR TERMINAL EMSG
                                        COMMANDS)
          .... 1...      VMDSPMSG       X'08' VMDSPMSG CONTROLS WHETHER
                                        SPECIAL MESSAGES SENT BY OTHER
                                        USERS CAN BE RECEIVED.
                                        (CONTROLLED BY THE SET SMSG
                                        COMMAND)
          .... .1..      VMDMIMSG       X'04' VMDMIMSG CONTROLS THE
                                        DISPLAY OF SELECTED CP COMMAND
                                        INFORMATIONAL RESPONSES. IF SET
                                        THE RESPONSES ARE DISPLAYED, IF
                                        NOT THE RESPONSES WILL NOT BE
                                        DISPLAYED. (CONTROLLED BY THE SET
                                        IMSG AND TERMINAL IMSG COMMANDS)
          .... ...1      VMDMCNFG       X'01' VMDMCNFG Message level set
                                        from system configuration file
0007    7 Bitstring    1 LGNFLAG6       Additional logon flags
          1... ....      LGNE54         X'80' LGNE54 Error 54 detected
                                        prior to auth
          .1.. ....      LGNE5413       X'40' LGNE5413 Error 5413
                                        detected prior to auth
          ..1. ....      LGNE361        X'20' LGNE361 Error 361 detected
                                        prior to auth
0008    8 Character    8 LGNACNUM       Account number
0010   16 Signed       4 LGNILEN        IPL command length
0014   20 Address      4 LGNIADDR       IPL command address
0018   24 Address      4 LGNDVMD        Directory buffer address
001C   28 Address      4 LGNCDATA       Pointer to console input data.
0020   32 Signed       4 LGNCDATL       Length of console input data.
0024   36 Address      4 LGNCMDGS       COMMAND GSDBK queue address
0028   40 Dbl-Word     8 LGNKSTOR       Storage size in K
0028   40 Signed       4 LGNKSTR0       High word of LGNKSTOR
002C   44 Signed       4 LGNKSTR1       Low word of LGNLSTOR
0030   48 Character    3 LGNMACH        Machine setting (i.e. 370, etc)
0033   51 Bitstring    1 LGNDDEF        Maps to DVMDDEF
          1... ....      DVMDXSTR       X'80' DVMDXSTR EXTENDED STORAGE
                                        FACILITY ALLOWED
          .1.. ....      DVMDNOP        X'40' DVMDNOP 'NOPDATA' STATEMENT
                                        IN ENTRY
          ..1. ....      DVMDNLG        X'20' DVMDNLG VIRTUAL MACHINE'S
                                        PSWD IS NOLOG
          ...1 ....      DVMDVXC        X'10' DVMDVXC GUEST IS A VIRTUAL
                                        ESA/XC MACHINE
          .... 1...      DVMDVESA       X'08' DVMDVESA GUEST IS A VIRTUAL
                                        ESA
          .... .1..      DVMDYES        X'04' DVMDYES USER HAS AT LEAST
                                        ONE DDEV
          .... ..1.      DVMDVXA        X'02' DVMDVXA GUEST IS A VIRTUAL
                                        XA
          .... ...1      DVMDV370       X'01' DVMDV370 GUEST IS A VIRTUAL
                                        370
0034   52 Signed       4 LGNVMDBK       VMDBK address of target VMDBK for
                                        a reconnect.
0038   56 Signed       4 LGNTODON       VMDTODON of the target VMDBK for
                                        a reconnect.
003C   60 Address      4 LGNEFTID       The address of the effective
                                        userid that is causing a LGNAUTPR
                                        autolog to be done.
      This following is the paramter section for HCPRPWRD.
0040   64 Dbl-Word     8 LGNPWDPM (0)   Parameters for HCPPWDRD
0040   64 Address      4 LGNPWDIN       Address of input password area
0044   68 Address      4 LGNPWDPP       Address of the password prompt
0048   72 Bitstring    1 LGNPWLEN       Password length
      The following byte is to manage the fretting for the
      LGNBK and its related control blocks. It is zero if this
      process should not fret the LGNBK and is X'FF' if this
      process should fret the LGNBK. It is updated with TEST AND
      SET.
0049   73 Bitstring    1 LGNFRET        Fret byte
004A   74 Signed       2 LGNDEVNO       Console device number
004C   76 Character  139 LGNBUFF        Message buffer (see description
                                        on the next page)
00D7  215 Bitstring    1 *              Alignment
00D8  216 Character    5 LGNLNG         Language ID Work Area for HCPLGN
00DD  221 Bitstring    3 *              Reserved for IBM use
      The following field is used when the LGNBK is for an
      Identity and the logon process merges DVMDs.
00E0  224 Address      4 LGNDVMDS       DVMD address for Subconfig
      The following address is a pointer to the FCLBK for the
      userid that is being logged on (or 0 if there are no
      LOADDEV statements). In the case of logging on an Identity
      userid, initially this field will point to the Identity
      FCLBK or 0.  Once the appropriate Subconfig id has been
      determined and its DVMD has been read in, its associated
      FCLBK will be created and merged in with the Identity FCLBK
      stored here.
00E4  228 Address      4 LGNFCLBK       Pointer to USER, IDENTITY, or
                                        merged FCLBK (LOADDEV)
00E8  232 Dbl-Word     8 LGNACIPM (0)   Area for ACIPARMS
          0000001D       LGNBKL         (*-LGNBK+7)/8 Size of LGNBK in
                                        doublewords
      LGNBUFF  - Buffer/work area for constructing message
                 substitution data.
      The first field in this area (MSGPDUID) contains the
      userid padded with blanks (if necessary) of the user
      being logged on.  This field is constructed from the
      userid on the command line and is preserved throughout
      the process of logging on the user.  It is used for a
      couple of purposes.  First, it is used as input to all
      routines requiring a userid (such as HCPUDR).  Second,
      it is used as substitution data for the "tag" placed on
      messages issued for the asynchronous XAUTOLOG command.
      For this reason, it is immediately followed by a delimiter
      (initially set to X'FF').
      Immediately following MSGPDUID and its delimiter
      (MSGPUDLM), all other substitution data for "tagged" and
      untagged messages are constructed.  This area is labelled
      MSGSUB.  The first field (that is always constructed at
      the same time as MSGPDUID) is MSGUID, which contains the
      userid with trailing blanks removed.  It is delimited with
      X'FF'.  This the most common substitution data in messages
      issued by these modules.  This field should not be
      overlaid when issueing non-fatal messages because it may
      be required by a subsequent fatal error message.
      For fatal error messages having substitution data other
      than the userid, the substitution data should be
      constructed starting at label MSGSUB (overlaying the
      userid).  This area may be redefined in a particular
      module for various messages to be issued by the module.
      This is done in the module by placing the local definitions
      following this mapping and using an ORG MSGSUB in front
      of the definition(s) for each message.
      For non-fatal (informational) messages, MSGUID should not
      be overlaid.  In these cases, start building the
      substitution data at label MSGODATA.
      Use of the message buffer area:
       - For "tagged" asynchronous XAUTOLOG messages with no
         substitution data other than in the tag, point R1 to
         the field MSGPDUID.
       - For "tagged" asynchronous XAUTOLOG messages with
         substitution data in the basic message text, change
         the delimiter MSGPUDLM to X'00' and point R1 to the
         field MSGPDUID.
       - For untagged error messages with substitution data,
         point R1 to the field MSGSUB.
       - For informational (non-fatal) messages with substitution
         data, point R1 to the field MSGODATA.
004C   76 Character    8 LGNPDUID       Padded userid
0054   84 Character    1 LGNPUDLM       Userid delimiter
0055   85 Character    1 LGNSUB (0)     Message substitution fields
0055   85 Character    8 LGNUID         Non-padded userid for messages
005D   93 Character    1 LGNUIDLM       Userid delimiter
005E   94 Character    1 LGNODATA (0)   Other substitution data
      Some overlays used by different messages.
0055   85 Character    8 LGNLUNAM       LUNAME
005D   93 Character    1 LGNLUEND       Message substitution end
                                        delimiter
0055   85 Character    5 LGNDVADR       Device address
005A   90 Character    1 LGNDVEND       Message substitution end
                                        delimiter
0055   85 Character    8 LGNSYSNM       "Other" system name
005D   93 Character    1 LGNSYSND       Message substitution end
                                        delimiter Substitutions unique to
                                        message 1513
0055   85 Character    4 LGN13DNA       Device name
0059   89 Character    1 LGN13DL1       Substitution delimiter
005A   90 Character    5 LGN13DNU       Device number
005F   95 Character    1 LGN13END       Message substitution end
                                        delimiter
      Here are some constants used by logon.
          .... .1..      LGNLIMIT       X'04' Number of LOGON cmds before
                                        a skeleton is forced.
          .... ...1      LGNPWLMT       X'01' Number of times to prompt
                                        for a password.

          
*** LGNBK - LOGON work buffer
*
*     +------+------+------+------+------+------+------+------+
*   0 |:FLAG |:FLAG2|:FLAG3|:FLAG4|:FLAG5|LGNCMD|:MLVL |:FLAG6|
*     +------+------+------+------+------+------+------+------+
*   8 |                       LGNACNUM                        |
*     +---------------------------+---------------------------+
*  10 |         LGNILEN           |         LGNIADDR          |
*     +---------------------------+---------------------------+
*  18 |         LGNDVMD           |         LGNCDATA          |
*     +---------------------------+---------------------------+
*  20 |         LGNCDATL          |         LGNCMDGS          |
*     +---------------------------+---------------------------+
*  28 |                       LGNKSTOR                        |
*     +-------------------------------------------------------+
*  30
*
*** LGNBK - LOGON work buffer
          
*** Overlay for LGNKSTOR in LGNBK
*
*     +---------------------------+---------------------------+
*  28 |         LGNKSTR0          |         LGNKSTR1          |
*     +--------------------+------+---------------------------+
*  30 |      LGNMACH       |:DDEF |         LGNVMDBK          |
*     +--------------------+------+---------------------------+
*  38 |         LGNTODON          |         LGNEFTID          |
*     +---------------------------+---------------------------+
*  40 |         LGNPWDIN          |         LGNPWDPP          |
*     +------+------+-------------+---------------------------+
*  48 |:PWLEN|:FRET |  LGNDEVNO   |                           |
*     +------+------+-------------+                           |
*  50 |                                                       |
*     =                       LGNBUFF                         =
*     |                                                +------+
*  D0 |                                                |//////|
*     +----------------------------------+-------------+------+
*  D8 |             LGNLNG               |////////////////////|
*     +---------------------------+------+--------------------+
*  E0 |         LGNDVMDS          |         LGNFCLBK          |
*     +---------------------------+---------------------------+
*
*** Overlay for LGNKSTOR in LGNBK
          
*** Overlay for LGNBUFF in LGNBK
*
*                                 +---------------------------+
*     ...                      4C |        LGNPDUID-          |
*     +---------------------------+------+--------------------+
*  50 |          -(04C)           |:PUDLM|      (055)-        |
*     +---------------------------+------+------+-------------+
*  58 |             -LGNUID              |:UIDLM|
*     +----------------------------------+------+
*
*** Overlay for LGNBUFF in LGNBK
          
*** Overlay for LGNSUB in LGNBK
*
*                                        +--------------------+
*     ...                             55 |      (055)-        |
*     +----------------------------------+------+-------------+
*  58 |            -LGNLUNAM             |:LUEND| 5E
*     +----------------------------------+------+
*
*** Overlay for LGNSUB in LGNBK
          
*** Overlay for LGNSUB in LGNBK
*
*                                        +--------------------+
*     ...                             55 |     LGNDVADR-      |
*     +-------------+------+-------------+--------------------+
*  58 |   -(055)    |:DVEND| 5B
*     +-------------+------+
*
*** Overlay for LGNSUB in LGNBK
          
*** Overlay for LGNSUB in LGNBK
*
*                                        +--------------------+
*     ...                             55 |      (055)-        |
*     +----------------------------------+------+-------------+
*  58 |            -LGNSYSNM             |:SYSND| 5E
*     +----------------------------------+------+
*
*** Overlay for LGNSUB in LGNBK
          
*** Overlay for LGNSUB in LGNBK
*
*                                        +--------------------+
*     ...                             55 |     LGN13DNA-      |
*     +------+------+--------------------+-------------+------+
*  58 |-(055)|:13DL1|            LGN13DNU              |:13END|
*     +------+------+----------------------------------+------+
*  60
*
*** Overlay for LGNSUB in LGNBK

 
Symbol         Dspl Value
-------------- ---- -----
DVMDNLG        0033 20
DVMDNOP        0033 40
DVMDVESA       0033 08
DVMDVXA        0033 02
DVMDVXC        0033 10
DVMDV370       0033 01
DVMDXSTR       0033 80
DVMDYES        0033 04
LGNACIPM       00E8
LGNACNUM       0008
LGNADJ         0004 04
LGNALOGS       0002 02
LGNAPL         0000 20
LGNASYNC       0002 08
LGNAUTH        0004 80
LGNAUTO        0000 80
LGNAUTOL       0005 00000008
LGNAUTPR       0005 00000018
LGNAUTSI       0005 00000014
LGNBADPW       0004 40
LGNBKL         00E8 0000001D
LGNBUFF        004C
LGNCDATA       001C
LGNCDATL       0020
LGNCHGPW       0004 02
LGNCMD         0005
LGNCMDGS       0024
LGNDATA        0000 04
LGNDDEF        0033
LGNDEV         0003 40
LGNDEVNO       004A
LGNDFRWK       0003 80
LGNDIRCT       0001 20
LGNDLOCK       0002 01
LGNDVADR       0055
LGNDVEND       005A
LGNDVMD        0018
LGNDVMDS       00E0
LGNEFTID       003C
LGNE361        0007 20
LGNE54         0007 80
LGNE5413       0007 40
LGNFCLBK       00E4
LGNFLAG        0000
LGNFLAG2       0001
LGNFLAG3       0002
LGNFLAG4       0003
LGNFLAG5       0004
LGNFLAG6       0007
LGNFLBK        0002 10
LGNFLGS        0000
LGNFRET        0049
LGNHERE        0001 10
LGNIADDR       0014
LGNILEN        0010
LGNIPL         0000 02
LGNKSTOR       0028
LGNKSTR0       0028
LGNKSTR1       002C
LGNLDEV        0003 20
LGNLIMIT       005F 04
LGNLNG         00D8
LGNLOGBY       0004 08
LGNLOGON       0005 00000004
LGNLOGOP       0005 0000001C
LGNLUEND       005D
LGNLUNAM       0055
LGNMACH        0030
LGNMACHZ       0004 01
LGNMASK        0001 04
LGNMAXU        0002 20
LGNMCH         0001 01
LGNMLVL        0006
LGNNAUDT       0003 02
LGNNOCMD       0003 04
LGNNOFAT       0002 80
LGNNOIPL       0000 40
LGNNOPAS       0003 01
LGNNOPMT       0004 10
LGNNORUN       0000 01
LGNODATA       005E
LGNPASS        0001 80
LGNPDUID       004C
LGNPRMPT       0004 20
LGNPROMT       0001 40
LGNPUDLM       0054
LGNPWDIN       0040
LGNPWDPM       0040
LGNPWDPP       0044
LGNPWLEN       0048
LGNPWLMT       005F 01
LGNQUIET       0000 08
LGNRECON       0002 40
LGNSECLB       0001 02
LGNSUB         0055
LGNSYNCH       0001 08
LGNSYSND       005D
LGNSYSNM       0055
LGNTEXT        0000 10
LGNTODON       0038
LGNUID         0055
LGNUIDLM       005D
LGNVMDBK       0034
LGNXAUT        0005 0000000C
LGNXAUTG       0005 00000010
LGN13DL1       0059
LGN13DNA       0055
LGN13DNU       005A
LGN13END       005F
VMDMCNFG       0006 01
VMDMCODE       0006 20
VMDMIMSG       0006 04
VMDMSGON       0006 80
VMDMTEXT       0006 10
VMDSPMSG       0006 08
VMDWNGON       0006 40