Dans mon JCL j'ai le bout de code ci-dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//*  *------------------------------------* 
//*  * STEP : TRI0002 PROGRAM : SORT      * 
//*  *------------------------------------* 
//*                                         
//TRI0002  EXEC PGM=SORT                            
//*                                                 
//SORTIN   DD  DSN=FICBPTES.TRI2,         
//             DISP=(SHR)                           
//SYSUT2   DD  DSN=FICBPTES.TRI6,         
//             DISP=(,CATLG),                       
//             LRECL=1000,                          
//             RECFM=FB,                            
//             DSORG=PS,                            
//             AVGREC=M,                            
//             SPACE=(1,(10,10),RLSE)               
//SYSUT3   DD  DSN=FICBPTES.TRI7,    
//             DISP=(,CATLG),               
//             LRECL=1000,                  
//             RECFM=FB,                    
//             DSORG=PS,                    
//             AVGREC=M,                    
//             SPACE=(1,(10,10),RLSE)       
//SYSUT4   DD  DSN=B100FE01,      
//             DISP=(,CATLG),               
//             LRECL=1000,                  
//             RECFM=FB,                    
//             DSORG=PS,                    
//             AVGREC=M,                    
//             SPACE=(1,(10,10),RLSE)       
//*                                                                                  
//SYSIN    DD  *                                            
//*  SORT  FIELDS=COPY                                      
  OPTION COPY                                               
  OUTFIL FNAMES=SYSUT2,OMIT=((332,8,CH,GE,C'20050101'),OR,  
                (332,8,CH,EQ,C'        '),OR,               
                (332,8,CH,LE,C'20041231',AND,               
                 340,2,CH,NE,C'ED',AND,                     
                 340,2,CH,NE,C'EA',AND,                     
                 340,2,CH,NE,C'EF',AND,                     
                 340,2,CH,NE,C'ER',AND,                     
                 340,2,CH,NE,C'ES',AND,                     
                 340,2,CH,NE,C'ET',AND,                     
                 340,2,CH,NE,C'IN')) 
  OUTFIL FNAMES=SYSUT3,INCLUDE=((3,2,CH,EQ,C'21',OR
                 3,2,CH,EQ,C'22'),AND,             
                 ((332,8,CH,NE,C'        ',AND,    
                  1,2,CH,EQ,C'CA'),OR,             
                 (584,8,CH,LE,C'20090101',AND,     
                  620,2,CH,EQ,C'ES')))             
  OUTFIL FNAMES=SYSUT4,SAVE           
//*                                   
//SYSOUT   DD  SYSOUT=*         
//SYSPRINT DD  SYSOUT=*      
//*
lorsque je soumets mon job j'ai le message d'erreur ci-dessous

STEP WAS EXECUTED - COND CODE 0016
Précisions:mes critères de selection dans le OMIT et le INCLUDE sont OK, mais je ne comprends pas pourquoi ça plante. c'est peut-être un souci au niveau de la syntaxe...

Je suis débutante en cobol.

Merci de votre aide.