Chris, There is no OO in the legacy application. The legacy application includes a scripting language that we convert to COBOL (so that it can run in the same run-unit as the COBOL). The scripting language has string variables that are variable in length. In the COBOL code that we convert the scripting to the strings are defined as follows: 01 name . 03 name -length pic 9(9) comp. 03 name -data pic x occurs 0 to 256 depending on name -length. Manipulating these strings then becomes two operations: set the length, set the data.Like so: move 4 to name -length move "ABCD" TO name -data. Also, for some reason, when these strings are passed to COBOL subroutines the length and data are passed as separate argumements. I was looking for some way of making this a little easier to handle. Leigh.
↧