1.Functional Description
1.1Purpose
This function will delete records in the Summary Forecast file (F3400) using the input Summary Code
and Forecast Type so that new ones can be generated.
1.2Setup Notes and Prerequisites
1.3Special Logic
2.Technical Specifications
1.Do 13 times incrementing $X
If @NF,$X is not equal to blanks
Use the key pieces passed in plus
Move @NF,$X to SGTYPF
Move $$BEG to SGDRQJ
SETLL on F3400 with the SummaryCode and ForecastType
Read all records equal to the full key minus the date
If SGDRQJ off the record found is less than or equal to$$END
Delete the F3400 record
Chain to the F34006 with ChildKey, SummaryCode, and
@NF,X
If a record is found
Call DeleteDetailForecast B3400750
Item Number
Branch
@NF,X
BeginDate
EndDate
R34640
End
End
End
EndDo
^
D3401040 - F3400 Clear Forecast Summary Records
| Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
|---|---|---|---|---|
| idTypeArray | GENLNG | ID | NONE | NONE |
General purpose ID variable. | ||||
| jdBeginDate | DRQJ | JDEDATE | NONE | NONE |
The date that an item is scheduled to arrive or that an action is scheduled for completion. | ||||
| jdEndDate | DRQJ | JDEDATE | NONE | NONE |
The date that an item is scheduled to arrive or that an action is scheduled for completion. | ||||
| szSummaryCode | KVER | char | NONE | NONE |
A user defined code (40/KY) that indicates the type of summary forecast. | ||||
| szForecastType | TYPF | char | NONE | NONE |
A user defined code (34/DF) that indicates one of the following:
o The forecasting method used to calculate the numbers displayed about
| ||||
| B3400750 Delete Detail Forecasts |
| F3400 Forecast Summary File | ||||
| F34006 Forecast Summary Work File |