RPD - DL/I General purpose macro

       CONTROL BLOCK NAME = DFHRPD
       DESCRIPTIVE NAME = CICS TS CICS DL/I General Purpose Macro
            Licensed Materials - Property of IBM
             Restricted Materials of IBM 
            5655-Y04
            (C) Copyright IBM Corp. 1986, 2012 
       FUNCTION =
            Provide the remote PDIR entry.
       NOTES :
        DEPENDENCIES = S/390
        RESTRICTIONS = NONE
        MODULE TYPE = EXECUTABLE
      ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 28 DFHRPD
(0) HALFWORD 2 RPDLTH Length of RPDIR Entry
(0) CHARACTER 1 RPDIREND Stop Byte (FF after last entry)
(2) CHARACTER 1 RPDFLG1 Flag Byte 1
(3) CHARACTER 1 RPDFLG2 Flag Byte 2
(4) CHARACTER 8 RPDNAME PSB name on this system
(C) CHARACTER 8 RPDRNAME PSB name on remote system
(14) CHARACTER 4 RPDRSYS Remote system name
(18) FULLWORD 4 RPDMXSSA Max SSA Size