(GIN Macro)
Defined in: MACROS SAR
Used in: IDFENQS867
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