[Labo CBL] Projet partie 3

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

resolu [Labo CBL] Projet partie 3

Message  Mateus le Mar 05 Mar 2013, 18:15

Bonsoir. Il y a une partie que je n'ai pas du comprendre :
Je fait un AIX sur formateur
Spoiler:
Code:
DEFINE AIX( NAME(VSECOL.ANDR.TEST.ETUD122.AIXCRS)              -
            RELATE(VSECOL.ANDR.TEST.ETUD122.VSCOURS)          -
            NONUNIQUEKEY                                      -
            KEYS(30 5)                                        -
            TRACKS(1,1))                                       
DEFINE PATH( NAME(VSECOL.ANDR.TEST.ETUD122.PATHCRS)            -
            PATHENTRY(VSECOL.ANDR.TEST.ETUD122.AIXCRS))       

Puis

Code:
SELECT FVSCOURS ASSIGN TO VSCOURS                   
        ORGANIZATION IS INDEXED                     
        ACCESS MODE IS SEQUENTIAL                   
        RECORD KEY IS REFCOURS OF FVSCOURS         
        ALTERNATE RECORD KEY IS FORMATEUR OF FVSCOURS
              WITH DUPLICATES                       
        FILE STATUS IS FS.                         

Et

Code:
 BLDINDEX INDATASET(VSECOL.ANDR.TEST.ETUD122.VSCOURS)          -
          OUTDATASET(VSECOL.ANDR.TEST.ETUD122.AIXCRS)           

Je fais donc un start basé sur cet alternate record key
Spoiler:
Code:

 1-INITLEC.                                         
      OPEN INPUT FVSCOURS                           
                                                     
* Lecture séquentielle sur le formateur du cours     
      MOVE LOW-VALUE TO FORMATEUR OF FVSCOURS       
      START FVSCOURS KEY >= FORMATEUR OF FVSCOURS   
        NOT INVALID KEY PERFORM 2-STARTCOURS       
      END-START                                     
      .                                             

*************************************               
* Lance la lecture des cours                         
*************************************               
 2-STARTCOURS.                                       
    READ FVSCOURS NEXT                             
        AT END MOVE "1" TO EOF-COURS                 
    END-READ                                       
    PERFORM 1-FSTAT                                 
    PERFORM 2-LECTUREFORMATEUR UNTIL EOF-COURS = "1"
    .
Et enfin j'affiche ce qu'il faut. Pour vérifier si j'avais bien fait, j'ai juste affiché une chaîne avec
'Formateur nomCours'
Spoiler:
Code:

2-LECTUREFORMATEUR.                                     
    DISPLAY FORMATEUR OF FVSCOURS NOMCOURS OF FVSCOURS                 
                                                       
    READ FVSCOURS NEXT                                 
      AT END MOVE "1" TO EOF-COURS                     
    END-READ                                           
    .
Mais je remarque que je ne lis pas du tout par ordre croissant de formateur, et je n'arrive pas à comprendre pourquoi.

Mateus

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

Revenir en haut Aller en bas

resolu Re: [Labo CBL] Projet partie 3

Message  Mateus le Mar 05 Mar 2013, 19:10

Ah suis-je bête ! Le problème est résolu, j'ai inversé les deux paramètres de longueurChamp et déplacement lorsque j'ai buildé l'index... C'était 5 30 et non 30 5.

Mateus

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

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