COMKRRD 
COMMON
          CTEXT  COMKRRD - RECOVERY REQUEST DEFINITIONS.
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 RRD      SPACE  4,10 
***       RRD - RECOVERY REQUEST DEFINITIONS. 
*         G. W. PROPP.  80/04/15. 
 RRD      SPACE  4,10 
***       *COMKRRD* GIVES THE FUNCTION CODES, AND PARAMETER 
*         FORMATS FOR *REC* RA+1 REQUESTS FOR *TAF* RECOVERY. 
*         THIS DECK REQUIRES *COMKFLD*. 
 TREC     SPACE  4,10 
**        TREC - TABLE OF *REC* RA+1 FUNCTIONS CODES. 
  
 TREC     BSS    0           TABLE OF *REC* FUNCTION CODES
          LOC    0
 RFCA     BSS    1           *CALLTRN*
 RFRE     BSS    1           *RERUN*
 RFRG     BSS    1           *RGET* 
 RFRP     BSS    1           *RPUT* 
 RFRS     BSS    1           *RSECURE*
 RFSE     BSS    1           *SECURE* 
 RFSR     BSS    1           *SRERUN* 
 RFTI     BSS    1           *TINVOKE*
          LOC    *O 
 TRECL    EQU    *-TREC      LENGTH OF TABLE
 TSEP     SPACE  4,10 
**        TSEP - TABLE OF *SECURE/RESCURE* PARAMETERS.
  
 TSEP     BSS    0
          LOC    0
 SEMA     BSS    1           FWA OF MESSAGE 
 SEST     BSS    1           FWA OF STATUS
 SEML     BSS    1           FWA OF MESSAGE LENGTH
 SEMU     BSS    1           FWA OF MESSAGE UNITS 
 SEFE     BSS    1           FWA OF FORMAT EFFECTOR 
 SETM     BSS    1           FWA OF TRANSPARENT MODE
          LOC    *O 
 TSEPL    EQU    *-TSEP      MAXIMUM NUMBER OF PARAMETERS 
 TSERL    EQU    SEML+1-SEMA REQUIRED PARAMETERS FOR *SECURE* 
 TRSEL    EQU    SETM+1-SEMA REQUIRED PARAMETERS FOR *RSECURE*
  
 TRRG     SPACE  4,10 
  
 TRGP     SPACE  4,10 
**        TRGP - TABLE OF *RGET/RPUT* PARAMETERS. 
  
 TRGP     BSS    0
          LOC    0
 RGMA     BSS    1           FWA OF MESSAGE 
 RGIN     BSS    1           FWA OF INDEX 
 RGST     BSS    1           FWA OF STATUS
 RGML     BSS    1           FWA OF MESSAGE LENGTH
 RGMU     BSS    1           FWA OF MESSAGE UNITS 
          LOC    *O 
 TRGPL    EQU    *-TRGP      MAXIMUM NUMBER OF PARAMETERS 
 TRGRL    EQU    RGML+1-RGMA REQUIRED NUMBER OF  PARAMETERS 
TREP      SPACE  4,10 
**        TREP - TABLE OF *RERUN* PARAMETERS. 
  
 TREP     BSS    0
          LOC    0
 REST     BSS    1           FWA OF STATUS
          LOC    *O 
 TREPL    EQU    *-TREP      MAXIMUM NUMBER OF PARAMETERS 
 TRERL    EQU    REST+1-REST REQUIRED NUMBER OF PARAMETERS
 TRTP     SPACE  4,10 
**        TABLE OF *SRERUN* PARAMETERS. 
  
 TSRP     BSS    0
          LOC    0
 SRST     BSS    1           FWA OF STATUS
 SRUS     BSS    1           FWA OF USERNAME
          LOC    *O 
 TSRPL    EQU    *-TSRP      MAXIMUM NUMBER OF PARAMETERS 
 TSRRL    EQU    SRUS+1-SRUS REQUIRED NUMBER OF PARAMETERS
 TTIP     SPACE  4,10 
**        TTIP - TABLE OF *TINVOKE* PARAMETERS. 
  
 TTIP     BSS    0
          LOC    0
 TIST     BSS    1           FWA OF STATUS
 TINI     BSS    1           FWA OF NEW IDENTIFIER
 TIOI     BSS    1           FWA OF OLD IDENTIFIER
          LOC    *O 
 TTIPL    EQU    *-TTIP      MAXIMUM NUMBER OF PARAMETERS 
 TTIRL    EQU    TIST+1-TIST REQUIRED NUMBER OF PARAMETERS
  
          BASE   *
          ENDX
  
