// copyPL - get WaveMaker peaklist 

char sourcefile[256], targetfile[256];

sprintf(targetfile, "%s/%s/%d/PL.xml", disk, name, expno);  
if(i_argc < 3) GETINT("Enter peaklist EXPNO:", expno) 
else expno=atoi(i_argv[2]);
DATASET(name, expno, 1, disk, user);
sprintf(sourcefile, "%s/peaklist.xml", PROCPATH(0));  
if ( (i1 = dircp (sourcefile,targetfile)) < 0 ) Proc_err (DEF_ERR_OPT, dircp_err(i1));

QUIT
