HP3000-L Archives

January 1998, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Jeff Sullivan <[log in to unmask]>
Reply To:
Jeff Sullivan <[log in to unmask]>
Date:
Thu, 22 Jan 1998 11:00:16 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (46 lines)
Manuel wrote:

> Hi everybody !
>
> I'm wondering if it's possible to check within an UDC tath the specific
> filename exists ?
>
> I meant something like in UNIX if [ -f  /etc/hosts ];
>
> Thanks !!!!

Yes, here is a sample command file that does that and a little more.

SETVAR HPA1 LFT(HPACCOUNT,3)
   IF HPA1<>"ASN" AND HPA1<>"CPL" AND HPA1<>"FCS"
      ECHO
      ECHO   UNKNOWN APPLICATION, PLEASE CONTACT SYSTEM MANAGER
      ECHO
      RETURN
   ENDIF
   IF HPA1="ASN"
      SETVAR APPL1 "ASNMAINT"
   ELSEIF HPA1="CPL"
      SETVAR APPL1 "CPLPROG"
   ELSEIF HPA1="FCS"
      SETVAR APPL1 "FCSMNU"
   ENDIF
IF NOT FINFO("VCS.PUB.!APPL1","EXISTS")
   ECHO
   ECHO   VERSION CONTROL NOT SET UP FOR !APPL1 CONTACT SYSTEM MANAGER
   ECHO
   RETURN
ENDIF
FILE VCS.DB.DIAMOND=VCS.PUB.!APPL1
RUN VCS.PUB.DIAMOND
DELETEVAR APPL1>$NULL
DELETEVAR HPA1>$NULL

Jeff Sullivan




Opinions expressed herein are my own and may not represent those of my
employer.

ATOM RSS1 RSS2