*DECK FFSIIMB 
USETEXT TEXTFFS 
      PROC FFSIIMB; 
*CALL COPYRITE
# TITLE FFSIIMB - INITIALIZE AN MBT ENTRY                              #
      BEGIN                            # FFSIIMB                       #
# 
**    FFSIIMB - INITIALIZE AN MBT ENTRY.
* 
*     A. LIM                           88/02/05 
* 
*     THIS PROCEDURE INITIALIZES AN MBT ENTRY.
*     IT INITIALIZES THE FET. 
* 
*     PROC FFSIIMB
* 
*     ENTRY   *MBT* DEFINED IN TEXTFFS. 
* 
*     EXIT    ENTRY INITIALIZED.
* 
*     METHOD  INITIALIZE THE APPROPRIATE FIELDS IN THE FET. 
* 
# 
  
# 
****  PROC FFSIIMB - XREF LIST
# 
      XREF
        BEGIN 
        PROC FFSMATS;                  # ALLOCATE TABLE SPACE          #
        PROC FFSOWOF;                  # WRITE TO OUTPUT FILE          #
        PROC NETUCLR;                  # CLEAR A BLOCK OF MEMORY       #
        PROC RECALL;                   # WAIT FOR OPERATION TO COMPLETE#
        PROC WRITER;                   # WRITE END OF RECORD           #
        END 
# 
****
# 
  
      ITEM I             I;            # LOOP INDUCTION VARIABLE       #
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
  
# 
*     INITIALIZE THE MBT ENTRY. 
# 
      NETUCLR(LOC(MBT$WORD[0]),        # ZERO OUT THE ENTRY            #
              MBTESIZ$);
      MBT$LFN[0]   = TCPHFN$;          # SET LOCAL FILE NAME           #
      MBT$COMPB[0] = TRUE;             # SET COMPLETION BIT            #
      MBT$UP[0]    = TRUE;             # SET USER PROCESSING BIT       #
      MBT$EP[0]    = TRUE;             # SET ERROR PROCESSING BIT      #
      MBT$LEN[0]   = FETSIZ$ - 5;      # SET FET SIZE - 5 WORDS        #
      MBT$FIRST[0] = LOC(MBT$BUFFER[0]);        # SET FIRST ADDRESS    #
      MBT$IN[0]    = MBT$FIRST[0];              # SET IN ADDRESS       #
      MBT$OUT[0]   = MBT$FIRST[0];              # SET OUT ADDRESS      #
      MBT$LIMIT[0] = MBT$FIRST[0] + 
                        FBUFSIZ$;               # SET LIMIT ADDRESS    #
      MBT$UN[0]    = FSTHFUNC;
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSIIMB                       #
  
      TERM
