STRUCTURE

(GIN Macro)

Defined in: IFMACS

Used in: MESSDC

STRUCTURE.mac.txt

 **QL    [   
 *B==    [   
 *BPW    [??? STRUCTURE SECT DEVT FGN 1 DOC  
 *C9G    [   
 *CP6    #MAC           STRUCTURE
 *D8Q    [              =========
 *DNB    [   
 *F82    [   
 *FML    [ %A - 1 OR 0 (1 => CONDITIONAL, 0 => ITERATION)
 *G7=    [ %B - 'ON' OR 'OFF' OR 'CHECK' 
 *GLW    [   
 *H6G    [ IF 'ON', INCREASES DEPTH OF 'NESTREASON' AND SETS B23 TO %A   
 *HL6    [ IF 'OFF', CHECKS B23 = %A AND DECREASES DEPTH OF 'NESTREASON' ANYWAY  
 *J5Q    [ IF 'CHECK', CHECKS B23 = %A   
 *JKB    [ GENERATES A DIAGNOSTIC ERROR LINE IF A CHECK FAILS
 *K52    [   
 *KJL    #STR           ON,%B
 *L4=    #SKI
 *LHW    (   
 *M3G    #ALT           NESTREASON=NESTREASON@L1+%A  
 *MH6    #EXI
 *N2Q    )   
 *NGB    #STR           OFF,%B   
 *P22    #SKI
 *PFL    (   
 *P^=    #SKI           NESTREASON&1-%A  
 *QDW    (   
 *QYG    !! CLOSING WRONG STRUCTURE !!   
 *RD6    #EXI
 *RXQ    )   
 *SCB    #ALT           NESTREASON=NESTREASON@L-1
 *SX2    #EXI
 *TBL    )   
 *TW=    #STR           CHECK,%B 
 *W*W    #SKI
 *WTG    (   
 *X*6    #SKI           NESTREASON&1-%A  
 *XSQ    !! IN WRONG STRUCTURE !!
 *Y#B    #EXI
 *YS2    )   
 *^?L    !! ACTION MUST BE ON, OFF OR CHECK !!   
 *^R=    #NOR