Writing DCL script to sftp the recent created file from the directory
Hi,
I want to write one dcl script which can fetch the latest/recent file from the directory and sftp the file to other windows system.The file format is as below
HPSEC_node.txt_101009;1
The script should search recent file in the existing directory.
Re: Writing DCL script to sftp the recent created file from the directory
Sumant,
Use F$SEARCH to find files, then F$FILE_ATTRIBUTES to determine file dates (you don't specify which date you're interested in, created, modified, accessed, etc...). Use F$CVTIME to convert a date/time into a format that can be compared.
On the other hand, perhaps the filespec you've posted means there's a date stamp embedded into the file extension? (never heard of Y2K?) You can extract that string using F$PARSE and string subtraction:
$ date=F$PARSE(file,,,"TYPE")-".txt_"-".TXT_"
Is that ddmmyy or mmddyy? Realise that neither of those formats can be compared using a normal string comparison, so you'll need to normalise them into yymmdd. Use F$EXTRACT to pull pieces of string. Assuming ddmmyy:
Re: Writing DCL script to sftp the recent created file from the directory
Thank for your suggestions and help but i am still not able to get the recent file from the existing directory.
Dir name dka0:[tmp]hp_node.txt_date;1 Each day system creates the file so i need to extract the recent file to do sftp to another node.I am not very good in writing dcl scripts hence i need your help.
Re: Writing DCL script to sftp the recent created file from the directory
Sumant, Welcome to the Forum. If you are not familiar with DCL (or OpenVMS) then you probably would benefit from professional help. However, looking at your post, you really are facing two problems.
1. Identifying the file to transfer, and 2. Doing the transfer from within your script.
In order to solve the identification problem , we need certain pieces of information. For example,
1. is there only going to be one (1) file created each day? 2. will the file ALWAYS be created daily and will this be at a specific time" 3. alternatively, will there be multiple files created daily, of which you only want the most recent? (You know that OpenVMS creates multiple versions of files (?))
The solution to the sftp part of the problem will depend on the TCPIP stack you are using. ------------------------ If there is only going to be one file created each day, then you know what name the file will have, so construct the filename and then look for it. i.e. (and I assume that "node" needs to be replaced by system nodename)
$ Node = f$getsyi("Nodename") $ Year = f$extr(2,2,f$cvtime(f$time(),"ABSOLUTE","YEAR")) $ Month = f$cvtime(f$time(), "COMPARISON","MONTH") $ Day = f$extr(2,2,f$cvtime(f$time(),"ABSOLUTE","DAY") $ Date = "''Month'''Day'''Year'" $ FileName = "HPSEC_''Node'.txt_''Date'" $ show symb filename FILENAME = "HPSEC_BUD.txt_101509" (in my case)
to get the "full path spec" of the most recent version,
$ FileName = f$search(FileName,) $ show symb filename FILENAME = "USERROOT:[SYSDAB.EON]HPSEC_BUD.TXT_101509;3" (in my case)
If you can get your script to this point, then you are close to the second problem which is the "sftp" step.
