Hier ist der Code für ein kleines Modul. Es macht nichts anderes als den Text Hallo Welt auszugeben.
Kopieren Sie den Code in einen Texteditor und speichern Sie ihn als hallowelt.mod im Verzeichnis custprg ab. Übersetzen Sie dann das Programm mit der tdbengine in hallowelt.prg.
Code:
var cms_Version : INTEGER := 1
var cms_ModuleVersion : INTEGER := 1
var cms_ShowModule : STRING := 'execmacro="Hallo_Welt"'
var cms_Functions_1 : STRING := ''
include ../sysmod/cms_sub.mod
procedure cmsMain(nLfdWEB:INTEGER;cSpacer,cSes,cURL,cParam:STRING):STRING
cms_nLfdWEB := nLfdWEB
cms_cSpacer := cSpacer
cms_cSes := cSes
cms_cURL := cURL
cms_cParam := cParam
////
cms_WriteText('Hallo Welt')
////
Subst(cSpacer,'')
Return cSes
endproc
var cms_ModuleVersion : INTEGER := 1
var cms_ShowModule : STRING := 'execmacro="Hallo_Welt"'
var cms_Functions_1 : STRING := ''
include ../sysmod/cms_sub.mod
procedure cmsMain(nLfdWEB:INTEGER;cSpacer,cSes,cURL,cParam:STRING):STRING
cms_nLfdWEB := nLfdWEB
cms_cSpacer := cSpacer
cms_cSes := cSes
cms_cURL := cURL
cms_cParam := cParam
////
cms_WriteText('Hallo Welt')
////
Subst(cSpacer,'')
Return cSes
endproc