         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$EDIT VOID=1919200                                             <<R2276>>01919100
$EDIT VOID=1927000                                             <<R2276>>01926100
IF WBUFIN(6) = 0 THEN                                          <<R2276>>04800100
  BEGIN                                                        <<R2276>>04800200
  END                                                          <<R2276>>04820100
ELSE                                                           <<R2276>>04820200
  BEGIN                                                        <<R2276>>04820300
  MOVE BUFOUT(27):="MIGRATION EVENT           ";               <<R2276>>04820400
  MOVE BUFOUT(56):=BUFIN(18),(26);                             <<R2276>>04820500
  ASCII(WBUFIN(6),10,BUFOUT(43));                              <<R2276>>04820600
  ASCII(WBUFIN(8),8,BUFOUT(90));                               <<R2276>>04820700
  ASCII(WBUFIN(7),8,BUFOUT(105));                              <<R2276>>04820800
  END;                                                         <<R2276>>04820900
                                                               <<R2276>>04821000
   BYTE'COUNTER := 1;  << initialize to 1 >>                   << 2075>>04940000
   WHILE BYTE'COUNTER < TOTAL'LOGGED DO                        << 2075>>04955000
               BYTE'COUNTER <= TOTAL'LOGGED DO                 << 2075>>04970000
