*DECK TDFLDEF 
      PROC TDFLDEF; 
      BEGIN 
      CONTROL STEXT;
      XREF ARRAY DFLAG[0:0];   #HOLDS INFO TYPED IN BY -D=N- PARAMETER #
        BEGIN                  # ON -QU- CARD # 
        ITEM DFLAGWORD I(0,0,60);  # USED ONLY BY INITIAL TO SET THE   #
                                   # VALUE OF -DFLAG-                  #
        ITEM DFLAG00 B(0,59,1);    # IF SET, DON-T CALL -RPV-          #
        ITEM DFLAG01 B(0,58,1);    # IF SET, DON-T LOAD IN (5,0) AT END#
        ITEM DFLAG02 B(0,57,1);    # IF SET THEN LOAD IDP              #
        ITEM DFLAG03 B(0,56,1);    # IF SET, THEN *MAP,FULL* FOR DBPS  #
        END 
      END 
      TERM
