Discussion :

[zoumzoum59]

Bonjour à tous,

Je sollicite votre aide pour résoudre un JCL ERROR après un sub.
Ce JCL fonctionnait à la base, mais j'ai changé de serveur et donc d'environnement, et de ce fait le JCL ne fonctionne plus.
J'ai modifier l'accés a la bibliotheque des load module, ainsi que l'accès au fichier et programme, pour qu'il corresponde au nouveau serveur.
J'ai un MAXCC=0000 si j'arrete le JCL avant le STEP2, Si J'execute le STEP2 et 3 j'ai un JCL ERROR.

Je n'ai rien qui arrive dans le spool, il y a juste le JCL ERROR.

Message apres le sub :

Code :

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

1
2
IKJ56250I JOB MATECOB(JOB03044) SUBMITTED
13.31.11 JOB03044 $HASP165 MATECOB  ENDED AT MATE - JCL ERROR CN(INTERNAL)

Et voici le JCL :

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
 ****** ***************************** Top of Data ******************************
 000001 //MATECOB JOB 'ESSAI',MSGLEVEL=(1,1),MSGCLASS=H,CLASS=A,                
 000002 //   NOTIFY=&SYSUID,COND=(4,LT),TIME=(,3)                               
 000003 //*                                                                     
 000004 //* BIBLIOTHEQUE DES LOAD MODULES                                       
 000005 //JOBLIB   DD DSN=MATEAT.JOBLIB,DISP=SHR                                
 000006 //         DD DSN=CEE.SCEERUN,DISP=SHR                                  
 000007 //*                                                                     
 000008 //*------------------------------------------------------*              
 000009 //*      MODIFIER XX PAR N¢ DU GROUPE  (XX 01 @ 15)      *              
 000010 //*      CHANGER 'FEXO1' PAR VOTRE NOM DE PROGRAMME      *              
 000011 //*------------------------------------------------------*              
 000012 //*                                                                     
 000013 //********************************************************************* 
 000014 //*  PROCEDURE DE COMPIL/LINK EDIT D'UN PROGRAMME COBOL FEXO1         * 
 000015 //*                                                                   * 
 000016 //*  TAPER LA COMMANDE "C FORMXX PAR FORMXX : (XX N¢ DE VOTRE GROUPE) * 
 000017 //*                                                                   * 
 000018 //*  TAPER LA COMMANDE "SUB" AFIN DE SOUMETTRE VOTRE JOB              * 
 000019 //*                                                                   * 
 000020 //********************************************************************* 
 000021 //*                                                                     
 000022 //APPEL         EXEC IGYWCL,PARM.COBOL=(ADV,OBJECT,LIB,TEST,APOST)       
 000023 //COBOL.SYSIN   DD   DISP=SHR,DSN=MATEAT.SOURCE.COBOL(FEXO1)             
 000024 //COBOL.SYSLIB  DD   DISP=SHR,DSN=CEE.SCEESAMP                           
 000025 //LKED.SYSLMOD  DD   DSN=MATEAT.LOADLIB,DISP=(SHR,KEEP,KEEP)             
 000026 //LKED.SYSIN    DD   *                                                   
 000027  NAME FEXO1(R)                                                          
 000028 //*                                                                     
 000029 //STEP2    EXEC  PGM=SORT                                               
 000030 //SYSOUT   DD    SYSOUT=* /* COMPTE RENDU D'EXECUTION                   
 000031 //SORTIN   DD    DSN=MATEAT.COB.ASSURES,DISP=SHR /* FICHIER A COPIER    
 000032 //SORTOUT  DD    DSN=&&TEMP,DISP=(,PASS),LIKE=MATEAT.COB.ASSURES        
 000033 //SYSIN    DD    *                                                      
 000034  SORT FIELDS=(62,1,CH,D)                                                
 000035 //*                                                                     
 000036 //* EXECUTION DU PROGRAMME                                              
 000037 //STEP3        EXEC PGM=FEXO1                                           
 000038 //SYSOUT       DD   SYSOUT=*                                            
 000039 //ASSURDD      DD   DSN=&&TEMP,DISP=(MOD,PASS)                          
 000040 //SYSIN        DD   *                                                       
 000041 //                                                                      
 ****** **************************** Bottom of Data ****************************

Auriez vous une idée de ce qui ne va pas ?

[fred1599]

Hello,

J'y connais rien en Cobol, mais avec une simple recherche, on trouve des paragraphes dans SO

For debugging JCL itself, to the extent you can, you can use TYPRUN=SCAN on your JOB card, or perhaps your site has a JCL-checker product, although these tend to get a lot of false positives as they are updated years behind for where they try to understand the impact of control cards to standard utilities (TYPRUN=SCAN ignores control cards).

https://stackoverflow.com/a/26910581

Est-ce que ça aide ?

[zoumzoum59]

Merci fred1599,

Mais non, je n'ai pas plus d'information sur l'erreur en rajoutant TYPRUN=SCAN.

Par contre si des Cobolistes on jeté un œil sur mon JCL et que je n'ai pas eu de retour, c'est qu' ils n'ont pas détecté spécialement d'erreur dans mon JCL.
Est ce le cas ?
Et si il n'y a pas d'erreur dans l'écriture de mon JCL, de quoi pourrait elle provenir cette erreur ?

Un mauvais accès a un fichier ou un mauvais paramétrage de fichier ne produit pas un JCL ERROR, du moins je ne pense pas ?

[fred1599]

Hello,

Ok je te fais confiance, difficile de reproduire ton cas de figure...


La doc dit ceci,

Temporary dataset (&&dsname) attributes can't be copied by using LIKE parameter

source : https://www.mainframestechhelp.com/t...-parameter.htm

Ce qui veut dire qu'il existe une limitation importante concernant son utilisation avec les datasets temporaires

donc ici, dans ton cas

Code :

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

//SORTOUT  DD    DSN=&&TEMP,DISP=(,PASS),LIKE=MATEAT.COB.ASSURES

Tu utilises LIKE avec un dataset temporaire (&&TEMP), ce qui n'est pas supporté à mon sens, je me trompe ?

[bernard59139]

Bonjour

Ce n'est qu'un problème de jcl
la doc officielle dit:

Note: Do not use the LIKE parameter to copy attributes from a temporary data set (&&dsname), partitioned data set if a member name is included, and relative generation number for a GDG.

tu n'es concerné que si ton fichier d'origine est un PDS, mais ca planterait du niveau du SORT

sans le rapport de job complet(a ne pas diffuser ici), difficile de répondre

a+

[escartefigue]

Habituellement, les diagnostics d'erreurs JCL sont assez clairs, ils sont restitués dans le fichier JESYSMSG du compte rendu de job.

Déjà, pour faire la part des choses, exécutez séparément les steps 2 et 3 pour savoir lequel pose problème.

Mais comme l'a suggéré Bernard, c'est probablement le fichier référencé par le LIKE qui n'est pas d'un type supporté.

À noter : les compétences COBOL et JCL sont deux choses bien distinctes, d'une part parce que le COBOL n'est pas exclusivement utilisé sur Z/OS, il existe aussi sur micro et sur system I (AS/400) où le JCL n'existe pas, d'autre part, parce que les techniciens d'exploitation ou les DBA, qui ne sont pas forcément compétents en COBOL, ont besoin de connaître le JCL quand ils travaillent sur Z/OS

[zoumzoum59]

Bonjour à tous et merci bernard59139 et escartefigue pour vos infos,

J'ai actuellement quelque chose dans le spool.

Maintenant que j'ai quelque chose dans le spool, je suis toujours en JCL ERROR et voici l'erreur que j'ai :

IEF210I MATEATC STEP2 SORTOUT - UNIT FIELD SPECIFIES INCORRECT DEVICE NAME
IEF272I MATEATC STEP2 - STEP WAS NOT EXECUTED.


Le fichier concerné par le LYKE dans le STEP2 et un fichier avec une organisation 'PS' en fix bloqué de 80.
Je vous remet le STEP2 tel qu'il est actuellement

000030 //STEP2 EXEC PGM=SORT
000031 //SYSOUT DD SYSOUT=* /* COMPTE RENDU D'EXECUTION
000032 //SORTIN DD DSN=MATEAT.COB.ASSURES,DISP=SHR /* FICHIER A COPIER
000033 //SORTOUT DD DSN=&&TEMP,DISP=(,PASS),LIKE=MATEAT.COB.ASSURES
000034 //SYSIN DD *
000035 SORT FIELDS=(62,1,CH,D)
000036 //

Si quelqu'un peut m'expliquer le message d'erreur et comment y remédier ça serait sympa.

[bernard59139]

bonjour

modifie le SORTOUT comme ceci:

//SORTOUT DD DSN=&&TEMP,DISP=(,PASS),LIKE=MATEAT.COB.ASSURES;
// UNIT=3390

ca devrait être ok

Pour connaitre l'origine du problème, il faut te rapprocher des personnes compétentes du site.
une configuration SMS peut être...

a+

[zoumzoum59]

Merci bernard59139,

Mais après différent essais et type d'écriture, ça ne fonctionne pas.

Sinon j'ai essayé de contacter par mail ou je loue mon serveur, on verra bien si j'ai un retour.

En attendant si vous avez d'autres idée je suis preneur.

[zoumzoum59]

Apparemment il faudrait mettre 'UNIT=SYSALLDA', cependant j'ai toujours un JCL ERROR

sans le rapport de job complet(a ne pas diffuser ici), difficile de répondre

Ou puis je mettre un rapport de JOB

[escartefigue]

Sans communiquer tout le CR du job, je pense que vous pouvez communiquer au moins la partie JESYSMSG dans laquelle il ne devrait pas y avoir de données sensibles.

[zoumzoum59]

Ok merci escartefigue.

Et j'ai résolu mon problème avec :

Code :

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

1
2
//SORTOUT  DD    DSN=&&TEMP,DISP=(,PASS),UNIT=SYSALLDA,  
//         SPACE=(TRK,(1,1))