1.Functional Description
This business function will get a maximum of 11 Unprocessed Messages from the Message table F3411 for
a given Item and Branch. You can select the message types and limit the selection thru a given date.
If there are more than 11 messages, the 12th message type will be a +.
1.1Purpose
This function is used to determine whether there are messages for a given Item / Branch and display
in the Summary Message Schedule.
1.2Setup Notes and Prerequisites
None
1.3Special Logic
None.
2.Technical Specifications
The following actions have to be performed by the Business Function.
1. Initialise Work Variables. Wk Integer = 1. Wk Array [23] = blanks.
Initialise all Output fields to blanks/zeros.
2. Do While Wk Integer <= 23 or there are no more rows in table F3411
Read the Message table (F3411) using MMITM (=Input Short Item) and MMMCU(=Branch) as
partial keys.
If the row is found and MMMSGA <> 'Y'
If MMRRQJ = Input Thru Date or Input Thru Date <= 0
If Input Message Type = blanks or Input Message Type = MMMSGT
If Wk Integer = 23
Wk Array[Wk Integer] = '+'
Else
Wk Array[Wk Integer] = MMMSGT
Endif
Output No of Records = Output No of Records + 1.
Add 2 to Wk Integer.
Endif
Endif
Endif
End While.
Output Outstanding Messages = Wk Array Left Justified.
3. If Output No of Records = 0, Set Error Message to 1838. If Error in Opening F3411, Error Message =
3143.
^
D3400170 - Get Messages From F3411
Data Item Data Structure DescriptionI/ORequiredNotes
ITM Short Item Number IY
MCU Branch IY
RRQJ Thru Date I Can be zeros.
MSGT Message Type I Can be blanks
EV01 Suppress Error Message I '1' Suppress Error Messages
VC30A Outstanding Messages O
INT01 No of Messages O
DTAI Error Message ID O Blanks - Success '3143' -
Errors
'1838' - No Records
^
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnShortItemNumber | ITM | MATH_NUMERIC | NONE | NONE |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
szBranch | MCU | char | NONE | NONE |
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit
| ||||
jdThruDate | RRQJ | JDEDATE | NONE | NONE |
The completion date planned for this order. | ||||
cMessageType | MSGT | char | NONE | NONE |
A code that distinguishes different messages generated in the Distribution Requirements Planning/Master Production Schedule/Material
| ||||
cSuppressErrorMessages | EV01 | char | NONE | NONE |
An option that specifies the type of processing for an event. | ||||
szOutstandingMessages | VC30A | char | NONE | NONE |
This is a generic field used as a work field in Everest. | ||||
nNumberOfMessages | INT01 | integer | NONE | NONE |
Number of Days in Future to Query for Responses Due. | ||||
szErrorMessageID | DTAI | char | NONE | NONE |
A code that identifies and defines a unit of information. It is an alphanumeric code up to 8 characters long that does not allow blanks or
| ||||
mnProjectNumber | PRJM | MATH_NUMERIC | OPT | NONE |
A number that identifies an EPM project in the system. The project must be set up in the Add/Revise Project program (P31P011). |
None |
F3411 MPS/MRP/DRP Message File |