| Title: | Transfer Price Administration System |
| Notice: | Conference has moved to ACADMY::TPAS_NOTES |
| Moderator: | ACADMY::MAGNI |
| Created: | Wed Jul 01 1992 |
| Last Modified: | Fri Mar 21 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 102 |
| Total number of notes: | 459 |
Hi Magni,
We are making a small enhancement to our local applications which interface
with TPAS-2 module. One of our applications will use CDD to define record
structure of local files to store parameters return from TPAS-2.
However, we are not quite sure how to define data types in CDD
dictionary for the following COBOL data types:
TPAS_REQ_ORDER_MLP COMP-2.
TPAS_REQ_LOCAL_STD_COST COMP-2.
TPAS_REQ_SHIP_TYPE_CD PIC 9(02) COMP.
TPAS_RECEIVE_MLP_DISCOUNT_PERCENT COMP-2.
...
...
These data names and types are defined in TPAS-SEND-REQUEST argument
list. Appreciate if you let us know how to define them equivalently in
CDD or know other sites who have similar requirement.
Sincerely,
Andrew Kan
PASM07::ANDREWKAN
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 101.1 | Field Defintions | AWARD::MAGNI | Lois, 237-5548 | Tue Oct 10 1995 11:23 | 83 |
I have defined the fields in the CDO using the following field defintions.
When you include the record in COBOL it will translate for you to the
correct data type.
Hope this helps. If not let me know.
Define field CORP_MLP
Description /* The Maynard List Price for a Digital Saleable part/product/service. */
/* s9(14)V9(02) */
Generic MCS_allowConcurrent is '1'
Datatype signed quadword scale -2
.
Define field CORP_STD_COST
Description /* The Standard Cost for a Digital part/product/service. */
/* s9(08)V9(06) */
Generic MCS_allowConcurrent is '1'
Datatype signed quadword scale -6
.
Define field TPAS_INPUT_SHIP_TYPE_CD
Description /* Type of shipment. Good (1) / Return-Repair (2) */
/* Return-defective-credit (3) / Return-good-credit (4) */
Generic MCS_allowConcurrent is '1'
Datatype text size is 1 characters
.
Define field TPAS_INPUT_ORDER_MLP
Description /* The ORDER MLP for a Digital Saleable part/product/service. */
/* sent in to TPAS_CALC_TRNSFR_PRC from user input */
/* s9(14)V9(02) */
Generic MCS_allowConcurrent is '1'
Datatype signed quadword scale -2
.
Define field TPAS_INPUT_LOCAL_STD_COST
Description /* The Local Standard Cost for a Digital part/product/service. */
/* s9(08)V9(06) */
Generic MCS_allowConcurrent is '1'
Datatype signed quadword scale -6
.
Define field DSCNT_MLP_DSCNT_PERCT
Description /* % base price is decreased by for transfer price. V9(02) */
Datatype signed word scale -2
.
Define field DSCNT_NOR_DSCNT_PERCT
Description /* % base price is decreased by for transfer price. V9(02) */
Generic MCS_allowConcurrent is '1'
Datatype signed word scale -2
.
Define field DSCNT_STD_COST_UPLFT_PERCT
Description /* % base price cost is increased by for trans price. 9(01)V9(02) */
Datatype signed word scale -2
.
| |||||