|
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.
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
