Before running the Adelia Studio extraction process, check that the translation manager settings match the Adelia/400 settings. (Apply option 1 "Setup", then F10; press Enter to view the second page of parameters.)
The SQL queries shown below can be used to identify any changes (relative to the extractions) made to the constant dictionary in the Adelia/400 translation manager. The results returned by these queries can be used to carry over the modifications to the Adelia Studio translation manager once the strings have been extracted from the programs.
Notation: In the queries below, xxxxx stands for the library in which the Adelia/400 translation utility's constant directory is managed.
To find all the copied constants (except the FIX type, which is dealt with separately)
Select * from xxxxx/h2csto a, xxxxx/h2csto b
Where a.ctxcst = b.ctxcst and a.cnocst > b.cnocst
and a.ctycst = b.ctycst
and a.ctycst <> 'FIX'
Order by a.ctxcst
To find any constants whose FIX type has been forced
Select * from xxxxx/h2csto
Where ctycst = 'FIX'
Order by ctxcst
To find any constants whose Restore type has been changed
Select * from xxxxx/h2csto
Where (ctycst = 'CST' and ctyagr <> 'N') or
(ctycst = 'FON' and ctyagr <> 'D') or
(ctycst = 'TIT' and (ctyagr <> 'L' )) or
(ctycst = 'OPT' and ctyagr <> 'D') or
(ctycst = 'ENT' and ctyagr <> 'D') or
(ctycst = 'VAL' and ctyagr <> 'N') or
(ctycst = 'RAN' and ctyagr <> 'N')
Order by ctxcst
- The test values for "ctyagr" correspond to the default values of a translation environment. If these values have been changed (using option 1 "Setup" in the Adelia/400 translation tool), the query must be changed accordingly.
- For types (ctycst): FON stands for Function key, TIT stands for Title, OPT stands for Option, ENT stands for Header and CST stands for Constant. The default values of the VAL (Value) and RAN (Range) types are not configurable.
- For values (ctyagr): D stands for Right, G stands for Left, L stands for Free and N stands for No.
To find any (initial) constants with associations
Select * from xxxxx/h2csto where cncsta <> 0 and ccolie = ' '
Constants whose type has been changed
Important: It is not possible to identify any constants whose type has been changed (e.g. an ENT constant that has been changed to a CST type constant) except with the FIX type (which is not affected by the extraction procedure).