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

**Defined in:** [[george:source:MACROS_SAR|MACROS SAR]]

**Used in:** [[george:source:IPDBATCH867|IPDBATCH867]], [[george:source:LISTAST867|LISTAST867]], [[george:source:LISTIDF867|LISTIDF867]], [[george:source:LISTPROP867|LISTPROP867]], [[george:source:SPEAK8|SPEAK8]], [[george:source:UMMENDS867|UMMENDS867]], [[george:source:WHATPERA867|WHATPERA867]], [[george:source:WHATPROP865|WHATPROP865]]

<code - APROPNAME.mac.txt>
 2YQB    #MAC  APROPNAME 
 2^=2    [ THIS MACRO GIVES THE PROPERTY NAME OF THE PROPERTY NUMBER FOUND IN %A 
 2^PL    [ IN ACOMMUNE1,2,AND 3  
 329=    [ :SYSTEM.PROPERTY IS FOUND OPEN AND LEFT OPEN  
 32NW ...      ACCSTO   %A,ACOMMUNE1,FX2    [PROPERTY NUMBER 
 347Q          LDN   1  %B   
 34CJ ...      SMO      FX2  
 34MB          STO   1  ACOMMUNE2           [FILE DEPTH  
 3572          DOWN  WHATPROP,2  
 358C ...#UNS HWATIDY
 359S ...(   
 35?9 ...#STR %C 
 35#L ...(   
 35B3 ...     LDX   0  ACOMMUNE1(2)  
 35CD ...     BPZ   0  %C
 35DT ...)   
 35G= ...)   
 35HM ...#UNS HWATIDY
 35K4 ...#SKI
 35LL          BRN      %C                  [J IF PROP NOT IN SYSPROP
 366=    #NOR
</code>