8.6. Příkaz CLOSE


          Formát:

                 CLOSE { jméno-souboru [REEL  | UNIT]

                         [WITH NO  REWIND | WITH LOCK] } ...

          Pravidla:

          1) Volby REEL,  UNIT, WITH NO REWIND a  WITH LOCK jsou v  MX
             Cobolu pouze  poznámkové, nemají žádný  vliv na přeložený
             program.

          Funkce:  Příkaz  CLOSE  ukončí  zpracování uvedeného souboru
          resp.  uvedených  souborů   neboli  provede  tzv.  "uzavření
          souboru". Tím se rozumí především:

          a) Zruší  se paměťová  oblast pro  01 souboru.  Po provedení
             příkazu CLOSE  se již nesmí  pracovat s touto  01 souboru
             ani s jejich podřízenými položkami.

          b) Nastaví  se  různé  indikace  tak,  že  jakákoliv akce se
             souborem je pak až  do případného nového otevření souboru
             příkazem OPEN nepřípustná.

          Pravidla:

          1) Uzavírání  souboru  příkazem  CLOSE  je  přípustné  pouze
             tehdy, byl-li soubor již otevřen příkazem OPEN.

          2) Po  ukončení  práce  se  souborem  by  uživatel měl tento
             soubor uzavřít  příkazem CLOSE. Pokud by  si uživatel byl
             naprosto   jist,  že   žádnou  z   funkcí  příkazu  CLOSE
             nepotřebuje, mohl  by teoreticky příkaz  CLOSE neprovést.
             Přesto i  v těchto případech  se doporučuje příkaz  CLOSE
             provést,  jednak  kvůli   možnosti  omylu,  jednak  kvůli
             kompatibilitě,  a   jednak  kvůli  uvolnění   paměti  01.
             Uzavření  souboru je  ovšem bezpodmínečně  nutné, bude-li
             soubor znovu otevřen příkazem OPEN.

          3) Jestliže  pro   soubor  (s  výjimkou   souborů  uvedených
             v klauzulích  USING a  GIVING v  příkazech SORT  a MERGE)
             není  v   programu  uveden  žádný   příkaz  CLOSE,  hlásí
             překladač  upozornění,  které  však  nemá  žádný  vliv na
             výpočet.

          Příklady:

          CLOSE KNIHA DVERE
          CLOSE MZDY