HP3000-L Archives

September 1999, 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:
"Gates, Scott" <[log in to unmask]>
Reply To:
Gates, Scott
Date:
Mon, 27 Sep 1999 12:10:05 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines)
I have a job that runs daily that creates several files for transfer.

It suprtools info out of the database a file which feeds into a COBOL
program that produces an output which must be a little larger than the input
for header and trailer info.
It must then fcopy to a file for transfer that is 1/4 the record length so
the output must be 4 times
longer.
It blows up about every 6 months or so due to file size increases.
I want to replace the DISC= statements with DISC=  a calculated setvar based
on the size of
the DB2PRV3 file say

sizeof DB2PRV4 = sizeof DB2PRV3 * 1.1  (an extra 10% for margin of error)

and then the
sizeof DB2PRV5 = sizeof DB2PRV4 * 4

Can someone help me with the syntax?

Here's an example of what's running now.

!BUILD DB2PRV4;REC=-656,,F,ASCII;DISC=750000
RUN <the COBOL program)
!BUILD DB2PRV5.TEMPDATA;REC=-164,4,F,ASCII;DISC=3000000
!FCOPY FROM=DB2PRV4.TEMPDATA;TO=DB2PRV5.TEMPDATA


Scott Gates
Trigon BC/BS of VA
804-354-7625
MPE/iX HP31900 C.05.08 r: C.55.00
SUPRTOOL/iX/(Version 4.1.04 VAR)
PH 7.29.C6 -- AMISYS v9.4

ATOM RSS1 RSS2