...

/* ___ Déclarations _____________________________________________________________________
DECL_PGM
   /* variables globales, DS, listes, curseurs, déclarations de paramètres du programme

INIT_PGM
   INITIALIER WIN_2205			/* appeler le paragraphe de chargement des données
   EXECUTER   WIN_2205          /* show the window to the user

WIN_2205
   DECLARATION
      /* variables locales, DS, listes, curseurs
   INITIALISATION
      /* code à exécuter avant d'afficher la fenêtre
   OBJETS
     EVENEMENTS_OBJETS...
     BTN_VALIDATE
        BoutonGaucheClic
           VERIFIER              /* appeler le paragraphe de vérification
           VALIDER               /* appeler le paragraphe de validation
           TERMINER              /* fermer la fenêtre en cours (aller à l'odre suivant l'ordre INITIALISER)
   VERIFICATION
      /* code qui vérifie les données saisies par l'utilisateur
      ENVOYER_MSG *EFFACER_TOUT  /* effacer les messages d'erreur
      si [conditionErreur pour l'objet ZZ_JLP]
         preparer_msg hl21734 ZZ_JLP
         init_msg ZZ_JLP
         anomalie      
      fin
      ...
   VALIDATION
      /* code pour mettre à jour la base de données après la vérification des données saisies par l'utilisateur
      MAJ_SQL ou CREER_SQL ou ...

...

Procédures

1 -

...

Définition

Une procédure est un bloc de code appelable depuis un bloc du programme ou bien depuis l'exterieur du programme si la procédure est publique

...

A procedure is a block of code we can call from inside a program or from outside a program if the procedure is public.

2 -

...

Paramètres

3 -

...

Appeler une procédure 

...

...

Chaînes de caractère

1 -

...

Concaténer des variables

...

alphanumeriques

Pour concatener deux variables alphanumériques (ou plus) on utilisera les opérateurs // ou To concatenate two (or more variables) you can use the // or  /// operator .

• // est un opérateur qui va concaténer le contenu exact des deux variables (la taille exacte de l'opérande de gauche sera concaténée à la taille exacte de l'opérande de droite)
• /// est un opérateur qui va éliminer les blancs qui sont en partie droite de l'opérande de gauche operator will exactly concatenate the two variables (lenght of left operator exactly concatenated to lenght of right operator)/// operator will eliminate the blanks on the right part of the left operator.

/* ___ DeclarationsDéclarations _____________________________________________________________________
ALPHA( 10) wLeft 
ALPHA( 10) wRight
ALPHA( 20) wText1 
ALPHA( 20) wText2 
ALPHA( 20) wText3 

/* ___ Code _____________________________________________________________________________
wLeft  = 'Hello'
wRight = 'World' 
wText1 = wLeft //  wRight						/* wText1 = 'Hello     World     '
wText2 = wLeft /// wRight						/* wText2 = 'HelloWorld          '
wText3 = wLeft /// ' ' // wRight				/* wText3 = 'Hello World         '

2 -

...

Découper une chaine de caractères par rapport à un séparateur

Afin de découper une chaine de caractères en différentes chaînes (en une liste de chaines en réalité) par rapport à un séparateur, il suffit d'utiliser l'instruction SCINDER_CHAINE

...

In order to split a string into different strings (to a list of strings in reality) according to a separator, you simply have to use the  SPLIT_STRING instruction :

/* ___ DeclarationsDéclarations _____________________________________________________________________
alpha(  50) elementDay
list liste       lst_days elementDay
alpha(1000) myDays

/* ___ Code _____________________________________________________________________________
myDays = 'Sunday;Monday;Tuesday;Wednesday;Thursday;Friday;Saturday' 
splitscinder_stringchaine  myDays ';' lst_days
	  	
   /* thela listliste "lst_days" will containcontiendra 7 elementséléments : 'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday'

...