Langage
ULTIM
ULTIM
est un générateur d'applications de
très haut
niveau conçu pour
fournir, autant au professionnel chevronné qu'à
l'usager
final, une solution de rechange idéale aux langages conventionnels;
c'est un
outil pratique pour augmenter
substantiellement la
productivité
et la rentabilité des services informatiques.
ULTIM se
compose
d'un riche amalgame d'énoncés simples et d'automatismes destinés à
des usages diversifiés
incluant le traitement des
fichiers et des bases de données, la gestion
d'écrans et la production de
rapports. ULTIM
dispose aussi de procédures de récupération
automatique
en cas d'erreurs mineures non susceptibles d'altérer les
résultats prévus.
Voici un exemple de programmation
DEBUT
DEMO.
*
DESCRIPTION ET LECTURE DES DONNEES
FICHIERS
CLIENT(F, LIENPROD, ORACLE,
SELECT NOM,
ADRESSE-1,
ADRESSE-2,
CUST.NO-COMPTE,
SECTEUR,
DERNIER-PAIEMENT,
SOLDE (P, 5, 10, @ED:$)
FROM
CUST, NAME
WHERE CUST.NO-COMPTE =
NAME.NO-COMPTE AND SOLDE NE 0).
TRAITER
CHAQUE CLIENT OU DERNIER-PAIEMENT < 20150301.
* RAPPORT TABULE
OPTIONS
ENTETE=AUTO, ESPACEMENT = 5.
TABLEAU
SECTEUR, NOM, NO-COMPTE, SOLDE(12,TOTAL), DERNIER-PAIEMENT.
TITRE COMPTES EN SOUFFRANCE DE
DEUX MOIS
OU PLUS AU 1 MAI 2015
CONTROLE
SOUS-TOTAUX=1.
FIN
Rapport
en colonnes produit par les énoncés TABLEAU, TITRE et CONTROLE
5
MAI 2015 PAGE
1
COMPTES EN
SOUFFRANCE DE DEUX MOIS OU PLUS
AU 1 MAI 2015
SECTEUR
------NOM------ NO
COMPTE
SOLDE
DERNIER
PAIEMENT
ESTRIE
BELLE
LUMIERE
843896
$360.47 2015/02/11
BRILLANTINE
3246538
$199.00 2014/12/15
ECLAIRAGE
INC.
386660
$895.45 2015/01/12
LUMIERE
INC.
2369108
$34.94 2015/02/21
...........................................
$1,489.86
MTL
DECOR
SANTE
3143486
$10.00 2015/02/01
DECORUM
INC.
1071638
$2,189.10 2015/01/06
RUSSELL &
SONS
2225751
$194.90 2014/12/21
SERVICES
RAPIDO
1387
$4,189.95 2015/01/28
...........................................
$6,583.95
............................................
$8,073.81
|