*COMDECK COMDFRD
#     COMDFRD - DEFINES DIRECTIVE FILE READ ITEMS.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
**    COMDFRD - DEFINES DIRECTIVE FILE READ ITEMS.
* 
*     COMDFRD CONTAINS THE DECLARATIONS NEEDED TO READ THE DIRECTIVE
*     FILE. 
# 
  
# 
*     DEFINITIONS.
# 
  
      DEF INTDIRFILE #"ZZZZZIN"#;  # INTERACTIVE DIRECTIVE FILE # 
  
  
      COMMON COMDFRD; 
  
      BEGIN  # COMDFRD COMMON AREA #
  
      ITEM FSTCALL    B;           # FIRST CALL TO DFREAD # 
      ITEM FIRST      B;           # FIRST DIRECTIVE READ FLAG #
      ITEM INT        B;           # INTERACTIVE FLAG # 
      ITEM EOF        B;           # END-OF-FILE FLAG # 
      ITEM DIRREQ     B;           # DIRECTIVES REQUIRED FLAG # 
      ITEM DUM        I;           # DUMMY PARAMETER #
      ITEM ONE        I = 1;       # CONSTANT ONE # 
      ITEM PROMPT     C(1);        # PC PROMPT CHARACTER #
      ITEM I          C(7);        # INPUT LFN #
      ITEM PC         C(7);        # PREFIX CHARACTER # 
      ITEM PNAME      C(7);        # CALLING PROGRAM NAME # 
      ITEM NXT        I = O"10";   # READ NEXT CONTROL STATEMENT #
      ITEM BKSP       I = O"40";   # BACKSPACE CONTROL STATEMENT #
  
# 
*     RA AREA.
# 
      BASED ARRAY RA$ZERO   S(110); 
        BEGIN 
        ITEM RA$JOT     I(54,24,12); # JOB ORIGIN # 
        ITEM RA$CSFC    C(56,00,01); # FIRST CHAR OF CONTROL STATEMENT #
        ITEM RA$CSLW    U(64,00,60);  # LAST WORD+1 OF C.S. # 
        END 
  
      ARRAY NORDFD [0:0]  S(4); 
        BEGIN 
        ITEM WORD1      C(00,00,38) = 
          ["         - NO REMOTE DIRECTIVES FOUND."]; 
        ITEM ZEROBYT    I(03,48,12) = [0];
        END 
  
      ARRAY DFET       S(6);       # FET FOR DIRECTIVE FILE READ #
        BEGIN 
        ITEM DFETNAME   C(00,00,07);
        ITEM DFETCODES  U(00,42,18) = [1];
        ITEM DFETLEVEL  U(00,42,04);
        ITEM DFETERRCD  U(00,46,05);
        ITEM DFETCDSTAT U(00,51,09);
        ITEM DFETWD1    I(01,00,60);
        ITEM DFETLNGTH  I(01,36,06) = [1];
        ITEM DFETFIRST  I(01,42,18);
        ITEM DFETIN     I(02,00,60);
        ITEM DFETOUT    I(03,00,60);
        ITEM DFETWD4    I(04,00,60) = [0];
        ITEM DFETLIMIT  I(04,42,18);
        ITEM DFETWD5    I(05,00,60) = [0];
        END 
  
      ARRAY OUFET      S(6);       # FET FOR WRITING TO TERMINAL #
        BEGIN 
        ITEM OUFETZZZOU C(00,00,07) = ["ZZZZZOU"];
        ITEM OUFETCODES U(00,42,18) = [1];
        ITEM OUFETLEVEL U(00,42,04);
        ITEM OUFETERRCD U(00,46,05);
        ITEM OUFETCDSTA U(00,51,09);
        ITEM OUFETWD1   I(01,00,60);
        ITEM OUFETLNGTH I(01,36,06) = [1];
        ITEM OUFETFIRST I(01,42,18);
        ITEM OUFETIN    I(02,00,60);
        ITEM OUFETOUT   I(03,00,60);
        ITEM OUFETWD4   I(04,00,60) = [0];
        ITEM OUFETLIMIT I(04,42,18);
        ITEM OUFETWD5   I(05,00,60) = [0];
        END 
  
      ITEM BUFLGTH    I = 65; 
  
      ARRAY CIOBUF     S(65);      # CIO BUFFER # 
        BEGIN 
        ITEM CIOWORD    C(00,00,10);
        END 
  
      ARRAY CIOOUT     S(65);      # CIO BUFFER # 
        BEGIN 
        ITEM CIOWRD     C(00,00,10);
        END 
  
      END  # COMDFRD COMMON AREA #
  
                                               CONTROL LIST;
