Connectivity Manual C/S - Database structure EDIS
Database structure EDIS
Tables used for input
This section describes the tables that need to be used or filled in EDIS by
the third party application. It concerns five tables:
- DDCENU
- record number next record
- DDCDAT
- Control record for records to be created
- DDCDSS
- Small records to be transferred (<=256)
- DDCDSM
- Medium records to be transferred (257 - 1024)
- DDCDSL - Large records to be transferred (1025 - 2000)
Example - create supplier
The following example shows how to create a supplier in the format of the
table as defined in paragraph DDCDSS - Small records to be transferred.
| /*
|
| [Program name] CREASUPP.P
|
| [Date started] 07/01/2000
|
| [Description] Example for the creation of a supplier in EDIS
|
| */
|
| DEFINE VARIABLE p_iNumberToBeUsed AS INTEGER NO-UNDO.
|
| /* find the last number to be used */
|
| FIND LAST ddcenu
|
| WHERE ddcenu.application = "RELAPACK"
|
| AND ddcenu.number_type = 3002
|
| EXCLUSIVE-LOCK NO-ERROR.
|
| IF NOT AVAILABLE ddcenu THEN DO:
|
| CREATE ddcenu.
|
| ASSIGN
|
| | ddcenu.application = "RELAPACK"
|
| | ddcenu.number_value = 1
|
| | ddcenu.number_type = 3002 /* 3002 is for records, 3001 for messages, 3003 is for transactions */
|
| | .
|
| END.
|
| /* already increase the number in ddcenu for other data and assign value to be used. */
|
| ASSIGN
|
| p_iNumberToBeUsed = ddcenu.number_value
|
| ddcenu.number_value = ddcenu.number_value + 1
|
| .
|
| /* create the record to be transferred */
|
| CREATE ddcdss.
|
| ASSIGN
|
| ddcdss.application = "RELAPACK"
|
| ddcdss.record_id = p_iNumberToBeUsed
|
| ddcdss.small_data
|
| | = STRING (20001, ">>>>>9")
|
| | + STRING ("Smith", "X(30)")
|
| | + STRING ("Lane 3", "X(30)")
|
| | + STRING ("London", "X(30)")
|
| | + STRING (10000, ">>>>>>>>>>>>>>9.9999")
|
| | + STRING ("Giro", "X(9)")
|
| .
|
| /* create the control record */
|
| CREATE ddcdat.
|
| ASSIGN
|
| ddcdat.application = " RELAPACK":U
|
| ddcdat.record_id = p_iNumberToBeUsed
|
| ddcdat.table_name = "RELATIONS":U
|
| ddcdat.record_state = 1004 /* waiting for processing */
|
| ddcdat.action = 2001 /*2001=create,2002=modify,2003=remove,2004=assign */
|
| ddcdat.date_created = TODAY
|
| ddcdat.time_created = TIME
|
| ddcdat.master_id = 0
|
| ddcdat.detail_records = 0
|
| .
|
| /* end of example */ |
| | | |
Connectivity Manual C/S - Contents
> EDIS
> Database structure EDIS
| Main Category: |
Support Product Know How |
Document Type: |
Support - On-line help |
| Category: |
On-line help files |
Security level: |
All - 0 |
| Sub category: |
Details |
Document ID: |
01.642.725 |
| Assortment: |
Exact Financials (v3)
|
Date: |
26-04-2005 |
| Release: |
|
Attachment: |
|
| Disclaimer |