COMNECS 
COMMON
NOECS   ' USE ECS                    (NO/YES)  '
          =(*N=ECS,NO=NOECS,YES=ECS,*K=NOECS),
