COMX1 
COMMON
PN1     'AUX PRD: AAM2,BAM1,CCG1,CPS1,DDL3,TEXT'=(*N=,*A),
PR1     ' DEVICE TYPE                          '=(*N=,*A),
