Here it is:
/* ------------------------------------------------
Package: pdf to xythos
To channel: test of xythos
SAS Server: SASMain
------------------------------------------------
*/
ODS _ALL_ CLOSE;
/* Diagnostic function */
%macro chkrc(function);
%if &rc = 0 %then %put "NOTE: &function succeeded.";
%else %do;
%let msg = %sysfunc(sysmsg());
%put &function failed - &msg;
%end;
%mend;
/* package preamble */
%let package_options = ABSTRACT;
%let pid = 0;
%let rc = 0;
%let namevalue= ;
%let abstract_text= %nrbquote(Published Automatically on 11/15/06);
%let description = %nrbquote(pdf to xythos);
%syscall package_begin(pid, description, namevalue, rc, package_options, abstract_text);
%chkrc(Package Begin);
/* Add the "path\filename" file */
%let description = %nrbquote(filedescription);
%let namevalue = ;
%let body = %nrbquote(filename:path\filename);
%let type = BINARY;
%let mimetype = %nrbquote(application/pdf);
%syscall insert_file(pid, body, type, mimetype, description, namevalue, rc);
%chkrc(Insert File);
/* Publish the package */
%let pubType = TO_SUBSCRIBERS;
%let pub_properties = CHANNEL_STORE, PARENT_URL, METAUSER, METAPASS;
%let channelURI = %nrbquote(SAS-OMA://server:port/reposname=reponame);
%let channel = %nrbquote(test of xythos);
%let url = ;
%let muser = %nrbquote(domain\id);
%let mpass = %nrbquote(password);
%syscall package_publish(pid, pubType, rc, pub_properties, channelURI, url, muser, mpass, channel);
%chkrc(package publish);