17.7. ICUNPKB

          Funkce: Podprogram  ICUNPKB převádí jeden byte  po bitech do
          osmi  bytů. Spolu  s  podprogramem  ICPACKB (viz  17.8.) tak
          umožňuje  práci  s  bity,  která  jinak  není v jazyku COBOL
          realizována (napočítáme-li ovšem příkaz UFO).

          Způsob volání:   CALL 'ICUNPKB' USING položka-1 položka-8

          Pravidla: Položka-1  musí mít délku  1 byte, položka-8  musí
          mít délku  8 bytů. Podprogram  ICUNPKB převede položku-1  do
          položky-8 tím  způsobem, že každý  bit položky-1 určí  obsah
          jednoho bytu  položky-8 (v témže  pořadí): bit s  hodnotou 0
          resp. 1 v položce-1 způsobí  dosazení znaku '0' resp. '1' do
          odpovídajícího bytu položky-8.

          Příklad:   77 A PIC X VALUE '*'.
                     01 B. 02 C PIC X OCCURS 8.
                         :
                         CALL 'ICUNPKB' USING A B.

          Vzhledem  k   tomu,  že  hvězdička  (*)   má  v  kódu  ASCII
          hexadecimální  ekvivalent 2A,  dosadí podprogram  ICUNPKB do
          položky B obsah 00101010 (znakově).