COMXMFD 
COMMON
  
#     COMXMFD - MOVE COMMUNICATION FILE DATA.                         # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXMFD #
  
# 
***   COMXMFD - MOVE COMMUNICATION FILE DATA. 
* 
*     COMXMFD CONTAINS THE DATA AREAS USED BY SSEXEC TO PROCESS THE 
*     MOVE COMMUNICATION FILE (*MOVCOM*) CREATED BY THE *SSMOVE*
*     UTILITY.
# 
  
  
      DEF MCFBUFL    #O"101"#;       # *MVOCOM* BUFFER LENGTH # 
      DEF SCCBL      #O"217"#;       # (SFETL + MCFBUFL * 2 + 1) #
  
  
# 
*     MOVE REQUEST FILE MESSAGE SKELETONS.
# 
  
      DEF MCFATTERR  #" UNABLE TO ATTACH MRF,    FM=XXXXXXX."#; 
      DEF MCFPCOMP   #" MRF PROCESSING COMPLETE, FM=XXXXXXX."#; 
      DEF MCFRDERR   #" UNABLE TO READ MRF,      FM=XXXXXXX."#; 
      DEF SCRRDERR   #" UNABLE TO READ SCRATCH,  FM=XXXXXXX."#; 
      DEF SCRWTERR   #" UNABLE TO WRITE SCRATCH, FM=XXXXXXX."#; 
  
      COMMON XMFDCOM; 
  
        BEGIN  # XMFDCOM #
  
        ARRAY MCF$PRM [0:0] P(MVPRML); ;  # MOVE FILE PREAMBLE #
  
        ARRAY MCF$FET [0:0] P(SFETL); ;  # *MVOCOM* FET # 
  
        ARRAY MCF$BUF [0:0] P(MCFBUFL); ;  # *MVOCOM* BUFFER #
  
  
        ARRAY MCF$REQ [0:0] P(TDAMLEN);  # MOVE REQUEST FILE ENTRY #
          BEGIN 
          ITEM MCFREQST   C(00,00,60);  # REQUEST ENTRY # 
          END 
  
  
        ARRAY SCR$SUBI [0:MAXSF] S(1);  # SCRATCH FILE ENTRIES #
          BEGIN 
          ITEM SCR$SBI    U(00,00,06) ;  # SUBFAMILY NUMBER + ONE # 
          ITEM SCR$AUS    U(00,06,18) ;  # SHORT AU FOR SUBFAMILY # 
          ITEM SCR$AUL    U(00,24,18) ;  # LARGE AU FOR SUBFAMILY # 
          ITEM SCR$WTDRD  B(00,42,01);   # WAIT DRD ON SM # 
          ITEM SCR$HLRQ   U(00,43,17);   # CURRENT HLRQ ASSIGNED #
          END 
  
        ARRAY SCRATCHF1[0:MAXSF] S(1);    # SCRATCH FILE NAMES #
          BEGIN 
          ITEM SCRNMU     U(00,00,60);  # WHOLE WORD #
          ITEM SCRZRO     U(00,42,18);  # ZERO BOTTOM # 
          ITEM SCRNM      C(00,00,07);
          ITEM NAMESCR    C(00,00,06) = ["SCRATC"]; 
          ITEM SBI        C(00,30,01);
          END 
  
        ARRAY SCRATCHF2[0:MAXSF] S(1);    # SECOND SCRATCH FILE # 
          BEGIN 
          ITEM SCRNMX     C(00,00,07) = ["SCRBBB "];
          ITEM SCI        C(00,30,01);
          END 
  
        ARRAY MOVMSG [0:0] P(4);     # MOVE REQUEST FILE MESSAGE #
          BEGIN 
          ITEM MOVMLINE   C(00,00,38);  # MESSAGE LINE #
          ITEM MOVMFAM    C(02,54,07);  # FAMILY NAME # 
          ITEM MOVMZBYTE  U(03,48,12) = [0];  # MESSAGE TERMINATOR #
          END 
  
        BASED 
        ARRAY SCR1$FET[0:0] P(SFETL);       # SCRATCH BUFFER FET #
          BEGIN 
          ITEM CLEARBUF   U(00,00,60);      # CLEAR WORD #
          END 
  
        BASED 
        ARRAY SCR2$FET[0:0] P(SFETL);;      # SCRATCH FILE FET #
  
        END  # XMFDCOM #
  
      END  # COMXMFD #
  
                                               CONTROL LIST;
