Déconcaténer une zone ALPHA en petites zones packées

IBM i, configuration, commandes, ...
Répondre
DHAINNEVILLE
Messages : 5
Enregistré le : mer. 25 avr. 2007, 09:41:10
Localisation : TRELAZE (Maine et Loire)

Déconcaténer une zone ALPHA en petites zones packées

Message par DHAINNEVILLE »

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. :shock:

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

cmasse
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

Message par cmasse »

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 ;
Christian Massé (Volubis.fr)

Répondre