COMX3 
COMMON
PN3     ' AUX PRD: RHC1                        '=(*N=,*A),
PR3     ' DEVICE TYPE                          '=(*N=,*A),
