One of our customers has asked if there is a way to produce a report that contains position and displacement of each field as in the below example.
LEVEL AND DATA NAME START END BYTES DESC
01 PRIMARY-REC 1 4000 4000
05 P-CLIENT-NUMBER 1 4 4 X(4)
05 P-LOAN-NUM 5 11 7 X(7)
05 P-LOAN-NUM-RED REDEFINES 5 11 7 9(13) COMP-3
05 P-REC-TYPE 12 15 4
10 P-REC-TYPE1 12 12 1 X
10 P-REC-NUM2 13 15 3 999
05 P-NAME-ADDRESS 16 281 266
10 P-NAME 16 45 30 X(30)
10 P-ADR1 46 75 30 X(30)
10 P-ADR2 76 105 30 X(30)
10 P-ADR3 106 135 30 X(30)
10 P-ADR4 136 165 30 X(30)
10 P-ADR5 166 198 33
15 P-CITY 166 186 21 X(21)
15 P-STATE 187 188 2 XX
15 P-ZIP 189 198 10
20 P-ZIP5 189 193 5 X(5)
20 P-ZIP-DASH 194 194 1 X
20 P-ZIP4 195 198 4 X(4)
#COBOL
#EnterpriseDeveloper
