cbl list
       Identification division.
       Program-id. Overlap.
       Environment division.
       Data division.
       Working-storage section.
       01  F               pic S9(8) comp-5.
       01  T               pic S9(8) comp-5.
       01  L               pic S9(8) comp-5.
       01  I               pic 9(2) display.
       01  MATABLE.
           02  POSTE occurs 11
               indexed by X.
               05  DONNEES pic X(10).
               05          pic X(990).
       Procedure division.
       Main.
      * Insertion en position 6...
           display 'Insert before item 6 :'
           perform Initialisations
           compute F = length of POSTE * (6 - 1) + 1
           compute T = length of POSTE * (7 - 1) + 1
           compute L = length of POSTE * (10 - 6)
           display 'Move ' l '  bytes from ' F ' to ' T
           move MATABLE (F:L) to MATABLE (T:L)
           move all 'A' to POSTE (6)
           display 'After insert of item 6...'
           perform Liste-Table
      * Suppression en position 4...
           display 'Delete item 4 :'
           perform Initialisations
           compute F = length of POSTE * (5 - 1) + 1
           compute T = length of POSTE * (4 - 1) + 1
           compute L = length of POSTE * (11 - 4)
           display 'Move ' l '  bytes from ' F ' to ' T
           move MATABLE (F:L) to MATABLE (T:L)
           display 'After delete of item 4...'
           perform Liste-Table
           .
       Bye.
           Goback
           .
       Initialisations.
           move all '1' to POSTE (1)
           move all '2' to POSTE (2)
           move all '3' to POSTE (3)
           move all '4' to POSTE (4)
           move all '5' to POSTE (5)
           move all '6' to POSTE (6)
           move all '7' to POSTE (7)
           move all '8' to POSTE (8)
           move all '9' to POSTE (9)
           move all '0' to POSTE (10)
           move all '?' to POSTE (11)
           display 'Etat initial...'
           perform Liste-Table
           .
       Liste-Table.
           set X to 1
           move 1 to I
           perform 11 times
             display I ':' DONNEES (X)
             set X up by 1
             add 1 to I
           end-perform
           .
       End program Overlap.