Computing.Net - DCL script to check for empty file

Subject: DCL script to check for empty file

Original Message

Name: jinlong
Date: May 24, 2004 at 00:11:19 Pacific
Subject: DCL script to check for empty file
OS: VMS
CPU/Ram: DS20E

Comment:

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

Report Offensive Message For Removal

Response Number 1

Name: Hakan Andersson (by HakAnd)
Date: May 24, 2004 at 06:17:12 Pacific
Subject: DCL script to check for empty file

Reply: (edit)

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

Report Offensive Follow Up For Removal

Response Number 2

Name: erensm
Date: May 24, 2004 at 12:04:07 Pacific
Subject: DCL script to check for empty file

Reply: (edit)

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

Report Offensive Follow Up For Removal

Response Number 3

Name: erensm
Date: May 24, 2004 at 12:11:46 Pacific
Subject: DCL script to check for empty file

Reply: (edit)

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

Report Offensive Follow Up For Removal

Response Number 4

Name: jinlong
Date: May 24, 2004 at 19:07:55 Pacific
Subject: DCL script to check for empty file

Reply: (edit)

Thank you very much is working

Report Offensive Follow Up For Removal

Response Number 5

Name: jinlong
Date: May 24, 2004 at 19:43:34 Pacific
Subject: DCL script to check for empty file

Reply: (edit)

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

Report Offensive Follow Up For Removal