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
Déconcaténer une zone ALPHA en petites zones packées
-
- Messages : 5
- Enregistré le : mer. 25 avr. 2007, 09:41:10
- Localisation : TRELAZE (Maine et Loire)
-
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
transformer des zones aplha contenant du packé en déciimal
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 ;
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 ;
Christian Massé (Volubis.fr)