Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

Messages recommandés

Posté(e)

il faut aimer les terminaux 3 couleurs (noir, vert, vert clair) et taper des programmes en Cobol avec un éditeur encore plus cryptique que vi (tout en étant bcp moins évolué)

Posté(e)

A part ca (se former à l'utilisation des outils et a la syntaxe du langage) le seul pré-requis c'est un brin d'organisation et de logique (un peu d'algorithmique et c'est bon...)

Invité y4k9z4
Posté(e)

Ah l' AS400 et le Cobol , le RPG et le LCL , les goto , les screens a se cogner , les champs la compilation et le debug ... ca nous rajeunit po ca...

 

en tant qu'utilisateur c du programme specifique a la boite donc ta maman devrait recevoir une formation .. en general on saisie ,on consulte , rien de méchant juste les couleurs vertes ca fait mal au yeux !

Posté(e)

Pour kelwcat du temps ou il était jeune et beau (Nota j'ai rien dit d'autres dès fois que l'on me prête de mauvaises pensées

 

un peu de Cobol

 

*****************************************************************

 

* gestion d'un parking prive

 

*****************************************************************

 

 

 

ENVIRONMENT DIVISION.

 

input-output section.

 

file-control.

 

select F-PARKING assign to "f-parking"

 

organization is indexed

 

access is dynamic

 

record key PLAQUE

 

alternate record key PROPRIETAIRE

 

with duplicates.

 

 

 

*****************************************************************

 

 

 

DATA DIVISION.

 

 

 

FILE SECTION.

 

 

 

fd F-PARKING.

 

01 ENR-PARKING.

 

02 PLAQUE pic x(:P.

 

02 PROPRIETAIRE pic x(20).

 

02 VEHICULE pic x(20).

 

02 PRESENT pic x(1).

 

 

 

 

 

WORKING-STORAGE SECTION.

 

 

 

* Constantes utiles ...

 

 

 

77 VRAI pic x value "T".

 

77 FAUX pic x value "F".

 

77 CHOIX pic x.

 

 

 

* variables et indicateurs ...

 

 

 

77 PROPRIETAIRE-CHERCHE pic x(20).

 

77 FF-PARKING pic x.

 

77 FIN-TRAVAIL pic x.

 

77 VEHICULE-EXISTE pic x.

 

77 LIBELLE-QUESTION pic x(30).

 

77 LIGNE-PARAMETRES pic x(80).

 

beerchug.gif à la tienne en souvenir du temps qui passe nuts.gif

Posté(e)

L'AS400 ça c'est une machine. L'OS400 ça c'est un OS.

 

C'est un bonheur de travailler sur une machine qui te dit ce qui ne va pas, qui est d'une stabilité incroyable.

Posté(e)

0% fioritures

 

100% fiabilité

 

 

 

ca, on n'en fait plus, malheureusement (pourvu que qqu'un connaissant le monde de l'info embarquée puisse me contredire !)

Rejoindre la conversation

Vous publiez en tant qu’invité. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...