HP3000-L Archives

March 1998, Week 3

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:
Re: Re[2]: how to code for version.pub.sys
From:
Mark Wonsil <[log in to unmask]>
Reply To:
Mark Wonsil <[log in to unmask]>
Date:
Tue, 17 Mar 1998 01:14:55 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (14 lines) 
I have a UDC like this, but I also run a short program that calculates a
checksum on the file and puts it in a system variable.  Someone can change
the access and mod dates to the file and the checksum guarantees the source
code matches.

  ....
    setvar _cob_parm _cob_parm+$01
    file cobtext=!text
    SETVAR _COB_INFO _COB_INFO + "$VERSION '" + FINFO("!TEXT","FULLFNAME") &
           + " !HPDATEF !HPTIMEF'"
    endif
  if "!list" <> "" then
  ....

ATOM RSS1 RSS2