Discussion :

[genio]

Bonjour à tous...
quels paramètre faut-il coder (ou avez-vous un JCL) pour effectuer un déchargement Spitab où, le fichier en sortie n'ait que des zones numérique en étendu...
En gros, y a t'il un paramètre qui puisse faire ça lors de l'UNLOAD d'une table Spitab vers un fichier à plat ?
Nous ne voulons pas de zones packées en sortie car les fichiers cible doivent être analysés par la MOA !

Merci pour vos réponses...

[Darkzinus]

Bonjour à tous...
quels paramètre faut-il coder (ou avez-vous un JCL) pour effectuer un déchargement Spitab où, le fichier en sortie n'ait que des zones numérique en étendu...
En gros, y a t'il un paramètre qui puisse faire ça lors de l'UNLOAD d'une table Spitab vers un fichier à plat ?
Nous ne voulons pas de zones packées en sortie car les fichiers cible doivent être analysés par la MOA !

Merci pour vos réponses...

Bonjour,

Pour ce genre d'opération je passerais par programme ...
Je ne connais pas d'utilitaire JCL permettant un UNLOAD tout en changeant les formats.

EDIT : Autrement c'est possible en passant par REXX (il y a des "fonctions" pour dépacker mais cela me semble plus simple par programme.

[LeonK]

Voici un exemple de DSNUPROC qui décharge par partition une table partitionnée en reformattant les nombres en format étendu.

Le codage de la SYSIN :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   TEMPLATE REC                                                        
    DSN  'charniere.database.tablespace.P&PA'                            
    UNIT SYSDA                                                         
    SPACE CYL                                                          
    DISP(NEW,CATLG,DELETE)                                             
    UNLOAD TABLESPACE database.tablespace                                 
    UNLDDN REC                                                          
    FROM TABLE database.table HEADER NONE                            
    (  "DTTRAIT"                                                    
     , "NOENREG" DECIMAL ZONED(9),                                  
     , "LGENREG" DECIMAL ZONED(4),                                  
     , "DONNEES"                                                    
     )

[genio]

Merci pour vos réponses...
En fait, je ne parle pas de DB2 mais de Spitab (qui fonctionne en général, avec des fichiers vsam) (je sais que l'on peut générer des formats étendus sur un UNLOAD DB2 !) ...
Ce que je cherche est de savoir s'il y a, dans l'unload 'spitab' (voir l'exemple de JCL à la fin du post) une option pour décharger les tables spitab qui contiennent des formats packées en fichiers 'à plat' avec ces mêmes zones en format étendu..


//SPI2B90 EXEC PGM=SPI2B90
//SYSOUT DD SYSOUT=T
//SYSPRINT DD SYSOUT=T
//PRINT DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//SPI2TAB DD DISP=SHR,DSN=xxxxxxxxx//*
//FICIN DD *
SELECT nomspitab
UNLOAD
//*
//FILESEQ DD DSN=xxxxxxxxxxxx,
// DISP=(,CATLG,DELETE),
// UNIT=TSTYP2,SPACE=(TRK,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=200,DSORG=PS)
//*