The first step in transparency conversion of a Total database to a CA IDMS/DB database is to execute the transparency generator ETOTMAIN.
Input to ETOTMAIN
You provide the following input to ETOTMAIN, in this order:
Output from ETOTMAIN
Output from ETOTMAIN includes:
For more information about messages issued by ETOTMAIN, see Generator Messages.
Examples of Input and Output
Input—Total DDL
The following is an example of Total DDL statements input to the transparency generator (ETOTMAIN).
BEGIN-DATA-BASE-GENERATION: DATA-BASE-NAME=CUORDABA 16:28:54 07/18/99 08/18/99 BEGIN-MASTER-DATA-SET: DATA-SET-NAME=CUST MASTER-DATA: CUSTROOT=8 CUSTCTRL=6 CUSTLKCO=8 CUSTLKAR=8 CUSTLKRE=8 CUSTNAME=30 CUSTADDR=30 CUSTCIST=20 *FILLER*=5 SAMENAME=5 END-DATA: LOGICAL-RECORD-LENGTH=128 END-MASTER-DATA-SET: BEGIN-MASTER-DATA-SET: DATA-SET-NAME=ORNU MASTER-DATA: ORNUROOT=8 ORNUCTRL=12 ORNULKCO=8 .00.ORNU0001=5 .00.ORNU0002=0 . .01.ORNU0003=2 . .01.ORNU0004=0 . .02.ORNU0005=7 . .02.ORNU0006=6 . .03.ORNU0007=1 . .03.ORNU0008=5 . .02.ORNU0009=0 . .03.ORNU0010=2 . .03.ORNU0011=4 END-DATA: LOGICAL-RECORD-LENGTH=49 END-MASTER-DATA-SET: BEGIN-MASTER-DATA-SET: DATA-SET-NAME=DARE MASTER-DATA: DAREROOT=8 DARECTRL=4 DARELKDR=8 DARELKDS=8 DARELKDN=8 DARELKDG=8 SAMENAME=6 END-DATA: LOGICAL-RECORD-LENGTH=50 END-MASTER-DATA-SET:
BEGIN-MASTER-DATA-SET: DATA-SET-NAME=INVE MASTER-DATA: INVEROOT=8 INVECTRL=6 INVELKCO=8 INVELKRE=8 INVEITDE=30 INVEITCO=5 INVEITPR=5 INVEQTOH=4 INVEQTOO=4 END-DATA: LOGICAL-RECORD-LENGTH=78 END-MASTER-DATA-SET: BEGIN-VARIABLE-ENTRY-DATA-SET: DATA-SET-NAME=CUOR BASE-DATA: CUORCODE=2 CUORORNU=12=ORNUCTRL ORNULKCO=8 CUORLINU=2 CUORDATA=55 RECORD-CODE=HD CUORDRDR=4=DARECTRL DARELKDR=8 CUORDSDS=4=DARECTRL DARELKDS=8 CUORCUST=6=CUSTCTRL CUSTLKCO=8 CUORTOVA=5 CUORTOIT=2 CUORTERM=10 RECORD-CODE=IT CUORINVE=6=INVECTRL INVELKCO=8 CUORQURE=4 CUORPRIC=5 CUORWEIG=4 RECORD-CODE=CM CUORCOMM=55 RECORD-CODE=JG CUORJGDR=4 DARELKDR=8=CUORJGDR CUORJGDS=4 DARELKDS=8=CUORJGDS END-DATA: LOGICAL-RECORD-LENGTH=79 END-VARIABLE-ENTRY-DATA-SET:
BEGIN-VARIABLE-ENTRY-DATA-SET: DATA-SET-NAME=ACRE BASE-DATA: ACRECODE=2 ACRECUST=6=CUSTCTRL CUSTLKAR=8 ACRESENB=2 ACREDATA=45 RECORD-CODE=BL ACREDNDN=4=DARECTRL DARELKDN=8 ACREDGDG=4=DARECTRL DARELKDG=8 ACREINNB=6 ACRENEAM=5 ACREGRAM=5 ACREAMPA=5 RECORD-CODE=CK ACRECKNB=6 ACRENUMB=6 ACREAMOU=5 END-DATA: LOGICAL-RECORD-LENGTH=63 END-VARIABLE-ENTRY-DATA-SET: BEGIN-VARIABLE-ENTRY-DATA-SET: DATA-SET-NAME=REMA BASE-DATA: REMACUST=6=CUSTCTRL CUSTLKRE=8 REMAINVE=6=INVECTRL INVELKRE=8 REMASENB=2 REMATEXT=78 END-DATA: LOGICAL-RECORD-LENGTH=108 END-VARIABLE-ENTRY-DATA-SET: END-DATA-BASE-GENERATION:
Output—Schema Source
The following is an example of schema source statements generated by the transparency generator, ETOTMAIN. This output is based on the previous Total DDL example input.
ADD
SCHEMA NAME IS ETOTSCHM VERSION IS 1.
ADD
AREA NAME IS CUSTOMER-REGION.
ADD RECORD NAME IS CUSTOMER
RECORD ID IS 101
LOCATION MODE IS CALC USING CUSTOMER-KEY
DUPLICATES ARE NOT ALLOWED
WITHIN AREA CUSTOMER-REGION.
02 CUSTOMER-KEY PIC X(6).
02 CUSTNAME PIC X(30).
02 CUSTADDR PIC X(30).
02 CUSTCIST PIC X(20).
02 FILLER PIC X(5).
02 SAMENAME PIC X(5).
ADD RECORD NAME IS ORNU
RECORD ID IS 102
LOCATION MODE IS CALC USING ORNUCTRL
DUPLICATES ARE NOT ALLOWED
WITHIN AREA CUSTOMER-REGION.
02 ORNUCTRL PIC X(12).
02 ORNU0001 PIC X(5).
02 ORNU0002.
03 ORNU0003 PIC X(2).
03 ORNU0004.
04 ORNU0005 PIC X(7).
04 ORNU0006.
05 ORNU0007 PIC X(1).
05 ORNU0008 PIC X(5).
04 ORNU0009.
05 ORNU0010 PIC X(2).
05 ORNU0011 PIC X(4).
02 FILLER PIC X(2).
ADD RECORD NAME IS DARE
RECORD ID IS 103
LOCATION MODE IS CALC USING DARECTRL
DUPLICATES ARE NOT ALLOWED
WITHIN AREA CUSTOMER-REGION.
02 DARECTRL PIC X(4).
02 SAME-NAME-OF-DARE PIC X(6).
02 FILLER PIC X(2).
ADD RECORD NAME IS INVE
RECORD ID IS 104
LOCATION MODE IS CALC USING INVECTRL
DUPLICATES ARE NOT ALLOWED
WITHIN AREA CUSTOMER-REGION.
02 INVECTRL PIC X(6).
02 INVEITDE PIC X(30).
02 INVEITCO PIC X(5).
02 INVEITPR PIC X(5).
02 INVEQTOH PIC X(4).
02 INVEQTOO PIC X(4).
02 FILLER PIC X(2).
ADD RECORD NAME IS CUSTOMER-ORDER
RECORD ID IS 105
LOCATION MODE IS VIA CUST-TO-ORDER SET
WITHIN AREA CUSTOMER-REGION.
02 CUORCODE PIC X(2).
02 CUORORNU PIC X(12).
02 CUORLINU PIC X(2).
02 CUORDATA PIC X(55).
02 CUOR-RECORD-HD
REDEFINES CUORDATA.
03 CUORDRDR PIC X(4).
03 CUORDSDS PIC X(4).
03 CUORCUST PIC X(6).
03 CUORTOVA PIC X(5).
03 CUORTOIT PIC X(2).
03 CUORTERM PIC X(10).
03 FILLER PIC X(24).
02 CUOR-RECORD-IT
REDEFINES CUORDATA.
03 CUORINVE PIC X(6).
03 CUORQURE PIC X(4).
03 CUORPRIC PIC X(5).
03 CUORWEIG PIC X(4).
03 FILLER PIC X(36).
02 CUOR-RECORD-CM
REDEFINES CUORDATA.
03 CUORCOMM PIC X(55).
02 CUOR-RECORD-JG
REDEFINES CUORDATA.
03 CUORJGDR PIC X(4).
03 CUORJGDS PIC X(4).
03 FILLER PIC X(47).
02 FILLER PIC X(1).
ADD RECORD NAME IS ACRE
RECORD ID IS 106
LOCATION MODE IS VIA CUST-AR-ACRE SET
WITHIN AREA CUSTOMER-REGION.
02 ACRECODE PIC X(2).
02 ACRECUST PIC X(6).
02 ACRESENB PIC X(2).
02 ACREDATA PIC X(45).
02 ACRE-RECORD-BL
REDEFINES ACREDATA.
03 ACREDNDN PIC X(4).
03 ACREDGDG PIC X(4).
03 ACREINNB PIC X(6).
03 ACRENEAM PIC X(5).
03 ACREGRAM PIC X(5).
03 ACREAMPA PIC X(5).
03 FILLER PIC X(16).
02 ACRE-RECORD-CK
REDEFINES ACREDATA.
03 ACRECKNB PIC X(6).
03 ACRENUMB PIC X(6).
03 ACREAMOU PIC X(5).
03 FILLER PIC X(28).
02 FILLER PIC X(1).
ADD RECORD NAME IS REMA
RECORD ID IS 107
LOCATION MODE IS VIA CUST-RE-REMA SET
WITHIN AREA CUSTOMER-REGION.
02 REMACUST PIC X(6).
02 REMAINVE PIC X(6).
02 REMASENB PIC X(2).
02 REMATEXT PIC X(78).
ADD SET NAME IS CUST-TO-ORDER
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS ORNU NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MEMBER IS CUSTOMER-ORDER NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MANDATORY AUTOMATIC.
ADD SET NAME IS DARE-DR-CUOR
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS DARE NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MEMBER IS CUSTOMER-ORDER NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MANDATORY MANUAL.
ADD SET NAME IS DARE-DS-CUOR
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS DARE NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MEMBER IS CUSTOMER-ORDER NEXT DBKEY POSITION IS 5
PRIOR DBKEY POSITION IS 6
MANDATORY MANUAL.
ADD SET NAME IS CUST-CO-CUOR
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS CUSTOMER NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MEMBER IS CUSTOMER-ORDER NEXT DBKEY POSITION IS 7
PRIOR DBKEY POSITION IS 8
MANDATORY MANUAL.
ADD SET NAME IS INVE-CO-CUOR
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS INVE NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MEMBER IS CUSTOMER-ORDER NEXT DBKEY POSITION IS 9
PRIOR DBKEY POSITION IS 10
MANDATORY MANUAL.
ADD SET NAME IS CUST-AR-ACRE
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS CUSTOMER NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MEMBER IS ACRE NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MANDATORY AUTOMATIC.
ADD SET NAME IS DARE-DN-ACRE
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS DARE NEXT DBKEY POSITION IS 5
PRIOR DBKEY POSITION IS 6
MEMBER IS ACRE NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MANDATORY MANUAL.
ADD SET NAME IS DARE-DG-ACRE
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS DARE NEXT DBKEY POSITION IS 7
PRIOR DBKEY POSITION IS 8
MEMBER IS ACRE NEXT DBKEY POSITION IS 5
PRIOR DBKEY POSITION IS 6
MANDATORY MANUAL.
ADD SET NAME IS CUST-RE-REMA
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS CUSTOMER NEXT DBKEY POSITION IS 5
PRIOR DBKEY POSITION IS 6
MEMBER IS REMA NEXT DBKEY POSITION IS 1
PRIOR DBKEY POSITION IS 2
MANDATORY AUTOMATIC.
ADD SET NAME IS INVE-RE-REMA
ORDER IS PRIOR
MODE IS CHAIN LINKED TO PRIOR
OWNER IS INVE NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MEMBER IS REMA NEXT DBKEY POSITION IS 3
PRIOR DBKEY POSITION IS 4
MANDATORY MANUAL.
VALIDATE.
Output—Subschema Source
The following is a sample of a subschema that is generated by the transparency generator, ETOTMAIN. This output is based on the previous Total DDL example input.
ADD
SUBSCHEMA NAME IS ETOTSUBS OF SCHEMA NAME ETOTSCHM.
ADD AREA CUSTOMER-REGION.
ADD RECORD CUSTOMER.
ADD RECORD ORNU.
ADD RECORD DARE.
ADD RECORD INVE.
ADD RECORD CUSTOMER-ORDER.
ADD RECORD ACRE.
ADD RECORD REMA.
ADD SET CUST-TO-ORDER.
ADD SET DARE-DR-CUOR.
ADD SET DARE-DS-CUOR.
ADD SET CUST-CO-CUOR.
ADD SET INVE-CO-CUOR.
ADD SET CUST-AR-ACRE.
ADD SET DARE-DN-ACRE.
ADD SET DARE-DG-ACRE.
ADD SET CUST-RE-REMA.
ADD SET INVE-RE-REMA.
VALIDATE.
GENERATE.
|
Copyright © 2013 CA.
All rights reserved.
|
|