11.9. Příkaz LOAD

          Formát:   LOAD { 'jméno-souboru' | nenum.položka } položka

          Funkce: Příkaz LOAD způsobí, že  se do vnitřní paměti zavede
          soubor  se  jménem  určeným  prvním  argumentem  stojícím za
          slovem  LOAD.  Tento  argument  smí  být buďto alfanumerický
          literál obsahující jméno souboru  (platí zde stejná pravidla
          jako  pro  jméno  souboru  uvedené  ve tvaru alfanumerického
          literálu  v  podklauzuli  ASSIGN   klauzule  SELECT  nebo  v
          podklauzuli  VALUE OF  FILE-ID klauzule  FD) anebo skupinová
          resp. alfanumerická položka  obsahující odleva jméno souboru
          a za  ním binární  nulu (zbylé  byty této  položky za  touto
          binární nulou  se nepoužívají);  obsah této  položky smí být
          při každém provádění tohoto příkazu LOAD jiný.
               Druhý  argument "položka"  musí být  položka popsaná  v
          LINKAGE SECTION nebo ve FILE SECTION s číslem úrovně 01 nebo
          77.  Příkaz LOAD  vyhradí  v  dynamické oblasti  paměti úsek
          paměti o délce rovné minimu z délky souboru na disku a délky
          položky uvedené jako druhý  argument. Do tohoto úseku paměti
          pak načte  celý soubor (resp.  pouze začátek souboru,  je-li
          délka  položky  menší  než  délka  souboru).  Pak tento úsek
          paměti  ztotožní s  položkou uvedenou  jako druhý  argument,
          tzn.  dosadí adresu  vyhrazeného úseku  paměti do  ukazatele
          přiděleného  zadané položce.  Tím je  provádění příkazu LOAD
          ukončeno  a přechází  se na  příkaz následující  za příkazem
          LOAD.
               Po  provedení  příkazu  LOAD  bude  tedy zadaná položka
          obsahovat zadaný soubor (resp. jeho  začátek) a bude možno s
          ní  v  následujících  příkazech  libovolně  pracovat  (změny
          provedené uživatelem v  položce ovšem nezpůsobí odpovídající
          změnu  souboru  uloženého  na  disku!).  Nebude-li  uživatel
          načtený soubor již nadále  potřebovat, může zrušit vyhrazený
          úsek  paměti  příkazem  CALL 'ICUFREE' USING položka  (tento
          příkaz způsobí zrušení vyhrazeného  úseku paměti včetně jeho
          obsahu, neaktualizuje se tedy  původní soubor na disku!). Je
          ovšem  zbytečné  provádět  toto  zrušení  bezprostředně před
          koncem  výpočtu, neboť  při ukončení  výpočtu se  ruší paměť
          automaticky.

          Poznámka: Načítaný  soubor by měl  obsahovat nějakou tabulku
          konstant,  ceník  apod.,  nikoliv  tedy spustitelný program.
          V MX COBOLu  neexistuje   možnost,  jak  zavést   do  paměti
          spustitelný  program a  předat mu  okamžitě nebo  až později
          řízení.