From the course: Migrating COBOL Apps

Unlock the full course today

Join today to access over 22,600 courses taught by industry experts or purchase this course individually.

Solution: Refractoring

Solution: Refractoring - COBOL Tutorial

From the course: Migrating COBOL Apps

Start my 1-month free trial

Solution: Refractoring

“

(electronic music) - [Instructor] Let's have a look the changes we need to make to the desr 103 code. Nano minus l desr-1.03.cob. At line 451 we can see that we need to set the four parameters, WS permute size, WS from array, WS to array, and WS permutation table. And then call permute. The first of the two code segments starts at line 460. At line 462 we change the selection of the bit from the IP1 table to use permabit. This is again a 64 bit permutation using IP1, which is the second table. And moving from AC eight to AC nine. We can remove the segment of code from lines 460 to 465. And replace it with the new lines. Move 64 to WS permute size. Move eight to WS from array. Move nine to WS to array. Move two to WS permutation table. Perform permute. The second segment of code is at lines 543 to 548. And this is a 32-bit permutation. Moving from AC six to AC four, based on the third…

Contents