Tous les programmes ENDUSER4GL sont développés au sein d'un fichier TEXTE.
L'extension de ces fichiers est .EU4glExe et non pas l'extension conventionnelle soit .txt
Puis, toujours avec Explorateur, Cliquez sur le fichier pour éxécuter le programme
EndUser4gl.Exemple :
** ****************************************************************************************** *
** EndUser4gl : Exemple d'un langage de 4 ème génération
** Example for 4gl
** *******************************************************************************************
** Majuscule/minuscule indifférents, une longueur d'une déclaration variable ne peut
etre > 30 caractères
comment/commentaires : ** comment/commentaire.
ou /* comment/commentaire /*
** EndUser4gl Ph Bergougnoux
** *******************************************************************************************
** Structure pgm EndUser4gl : 3 FORM :
** 1- Not Structure
** 2 - Structure : Global-End_Global,Begin_Main - End_Main, declare : Func ou
procedure
** 3 - Object : en cours..
**
*******************************************************************************
** FORM 1 : Not structured
** ****************************************************************************************
** declare & Instructions ;
** Ex :display "HELLO"
** or
Char : Label:50 := "HELLO"
Display Label;
** ****************************************************************************************
** FORM 2 :structured
** ****************************************************************************************
** GLOBAL
include file :#include <file>
integer : <name>
long : <name>
char : <name:xxx>
float : <name dec(xx)>
double : <name dec(xx)>
table: <name> occurs xx { integer :name1... etc*..}
tableBtree : <name> { "string"...}
Struct <name> { integer :name1... etc*..}
etc..
** comment/commentaire
/* comment/commentaire /*
End_global
Begin_Main
instructions...
Function , procedure ...
end_Main
**
** Declare function /Procedure :
proc <name> ( char..,integer... )
begin_procedure
Local
char : ..integer..
end_local
instructions...
end_procedure
func <name> ( char..,integer... )
begin_function
Local
char : ..integer..
end_local
instructions...
end_function
**
** ************************************************************************************
** Structure TRANSACTION
**************************************************************************************
** begin_transaction : <name> Execute Transaction with : < conditions> --->
STOP
begin_dialog
** instructions Windows
End_Dialog
begin_dialog ---> N dialog
** instructions Windows
End_Dialog
Begin_Initialize ----> Before OpendDialog/ShowDialog
** Instructions...
End_Initialize
OpendDialog/ShowDialog(<Name1>, <Name2....)
Instructions... Conditions etc..
** or
**
Begin_Message_Dialog(<Name1>)::OnMoveCursor(void)
** Instructions... Conditions etc..
End_Message_Dialog
** Begin_Message_Dialog(<Name1>)::OnClickDialog(void)
** Instructions... Conditions etc..
** End_Message_Dialog
** Instructions... Conditions etc..
** End_Message_Dialog
Begin_Message_Dialog(<Name1>)::OnClickMenuSelect(void)
End_transaction
** ****************************************************************************************
** FORM 3 :Object : en cours de réalisation
** ****************************************************************************************
/* referentiel de l'objet CLIENT */
/* les commentaires sont ligne par ligne */
CLASS client
export :
NUMCLI string( 006) key UNIQUE /* num,ro client */
DAT_CR date
RAISOC string (030)
ADRESS string (025)
ADRCP string ( 045)
ADRVI string( 020 )
NUMTEL instSTr ( 008 )
COUT01 amount
COUT02 amount
SLDCDC amount
TYPCLI string(100)
TYPEA status[1,2,3,4]
TYPLIB function string ( 015 )
create procedure TOTO
delete procedure standard
inquire procedure standard
update procedure standard
end_export
procedure : TOTO
begin
require TYPCLI ^VOID ;
default : TYPEAB := "1" ;
wnt := 1000 * 2 / 4 ;
end_begin
end_procedure
end_class
BBergougnoux Consulting
14 rue Jean Moulin 37550 St Avertin, Tours FRANCE.
Copyright (c) 2001-2005 ENDUSER4GL
Tous droits réservés. All rights reserved
fax : 00 33 8 71 22 59 46