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

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** [[george:source:INCFIN864|INCFIN864]], [[george:source:INCSET865|INCSET865]]

<code - FREEFINC.mac.txt>
 DKN3 ...[??? FREEFINC SECT FILE FGN ? DOC   
 DL7M ...#MAC FREEFINC   
 DLM? ...[     THIS MACRO FREES A FINC OR FGET BLOCK POINTED TO BY %A
 DM6X ...[      AND RETURNS THE DTA'S TO THE RETRIEVAL SYSTEM
 DMLH ...[     %B IS NODUMP IFF THE INCREMENT HAS BEEN CANCELLED 
 DN67 ...      CHAIN    %A,FX2              [ CHAIN THE BLOCK NEXT TO CPAT   
 DNKR ...#STR NODUMP,%B  
 DP5C ...(   
 DPK3 ...      DOWN  INCDTA,2             [ FINISHED INCREMENT   
 DQ4M ...#EXI
 DQJ? ...)   
 DR3X ...      DOWN  INCDTA,3             [ INCREMENT CANCELLED  
 DRHH ...#NOR
</code>