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:
From:
Lars Appel <[log in to unmask]>
Reply To:
Lars Appel <[log in to unmask]>
Date:
Tue, 17 Mar 1998 08:47:54 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (31 lines)
At 17:49 13.03.1998 -0800, Michael wrote:
>I was asked for a COBOL example of using the $VERSION meta command, so
>here is a snippet of some JCL that I created for a customer (I'm sure they
>wouldn't mind :)
 ...
>    echo a 0 "$VERSION '!CX_source_fullname !HPDATEF !HPTIMEF'" > *Ver
>    echo keep > *Ver
>    echo exit > *Ver
>    reset Ver
>    qedit < !CX_version_file
 ...

Just an idea from someone who hasn't tried it himself... Wouldn't using
an include file in the COBOL source(s) make things a little easier (that
is, avoid the need to auto-modify the source)?

Something like...

 $INCLUDE 'versionf'

in the COBOL source (sorry, not familiar with the exact syntax
for COBOL includes) and something like...

 file versionf,old
 echo $VERSION '!CX_source_fullname !HDATEF !HPTIMEF' > *versionf
 reset versionf

in the compile job or compile UDC (shortly before the COB85XL).

Lars

ATOM RSS1 RSS2