IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Cobol Discussion :

[SQL Server / Microfocus - GCOS]


Sujet :

Cobol

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 6
    Points : 4
    Points
    4
    Par défaut [SQL Server / Microfocus - GCOS]
    Bonjour,

    Je dois coder une requête SQL d'insertion de données dans une table qui contient un champ VARCHAR(6). Les valeurs insérées peuvent être de longueur 3 ou 4 par exemple. Ces valeurs ne doivent pas contenir d'espace à la fin.

    Voilà comment j'ai déclaré la zone en question dans la copy Cobol correspondante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    01 TYPE-NUM.
      49 TYPE-NUM-LEN PIC S9(4) COMP.
      49 TYPE-NUM-VAL PIC X(6).
    Voici la requête SQL :
    Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    INSERT INTO Table1 (ID, TYPE_NUM)
    VALUES (:ID, :TYPE-NUM)
    Le vérificateur SQL est CMAGEN. A la compilation il me dit :
    TYPE-NUM must be an elementary item not a group one.
    Où me suis-je trompée ? Avez-vous une solution ?

    Je vous remercie par avance.

  2. #2
    Modérateur
    Avatar de escartefigue
    Homme Profil pro
    bourreau
    Inscrit en
    Mars 2010
    Messages
    10 059
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 10 059
    Points : 38 268
    Points
    38 268
    Billets dans le blog
    9
    Par défaut
    Bonjour,

    Edit : si votre colonne est nullable il faut ajouter l'indicateur de nullité (-1 si null, 0 si not null)
    Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    INSERT INTO Table1 (ID, TYPE_NUM)
    VALUES (:ID, :TYPE-NUM :NUL-IND)

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 6
    Points : 4
    Points
    4
    Par défaut
    Merci pour votre réponse. Malheureusement cela ne fonctionne pas. La donnée est à blanc.

  4. #4
    Modérateur
    Avatar de escartefigue
    Homme Profil pro
    bourreau
    Inscrit en
    Mars 2010
    Messages
    10 059
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 10 059
    Points : 38 268
    Points
    38 268
    Billets dans le blog
    9
    Par défaut
    C'est probablement que vous avez oublié de positionner la longeur dans la variable TYPE-NUM-LEN

    Il faut
    -1- calculer la longueur effective de votre donnée
    -2- attribuer cette longueur à la variable -LEN
    -3- alimenter votre variable -VAL
    -4- (si colonne nulable) positionner votre indicateur de null : 0 si non null, -1 si null
    -5- effectuer votre ordre SQL avec l'indicateur de null si colonne nulable

  5. #5
    Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 6
    Points : 4
    Points
    4
    Par défaut
    J'ai bien calculé la longueur. J'ai mis des Display.
    Ce n'est peut-être pas faisable.

  6. #6
    Modérateur
    Avatar de escartefigue
    Homme Profil pro
    bourreau
    Inscrit en
    Mars 2010
    Messages
    10 059
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 10 059
    Points : 38 268
    Points
    38 268
    Billets dans le blog
    9
    Par défaut
    Ou en êtes vous exactement ?
    - la compilation cobol est OK
    - l'ordre insert est exécuté avec un SQLCODE 0 ?
    - vous avez vérifié qu'il y a bien eu COMMIT de la transaction ?
    - avez vous vérifié que la base sur laquelle vous êtes connectée pour vos vérifs est bien la même que celle sur laquelle vous exécutez votre traitement

    Par ce que d'un point de vue syntaxique, je ne vois pas quoi ajouter de plus, (en tout cas avec COBOL for Z/OS, mais je doute que la version microfocus soit différente

  7. #7
    Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2004
    Messages : 6
    Points : 4
    Points
    4
    Par défaut
    - Compilation Cobol Ok
    - Ordre insert correctement exécuté
    - Vérification sur la bonne base avec le bon ID généré puisqu'il y a une ligne avec le champ à 6 espaces. J'alimente d'autres tables qui n'ont pas de Varchar et c'est correct.

    Donc il y a une spécificité Microfocus, CMAGEN et/ou Microsoft SQL Server.

  8. #8
    Modérateur
    Avatar de escartefigue
    Homme Profil pro
    bourreau
    Inscrit en
    Mars 2010
    Messages
    10 059
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 10 059
    Points : 38 268
    Points
    38 268
    Billets dans le blog
    9
    Par défaut
    Ou bien il y a eu un rollback, avez vous vérifié ce point ?
    Ou encore une tache qui modifie après vous, mais c'est peu probable si vous avez rejoué plusieurs fois

    PS : Une spécif microfocus je n'y crois guère, il y aurait probablement une syntaxe particulière avec erreur à la compilation si non respectée

Discussions similaires

  1. Pb migration Access / SQL server
    Par yoyo dans le forum MS SQL Server
    Réponses: 10
    Dernier message: 25/04/2005, 11h39
  2. Quel outil choisir pour un développement SQL-Server ?
    Par Mouse dans le forum Débats sur le développement - Le Best Of
    Réponses: 23
    Dernier message: 12/08/2003, 07h23
  3. [Kylix] sql server & kylix
    Par fehmitn dans le forum EDI
    Réponses: 1
    Dernier message: 23/08/2002, 20h44
  4. Backup BD SQL Server
    Par Ethmane dans le forum Administration
    Réponses: 3
    Dernier message: 07/06/2002, 01h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo