COMD2 
COMMON
PN      ' PACK NAME FOR INPUT PL               '=(*N=,*A),
PR      ' DEVICE TYPE                          '=(*N=,*A),
PNO     ' PACK NAME FOR OUTPUT PL              '=(*N=,*A),
PRO     ' DEVICE TYPE                          '=(*N=,*A),
