|
Cobol Narrative Our Proprietary Narrative
When a programmer does his 20 page scans, this is what he is trying to develop. We've already developed both the format for the narrative, as well as the narrative itself.
318 20 LINK-FLAG PIC X. > If # = 'Y' (1146) If # not = 'Y' (1116) Indexed by LINK-INDEX @317 (1116, 1146)
319 20 LINK-LENGTH PIC S9(3) > Add # to WS-COMPUTED-LENGTH @81 (1147) WS-FIELD-STARTING-POS @83 (1127) Move # to WS-NUM-OF-CHARS @84 (1120) Perform-until # = ZEROS (996)
0306 05 SUB-TRANS-RECORD. > Move SPACES to # (1021,1305)
0324 10 SUB-FIELD-1 PIC 9(3) > Add 005 to # (1037,1011,1045) Move # to FIELD-3 @417 (1145) If # > 004 (972, 1040,1237) Indirectly Changed @306,335 Used @338 Tested @322
Above is an example of our narrative showing the direct references. We've also developed the narrative for the hidden Indirect references. See the last line which shows Indirect References. They appear in the narrative as "Changed", "Used," and "Tested".
|