Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

Hello world


Sujet :

Contribuez

  1. #1
    Membre expert
    Hello world
    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 ?

  2. #2
    Rédacteur

    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.

  3. #3
    Membre confirmé
    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=*

###raw>template_hook.ano_emploi###