NAME       : PROP
 DESCRIPTION: PROP ROUTING TABLE ENTRY
 DSECT      : RTDSECT
 FUNCTION   : RTDSECT IS USED AS A TEMPLATE TO
              DESCRIBE AN ENTRY IN THE PROP INTERNAL ROUTING
              TABLE 02390000

 RTDSECT DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      RTDSECT        PROP ROUTING TABLE ENTRY
             RTDSECT      : ROUTING TABLE ENTRY
             RTDSECT IS USED AS A TEMPLATE TO DESCRIBE AN ENTRY IN
             THE PROP INTERNAL ROUTING TABLE
0000    0 Character   40 RTEXT          MESSAGE COMPARISON TEXT
0028   40 Character    8 RUSER          AUTHORIZED USER'S ID
0030   48 Character    8 RNODE          AUTHORIZED USER'S NODE
0038   56 Character    8 RACTION        NAME OF ACTION ROUTINE
0038   56 Address      4 RACTIONB       ADDR OF INTERNAL ACTION ROUTINE
003C   60 Bitstring    4 *              RESERVED
0040   64 Character    8 RACTPARM       PARAMETER TO ACTION ROUTINE
0048   72 Signed       2 RSTRCOL        STARTING COLUMN FOR MESSAGE SCAN
004A   74 Signed       2 RENDCOL        ENDING COLUMN FOR MESSAGE SCAN
004C   76 Bitstring    1 RTYPE          V*1 IUCV MESSAGE TYPE
004D   77 Bitstring    1 RNBRSUB        V*2 NUMBER OF TEXT SUBFIELDS
004E   78 Bitstring    1 RACTFLAG       V*3 ACTION ROUTINE FLAGS
          1... ....      RACTBAL        X'80' RACTBAL BALR TO ADDRESS IN
                                        RACTION FIELD
          .1.. ....      RACTEXEC       X'40' RACTEXEC THIS ACTION
                                        ROUTINE IS AN EXEC
004F   79 Bitstring    1 *              RESERVED
          00000050       ROUTLEN        *-RTDSECT LENGTH OF A ROUTING
                                        TABLE ENTRY

          
*** RTDSECT - PROP ROUTING TABLE ENTRY
*
*     +-------------------------------------------------------+
*   0 |                                                       |
*     =                        RTEXT                          =
*     |                                                       |
*     +-------------------------------------------------------+
*  28 |                        RUSER                          |
*     +-------------------------------------------------------+
*  30 |                        RNODE                          |
*     +-------------------------------------------------------+
*  38 |                       RACTION                         |
*     +-------------------------------------------------------+
*  40
*
*** RTDSECT - PROP ROUTING TABLE ENTRY
          
*** Overlay for RACTION in RTDSECT
*
*     +---------------------------+---------------------------+
*  38 |         RACTIONB          |///////////////////////////|
*     +---------------------------+---------------------------+
*  40 |                       RACTPARM                        |
*     +-------------+-------------+------+------+------+------+
*  48 |  RSTRCOL    |  RENDCOL    |RTYPE |:RSUB |:TFLAG|//////|
*     +-------------+-------------+------+------+------+------+
*  50
*
*** Overlay for RACTION in RTDSECT

 
Symbol         Dspl Value
-------------- ---- -----
RACTBAL        004E 80
RACTEXEC       004E 40
RACTFLAG       004E
RACTION        0038
RACTIONB       0038
RACTPARM       0040
RENDCOL        004A
RNBRSUB        004D
RNODE          0030
ROUTLEN        004F 00000050
RSTRCOL        0048
RTEXT          0000
RTYPE          004C
RUSER          0028