Cobol2G File status 30

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

resolu Cobol2G File status 30

Message  Sagaris le Mar 21 Fév 2012, 13:33

Bonjour

Voila j'ai un file status de 30, j'ai lu que c'était une erreur matériel et sur le net une "Permanent error", je sais plus quoi vérifier dans mon code...
Cette erreur apparait lorsque j'ouvre mon fichier relatif en output (donc le fichier VSAM VSOPER). Donc il n'y a pas beaucoup de chose qui se passe avant.. Je vous montre la "step" ou je l'ai défini et mes select, on sait jamais si l'erreur vient de là.

Code:

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=Z
//SYSIN DD *
 DELETE VSECOL.ANDR.TEST.ETUD101.VSOPER
 DEFINE CLUSTER ( NAME(VSECOL.ANDR.TEST.ETUD101.VSOPER) -
                  NUMBERED                              -
                  RECORDSIZE(29 29)                      -
                  TRACKS(1,1) )
/*

Code:

ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
          SELECT OPERATION ASSIGN TO OPER.
          SELECT OPERATIONV ASSIGN TO VSOPER
                  ORGANIZATION IS RELATIVE
                  ACCESS MODE IS RANDOM
                  RELATIVE KEY IS KEYOPER
                  FILE STATUS IS FSOPER.
          SELECT COMPTVUE ASSIGN TO VSCPTVUE
                  ORGANIZATION IS INDEXED
                  ACCESS MODE IS RANDOM
                  RECORD KEY IS COMPTE OF COMPTVUE
                  FILE STATUS IS FSCPTVUE.
      *------------------------------------

Voila :s


Dernière édition par Sagaris le Mar 21 Fév 2012, 21:33, édité 1 fois

Sagaris

Nombre de messages : 8
Prénom : Christophe
Date d'inscription : 03/04/2011

Revenir en haut Aller en bas

resolu Re: Cobol2G File status 30

Message  Sagaris le Mar 21 Fév 2012, 21:17

Problème résolu, il faut faire attention au recordsize qui dans mon cas était de 25 et non pas de 29. Ce qui est marrant c'est qu'un gros message bien beau nous prévient lorsque le recordsize est supérieur à la taille d'un enregistrement et nous donne une FS autre que 30 alors que l'inverse, il faut y penser, j'ai pas penser à vérifier cela, parce que j'étais persuadé que je serais prévenu... tongue

Sagaris

Nombre de messages : 8
Prénom : Christophe
Date d'inscription : 03/04/2011

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