Security & Virus | Hardware | Windows XP | Windows Vista | PC Gaming

DCL script to check for empty file

Comment:

Hi, I need a DCL script in VMS to check for empty file. Is any one could help ? :) Tom

Reply:

Quick and Dirty but functional......... It doesn't check if the file exist or not $ SET NOON $ OPEN/READ FILE EMPTY_FILE.TXT $ READ/END_OF_FILE=EOF FILE DUMMY_STRING $ !!!! IF NOT EMPTY !!!! $ WRITE SYS$OUTPUT "THIS FILE IS NOT EMPTY" $ GOTO END $EOF: $ !!!! IF EMPTY !!!! $ WRITE SYS$OUTPUT "THIS FILE IS EMPTY" $END: $ CLOSE FILE $ EXIT

0

Reply:

A little less dirty : if f$file_attribute("EMPTY_FILE.TXT","ALQ") .eq. 0 then write sys$output "Empty"

0

Reply:

OR, depending on what you call an empty file : if f$file_attribute("EMPTY_FILE.TXT","EOF") .eq. 0 then write sys$output "Empty"

0

Reply:

Thank you very much is working

0

Reply:

Hi Hakan & Me, Thank you very for your scripts and it working very well. :) Tom

0

Porting VMS to Windows

List files with version >...

Post Locked

This post is quite old and has been locked from receiving new replies. Please create a new posting instead.

Summary: Hi all all, I'm new to the board and I have a quick question: how can I check If a file exists using a conditional (IF..) I've seen that I could use OPEN/error= and put an error label but this not ve...

Summary: Hello, First, please note that version 6.2 is an very old version. A little terminology - in OpenVMS lingo, "scripts" are called "command files", have have the file type ".COM". The command language ...

Summary: I have to write a little DCL script: It can sort the line of a file, which is determined by parameter. If the two lines in the files is similar, the script must send an individual error message. If th...