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

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

Marsh Posté le 19-12-2006 à 10:09:13    

: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.
Reply

Marsh Posté le 19-12-2006 à 10:09:13   

Reply

Marsh Posté le 19-12-2006 à 10:22:12    

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
Reply

Marsh Posté le 19-12-2006 à 10:28:43    

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 ? :??:


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

Marsh Posté le 19-12-2006 à 10:37:01    

Kilyn a écrit :

une  [:aloy]

 

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


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

Reply

Marsh Posté le 19-12-2006 à 10:37:39    

Oui mais comment faire ?

 

Je ne sais pas justement. :/


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

Marsh Posté le 19-12-2006 à 10:43:14    

Kilyn a écrit :

Oui mais comment faire ?

 

Je ne sais pas justement.  :/


t'es sous bull ou ibm ?

Reply

Marsh Posté le 19-12-2006 à 10:45:07    

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.
Reply

Marsh Posté le 19-12-2006 à 11:04:58    

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.
Reply

Marsh Posté le 19-12-2006 à 11:06:22    

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

 

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

Reply

Marsh Posté le 19-12-2006 à 11:14:09    

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.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed