PSNFTP2 ;HP/ART - PPS-N National Drug File Updates File Transfer ;09/25/2015
Source file <PSNFTP2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VMSFTP(PSRC,PSADDR,PSNUSER,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSCOMFIL,PSLOGFIL,PSDATFIL,PSERRMSG) | ; VMS FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD |
|
EXECUTE | ;Execute .COM file, create logfile
|
|
LINUXFTP(PSRC,PSADDR,PSNUSER,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSSHFILE,PSLOGFIL,PSDATFIL) | ; Linux FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD |
|
WINFTP(PSRC,PSADDR,PSUID,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSCMDFIL,PSLOGFIL) | ; Windows FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD |
|
FILSIZE(PSDIR,PSFILE,PSSIZE,PSNFLAG1) | ;get the file size after retrieval
|
|
FILSIZQ | ;
|
|
VMSDEL(PSRC,PSDIR,PSFILE) | ;Delete Local Host File
|
|
SAVEKEYS(LOCDIR) | ; Saves Key to local directory
|
|
DIREXIST(DIR) | ; Returns whether the Linux Directory for sFTP already exists
|
|
MAKEDIR(DIR) | ; Create a new directory
|
|
DELFILES(LOCDIR,LOGFILE,PSCOMFIL,PSDATFIL) | ; Delete Files
|
|
XVMSDIR(VMSDIR) | ; Converts a VMS directory
; Input: VMSDIR - OpenVMS directory name (e.g., "USER$:[SFTP.PPSN]") ; Output: $$XVMSDIR - Converted VMS directory (e.g., "/USER$/PPSN/") |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(57.23 - [#57.23] | Classic Fileman Calls, GET1^DIQ |