Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2046 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

  [Résolu ] [Cobol et JCL] Paramètre d'un programme

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu ] [Cobol et JCL] Paramètre d'un programme

n°1493127
Kilyn
Milé sek milé
Posté le 19-12-2006 à 10:09:13  profilanswer
 

:hello:  

 

Je code un programme Cobol qui doit prendre un chiffre en paramètre. Comment dois-je faire pour le mettre dans le JCL de lancement et comment le récupérer dans le programme ?

 

Merci à vous.

Message cité 1 fois
Message édité par Kilyn le 19-12-2006 à 11:15:42

---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.
mood
Publicité
Posté le 19-12-2006 à 10:09:13  profilanswer
 

n°1493146
Eldricht
$*$ BRK
Posté le 19-12-2006 à 10:22:12  profilanswer
 

Kilyn a écrit :

:hello:  

 

Je code un programme Cobol qui doit prendre un chiffre en paramètre. Comment dois-je faire pour le mettre dans le JCL de lancement et comment le récupérer dans le programme ?

 

Merci à vous.


un coboliste  [:cerveau lent]

 

dans le step il faut que tu fasses : ASG H_RD *NOM_DE_TON_INPUT

 

et dans le jcl fait une input enclosure : $IN NOM_DE_TON_INPUT,PRINT;
                                                     chiffre_en_paramètre              
                                                     $EIN;              
enfin, il me semble  [:aloy]

 

edit : et faire un ACCEPT dans le programme pour récupérer la variable

Message cité 1 fois
Message édité par Eldricht le 19-12-2006 à 10:29:17
n°1493156
Kilyn
Milé sek milé
Posté le 19-12-2006 à 10:28:43  profilanswer
 

Eldricht a écrit :

un coboliste   [:cerveau lent]  

 

dans le step il faut que tu fasses : ASG H_RD *NOM_DE_TON_INPUT

 

et dans le jcl fait une input enclosure : $IN NOM_DE_TON_INPUT,PRINT;
                                                     chiffre_en_paramètre              
                                                     $EIN;              
enfin, il me semble   [:aloy]


une [:aloy]

 

Sinon via une SYSIN ce n'est pas possible ? :??:

Message cité 1 fois

---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.
n°1493176
Eldricht
$*$ BRK
Posté le 19-12-2006 à 10:37:01  profilanswer
 

Kilyn a écrit :

une  [:aloy]

 

Sinon via une SYSIN ce n'est pas possible ?  :??:


pour le sysin, oui tout a fait possible  [:cytrouille]

n°1493178
Kilyn
Milé sek milé
Posté le 19-12-2006 à 10:37:39  profilanswer
 

Oui mais comment faire ?

 

Je ne sais pas justement. :/

Message cité 1 fois

---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.
n°1493191
Eldricht
$*$ BRK
Posté le 19-12-2006 à 10:43:14  profilanswer
 

Kilyn a écrit :

Oui mais comment faire ?

 

Je ne sais pas justement.  :/


t'es sous bull ou ibm ?

Message cité 1 fois
n°1493193
Kilyn
Milé sek milé
Posté le 19-12-2006 à 10:45:07  profilanswer
 

Eldricht a écrit :

t'es sous bull ou ibm ?

Sous MVS, sous IBM.

 



---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.
n°1493243
Kilyn
Milé sek milé
Posté le 19-12-2006 à 11:04:58  profilanswer
 

Bon j'ai trouvé grâce à ce lien.
En résumé on met le paramètre en SYSIN après l'instruction //SYSIN    DD  * Un exemple

Code :
  1. //SYSIN    DD  *
  2. 5

Dans mon exemple j'ai le chiffre 5 en paramètre de mon programme.

 

Ensuite dans le programme on effectue les étapes suivantes :

 

1. Déclaration des variables dont on a besoin :

Code :
  1. 01  SYSIN-PARAMETER         PIC X(80)  value SPACES.


2. Récupération de la valeur du paramètre :

Code :
  1. ACCEPT SYSIN-PARAMETER FROM SYSIN


3. Si paramètre obligatoire test de son renseignement :

Code :
  1. IF  SYSIN-PARAMETER = SPACES
  2.    partir en abend
  3. ELSE
  4.    MOVE SYSIN-PARAMETER TO nombre
  5.    autres instructions
  6. END-IF.


Voilà. :hello:

 


Message édité par Kilyn le 19-12-2006 à 11:13:14

---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.
n°1493249
Eldricht
$*$ BRK
Posté le 19-12-2006 à 11:06:22  profilanswer
 

ça tombe bien car j'étais de toute façon bull powered :/

 

bon courage et longue vie au cobol  [:cerveau lent]

Message cité 1 fois
n°1493267
Kilyn
Milé sek milé
Posté le 19-12-2006 à 11:14:09  profilanswer
 

Eldricht a écrit :

ça tombe bien car j'étais de toute façon bull powered   :/  

 

bon courage et longue vie au cobol    [:cerveau lent]  

 



 :lol:  merci. :jap:


Message édité par Kilyn le 19-12-2006 à 11:14:32

---------------
Nous ne sommes pas des êtres humains vivant une exprérience spirituelle. Nous sommes des êtres spirituels vivant une expérience humaine.

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  [Résolu ] [Cobol et JCL] Paramètre d'un programme

 

Sujets relatifs
[RESOLU]Formulaire et tableau: maj table[Résolu] [MySQL] Contenu du répertoire data
pb pour executer un programme openglCombiner 3 requètes [résolu]
[Résolu][C#] WebMethode et renvoi d'objetexemple de programme matlab utilisant bvp
[résolu] commerce en ligne avec options spéciales...[Javascript] document.forms[0].submit(); [résolu]
md5 [résolu]demande d'aide pour programme en turbopascal
Plus de sujets relatifs à : [Résolu ] [Cobol et JCL] Paramètre d'un programme

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.059 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR