FORUM MP | Cobol : record varying

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

record varying
	Forum : COBOL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ COBOL
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM COBOL
	Page précedente	Page suivante

Cobolman2008
Nouveau membre

Inscrit : 09/06/2008
Messages : 1

#154033 Posté le 09/06/08 à 12:29

Bonjour,

Je suis un débutant en cobol. Jusqu'aujourdh'ui je n'ai utilisé que l'RPG400.

Je suis entrain de faire le protage de quelque programme cobol sur l'as400.
J'ai trouvé ds un programme dans la déclaration du fichier le mot clé :
RECORD VARYING.

J'ai trouvé de la doc mais malheureusement, elle est en anglais.

Quelqu'un peut m'expliquer ce que veut dire ce mot clé ?
Et sa particularité par rapport à la longueur FIX

Un exemple serait le bienvenu.

Merci de votre aide
__________________________
Merci de Votre aide

:-)

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

HULK77
Modérateur :
- Cobol

Inscrit : 12/08/2004
Messages : 160

#154090 Posté le 11/06/08 à 11:33

Salut Cobolman 2000,

La notion de longueur FIXE est la plus simple à comprendre et à utilisée.
Si tu as une longueur d'enregistrement de 150 c, chaque enregistrement de
ton fichier fera 150 c.

Dans le cas d'un fichier ayant une structure de fichier Variable, cela signifie
que tu aura plusieurs segments de différentes longueur. Par exemple :

Un cas très courant est d'avoir :
1 enregistrement dit d'entête de 100 c par exemple
X enregistrements dit de détail de 300 c par exemple
1 enregistrement dit de fin de 50 c par exemple

Dans ce cas la longueur de l'enregistrement sera de 300 c (prendre la longueur
la plus grande)

Un exemple de code d'un fichier AB multi structure et variable de 165 c

000120 FILE-CONTROL.
000130 SELECT AB-FICHIER ASSIGN UT-S-ABABE.
000140 SELECT EN-FICHIER ASSIGN UT-S-ENHSI.
000150 SELECT SO-FICHIER ASSIGN UT-S-SODKO.
000160 DATA DIVISION.
000170 FILE SECTION.
000180 FD AB-FICHIER
000190 BLOCK 00000 RECORDS
000200 RECORDING F.
000210 01 AB00.
000220 05 AB00-00.
000230 10 AB00-SPROGR PICTURE X(6).
000240 10 AB00-SNUST PICTURE X(4).
000250 10 AB00-SCOST PICTURE X(2).
000260 10 AB00-S9Z03 PICTURE 9(3).
000270 10 AB00-STYPAC PICTURE X(2).
000280 05 AB00-SUITE.
000290 15 FILLER PICTURE X(00148).
000300 01 AB20.
000310 10 FILLER PICTURE X(00017).
000320 10 AB20-SNUGNA PICTURE X(5).
000330 10 AB20-SDATGN PICTURE X(8).
000340 10 FILLER PICTURE X(00135).
000350 01 AB30.
000360 10 FILLER PICTURE X(00017).
000370 10 AB30-SSEGMT PICTURE X(4).
000380 10 AB30-SCOEN PICTURE 9(9).
000390 10 FILLER PICTURE X(00135).
000400 01 AB40.
000410 10 FILLER PICTURE X(00017).
000420 10 AB40-SSEGMT PICTURE X(4).
000430 10 AB40-SINFO PICTURE X(40).
000440 10 AB40-SCLEAC PICTURE X(60).
000450 10 AB40-SCODER PICTURE X(8).
000460 10 AB40-SNATER PICTURE X(15).
000470 10 AB40-SFNPAC PICTURE X(7).
000480 10 AB40-SSPROG PICTURE X(6).
000490 10 AB40-SCEAT PICTURE X(8).
000500 01 AB90.
000510 10 FILLER PICTURE X(00017).
000520 10 AB90-SSWITC PICTURE X.
000530 10 FILLER PICTURE X(00147).

HULK77
__________________________
Ma fabrique de chemises tourne à plein régime !!!

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.