Quelle  lengthof.cob   Sprache: Cobol

      identification division.
      program-id. len.
      WORKING-STORAGE SECTION. 
      01 length-of-item pic 9(9) value zeros. 
      01 group-item. 
      05 item-1 occurs 25. 
      07 item-1-occur pic x(20). 
      05 item-2 pic 9(9)v99. 
      05 item-3 occurs 25. 
      07 item-3-occur pic s9(9)v99 comp. 
      
      PROCEDURE DIVISION. 
      LENGTH-OF-GROUP-ITEM. 
      move length of group-item to length-of-item.