prog-2   proměnné, vstup, výstup

*> naplneni promennych v pameti
*> vytvoreni a vystup slozeneho radku

program-id. prog.
data division.                  *> povinny popis datovych polozek, struktur a souboru  
                                *> popisy definuji delky a typ promennych (zobrazeni "pic")
working-storage section.
77  TX pic x(20).                       
77  CS pic 9(5).

procedure division.
                                *> vyzvani a vstup dat do promennych 
display "text:"
   accept TX
display "cislo:"
   accept CS
                                *> sestaveni a vypis vystupni zpravy
display "ulozeno: tx = " TX ", cs = " CS.
stop run.

standardní vstup/výstup:                                      
      text:  
      dobry den                                                  
      cislo:      
      123
      ulozeno: tx = dobry den          , cs = 00123       

komentář k příkazům "display" a "accept" 

• jazyk COBOL má pro standardní i/o komunikaci pouze velice jednoduché příkazy "display" a "accept",
  které běžně vždy současně provedou přechod na nový řádek
• překročení rozsahu vstupu "accept" není běžně signalizováno, přebývající znaky se prostě ignorují
• pokud data, zadávaná do číselné datové položky (pic 9...) obsahují textový znak nebo mezeru,
  proměnná je automaticky inicializována nulou
• sestavení výstupní zprávy z obsahu proměnných a literálů příkazem "display" pracuje s explicitně definovanými délkami, tj. bez ohledu na skutečný datový obsah - standardní nástroj pro jeho respektování COBOL nemá
• o možných způsobech řešení výše uvedených situací bude pojednáno později

Modřice 27. prosince 2015 - Vlastimil Čevela