About PAzevedo

PAzevedo · ‎06-11-2015

The part for enctype="multipart/form-data" was exactly what was missing. Thank you for your help! Best regards, PA

PAzevedo · ‎06-11-2015

Greetings all, I'm trying to create a form that allows users to upload a file from their local machines, which are actually virtual clients, to the SAS Server. The structure of the application is basically a master Stored Process that calls one of two programs, depending on a macro variable named task. The first program displays the form for the upload. The second program actually is the one that should take care of uploading the file. At the moment is just a debug program because it's where I'm having problems on putting it to work. The problem is I can't seem to access the file through the automatic macro variables _webin_* that should reference to information about the file that was selected in the upload form. I always get the warning message that the macro variables do not exist. I would appreciate if you look at my code bellow and tell me what is missing. Code for SP: %global task; %let stppath=/Stored Processes/rmdb/Test1; %macro main; %if &task = %str() %then %do; %include sasprog(nps_stp_show_upload_screen); %end; %else %do; %include sasprog(nps_stp_upload_file); %end; %mend main; %main; Code for program nps_stp_show_upload_screen: data _null_; file _webout encoding="UTF-8"; put "<form method='post' action='do'>"; put "<input type='hidden' name='_program' value='&stppath.' />"; put "<input type='hidden' name='task' value='upload_file' />"; put '<table border="0" cellpadding="5">'; put "<tr>"; put '<th>Choose a file to upload:</th>'; put '<td><input name="myfile" type="file" /></td>'; put '</tr>'; put '<tr>'; put '<td colspan="2" align="center"><input type="submit" value="OK" /></td>'; put '</tr>'; put '</table>'; put '</form>'; run; Code for program nps_stp_upload_file: data _null_; file _webout encoding="UTF-8"; put "Fileref: &_WEBIN_FILEREF"; put "&_WEBIN_CONTENT_LENGTH"; put "&_WEBIN_CONTENT_TYPE "; put "&_WEBIN_FILE_COUNT "; put "&_WEBIN_FILEEXT "; put "&_WEBIN_FILENAME "; put "&_WEBIN_FILEREF "; put "&_WEBIN_NAME "; put "&_WEBIN_SASNAME "; put "&_WEBIN_SASNAME_ORI "; put "&_WEBIN_SASTYPE "; put "&task"; run; data _null_; infile &_webin_fileref; input; put _infile_; run; The first program runs without problems. When I submit the form I can see that the second program is being called, I have values for macro vaiables task and myfile but none for the auto macro variables _webin_*. The first step throws several warnings because of the missing references. The second one an error because the infile statement cannot resolve to a fileref. Help please! Regards, PA

PAzevedo · ‎06-26-2012

I'm not sure there is another way of implementing calculation that needs XIRR then implementing the algorithm behind it. Since the original algorithm has a summatory i believe it wont much better or even better than using the finance function. What you stated about the function is all true and as given me a real pain. But i'm preatty sure your sugestion takes some complexity out of the algorithm i currently have. To give an idea of what i'm currently facing here is a sample of the code (The code is simplified, there are some hash and key searches in the middle of this): DO I=DATE1+1 TO DATE2; PERIOD+1; PER(PERIOD)=I; CASHFLOWS(PERIOD)=TEQUIV/100/365*1*-CASHFLOWS(1); AMT(PERIOD)=ABS(AMT(PERIOD-1))+CASHFLOWS(PERIOD); SELECT (PERIOD); %DO I=2 %TO &MAXP; WHEN (&I) TIR=FINANCE('XIRR', %DO J=1 %TO &I; AMT(&J), %END; %DO J=1 %TO &I; PER(&J), %END; .05)*100; %END; OTHERWISE; END; END; Each of the three arrays (cashflows, amt, per) are set to missing at the beggining of each iteration (call missing). Setting them to zero at the beggining of each iteration, instead of missing, and calling the function with &maxp arguments instead of using the select clause might make this go faster. I'll just have to evaluate if having zeros gives me the same result. It was a nice tip, thk you.

PAzevedo · ‎06-26-2012

The range on "N" is variable. It can be 1 as it can be 5000. N is calculated through two variables (date1 and date2) in my input data like N=date2-date1, which is the number of times that i have to calculate IRR for that row. For each row the calculation goes like this: 1- Calculate "N" for that row 2- Calculate IRR for the row "N" times like: N=1 IRR=FINANCE('XIRR',amt1,amt2,per1,per2); N=2 IRR=FINANCE('XIRR',amt1,amt2,amt3,per1,per2,per3); . . . N=N IRR=FINANCE('XIRR',amt1,amt2,...,amtN+1,per1,per2,...,perN+1); If i understood your suggestion, what i have at the moment is like what you suggested. I'm doing a first iteration of the input data to calculate max(N) so that in a second iteration i generate the select clause with macro coding. The problem here is the complexity of the iteration. I have: N rows * date2-date1 cycles * MAX(N) if tryes. Has you can imagine, even with a small subset of data, it takes a while to compute this. The first two components of the formula are impossible to remove but the MAX(N) if tryes could be removed if there was a way to pass to the function a list of values, which i feel there isn't.

PAzevedo · ‎06-26-2012

Hi there. I've got a project where i need to calculate the Internal Rate of Return for non periodic payments. I'm using the XIRR Finance function to do it but i can't seem to find how to use it with variable input, or even if it's possible. I've got a dataset with lots of rows and i need to calculate the XIRR for each row. The problem is that every row as a different number of periods and the function doesn't seem to accept arguments like amt(1)-amt(n), neither i can use syntax like amt1-amtn as "n" is different in each row. Consider the following example: data a; input amt1-amt5 per1-per5; cards; -100 101 102 103 . 1 2 3 4 . -100 101 102 103 105 1 2 3 4 5 run; For the first row i need to call the function for the first 4 amounts and periods: IRR=FINANCE('XIRR',amt1,amt2,amt3,amt4,per1,per2,per3,per4); For the second row i need to call the function for the first 5 amounts and periods: IRR=FINANCE('XIRR',amt1,amt2,amt3,amt4,amt5,per1,per2,per3,per4,per5); Now imagine this with a lot of input rows, each one with different amounts and periods. At the moment i'm using a giant if trying the value for "n", generated by macro code based on the max periods i have in the input data which, as you can imagine, is heavy dutty! Any ideas? Regards, PA.

PAzevedo · ‎04-09-2012

I found a more up-to-date article that as some info on reading from a a tape on a remote server trough filename ftp. There is an indication on an option to be used in the filename statement wich worked for me: RCMD='site rdw READTAPEFORMAT=V' The link to the article is the following: www.torsas.ca/attachments/File/03012008/FTP_Fileref.pdf

PAzevedo · ‎04-04-2012

I got it.It was one google search away! I don't know if i can remove all 'white-spaces' for the same reason i've got to keep the '0C'x so that the data read before the new SAS App matches the one read after. I'll look into it a i'll for sure start looking a lot more into pearl. Thks.

PAzevedo · ‎04-04-2012

I didn't quite get what you mean by 'white-space' characters. I see that it removes all the characters i mentioned before but not the '0C'x. What is the difference?

PAzevedo · ‎04-04-2012

I got it, thks. You'll have to escuse me as it takes a while for me to write the answears so that the english errors are minimum! And now the big doubt is... who gets the 4 points and who gets just 3.

PAzevedo · ‎04-04-2012

I hadn't read FriedEgg's post when i answeared you.

PAzevedo · ‎04-04-2012

Hi FriedEgg. That specific character isn't a problem for me as SAS has no problem in storing it, although others like '0A'x, '0D'x, '3F'x, '25'x are. There is a bunch of garbage in our Mainframe tables that have given us a lot of headaches trough time! In order to give the almost full picture, we are changing all our SAS applications to start getting the info we need directly from the Mainframe, trough FTP, instead of beeing the mainframe to do the parsing of the files and then sending them to our SAS servers (a new offload policy). This means that every parsing being made nowadays in the applications that send us the files needs to be done exactly the same way (e.g. delimiters, special characters, etc.) by our SAS Apps or else there is a huge risk on the new data not matching the one we have nowadays. The '0C'x isn't currently being parsed by the Mainframe apps so it will stay the same in the new SAS App. But, now that you and Tom mentioned it, i'm starting to feel that there isn't really a simple and light solution for my problem as i expected. I've runned away from pearl expressions for a long time but i believe now it's the right time to dive into it. Thks for your help. Regards.

PAzevedo · ‎04-04-2012

Hi Tom, Reading the file with the $CHARw informat has the same behaviour than with $EBCDICw truncating the field after it encounters the null. Picking in your sugestion, i'm creating one variable containing the whole _infile_ buffer converted to hexdecimal to apply your translation code afterwards. After this parsing i'll have to substring to get every column. This seems a very heavy solution but it is, until now, the best one i have.

PAzevedo · ‎04-04-2012

art or anyone else, Is there any trick to make SAS consider converting the binary 0s to EBCDIC space hex code ('40'x) instead of ASCII hex code ('20'x) when using informat $CHARZBw? It turns out that having a € for the binary 0 doesn't suit my problem, i really need it to be converted to spaces. Regards.

PAzevedo · ‎04-04-2012

I'm getting somewhere with the $CHARZBw. informat. When inputing the data with that informat the nulls are replaced with '20'x (hex code for space in ASCII). If afterwards i apply the $EBCDICw. informat the data is well translated to ASCII but instead of blanks in place of nulls i get '€' wich is the EBCDIC symbol for the '20'x hex code. Now i just have to find how the $CHARZBw. informat translates to EBCDIC space hex code and not ASCII space hex code. At the end, '€' character might be as good garbage as the null characters that were in the field. Thks for your help. Any more comments are much appreciated. Regards.

PAzevedo · ‎04-04-2012

Thks for the warning. The IP address is from a closed internal network so there's not a problem there. The user and pass might be a problem if you can access the internal network. I've changed the pwd anyways and edited the log file. I'm not sure on what data i can show you as i can only access the file trough a TSO terminal. The file is variable length and, as you can see in the code, it's read based on a structure file wich indicates what to read in each record.

Online Status	Offline
Date Last Visited	‎11-26-2015 04:24 AM

Re: Uploading a file through an html form

Uploading a file through an html form

Re: Passing variable arguments to Finance(XIRR) function

Re: Passing variable arguments to Finance(XIRR) function

Passing list of arguments to Finance(XIRR) function

Re: Filename FTP to Mainframe

Re: Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Re: Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Re: Uploading a file through an html form

Uploading a file through an html form

Re: Uploading a file through an html form

Reduce hard coding by using the VCOLUMN table in SASHELP to get a list...

Re: Uploading a file through an html form

Uploading a file through an html form

Re: Passing variable arguments to Finance(XIRR) function

Re: Passing variable arguments to Finance(XIRR) function

Passing list of arguments to Finance(XIRR) function

Re: Filename FTP to Mainframe

Re: Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Re: Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Re: Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields

Reading EBCDIC Files with null characters ('00'x) in fields