*DECK PMDECKS 
*CALL PMDEAD
*WEOR 
*CALL PMASSEM 
*CALL PILMT 
*WEOR 
