DDC and Triton3.1 a1

[saso.its]

Hello,

could someone help me. I would like to develop some integration
interface between legacy system and Triton3.1 a1. My problem occurs when l compile the script generated via session tuddc9201m000 (Fuinction server generator). We used components from package TU: 6.1L_b7_glo0 although our customer has installed Triton 3.1 a1. We have no problems with using "tuddc" sessions.

What I need is information, if Triton 3.1a1 can use DDC module. Maybe someone can give me information, how to set up Tools components (ottstp_standard and others) so they will work correctly with DDC for b7.

Please, find attached file with error messages after compiling of generated very simple function server. Probably it will give you a better picture. Maybe someone can compile script in Triton3.1 environment.

Thanks in advance.

|******************************************************************************
|* Program generated by Function Server Generator
|* Generate date:time(MMDDYY:HHMMSS): 121103:133435
|******************************************************************************
|* Necessary includes
|******************************************************************************
#include"ituddc0010"
|******************************************************************************
|* tcmcs9037  0  VRC 3.1C a1 dzs 
|* Test DDC
|* General_User                  
|* 2003-12-11
|* Main table tcmcs037 ©ifre davkov, Form Type 1
                                                                                

	table	ttcmcs037	| ©ifre davkov




|********************START DDC VARIABLES***************

	extern long	ddc.compnr
	extern domain	tccvat	ddc.tcmcs037.cvat
	extern domain	tcdsca	ddc.tcmcs037.dsca
	function long validate.fields()
#define ddc.set.choice(X)
^	update.status = X
^	previous.choice = X
^	choice = X
#define ddc.set.field(X,Y,Z)
^	ddc.fieldnumber = X
^	ddc.formnumber = Y
^	ddc.formfieldnumber = Z
^	attr.input = true
^	stp.check.input.error = 0

|********************END DDC VARIABLES***************


function ddc.main()
{
	ddc.define.function(add_sifre_davkov)
	ddc.define.function(modify_sifre_davkov)
	ddc.define.function(delete_sifre_davkov)
}

function ddc.define.fields()
{
	ddc.update.field("add_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("add_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
	ddc.update.field("add_sifre_davkov","",3,"ddc.tcmcs037.dsca",
			"tcdsca","Opis")
	ddc.update.field("modify_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("modify_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
	ddc.update.field("modify_sifre_davkov","",3,"ddc.tcmcs037.dsca",
			"tcdsca","Opis")
	ddc.update.field("delete_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("delete_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
}

function add_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	ddc.set.choice(add.set)
	if validate.fields() then
		return
	endif
	update.status = 0
	if not(ddc.errors) then
		db.columns.to.record(ddc.main.table.id)
		db.insert(ddc.main.table.id,db.retry)
	endif
	commit.transaction()
	ddc.appl.delete()
	ddc.switch.back()
}

function modify_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	select tcmcs037.*
	from tcmcs037 for update
	where tcmcs037._index1 = {:ddc.tcmcs037.cvat}
	selectdo
		db.columns.to.record(ddc.main.table.id)
		db.eq(ddc.main.table.id,db.delayed.lock)
		copy.mem(ddc.rcd.occ.save,ddc.main.table.buffer)
		ddc.set.choice(modify.set)
		if validate.fields() then
			return
		endif
		update.status = 0
		if not(ddc.errors) then
			db.columns.to.record(ddc.main.table.id)
			db.update(ddc.main.table.id,db.retry)
		endif
		commit.transaction()
	selectempty
		ddc.error(0,"Record not found")
	endselect
	ddc.appl.delete()
	ddc.switch.back()
}

function delete_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	select tcmcs037.*
	from tcmcs037 for update
	where tcmcs037._index1 = {:ddc.tcmcs037.cvat}
	selectdo
		db.columns.to.record(ddc.main.table.id)
		db.eq(ddc.main.table.id,db.delayed.lock)
		copy.mem(ddc.rcd.occ.save,ddc.main.table.buffer)
		ddc.set.choice(mark.delete)
		update.status = 0
		if not(ddc.errors) then
			db.columns.to.record(ddc.main.table.id)
			db.delete(ddc.main.table.id,db.retry)
		endif
		commit.transaction()
	selectempty
		ddc.error(0,"Record not found")
	endselect
	ddc.appl.delete()
	ddc.switch.back()
}
function long validate.fields()
{
	if choice = add.set then
		db.set.to.default(ddc.main.table.id)
	endif
	db.record.to.columns(ddc.main.table.id)

	ddc.set.field(2,1,1)
	if attr.input then
		tcmcs037.cvat = ddc.tcmcs037.cvat
	endif

	ddc.set.field(3,1,2)
	if attr.input then
		tcmcs037.dsca = ddc.tcmcs037.dsca
	endif


	table.round("ttcmcs037")

	ddc.set.field(0,0,0)

	return(ddc.errors)

}
function init.ddc.vars()
{
	actual.occ = 1
	attr.inpfld = 1
	curr.key = 1
	stp.abort.error = 0
	stp.skip.error = 0
	ddc.add.set = 1
	ddc.modify.set = 1
	ddc.mark.delete = 1
	ddc.print.data = 0
	ddc.cont.process = 0

	if not ddc.main.table.id then
		ddc.main.table = "tcmcs037"
		ddc.main.table.id = db.bind("ttcmcs037","",get.compnr())
		db.row.length(ddc.main.table.id,ddc.main.table.length)
		db.unbind(ddc.main.table.id)
		if alloc.mem(ddc.main.table.buffer,ddc.main.table.length) then
			ddc.error(0,"Memory Error")
			end()
		endif
		ddc.main.table.id = db.bind("ttcmcs037",ddc.main.table.buffer,get.compnr())
		if alloc.mem(ddc.rcd.occ.save,ddc.main.table.length) then
			ddc.error(0,"Memory Error")
			end()
		endif
	endif

}

function format.variables()
{

	ddc.format.domain("tccvat",ddc.tcmcs037.cvat)
	ddc.format.domain("tcdsca",ddc.tcmcs037.dsca)
}

function long check.variables()
{

	ddc.check.domain(2,"tccvat",ddc.tcmcs037.cvat)
	ddc.check.domain(3,"tcdsca",ddc.tcmcs037.dsca)
	return(ddc.errors)
}

|******************************************************************************
|* 4GL program functions
|******************************************************************************




|******************************************************************************
|* Error List
|******************************************************************************

ptcmcs9037f0(  84): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0(  84): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0(  90): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 114): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 116): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0( 116): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 117): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 117): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 150): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 152): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0( 152): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 153): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 153): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 169): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 173): Error: 'ddc.fieldnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'ddc.formnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'ddc.formfieldnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'stp.check.input.error' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 195): Error: 'curr.key' not declared
ptcmcs9037f0( 196): Error: 'stp.abort.error' not declared
ptcmcs9037f0( 197): Error: 'stp.skip.error' not declared
ptcmcs9037f0( 198): Error: 'ddc.add.set' not declared
ptcmcs9037f0( 199): Error: 'ddc.modify.set' not declared
ptcmcs9037f0( 200): Error: 'ddc.mark.delete' not declared
ptcmcs9037f0( 201): Error: 'ddc.print.data' not declared
ptcmcs9037f0( 202): Error: 'ddc.cont.process' not declared
ptcmcs9037f0( 204): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 205): Error: 'ddc.main.table' not declared
ptcmcs9037f0( 206): Error: Dimensions in array assignment differs: 0:1
ptcmcs9037f0( 207): Error: 'ddc.main.table.length' not declared
ptcmcs9037f0( 207): Error: Argument 2 for function 'db.row.length' should be call by reference.
ptcmcs9037f0( 209): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 214): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0(  75): Error: Unresolved reference to function 'ddc.switch.company'.
ptcmcs9037f0(  94): Error: Unresolved reference to function 'ddc.appl.delete'.
ptcmcs9037f0(  95): Error: Unresolved reference to function 'ddc.switch.back'.
ptcmcs9037f0( 225): Error: Unresolved reference to function 'ddc.format.domain'.
ptcmcs9037f0( 232): Error: Unresolved reference to function 'ddc.check.domain'.

 39 ERRORS    REPORTED.

[jan van dillen]

Hi,

It looks to me that the program can not find the includes tuddc0016 and tuddc0014.

I believe that the DDC module was written as a Noth American localisation in Triton 3.1, so it will probably be possible to use it.

Regards,

Jan

[saso.its]

I sucsess compile the script without errors.
Problem occure because function tuddc0014 from package TU: 6.1L_b7_glo0 was maybe too old or wrong.
We used some components from BaanIV b1-b2 inviroment.

Thanks for your suggestions.