<jeff@[EMAIL PROTECTED]
> wrote in message
news:1156179310.034387.127090@[EMAIL PROTECTED]
> billious wrote:
>> <jeff@[EMAIL PROTECTED]
> wrote in message
>> news:1156164608.427833.305850@[EMAIL PROTECTED]
>> >I have a program that I wrote that creates a work file to read from to
>> > create a print record. The program is a sales re****t that allows the
>> > user to specify how many years to compare. An example is 07-01-06
thru
>> > 07-31-06 If they answer 3 prior years it would show sales data (it
also
>> > handles exact day instead of just 070106, 071005, 070104)
>> > 20060701
>> > 20050702
>> > 20040703
>> >
>> > 20060702
>> > 20050703
>> > 20040704
>> >
>> > When I read the Work file I need to read 2 recs before writing the
>> > print record to calculate the percentage change in amount. Example:
>> > 20060701 10%
>> > 20050702 7%
>> > 20040703
>> > Sales up 10% for 2006 over 2005, sales up 7% 2005 over 2004.
>> >
>> > Any ideas on the best way to accomplish this?
>> >
>>
>> A thoroughly odd requirement.
>>
>> Is your proposed re****t format supposed to be columns of years showing
>> actual and %-differential sales and lines of days? This would show a
lot
>> of
>> meaningless data. Comparing sales on any one day with sales
52/104/156...
>> weeks earlier could be done, but wouldn't seem to give you any real
data.
>> So
>> many things can happen to influence the sales on any one day (like
>> weather)
>> that comparing doesn't seem to make sense.
>>
>> What is the format of your intermediate file? Is it indexed on date,
for
>> instance? It it organised by product?
>>
>> It wouldn't seem too much of a burden to read even 10 years of data -
>> more
>> would be difficult to fit on a re****t-page - at 365 records per year,
>> that's
>> only 3,650 records.
>>
>> I'd simply read all of the data in and place it into an array in
>> working-storage. Then simply grab it back out of the array to print it
-
>> but
>> your specification isn't really that clear.
>
> Very good ideas. I believe it pointless at well.
> Here is the work rec:
>
> fd slscompwk-file.
> 01 slscompwk-rec.
> 03 slscompwk-key.
> 05 slscompwk-store-no PIC X(03).
> $xfd date=yyyymmdd
> 05 slscompwk-trx-date PIC 9(08).
>
> 03 slscompwk-key-2.
> 05 slscompwk-store-no-2 PIC X(03).
> $xfd date=yyyymmdd
> 05 slscompwk-seq-no PIC 9(08).
>
> 03 slscompwk-day pic x(03).
> 03 slscompwk-txbl-mdse PIC s9(07)v99 comp-4.
> 03 slscompwk-non-txbl-mdse PIC s9(07)v99 comp-4.
> 03 slscompwk-disc-amt PIC s9(07)v99 comp-4.
> 03 slscompwk-tax-amt PIC s9(07)v99 comp-4.
> 03 slscompwk-freight-amt PIC s9(07)v99 comp-4.
> 03 slscompwk-total PIC s9(07)v99 comp-4.
> 03 slscompwk-non-sls-amt PIC s9(07)v99 comp-4.
> 03 slscompwk-no-of-trxs PIC 9(06).
> 03 slscompwk-inv-trx-amt PIC s9(07)v99 comp-4.
> 03 slscompwk-no-of-inv-trxs PIC 9(06).
>
> Here is the code how it works now, to just read the work file until eof
> and print
>
> format-print-re****t.
> perform re****t-initialization.
> move '00000000000' to slscompwk-key slscompwk-key-2.
> move "N" to ws-slscompwk-EOF.
> perform start-slscompwk-file-nlt-2.
> perform rd-slscompwk-file-next.
> perform build-re****t-detail
> until slscompwk-EOF.
> perform fmt-rpt-totals-line.
> perform print-rpt-totals.
> perform print-end-of-re****t.
>
> re****t-initialization.
> move ws-store-no to rpt-parm-store-no.
> move "Date: " to rpt-parm-type-1,
> rpt-parm-type-2.
> perform print-std-rpt-hdr.
> perform print-legend.
> perform print-rpt-col-hdrs.
>
>
> build-re****t-detail.
> perform format-print-detail-record.
> perform print-rpt-detail-line.
> if spacer-count = ws-number-prior-years
> move 0 to spacer-count
> move spaces to prt-detail-line
> perform print-rpt-detail-line.
> perform ac***-grand-totals.
> perform rd-slscompwk-file-next.
> if slscompwk-file-stat = 10
> move "Y" to ws-slscompwk-EOF
> end-if.
>
> format-print-detail-record.
> move slscompwk-trx-date to ws-date-3.
> perform fmt-ws-date-3.
> move dspl-date to prt-trx-date.
> move slscompwk-day to prt-day.
> move slscompwk-txbl-mdse to prt-txbl-mdse.
> move slscompwk-disc-amt to prt-disc-amt.
> compute prt-net-mdse =
> slscompwk-txbl-mdse - slscompwk-disc-amt.
> move slscompwk-tax-amt to prt-tax-amt.
> move slscompwk-freight-amt to prt-freight-amt.
> move slscompwk-total to prt-total.
> move slscompwk-non-sls-amt to prt-non-sls-amt.
> move slscompwk-no-of-trxs to prt-no-of-trxs.
> move slscompwk-inv-trx-amt to prt-inv-trx-amt.
> move slscompwk-no-of-inv-trxs to prt-no-of-inv-trxs.
> add 1 to spacer-count.
>
Well, you're still not saying what your re****t is to detail. Is it
by-store
for a period compared to previous years' periods, and do you want an
overall
summary?
IMHO, you'd be wise to make the re****t flexible so that you can easily
accommodate changes as the boss's mood varies.
To that end, I'd build an array of sales-figures
01 sales-totals.
03 sales-totals-current-store.
05 sales-total-current-store-daily pic S9(05)V99 COMP-3 OCCURS
3660.
03 sales-totals-all-stores.
05 sales-total-all-stores-daily pic S9(05)V99 COMP-3 OCCURS
3660.
To initialise, simply move low-values to sales-totals.
Since you know the very first date that will be re****ted, and the very
last
date and you appear to be reading the file by store, all you have to do is
* Read a record.
* At EOF or change-of-store,
** write out the re****t for the previous store number.
** ac***ulate the sales-total-current-store-daily(1 to 3660) into
sales-total-all-stores-daily(1 to 3660)
** move low-values to sales-totals-current-store to clear the current
store's totals.
* IF the record read is dated >=start-date and <=end-date for the re****t,
calculate the number-of-days-after-start-date (+1) and ac***ulate the
sales
figures into
sales-total-current-store-daily(number-of-days-after-start-date
+ 1)
The re****t is then simple:
Calculate the number-of-days-after-start-date for the first line of the
re****t. This is the index into the sales-total-current-store-daily array
that contains the sales figure to be re****ted. The "previous-year" figure
is
at the index that is 364 lower, the year before that 364 lower still and
so
on (364 because you appear to need 52 weeks exactly) Since you have the
two
sales figures, you can calculate the %change.
Then there's the re****t layout. It's a silly useless re****t, but still,
can't argue with the customer if you're being paid...
I'd suggest (eg)
2002sales 2002-3% 2003sales 2003-4% 2004sales ...2006 sales SATURDAY
2006date 2005date 2004date...
Which shows left-to-right sales figures and %change between years, and the
corresponding dates for the xxxday. This keeps the sales data and the
dates
data visible but separate.
Given an example of a re****t for 3 years, starting 20060701 and ending
20060731:
Your very-first date is 20040703. This is index 1 in your array. 20040704
is
index 2 and so on.20050702 is index 365. 20060701 is index 729 (all
calculated as #days after 20040702)
to produce your re****t, 2006 figures are at
sales-total-current-store-daily(729), 2005 at ...(365) 2004 @[EMAIL PROTECTED]
...(1)
The next line is ...(730),...(366),...(2)
and so on for the 31 days of July.
Now if the boss wants 2 or three months, or even a year - then the data's
already being stored and all you need is to change the number of days
re****ted. Different number of years, just change the number of columns
produced - the algorithm doesn't change.
And as a bonus, if you move sales-totals-all-stores to
sales-totals-current-store after completing the re****t for the last store,
you can use exactly the same routine to produce the figures for ALL
stores.
|
