*---------------------------------------------------------------------*
*                DSECT for Routing Data Area                          *
*---------------------------------------------------------------------*
RTDATA   DSECT                    DSECT to Describe Routing Data
RTDAMAJK DS    CL8                Major Route Key                      X
                                  JES -  Class of Output               X
                                  VTAM - LU Name
RTDAMINK DS    CL8                Minor Route Key                      X
                                  JES -  Destination of Output         X
                                  VTAM - nonblank
RTDASREX DS    CL8                Name of specific routing exit
RTDAIREX DS    CL8                Name of input record exit
RTDARTRS DS    F                  Success retain time in YDDDHHMM
RTDARTRU DS    F                  Failure retain time in YDDDHHMM
RTDARTRR DS    F                  Retry time in YDDDHHMM
RTDADEST DS    H                  Number of destinations               X
                                  One destination = normal routing
RTDARTRL DS    H                  Number of Retry Attempts
RTDATYPE DS    CL1                Route Type
RTDATYPN EQU   C'N'               Normal Routing
RTDATYPS EQU   C'S'               Specific Broadcast
RTRECTYP DS    CL3                Record type for print file
RTFUNCTN DS    CL8                The function in progress
RTLRECL  DS    F                  Logical record length for print file
RTBLKSZ  DS    F                  Block size for print file
RTBUFSZ  DS    F                  Size of I/O buffer
RTDAOPTN DS    CL16               Name of options record for this route
RTDAOPTL DS    H                  Length of the options data
RTDAOPTD DS    CL256              Options data for this route
RTDANAMS DS    0H                 Beginning of names
RTDADESD DSECT                    DSECT for names - This DSECT will be X
                                  repeated for each destination        X
                                  supported in this route = RTDADEST
RTDANAML DS    H                  Length of internet name for this     X
                                  destination
RTDAPRTL DS    H                  Length of printer name for this      X
                                  destination
RTDAINAM DS    CL256              Internet name for this destination
RTDAPNAM DS    CL256              Printer name for this destination
RTDADESE EQU   *
RTDADESL EQU   RTDADESE-RTDADESD