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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:IPCONB8|IPCONB8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:USERDIR842|USERDIR842]]

<code - OPB.mac.txt>
 7FTK ...[   
 7FY8 ...[   
 7G2S ...[??? OPB SECT FILE FGN 24 DOC   
 7G=L    #MAC           OPB  
 7GQ=    #DEF           19?+9=0             [MASK OF BITS IN NEXT WORD   
 7H9W    #DEF           19?+1=0             [COUNT OF PARAMS EXAMINED
 7HPG    #DEF           19?+6=0             [COUNT OF IDS IN NEXT WORD   
 7J96    #DEF           19?+5=0            [SET 'LAST WORD' INDICATOR
 7JNQ          OPC   %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
 7K8B    ,%U,%V,%W,%X,%Y,%Z[ 
 7KN2    #EXI           19?+5]              [EXIT IF OPC AGREES LAST WORD
 7L7L    #DEF           19?+0=19?+0]@C(1-(19?+1]))  [RESCANNING FROM 2ND ID PARAM
 7LM=          OPB   %A,%B,%C,%D,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U-
 7M6W    ,%V,%W,%X,%Y,%Z[
 7MLG    #NOR
</code>