Discussion :

[LP-Mario]

bonjour,

je souhaiterai convertir le champ d'un fichier en PIC(09) COMP-3 dans un autre fichier et ainsi rendre valeur lisible.

Pour cela, j'ai essayé d'utiliser un SORT dans mon JCL de cette manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//CONVT3   EXEC PGM=SORT                                                
//* --------------------------------------------------------------      
//SORTIN   DD DISP=SHR,DSN=FICHIER.OLD         
//SORTOUT  DD  DSN=FICHIER.NEW,                
//             DISP=(,CATLG,DELETE),                                    
//             MGMTCLAS=ND0010,                                         
//             SPACE=(CYL,(01,01),RLSE)                                                           
//SYSPRINT DD  SYSOUT=*                                                 
//SYSOUT   DD  SYSOUT=*                                                 
//SYSIN    DD  *                                                        
 SORT FIELDS=COPY                                                       
 OUTREC FIELDS=(3,5,PD,EDIT=(IIIIIIIIT))

Voila la structure de mon fichier en entrée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
**---------------------------------------                         
**   CDENR = 04  ENREGISTREMENT DETAIL                            
**---------------------------------------                         
 01  FAC-DETAIL-04(X).                                         
*    CODE ENREGISTREMENT                                          
     05  FAC-DETAIL-CDENR(X)              PIC 9(002).          
*    DETAIL VARIABLE                                              
     05  FAC-DETAIL-VARIABLE(X).                               
*        IDENTIFIANT                           
         10  FAC-DETAIL-IDCNMP(X)         PIC 9(009) COMP-3.   
         10  FILLER                                PIC X(002).

Malheureusement, j'ai une erreur. je ne trouve pas d'explications sur le web :
ICE251A 2 MISSING RDW OR DATA FOR *OUTREC : REASON CODE 04, IFTHEN 0

Est ce que quelqu un aurait une idée de la raison de mon erreur, ou une autre solution pou reffectuer cette tache ?

Merci d'avance

Mario

[Hédhili Jaïdane]

Bonjour.

Je ne peux pas te répondre sur l'erreur ou sur la faisabilité par SORT sur les main, mais moi je ferais un petit programme Cobol avec un simple MOVE élémentaire de la zone en comp-3 vers la zone en étendu. Le MOVE d'une structure (groupe) contenant la zone packée empêchera sa conversion.

[Luc Orient]

Ton fichier d'entrée est fixe ou variable ?

Je pense que la problème est autour de cela ...

[LP-Mario]

Bonjour,

Merci pour vos réponses,

Mon fichier en entrée est variable.

Record format . . . : VB
Record length . . . : 304

[LP-Mario]

Ton fichier d'entrée est fixe ou variable ?

Je pense que la problème est autour de cela ...

OK, tu m'as mis sur la voie

Voila ce que j'ai trouvé :

Cas des fichiers en VARIABLE BLOQUE :

Code :

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

OUTREC FIELDS=(1,4,5,2,C'0000',11)

- Si le fichier est en VARIABLE BLOQUE, il faut rajouter '1,4' au début du tri (les 4 premiers étant destinés à indiquer la taille de l'enregistrement).
- Ici, en sortie, on aura : le cinquième (premier) caractère sur 2 positions, puis on rajoute '0000' et on prend à partir du onzième (septième) caractère jusqu'à la fin de l'enregistrement.

Ce qui donne au niveau de mon code :

Code :

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

1
2
 SORT FIELDS=COPY                                   
 OUTREC FIELDS=(1,4,5,2,7,5,PD,EDIT=(IIIIIIIIT),12)

Merci beaucoup pour vos remarques.

Pb Résolu