Path: utzoo!utgpu!attcan!uunet!husc6!rutgers!ucsd!ucbvax!TAMVENUS.BITNET!R0R0131
From: R0R0131@TAMVENUS.BITNET (THE ONE AND ONLY - RAVI)
Newsgroups: comp.os.vms
Subject: DCL problem
Message-ID: <8808031303.AA27311@ucbvax.berkeley.edu>
Date: 26 Jul 88 16:59:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 43

Date sent:  26-JUL-1988 11:50:57

  Dear subscribers;
         I have been using the vax for only four months now and I am not
very good at it.This is part of a program i am writing and i don't know
why it does not work....

              |
              |
              |
$ esc[0,32] = %x01B
$ BEGIN:
$ IF P1 .EQS. "" THEN INQUIRE/NOPUN P1 "filename >"
$ IF P1 .EQS. "" THEN GOTO BEGIN
$ DEF = F$DIRECTORY()
$ ! what i am trying to do here is to search the current directory for P1.
$ IF F$SEARCH("''DEF':''P1') NES "" THEN GOTO RAT
$ WRITE SYS$OUTPUT esc+"#6"+"''P1' not found"
$ GOTO BEGIN
$ ! the part above is what is messing up - even if the file is not in the
$ ! current (sub)directory - the program says that the file is not there...
$ RAT:
              |
              |
              |

   What am i doing wrong ? -  i am sorry if this is a very silly question.
     any help will be appreciated.
                             thank you
                                                    - Ravi.

$!-----------------------------------------
$! Ravi Ramachandran Texas A&M University |      ^  & ^  ^
$! College Station Texas .                |     /-\ & |\/|
$! AT&T 1 409 696 3496                    |
$! )1988                                  |   Gig'em Aggies !
$!---------------------------------------------------------------
$!                         |    /---)_                          |
$!                         |   /    _)                          |
$!                         |  /----)    ____       ____*        |
$!                         | /\        #   )   \  /   /       / |
$!                         |/  \______(____)\___\/   /_______/  |
$!                         --------------------------------------