[COBOL] 2èmeG - JCL error

Voir le sujet précédent Voir le sujet suivant Aller en bas

resolu [COBOL] 2èmeG - JCL error

Message  Mateus le Lun 06 Fév 2012, 19:37

Bonsoir.

Je me retrouve devant un problème que je n'arrive pas à résoudre. Je fait donc la partie 1 du projet de COBOL (à rendre corrigé Jeudi pour le groupe 2) et j'ai deux erreurs que je ne parviens pas à repérer :
Code:

000001  STMT NO. MESSAGE                                                       
000002        8 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY SY
000003        37 IEFC662I INVALID LABEL                     

De base, le programme ne s'exécute même pas et affiche un JCL-error. Je poste donc la partie de mon code écrite en JCL :
Code:

//ANDR132 JOB ANDR132,'Stievenart Mael',CLASS=P,MSGCLASS=Z,       
//  MSGLEVEL=(2,0),NOTIFY=ROSAAO1                                 
//STEP1  EXEC PGM=IDCAMS                                           
//SYSPRINT DD SYSOUT=Z                                             
//SYSIN DD *                                                       
      DELETE VSECOL.ANDR.TEST.ETUD132.CLIENTSV                   
      DELETE VSECOL.ANDR.TEST.ETUD132.COMPTEVUEV                 
/*                                                                 
//STEP2  EXEC PGM=IDCAMS                                           
//SYSPRINT DD SYSOUT=Z                                             
//SYSIN DD *                                                       
      DEFINE CLUSTER( NAME(VSECOL.ANDR.TEST.ETUD132.CLIENTSV)-   
                      INDEXED                                -   
                      RECORDSIZE(70 70)                      -   
                      KEYS(5 0)                              -   
                      TRACKS(1,1))                               
      DEFINE CLUSTER( NAME(VSECOL.ANDR.TEST.ETUD132.COMPTEVUEV)- 
                      INDEXED                                  - 
                      RECORDSIZE(53 53)                        - 
                      KEYS(16 0)                              - 
                      TRACKS(1,1))                               
/*                                                                 
//STEP3  EXEC IGYWCLG                                             
http://COBOL.SYSIN DD *

Donc tout en haut pour créer et/où éventuellement supprimer les fichiers VSAM déjà créés :
Code:

/*                                                                   
http://GO.CLIENTS    DD DSN=ANDR.RESIDN20.EFOJNR.CLIENTS,DISP=SHR
http://GO.CLIENTSV  DD DSN=VSECOL.ANDR.TEST.ETUD132.CLIENTSV,DISP=MOD
http://GO.CPTVUE    DD DSN=ANDR.RESIDN20.EFOJNR.CPTVUE,DISP=SHR       
http://GO.COMPTEVUEV DD DSN=VSECOL.ANDR.TEST.ETUD132.COMPTEVUEV,DISP=MOD
//

J'avais 6 erreurs au départ, j'ai pu en corriger 4, mais les 2 autres je suis incapable de les trouver...

Si quelqu'un pouvait m'aider s'il vous plaît Smile !


Dernière édition par Mateus le Mer 08 Fév 2012, 00:14, édité 1 fois

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  efo le Lun 06 Fév 2012, 22:58

Bonsoir,
l'erreur est à l'instruction jcl 37 : invalid label. Quelle est cette instruction jcl 37 ? Pour le savoir il faut consulter le 2ème fichier du job où on retrouve les instructions numérotées.
Toutefois en fonction des renseignements fournis, une instruction est clairement invalide.

Code:

/*
http://GO.CLIENTS DD DSN=ANDR.RESIDN20.EFOJNR.CLIENTS,DISP=SHR
http://GO.CLIENTSV DD DSN=VSECOL.ANDR.TEST.ETUD132.CLIENTSV,DISP=MOD
http://GO.CPTVUE DD DSN=ANDR.RESIDN20.EFOJNR.CPTVUE,DISP=SHR
http://GO.COMPTEVUEV DD DSN=VSECOL.ANDR.TEST.ETUD132.COMPTEVUEV,DISP=MOD
//


Quelle est la longueur maximale de chacune des composantes des noms qualifiés ?

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Mateus le Lun 06 Fév 2012, 23:09

efo a écrit:Pour le savoir il faut consulter le 2ème fichier du job où on retrouve les instructions numérotées.

Je n'ai pas eu de cours sur le mainframe l'an dernier car j'ai eu une passerelle, donc je ne sais pas comment accéder au deuxième fichier.

efo a écrit:Quelle est la longueur maximale de chacune des composantes des noms qualifiés ?

Je ne suis pas certain de comprendre la question, néanmoins si c'est bien ce que je crois :
- Clients et Clientsv ont la même taille => 70 (composé d'un pic x(5), un pic x(20), un pic x(15) et un pic x(30) comme demandé dans l'énoncé)
- cptvue et comptevuev ont des tailles différentes => 49 pour cptvue (fichier de vous et M. Noiret) et 53 en ajoutant teteop

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  efo le Lun 06 Fév 2012, 23:25

Un petit conseil : consultez l'aide-mémoire Roscoe qui est disponible dans moneDistri et au minimum pour le labo de 1ère sur poESI. Il explique comment récupérer un job après soumission. En gros : a j n°job puis sta j. Là voir les fichiers de Jes2 et en particulier le qui donne les instructions jcl et le 3ème qui donne les erreurs. Le 1er de JES2 est celui qui est reçu en attachant le job, avec notamment tous les return code.

Pour ce qui est de la longueur dont je parle, aussi un petit coup d'oeil vers le labo3 je pense (ou 2) des 1ères sur poESI. Chaque composante d'un nom qualifié dans le jcl ne peut faire que 8 car max.
Donc http://GO.MONFICH DD .... est correcte au contraire de http://GO.MONFICHIER DD .... qui ne l'est pas.

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Mateus le Lun 06 Fév 2012, 23:29

Haaaaaaaaaaaaaaaaa en effet tout s'éclaire ! Il me suffi de renommer ce qui est trop long. Je suivrais vos conseils pour les labos des premières !

Encore merci !

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  efo le Lun 06 Fév 2012, 23:30

De rien

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Mateus le Mar 07 Fév 2012, 21:57

Re-Bonsoir ! Grâce à vous, Monsieur Fontaine, j'ai pu corriger aisément le JCL error et supprimer une bonne partie des erreurs que j'ai faites dans le langage COBOL même. Néanmoins, j'ai un autre problème d'une toute autre nature sur le même projet et qui me laisse vraiment perplexe. Voici ce que le message me donne :

Code:
 000001 07/02/12 21.44.24 JOB NOTIFY/CONSOLE                       
 000002 21.44.24 JOB19641 $HASP165 ANDR132  ENDED AT PRD1  MAXCC=3000
Alors que, juste avant, j'avais environ 80 soucis de sévèrité maximale 12. C'est après correction que j'ai eu ce message ci-dessus.

Et en faisant sta j, en prenant le dernier message je trouve ceci :

Code:
IGZ0201W A file attribute mismatch was detected. File COMPTEVUE-IN in program PROJET had a record length of 53 and
        the file specified in the ASSIGN clause had a record length of 49
IGZ0035S There was an unsuccessful OPEN or CLOSE of file CPTVUE in program PROJET at relative location X'077E'.
        Neither FILE STATUS nor an ERROR declarative were specified. The status code was 39
        From compile unit PROJET at entry point PROJET at compile unit offset +0000077E at entry offset +0000077E at
        address 196008AE.   

Alors la première erreur, je la comprends, mais je ne peux pas faire autrement : le fichier VSAM du compte à vue qu'on doit créer est de taille 53 (49 + teteop de taille 4), et celui donné par le cours est de taille 49. J'ai peut-être fait une erreur dans mon code quelque part, mais je ne voudrais pas surchager le travail de mon lecteur avec l'entièreté de mon code, alors je voulais savoir s'il y avait une partie en particulier que je devais montrer pour éventuellement pouvoir m'expliquer ce qui ne va pas.

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  efo le Mar 07 Fév 2012, 22:28

Bonsoir. Voici un petit résumé de la situation pour être certain de parler de la même chose et pour avoir des éléments permettant de vous corriger.
Les codes 12 résultent d'erreurs graves du langage et semblent être du passé.
Le code 3000 est provoqué par une interruption en exécution et celle-ci a été stoppée définitivement.
Les messages renseignés : le 2ème signale qu'un problème est survenu à l'ouverture du fichier CPTVUE (avec un file status en résultant de 39). Le pourquoi est expliqué dans le 1er message. Je suis d'accord pour dire que la longueur de mon fichier de données est de 49 et que le masque de mon fichier vsam est de 53 puisqu'il comporte teteop (de longueur 4) en plus. Donc il faut vérifier les FD et descrition de masques de chacun de ces fichiers : l'un (en entrée) n'a pas de teteop et l'autre en sortie l'a.

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Mateus le Mar 07 Fév 2012, 22:42

En effet, la se trouvait bien la solution. Dans la description du masque en entrée, j'avais mis un pic x(14)V99, alors que, bien évidement, on a 14 chiffres les deux décimales incluses... => PIC X(12)V99. a corrigé le problème.

Après submit, on me donne un maxcc=0, et le dernier élément du status job ne me rapporte aucune erreur.

Dernière question : Dans mon répertoire il n'y a que mon projet (et les messages de job), est-ce que cela veut dire que mes fichiers ne sont pas créés ?

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  efo le Mar 07 Fév 2012, 22:54

Dernière question : Dans mon répertoire il n'y a que mon projet (et les messages de job), est-ce que cela veut dire que mes fichiers ne sont pas créés ?

Non le répertoire ne comporte que vos membres : ce que vous avez suavé après encodage dans votre aws.
Vos fichiers vsam sont sur d'autres disques permanents et répertoriés dans un catalogue sous le nom défini via idcams.

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Mateus le Mar 07 Fév 2012, 22:56

Merci beaucoup pour votre aide immense et extrêmement éclairante ! Je me sens bien plus confiant pour que rendre les prochaines parties du projet dans une bien meilleure forme !

Bonne soirée !

Mateus

Nombre de messages : 21
Prénom : Maël
Date d'inscription : 02/01/2012

Revenir en haut Aller en bas

resolu Re: [COBOL] 2èmeG - JCL error

Message  Contenu sponsorisé Aujourd'hui à 10:48


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum