IF NOT EXI(%A),CE %A(*DA,KWORD0,BUCK1,SERI) 
LO PROGRAM EDMP 
AS *TR,%ASRC
AS *LP,%(*LP)   
EN  
DL  
