Upload and Download to Mainframe from Windows server !! SAS Upload&Down

Its been a while since i posted, had been busy with ma-life :) .

Here is the thing pals, Njoy. Code is self explanatory but if you face trouble do write in comments :

1st logon to you mainframe server:

data _NULL_;
usrid= upcase(sysget('username')); /* Symget will get the user name you are using on windows server */
call symput('usrid',usrid);
run;
options comamid=tcp;
%let mvs0=mvs3ibm.sys.nb.se 5308; /* mention the ip address of mainframe along with port number */
signon mvs0.spawner USER=&usrid noscript pw=_prompt_; /*password will be prompted*/
rsubmit;
options comamid=xms2;
endrsubmit;


A)
/* Use below code for Uploading to mainframe, Note, inlib=work, change to any libname if you have any thing local *******/

rsubmit;
OPTIONS NOERRORABEND;
LIBNAME MVS 'BLL0N.SAS.CENTRAL.DATA' DISP=old; /* mention your mainframe dataset name here */
proc upload inlib=work outlib=mvs;
select Formats /memtype=data;
run;
endrsubmit;
signoff;


B)
/**********For downloading any thing from mainframe */

rsubmit ;
OPTIONS NOERRORABEND;
LIBNAME MVS 'BLL0N.SAS.CENTRAL.DATA' disp=shr; /* mention your mainframe dataset name here */
proc download inlib=mvs outlib=work V6TRANSPORT;
select weekdata /memtype=data;
run;
endrsubmit;
signoff;


Hope it helps, comments are helpful in getting motivation for future post so do not shy away !

Chow!!