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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:EXINTWO866|EXINTWO866]], [[george:source:EXOPEN867|EXOPEN867]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:SCEX866|SCEX866]], [[george:source:SCEXEND867|SCEXEND867]], [[george:source:WRITEFIP867|WRITEFIP867]]

<code - OPENST.mac.txt>
 ??T=    #   
 ?##W    [???                                OPENST  
 ?#SG    #                                   ******  
 ?*#6    #MAC  OPENST
 ?*RQ    #   
 ?B?B    #STR  %A
 ?BR2    (   
 ?C=L          LDX   0  %A   
 ?CQ=          STO   0  ESERL(3) 
 ?D9W    )   
 ?DPG          MFINDSU  1,ESERL(3)   
 ?F96          LDX   0  ABSUN(1) 
 ?FNQ          STO   0  EBSUN(3) 
 ?G8B          LDN   0  128  
 ?GN2          STO   0  ECNT(3)  
 ?H7L          LDX   0  HTYPE(1) 
 ?HM=          STO   0  ETYPE(3) 
 ?J6W          LDX   0  ASUBASE(1)   
 ?JLG          STO   0  EBASE(3) 
 ?K66          LDX   0  HBLOCK(1)
 ?KKQ          STO   0  EDEPF(3) 
 ?L5B          STOZ     EBUF(3)  
 ?LK2          STOZ     ETMARK(3)
 ?M4L    #NOR
</code>