FTP Class in PeopleSoft
Here’s a class I created to allow FTP from within PeopleSoft. Use it at your own risk:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
class FTP method FTP(&p_file_to_ftp As string, &p_final_file_name As string, &p_ftp_host As string, &p_ftp_dir As string, &p_ftp_username As string, &p_ftp_password As string); method FTPFile() Returns number; private instance string &file_to_ftp; instance string &final_file_name; instance string &ftp_host; instance string &ftp_dir; instance string &ftp_username; instance string &ftp_password; end-class; method FTP /+ &p_file_to_ftp as String, +/ /+ &p_final_file_name as String, +/ /+ &p_ftp_host as String, +/ /+ &p_ftp_dir as String, +/ /+ &p_ftp_username as String, +/ /+ &p_ftp_password as String +/ &file_to_ftp = &p_file_to_ftp; &final_file_name = &p_final_file_name; &ftp_host = &p_ftp_host; &ftp_dir = &p_ftp_dir; &ftp_username = &p_ftp_username; &ftp_password = &p_ftp_password; end-method; method FTPFile /+ Returns Number +/ Local string &ftp_location; Local number &retCode; &ftp_location = "ftp://" | &ftp_username | ":" | &ftp_password | "@" | &ftp_host | "/" | &ftp_dir; If FileExists(&file_to_ftp, %FilePath_Absolute) Then /* Check whether local file exists */ &retCode = PutAttachment(&ftp_location, &final_file_name, &file_to_ftp); Evaluate &retCode When %Attachment_Success /* 0 */ MessageBox(0, "File Attachment Status", 0, 0, "File transfer succeeded"); Break; When %Attachment_Failed /* 1 */ MessageBox(0, "File Attachment Status", 0, 0, "File transfer failed"); Break; When-Other MessageBox(0, "File Attachment Status", 0, 0, "File transfer failed with return code " | &retCode); End-Evaluate; Return &retCode; Else MessageBox(0, "File Status", 0, 0, "File " | &file_to_ftp | " doesn’t exist. FTP transfer Failed."); Return -1; End-If; end-method; |