DELETE DTR_FUNCTION_INFO_REC;
REDEFINE RECORD DTR_FUNCTION_INFO_REC USING
01 FUNCTION.
   03  DTR_FUNCTION_NAME           PIC X(31).
   03  FUNCTION_DESCRIPTION        PIC X(60).
   03  EXT_FUNCTION_NAME           PIC X(31).
   03  OUT_ARG_TYPE       PIC X(6) VALID IF (OUT_ARG_TYPE IN FUN_TYPE_TABLE).
   03  OUT_ARG_DTYPE      BYTE.
   03  OUT_ARG_DESCRIPTION PIC X(60).
   03  EDIT_STR       PIC X(31) MISSING VALUE " " QUERY_HEADER IS "EDIT STRING".
   03  QUERY_HDR      PIC X(80) QUERY_NAME HDR MISSING VALUE " "
			QUERY_HEADER IS "QUERY HEADER".
   03  NOVALUE        PIC X VALID IF NOVALUE EQ "Y","N" MISSING VALUE "N".
   03  NO_OPTIMIZE    PIC X VALID IF NOVALUE EQ "Y","N" MISSING VALUE "N".
   03  IN_COUNT       BYTE.
;

DELETE DTR_FUNCTION_INPUTS_REC;
REDEFINE RECORD DTR_FUNCTION_INPUTS_REC USING
01 INPUTS.
	03 DTR_FUNCTION_NAME 	PIC X(31).
  	03 IN_ARG_TYPE    PIC X(5) VALID IF (IN_ARG_TYPE IN FUN_TYPE_TABLE).
  	03 IN_ARG_DESCRIPTION 	PIC X(60).
  	03 IN_ARG_DTYPE   	BYTE.
  	03 ORDER      		BYTE.
	03 FUNCTION_ARG_ORDER 	BYTE.
  	03 OUT_PUT    PIC X VALID IF OUT_PUT EQ "Y","N" MISSING VALUE "N".
  	03 ALL_LEN    		WORD.
;

DELETE DTR_FUNCTION_REC;
REDEFINE RECORD DTR_FUNCTION_REC USING
01 FUNCTION.
   03  DTR_FUNCTION_NAME           PIC X(31).
   03  FUNCTION_DESCRIPTION        PIC X(60).
   03  EXT_FUNCTION_NAME           PIC X(31).
   03  OUT_ARG_TYPE       PIC X(6) VALID IF (OUT_ARG_TYPE IN FUN_TYPE_TABLE).
   03  OUT_ARG_DTYPE      BYTE.
   03  OUT_ARG_DESCRIPTION PIC X(60).
   03  EDIT_STR       PIC X(31) MISSING VALUE " " QUERY_HEADER IS "EDIT STRING".
   03  QUERY_HDR      PIC X(80) QUERY_NAME HDR MISSING VALUE " "
			QUERY_HEADER IS "QUERY HEADER".
   03  NOVALUE        PIC X VALID IF NOVALUE EQ "Y","N" MISSING VALUE "N".
   03  NO_OPTIMIZE    PIC X VALID IF NOVALUE EQ "Y","N" MISSING VALUE "N".
   03  IN_COUNT       BYTE VALID IF IN_COUNT BT 0 AND 15.
   03  IN_ARGS  OCCURS 0 TO 15 TIMES DEPENDING ON IN_COUNT QUERY_NAME ARGS.
       05  IN_ARG_TYPE    PIC X(5) VALID IF (IN_ARG_TYPE IN FUN_TYPE_TABLE).
       05  IN_ARG_DESCRIPTION PIC X(60).
       05  IN_ARG_DTYPE   BYTE.
       05  ORDER      BYTE.
       05  OUT_PUT    PIC X VALID IF OUT_PUT EQ "Y","N" MISSING VALUE "N".
       05  ALL_LEN    WORD.
;

DELETE DTYP_REC;
REDEFINE RECORD DTYP_REC
01 DTYPE.
   03 VALUE     PIC 99.
   03 NAME      PIC X(4).
   03 DESC      PIC X(60).
;