{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IDFWRITE)}}
====== IDFWRITE ======
(GIN Macro)

**Defined in:** [[george:source:MACS_JIB|MACS JIB]]

**Used in:** [[george:source:CONCEPT85|CONCEPT85]], [[george:source:DELCON867|DELCON867]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCANC867|IDFCANC867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFCONFA867|IDFCONFA867]], [[george:source:IDFLINE867|IDFLINE867]], [[george:source:IDFOFF867|IDFOFF867]], [[george:source:IDFONLIN867|IDFONLIN867]], [[george:source:IDFSCON867|IDFSCON867]], [[george:source:IDFSEG867|IDFSEG867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:SETIDF867|SETIDF867]], [[george:source:SPOOL83|SPOOL83]], [[george:source:XATTACH861|XATTACH861]]

<code - IDFWRITE.mac.txt>
 8#W8 ...[??? IDFWRITE SECT COMM FGN 25 DOC  
 8*62    [THIS MACRO WRITES ALL EXISTING  FILE/FRRB BLOCKS INTO THE IDF,USING
 8*KL    [THEIR RECORD   NUMBERS TO CALCULATE THEIR POSITIONS 9N THE FILE.THE
 8B5=    [FILE READ BLOCKS ARE  ALL FREED BEFORE  EXIT.  
 8BJW    #MAC  IDFWRITE  
 8C4G    M90   HUNT     2,FILE,FRRB         [LOCATE READ BLOCK   
 8CJ6          BNG   2  M99                 [NO MORE READ BLOCKS,JUMP
 8D3Q          NAME     2,FILE,FRWB         [RENAME BLOCK FOR WRITING
 8DHB          ADN   2  A1   
 8F32          LDX   2  BRECNO(2)           [RECORD NO   
 8FGL          ADN   2  1
 8G2=          WRITED   2,4  
 8GFW          BRN      M90  
 8G^G    M99   LDX   2  FX2                 [RELOADX2 WITH FX2   
 8HF6    #NOR
</code>