Discussion :

[Luc Orient]

Bon allez je sais c'est un peu facile ... mais bon il faut bien se lancer et commencer non ?

Voici un exemple très simple de programme COBOL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. BSFZWWDA. 
      * 
      * AFFICHAGE HELLO WORD 
      * 
       PROCEDURE DIVISION. 
       DEBUT. 
      * 
           DISPLAY 'HELLO WORD !' 
           GOBACK 
           .

Ecrit, compilé et exécuté sur un Mainframe IBM sous z/OS 1.6
Compilateur :
IBM COBOL for OS/390 & VM 2.2.2

Et en prime le JCL d'exécution !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
//BSFZWWDA EXEC PGM=BSFZWWDA 
//SYSOUT DD SYSOUT=*

C'est facile le COBOL et le Mainframe non ?

[khayyam90]

voilà, c'est le genre de programmes que la rubrique recherche.



Bon, celui ci est suffisamment explicite en lui-même, mais précise pour chacun ce qu'il fait.

[Homer-ac]

A ce propos, Hello Word en fonction du niveau :
http://futureshare.lip6.fr/Humour/humour13.html
Jai trouvé ça marrant.

Dans la série pourquoi faire simple quand on peut faire compliqué, à supposer que l'on transpose en COBOL : Hello Word programmeur expérimenté. Ca peut donner quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

       Identification Division.                                         
       PROGRAM-ID. COBHELLO.                                            
      *===============================================================  
      * Exemple d'appel programmes Enterprise COBOL imbriqués                            
      * Envoi d'un message reçu en PARM                                 
      *===============================================================  
       Data Division.                                                   
       Working-Storage Section.                                         
      *========================                                         
       01  WS-COBHELLO              pic x(16) VALUE '* WSS COBHELLO'.   
       01  WS-PARM                  pic x(100).                         
      *================                                                 
       Linkage Section.                                                 
      *================                                                 
      *    PARM reçu                                                    
       01  LK-PARM.                                                     
           05  LK-PARM-LG           pic s9(4) Binary.                   
           05  LK-PARM-DATA         pic x(100).                         
      *===================================                              
       Procedure Division  Using LK-PARM.                               
      *===================================                              
       DEBUT-PGM.                                                       
      * Acquisition                                                     
           Move LK-PARM-DATA(1:LK-PARM-LG) to WS-PARM                   
           CALL 'COBMESS' using WS-PARM by content length of WS-PARM    
      * Retour                                                          
           String  'Fin du Programme COBHELLO le : '                    
                    function current-date(1:16) '.' delimited by size   
                                                    into     WS-PARM    
           CALL 'COBMESS' using WS-PARM by content length of WS-PARM    
           Move zero to return-code                                     
           Goback.                                                      
                                                                        
       Identification Division.                                         
       PROGRAM-ID. COBMESS.                                             
      *==============================================================*  
      * Gestion des messages                                         *  
      *==============================================================*  
       Data Division.                                                   
       Working-Storage Section.                                         
       Linkage Section.                                                 
      *================                                                 
       01  LMESSAG-PARM             Pic  x(256).                        
       01  LMESSAG-PARM-LG          Pic  s9(8) Binary.                  
                                                                        
       Procedure Division  using  LMESSAG-PARM  LMESSAG-PARM-LG.        
           Display LMESSAG-PARM(1:LMESSAG-PARM-LG)                      
           Goback.                                                      
                                                                        
       End Program COBMESS.                                             
                                                                        
       End Program COBHELLO.

Le JCL (z/OS) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
//S0010    EXEC PGM=COBHELLO,PARM='HELLO WORD !'
//STEPLIB  DD   DSN=&LOADLB,DISP=SHR            
//SYSOUT   DD   SYSOUT=*                        
//CEEDUMP  DD   SYSOUT=*