> Tech > Les tableaux multidimensionnels en action

Les tableaux multidimensionnels en action

Tech - Par iTPro.fr - Publié le 24 juin 2010
email

par Mike Cravitz
Liez le programme de service MultiDim aux applications pour simplifiez la manipulation des tableaux multidimensionnels simulés en RPGLes tableaux multidimensionnels, c'est-à -dire ceux qui nécessitent plusieurs nombres ou dimensions pour identifier de façon unique chaque élément de tableau, peuvent se révéler utiles pour gérer des listes de valeurs dépendant de plusieurs jeux de critères indépendants. Les commissions de vente, les primes, les primes d'assurance et les remises accordées aux clients représentent quelques exemples de types de valeurs que les tableaux multidimensionnels peuvent représenter facilement et naturellement.

 Dans l'article “ Multidimesionnal Arrays : the Basics ”, NEWS/400, mai 1998, j'ai présenté les tableaux multidimensionnels et ai expliqué en quoi ils étaient utiles au développement d'applications de gestion. Comme je l'ai indiqué dans cet article, même si le RPG ne supporte pas les tableaux multidimensionnels, il est possible de simuler ces derniers en faisant correspondre un tableau multidimensionnel à  un tableau RPG unidimensionnel. Dans le présent article, je présente un programme RPG IV qui calcule les index réels correspondant aux index des tableaux multidimensionnels simulés. Il devient ainsi possible de travailler facilement avec des tableaux  de ce type dans des applications. La V3R7 ou une version supérieure est indispensable pour utiliser ce programme de service (le code du programme de service MultiDim peut être downloadé depuis notre site Web, à  l'adresse suivante).

Les tableaux multidimensionnels en action

Le
programme de service MultiDim requiert la V3R7 ou au delà . Pour créer les
objets MultiDim, effectuez les étapes suivantes : 

1.Créez le module RPG MultiDim : 

CRTRPGMOD
MODULE(VotreBib/MULTIDIM)            
+

SRCFILE(VotreBib/VotreFicSource) 

2.Créez le programme de service MultiDim : 

CRTSRVPGM
SRVPGM(VotreBib/MULTIDIM)            
+

MODULE(*SRVPGM)                     +

EXPORT(*ALL)           
+

ACTGRP(*CALLER) 

3.Créez un programme applicatif RPG IV utilisant le programme de service
MultiDim : 

CRTRPGMOD MODULE(VotreBib/VotreModule)         +

 SRCFILE(VotreBib/VotreFicSource)

 

 CRTPGM
PGM(VotreBib/VotrePgm)                  
+

MODULE(*PGM)                        
+

BNDSRVPGM(VotreBib/MULTIDIM) +

ACTGRP(*CALLER)

Téléchargez cette ressource

Guide de technologie 5G pour l’entreprise

Guide de technologie 5G pour l’entreprise

Le livre blanc "The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.

Tech - Par iTPro.fr - Publié le 24 juin 2010