SYSCOMTEST

(GIN Macro)

Defined in: MACS MISW

Used in:

SYSCOMTEST.mac.txt

 *HL6    #MAC  SYSCOMTEST
 *J5Q          SMO      FX2  
 *JKB          LDX   0  CPLEV
 *K52          BNZ   0  MSYSNOT             [J IF NOT CP LEV ZERO
 *KJL          HUNTW    %A,ADATA,COMPASS 
 *L4=          BPZ   %A MSYSYES             [J IF THERES A DATA BLOCK
 *LHW    MSYSNOT                         [ELSE SEND ERROR MESSAGE
 *M3G          COMERR   JNOTALCM 
 *MH6    MSYSYES 
 *N2Q    #NOR