Page 1 sur 2 12 DernièreDernière
Résultats de 1 à 10 sur 12

Sujet : lecture d'un fichier

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    4
    lecture d\'un fichier qui contient des champs compressé:

    1- je veux lire un fichier qui contient des champs compressés .
    2- je veux transformer ces champs à des champs décompréssés.
    c-à-d en entrée j\'ai un fichier qui contient des champs compressés => en sortie je dois avoir un fichier avec des champs non comprésses.

    je veux un programme qui permet de faire cette transformation
    merci
    information: je travail cobol sur UNIx.

  2. #2
    Visiteur MP
    Visiteur MP

    lecture d'un fichier

    zones compressées pic s9(n) comp-3 ? par exemple
    zones décompressées pic 9(n).
    un move suffit.

    ouvrir fichier emetteur
    ouvrir fichier recepteur
    lire.
    lire 1 enrgt du fichier emetteur
    en fin fermer les 2 fichiers
    arret programme.
    move des zones
    ecrire enrgt sortie
    goto lire.
    @+

  3. #3
    Visiteur MP
    Visiteur MP
    pouvez vous me decrire un peu le programme parce que je suis debutante en cobol
    merci d\'avance.

  4. #4
    Visiteur MP
    Visiteur MP
    veut bien aider, pas faire le programme
    sinon les cours ( je suppose ) ne servent à rien.
    donner au moins ici, le début du programme écrit,
    dans l\'état actuel : on regarde ce qui cloche, on
    propose des solutions...
    cordialement.

  5. #5
    Visiteur MP
    Visiteur MP
    le programme :

    IDENTIFICATION DIVISION.
    PROGRAM-ID. DECOM.
    ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    SELECT ENT-FICH ASSIGN TO FICHIER1
    ACCES MODE IS SEQUENTIAL.
    FILE STATUS STA-ENT.

    SELECT SOR-FICH ASSIGN TO FICHIER2
    ACCES MODE IS SEQUENTIAL.
    FILE STATUS STA-SOR.
    DATA DIVISION.
    FILE SECTION.
    FD ENT-FICH1.
    01 ENR-ENT.
    02 COD-CORREC PIC X(10).
    02 DAT-CORREC PIC 9(14) COMP.
    02 COD-VALID PIC X(10).
    02 DAT-VALID PIC 9(14) COMP.
    FD SOR-FICH2.
    01 ENR-SOR.
    02 COD-CORREC PIC X(10).
    02 DAT-CORREC PIC 9(14) .
    02 COD-VALID PIC X(10).
    02 DAT-VALID PIC 9(14) .
    PROCEDURE DIVISION.
    DEBUT.
    OPEN INPUT ENT-FICH1 OUTPUT SOR-FICH2
    READ ENT-FICH1 AT END
    MOVE COD-CORREC OF ENR-ENT TO COD-CORREC OF ENR-SOR
    MOVE DAT-CORREC OF ENR-ENT TO DAT-CORREC OF ENR-SOR
    MOVE COD-VALID OF ENR-ENT TO COD-VALID OF ENR-SOR
    MOVE DAT-VALID OF ENR-ENT TO DAT-VALID OF ENR-SOR
    WRITE SOR-FICH2


    je me suis bloquer ici !!!!!!!

  6. #6
    Visiteur MP
    Visiteur MP
    bien !
    Code:
    IDENTIFICATION DIVISION. 
    PROGRAM-ID. DECOM. 
    ENVIRONMENT DIVISION. 
    INPUT-OUTPUT SECTION. 
    FILE-CONTROL. 
    SELECT ENT-FICH ASSIGN TO FICHIER1 
    ACCES MODE IS SEQUENTIAL. 
    FILE STATUS STA-ENT. 
    
    SELECT SOR-FICH ASSIGN TO FICHIER2 
    ACCES MODE IS SEQUENTIAL. 
    FILE STATUS STA-SOR. 
    DATA DIVISION. 
    FILE SECTION. 
    FD ENT-FICH1. 
    01 ENR-ENT. 
    02 COD-CORREC PIC X(10). 
    02 DAT-CORREC PIC 9(14) COMP. 
    02 COD-VALID PIC X(10). 
    02 DAT-VALID PIC 9(14) COMP. 
    FD SOR-FICH2. 
    01 ENR-SOR. 
    02 COD-CORREC PIC X(10). 
    02 DAT-CORREC PIC 9(14) . 
    02 COD-VALID PIC X(10). 
    02 DAT-VALID PIC 9(14) . 
    PROCEDURE DIVISION. 
    DEBUT. 
    OPEN INPUT ENT-FICH1 OUTPUT SOR-FICH2.
    encore.
    READ ENT-FICH1
     AT END close ent-fich1 sor-fich2
            stop run.
    MOVE COD-CORREC OF ENR-ENT TO COD-CORREC OF ENR-SOR 
    MOVE DAT-CORREC OF ENR-ENT TO DAT-CORREC OF ENR-SOR 
    MOVE COD-VALID OF ENR-ENT TO COD-VALID OF ENR-SOR 
    MOVE DAT-VALID OF ENR-ENT TO DAT-VALID OF ENR-SOR 
    WRITE SOR-FICH2 
    goto encore.
    il ne manquait presque rien.
    sous réserve des fautes de frappes ....
    très très longtemps que je n\'ai pas fait de
    cobol.

    c\'est bien les formations, les universités ...
    ça, 30 ans de retard : faire apprendre
    un langage qui n\'est plus du tout utilisé
    plutôt que de former sur les méthodes de
    programmation, les langages net et/ou objets,
    les L4G .... mais enfin, si vous apprenez
    ue certaine logique, vous pourrez vous
    mettre aux autres langages ..
    @+

  7. #7
    Visiteur MP
    Visiteur MP
    MERCI, je vais voir si ça marchera
    c\'est la premiere fois que je programme avec cobol, mais je connais d\'autres languages
    a+

  8. #8
    Membre MP
    Inscrit
    août 2013
    Messages
    4
    aprés l\' execution le programme ne connait pas le fichier \"FICHIER1\"

    l\'erreur suivante aparait :

    I/O error : file \'\'
    error code: 9/104 (ANS74), pc=76, call=1, seg=0
    104 Null file name used in a file operation

    qu est ce que je dois faire ? svp.

  9. #9
    Visiteur MP
    Visiteur MP
    il ne trouve pas le fichier à lire.
    la syntaxe du FD dépend du système sur
    lequel on est .
    sur un PC on peut essayer
    FD ENT-FICH1 LABEL RECORD STANDARD
    VALUE OF FILE-ID \"adresse fichier\"
    DATA RECORD IS ENR-ENT.
    01 ENR-ENT.
    ...
    avec \"adresse fichier\" =
    \"c:\\mes documents\\fichier.txt\" par exemple

    même principe pour le fichier en sortie.

    @+

  10. #10
    Membre MP
    Inscrit
    août 2013
    Messages
    4
    je travail ave cobol sur UNIX ?

Page 1 sur 2 12 DernièreDernière

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!