NAME       : HCPLSRBK
 DESCRIPTION: LOCAL SYSTEM REQUEST BLOCK
 DSECT      : LSRBK
 FUNCTION   : CONTAINS INFORMATION RELATED TO THE LOCAL SYSTEM
              INFORMATION REQUEST THAT TSAF SENDS TO CP ON THE
              *CRM PATH
 LOCATED BY : REGISTER IN HCPCRMIL/HCPIUQLS
 CREATED BY : HCPCRMIL
 DELETED BY : HCPIUQLS
 RELOCATION CONSIDERATIONS : None

 LSRBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      LSRBK          LOCAL SYSTEM REQUEST BLOCK
0000    0 Signed       4 LSRMSGID       IUCV MSGID OF THIS REQUEST
0004    4 Signed       2 LSRPATH        IUCV PATHID OF THIS REQUEST
0006    6 Bitstring    1 LSRPSWDL       ENCRYPTED PASSWORD LENGTH
0007    7 Bitstring    1 LSRLFLAG       LOCAL FLAG BYTE
          1... ....      LSRCF          X'80' LSRCF CF initiated the
                                        locate request **** THE VALUE OF
                                        IPSIZE*8 FOR DATAMAP IS 40
0008    8 Bitstring   40 LSRPARML       IUCV PARAMETER LIST
0030   48 Bitstring   40 LSRREPLY (0)   AREA FOR REPLY DATA
0030   48 Character    8 LSRTUSER       TARGET USERID
0038   56 Bitstring    1 LSRFCODE       FUNCTION CODE
          .... .1.1      LSRLSR         X'05' LSRLSR LOCAL SYSTEM
                                        REQUEST/RESPONSE
0039   57 Bitstring    1 LSRRCODE       RESPONSE CODE
003A   58 Bitstring    1 LSRFTYPE       FUNCTION TYPE
          .... ....      LSRDSR         X'00' LSRDSR DIRECTORY REQUEST
003B   59 Bitstring    1 LSRFFLAG       LOCAL FUNCTIONS REQUESTED
          1... ....      LSRLANYT       X'80' LSRLANYT LOCATE ANY TARGET
          .1.. ....      LSRLAUTH       X'40' LSRLAUTH LOCATE AUTHORIZED
                                        TARGET
          ..1. ....      LSRVERFY       X'20' LSRVERFY VERIFY ACCESS
                                        INFORMATION
          ...1 ....      LSRAUTO        X'10' LSRAUTO AUTOLOG TARGET
          .... 1...      LSRJRNL        X'08' LSRJRNL JOURNAL INVALID
                                        ACCESS REQUEST
003C   60 Bitstring    1 LSRRESLT       LOCAL RESULTS
          1... ....      LSRLOGON       X'80' LSRLOGON TARGET USER ID
                                        LOGON THIS SYSTEM
          .1.. ....      LSRINDIR       X'40' LSRINDIR TARGET USER ID IN
                                        LOCAL DIRECTORY
          ..1. ....      LSRVERIF       X'20' LSRVERIF ACCESS USER
                                        ID/PASSWORD IS OK
003D   61 Bitstring    1 LSRTFAIL       TARGET FAILURE CODE
003E   62 Bitstring    1 LSRAFAIL       ACCESS FAILURE CODE
          .... ....      LSROK          0 LSROK SUCCESS
          .... ...1      LSRBDRCT       1 LSRBDRCT BAD DIRECTORY
          .... ..1.      LSRBDUSR       2 LSRBDUSR BAD USER ID
          .... ..11      LSRBDPSW       3 LSRBDPSW BAD PASSWORD VALUE
          .... ..11      LSRAUTOF       3 LSRAUTOF AUTOLOG FAILED
003F   63 Bitstring    1 *              RESERVED
0040   64 Character    8 LSRAUSER       ACCESS USERID
0048   72 Character    8 LSRAPSWD       ACCESS PASSWORD
0050   80 Character    8 LSRSUSER       SOURCE USERID
          0000001C       LSRCLRLN       *-LSRRESLT LENGTH OF REPLY AREA
                                        TO CLEAR
          00000028       LSRREPSZ       *-LSRREPLY NUMBER OF BYTES OF
                                        REPLY DATA
          0000000B       LSRSIZE        (*-LSRBK+7)/8 SIZE OF LSRBK IN
                                        DOUBLEWORDS

          
*** LSRBK - LOCAL SYSTEM REQUEST BLOCK
*
*     +---------------------------+-------------+------+------+
*   0 |         LSRMSGID          |  LSRPATH    |:PSWDL|:LFLAG|
*     +---------------------------+-------------+------+------+
*   8 |                                                       |
*     =                       LSRPARML                        =
*     |                                                       |
*     +-------------------------------------------------------+
*  30 |                       LSRTUSER                        |
*     +------+------+------+------+------+------+------+------+
*  38 |:FCODE|:RCODE|:FTYPE|:FFLAG|:RESLT|:TFAIL|:AFAIL|//////|
*     +------+------+------+------+------+------+------+------+
*  40 |                       LSRAUSER                        |
*     +-------------------------------------------------------+
*  48 |                       LSRAPSWD                        |
*     +-------------------------------------------------------+
*  50 |                       LSRSUSER                        |
*     +-------------------------------------------------------+
*  58
*
*** LSRBK - LOCAL SYSTEM REQUEST BLOCK

 
Symbol         Dspl Value
-------------- ---- -----
LSRAFAIL       003E
LSRAPSWD       0048
LSRAUSER       0040
LSRAUTO        003B 10
LSRAUTOF       003E 03
LSRBDPSW       003E 03
LSRBDRCT       003E 01
LSRBDUSR       003E 02
LSRCF          0007 80
LSRCLRLN       0050 0000001C
LSRDSR         003A 00
LSRFCODE       0038
LSRFFLAG       003B
LSRFTYPE       003A
LSRINDIR       003C 40
LSRJRNL        003B 08
LSRLANYT       003B 80
LSRLAUTH       003B 40
LSRLFLAG       0007
LSRLOGON       003C 80
LSRLSR         0038 05
LSRMSGID       0000
LSROK          003E 00
LSRPARML       0008
LSRPATH        0004
LSRPSWDL       0006
LSRRCODE       0039
LSRREPLY       0030
LSRREPSZ       0050 00000028
LSRRESLT       003C
LSRSIZE        0050 0000000B
LSRSUSER       0050
LSRTFAIL       003D
LSRTUSER       0030
LSRVERFY       003B 20
LSRVERIF       003C 20