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

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

**Used in:** [[george:source:IDFENQS867|IDFENQS867]]

<code - PROPASSOCS.mac.txt>
 4D9X ...[??? PROPASSO SECT COMM FGN 12 DOC  
 4G4G    #MAC PROPASSOCS 
 4GJ6    [   
 4H3Q    [ THIS MACRO HUNTS THE CURRENT ACTIVITY FOR AN APERI/ASSOCS BLOCK   
 4HHB    [ AND THEN USES THE PROPERTY NUMBER IN THE BLOCK TO EXTRACT FROM
 4J32    [ :SYSTEM.PROPERTY THE PROPERTY NAMES AND PUT THEM IN THE APPROPRIATE   
 4JGL    [ WORDS IN THE BLOCK.MACRO ASSUMES A1>ASSOCSLEN.
 4K2=    [   
 4K3^ ...#UNS HWATIDY
 4K5N ...(   
 4K7C ...      DOWN     WHATPROP,1   
 4K96 ...      BRN      %A   
 4K=T ...)   
 4K#J ...#UNS HWATIDY
 4KB? ...#SKI
 4KD2 ...(   
 4KFW    #SKI  JSKI18<1$1
 4K^G    (   
 4LF6          SETNCORE 10,3,FILE,FABSNB 
 4LYQ          LDN   4  A1(3)
 4MDB          LDN   3  MPR(1)   
 4MY2          MOVE  3  10   
 4NCL          SETMODE 4,GENERAL,QUERY,CAREFUL   
 4NX=          OPEND    M2,4 
 4PBW          TESTREP OK,M3 
 4PWG    M2    GEOERR   1,PROPFILE   
 4QB6    M3    MHUNT 1,FILE,FABSNB   
 4QTQ          FREECORE 1
 4R*B    )   
 4RT2    #SKI  JSKI18
 4S#L    (   
 4SS=          OPENSYS %A,PROPERTY,GENERAL,CAREFUL   
 4T?W                                       [OPEN SYSPROP
 4TRG    )   
 4W?6          MHUNTW 2,APERI,ASSOCS 
 4WQQ          LDN   3  ASSOCSLEN
 4X=B          MPY   3  A1(2)               [GET PRE-MODIFIER IN X4  
 4XQ2    M8    SMO      4
 4Y9L          LDX   6  A1+2-ASSOCSLEN(2)   [ASSUMES A1+2>ASSOCSLEN  
 4YP=    M4    STEP  
 4^8W          BZE   3  M7                  [J.END SYSPROP & ZEROIZE ASSOCS.WORD 
 4^NG          LDX   5  APROPNO(3)          [OTHERWISE COMPAPE PROPERTY NOS  
 5286          ERX   5  6
 52MQ          ANDX  5  BITS22LS 
 537B          BNZ   5  M4   
 53M2          MHUNTW   2,APERI,ASSOCS   
 546L          LDN   5  APROPNAME(3) 
 54L=          SMO      4
 555W          LDN   6  A1+3-ASSOCSLEN(2)
 55KG          MOVE  5  3
 5656    M5    SBN   4  ASSOCSLEN
 56JQ          BZE   4  M6   
 574B          REWIND
 57J2          MHUNTW   2,APERI,ASSOCS   
 583L          BRN      M8   
 58H=    #SKI  JSKI18<1$1
 592W    (   
 59GG    MPR            +10  
 5=26                   12HSYSTEM
 5=FQ                   12HPROPERTY  
 5=^B                   +1   
 5?F2                   +1   
 5?YL                   4HB1 
 5#D=    )   
 5#XW    M7    MHUNTW   2,APERI,ASSOCS   
 5*CG          SMO      4
 5*X6          STOZ     A1+1-ASSOCSLEN(2)
 5BBQ          BRN      M5   
 5BWB    M6    CLOSE 
 5C68 ...)   
 5CB2    #NOR
</code>