Functional Description
Purpose
The purpose of F1301 Read Next/Previous Key is to find the next or previous key to the Table so that
it can be displayed on the form. This matches the F19/F20 Functionality on the AS/400 to roll to the
next or previous key.
Setup Notes and Prerequisites
Special Logic
Technical Specification
If Next/Previous Flag == '1', then
Select records greater than or equal to input Rate Table (RTTB)
Sort records in ascending key using RTTB, RTGR, EFTB, and NUMB
Fetch selected records until key changes
Populate data structure with new key fields
If no records found, set Error Flag = 1
Else (Next/Previous Flag == '2')
Select records less than or equal to input Rate Table (RTTB)
Sort records in descending key using RTTB, RTGR, EFTB, and NUMB
Fetch selected records until key changes
Populate data structure with new key fields
If no records found, set Error Flag = 1
End if
^
D1300050 - F1301 Read Next/Previous Key
| Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
|---|---|---|---|---|
| szEquipmentRateTable | RTTB | char | NONE | NONE |
A user defined code (system 13, type TB) that identifies tables of different groups of rental rates for equipment. You can set up as many
| ||||
| szEquipmentRateGroup | RTGR | char | NONE | NONE |
A user defined code (12/C0) that identifies groups of similar pieces of equipment that are tied together for billing purposes. | ||||
| jdDateBeginningEffective | EFTB | JDEDATE | NONE | NONE |
The date that an address, item, transaction, or table record becomes active. The meaning of this field differs, depending on the program.
| ||||
| mnAssetItemNumber | NUMB | MATH_NUMERIC | NONE | NONE |
An 8-digit number that uniquely identifies an asset. | ||||
| cNextPreviousFlag | EV01 | char | NONE | NONE |
1=Find Next Key
| ||||
| cErrorFlag | EV02 | char | NONE | NONE |
Return '1' if error
| ||||
| None |
| F1301 Equipment Rates |