COMNOPG 
COMMON
NOPURGE ' SHOULD DRTBAT1 PURGE SOME CCP FILES  '
          =(*N=PURGE,NO=NOPURGE,YES=PURGE,*K=NOPURGE),
