Example: internal bridging
The following example shows (in bold) how a program can be changed to implement internal bridging.
CBL DATEPROC(FLAG),YEARWINDOW(-60)
. . .
File Section.
FD Customer-File.
01 Cust-Record.
05 Cust-Number Pic 9(9) Binary.
. . .
05 Cust-Date Pic 9(6) Date Format yyxxxx.
Working-Storage Section.
77 Exp-Cust-Date Pic 9(8) Date Format yyyyxxxx.
. . .
Procedure Division.
Open I-O Customer-File.
Read Customer-File.
Move Cust-Date to Exp-Cust-Date.
. . .
*=====================================================*
* Use expanded date in the rest of the program logic *
*=====================================================*
. . .
Compute Cust-Date = Exp-Cust-Date
On Size Error
Display "Exp-Cust-Date outside century window"
End-Compute
Rewrite Cust-Record.