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

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:CIMOP867|CIMOP867]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXB8|CONMXB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:CPOBJ6|CPOBJ6]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DROBJ864|DROBJ864]], [[george:source:DRUM852|DRUM852]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:FHLIST867|FHLIST867]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:LPOBJ6|LPOBJ6]], [[george:source:LPTWO7|LPTWO7]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:OPCA867|OPCA867]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PERION867|PERION867]], [[george:source:SPERION867|SPERION867]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]]

<code - PMODES.mac.txt>
 4=72 ...[??? PMODES SECT CENT FGN 9 DOC 
 4==G    # THIS MACRO OBTAINS THE BRANCHING & STORE MODES OF A PROG. MEMBER  
 4=Q6    # %A-MODIFIER CONTAINING MEMBER.NO.%B-PTR TO PCA
 4?9Q    #MAC  PMODES
 4?PB          OPND  SMO,%B,FX2  
 4#92          LDCH  %A ALMT 
 4#NL    #NOR
</code>