[Cobol ] sortir d'une procedure + continuation (nouveau)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Cobol ] sortir d'une procedure + continuation (nouveau)

red faction

voila tout est dans le titre ...
un peu comme return ou exit sub en C ou en VB
dans l'aide jai trouve exit mais ca sort carrement du prog et c
pas ca que je veux

sinon ya personne qui a deja utilse le - pour continuer une instruction qui ce place en col 7 comme les commentaires

Code :

* commentaire
77 str pic x(20) value is "ceci est bien
- trop long".

Message édité par red faction le 08-07-2003 à 22:16:45

Publicité

burgergold

5$? va chez l'diable!

yaurait pas des goto en cobol

---------------
http://www.boincstats.com/signature/user_664861.gif

polo021

red faction a écrit :

voila tout est dans le titre ...
un peu comme return ou exit sub en C ou en VB
dans l'aide jai trouve exit mais ca sort carrement du prog et c
pas ca que je veux

perform n times, perform until,... ca t'arrange pas ca :??:

T'as un exam en Cobol?

avander

En Cobol le code proprement dit est organisé en sections et paragraphes qui se trouvent obligatoirement dans la 'procedure division' ( il y a 3 autres division mais elles sont déclaratives).

Une section est un ensemble de paragraphes et un paragraphe contient du code.

PROCEDURE DIVISION.
MAIN SECTION.
0-MAIN.
PERFORM 1-INIT.
PERFORM 1-MAIN UNTIL END-OF-PROGRAM.
PERFORM 1-END.
STOP RUN.

1-INIT.
... code qui initialise ton progr ...

1-MAIN.
... traitement ad hoc ...

1-END.
... code qui fait le ménage après le traitement ...

Lorsque tu utilise PERFORM tu mets soit un nom de section, soit un nom de paragraph. Avec un nom de section tous les paragraphes dans la section seront exécutés, avec un nom de paragraphe uniquement le... paragraphe!

Pas besoin de mettre un goto à la fin du paragraphe, tu revient automatiquement à l'instruction suivant ton PERFORM quand le paragraph est fini!

A+

---------------
A thing of beauty is a joy forever (John Keats)

polo021

Avander a écrit :

ca j'espere qu'il le savait!
a mon avis il voulait plutot quitter en plein milieu du perform (comme un break dans une boucle en C++)

red faction

polo021 a écrit :

ca j'espere qu'il le savait!
a mon avis il voulait plutot quitter en plein milieu du perform (comme un break dans une boucle en C++)

ouais voila exactement, en fait je teste la presence d'un fichier dans une de mes procedures et ci le fichier nexiste pas, jaimerai sortir de cette procedure et revenir au menu, au lieu faire un stop run et de tout arreter.

Code :

procedure division.
evaluate choix
perform choix1.
perform choix2.
....
choix1.
open...
read...
if fich-status = 30 then
display "erreur ...."
stop run //a remplace par la fct qui me fera sortir de la procedure
end-if.
//traitement sur le fichier

ouais j'ai exam en cobol fait ¨*%ùù$# mais bon ca va aller c encore simple jme demande comment j'ai pu rater ca (de pas grand chose nempeche) [:yamusha]

Message édité par red faction le 08-07-2003 à 17:28:14

red faction

une solution serait de mettre une variable booleene a vrai ou faux selon quon ait trouve le fichier ou pas puis de faire un test mais bon c'est pas tres clean

polo021

manque de pot j'ai toujours fait des stop run

mais tu peux toujours faire un truc avec un perform

Message édité par polo021 le 08-07-2003 à 19:51:10

red faction

[:yoyoz]

Message édité par red faction le 08-07-2003 à 22:16:16

FORUM HardWare.fr

Programmation

Divers

[Cobol ] sortir d'une procedure + continuation (nouveau)

Sujets relatifs
appeller une procedure Tobject dans une procedure ...	Copier en VB une macro dans un nouveau fichier
Du nouveau, mais vraiement du nouveau..........	Saisir une valeur dans une procédure stockée oracle
[c#] procedure stockée	[Delphi] Recherche désespéremment procédure ALPHA-BETA.....
[php]sortir du boucle while	SQLServer : procedure stockée ou fonction
Une appli qui dit : "Vous avez un nouveau message"...	threads, suspend() et resume() (nouveau pb dernier post)
Plus de sujets relatifs à : [Cobol ] sortir d'une procedure + continuation (nouveau)

Page générée en 0.041 secondes