le forum IBM i

Bonjour ,

J'ai une question qui pourrait intéresser plusieurs personnes:

Il fut un temps où l'espace disque était restreint.

Pour gagner de la place nous avons mis dans une zone ALPHA un tableau de mini zones packées . (par exemple une zone de 6 & pouvait contenir un tableau de 3 zones numériques packées de 3.0)

Est t il possible de découper ces zones packées (toutes de même longueur) en zones individuelles par une requette sql , et le transferer par Client access.

NB: nous sommes encore en version V5R3 de l'os/400 ?

Je vous remercie par avance de vos réponses .

Didier HAINNEVILLE
ARSOE MANCHE ATLANTIQUE

email: didier.hainneville@arsoe-manche-atlantique.com
Tel : 02 41 96 66 81

je vois deux solutions :


1 /cast( substr(zone , debut , lg) as decimal(7 , 2) ) en pur SQL

2/ une fonction RPG dans un programme de service, qui "dépacte" , via une DS par exemple, et enregistrée en tant que fonction SQL par quelque chose comme :

CREATE FUNCTION mabib/EXTRACTCAR (ZONE CHAR(50), NUMERO INTEGER )
RETURNS DEC(7 , 2)
EXTERNAL NAME 'MABIB/EXTRACTCAR(EXTRACTCAR)'
PARAMETER STYLE GENERAL
RETURNS NULL ON NULL INPUT ;