How to calculate the length of a variable length field?

guruji · New User Joined: 13 Apr 2007 Posts: 44 Location: Bangalore

hI,
I have a piece of copybook like below:

05 WS-NEW-FLD PIC X(37).
03 WS-DETAILS.
05 WS-LINES OCCURS 0 TO 1000 DEPENDING ON WS-LINE-CNT
INDEXED BY WS-NDX.
07 WS-LINE-TYPE PIC 9(2).

I have to calculate the starting position of WS-LINE-TYPE. How to calculate the length of WS-LINES?It ia a variable length fielda no?

Please help

dbzTHEdinosauer · Posted: Tue Jul 08, 2008 3:10 pm Post subject:

???????????

starting position of ws-line-type(1) is the same as ws-lines.

the length of ws-lines is
length(ws-lines)

or

if ws-line-cnt > 0
then
compute len-ws-lines
= ws-line-cnt * length(ws-line-type)
end-compute
else
move zero to len-ws-lines
end-if