Mod #    Date      Author         Summary of Modifications
                                                                        **
5.0.01   01/10/00  B. Trinnel     Added Logic to indicate Optimization  **
                                  Method.                               **
                                  ** ROUT05D ROUT06D ROUT07D **
                                  ** ROUT08D ROUT09D ROUT11D **
                                  ** ROUT21D ROUT22D ROUT23D **
                                  ** WINDR30D **
                                  ** ROUT06R ROUT07R ROUT50R **
                                  ** ROUT08R ROUT09R ROUT11R **
                                  ** ROUT21R ROUT22R ROUT23R **
                                  ** WINDR30R **
                                  ** ROUT50C ROUT42C1 ROUT06C **
                                  ** ROUT07C **
                                                                        **
5.0.02   01/19/00  B. Trinnel     Made field REGION right adjusted.     **
                                  ** ROUT35D **
                                  ** ROUT35R **
                                                                        **
5.0.03   01/20/00  B. Trinnel     Added logic to call WINDR33R program  **
                                  when F5 is pressed.                   **
                                  ** ROUT35D **
                                  ** ROUT35R **
                                                                        **
5.0.04   01/24/00  B. Trinnel     Fixed a hard halt.                    **
                                  ** ROUT20R **
                                                                        **
5.0.05   01/24/00  B. Trinnel     Changed keyword from SFLEND to SFLEND **
                                  (*MORE).                              **
                                  ** ROUT35D **
                                  ** ROUT35R **
                                                                        **
5.0.06   01/24/00  B. Trinnel     Show WADD2 instead of WNAME.          **
                                  ** WINDR33R **
                                                                        **
5.0.07   01/26/00   B. Trinnel    When user submited optimization and   **
                                  pressed "Page Down" key program was   **
                                  bombing.                              **
                                  ** ROUT11R **
                                                                        **
5.0.08   01/10/00  B. Trinnel     Added new field to file CNSTRNTP.
                                  ** CNSTRNTP **
                                                                        **
5.0.09   01/10/00  B. Trinnel     Created new file SHPHEDL4.
                                  ** ROUT06R ROUT07R **
                                                                        **
5.0.10   01/10/00  B. Trinnel     Added new file WHSFAXP to send FAX to **
                                  Warehouse.                            **
                                  ** ROUT08R ROUT22R WINDR30R **
                                                                        **
5.0.11   02/02/00  B. Trinnel     Added new field to file VNDMSTP.
                                  ** VNDMSTP **
                                  ** ROUT01D **
                                  ** ROUT01R **
                                                                        **
5.0.12   02/02/00  B. Trinnel     Due to file VNDMSTP change following  **
                                  programs have been recompiled.        **
                                  ** ROUT01R ROUT05R ROUT08R **
                                  ** ROUT09R ROUT11R ROUT42R **
                                  ** ROUT19R ROUT22R ROUT23R **
                                  ** ROUT100R ROUT104R ROUT106R **
                                  ** ROUT108R ROUT11R ROUT42R **
                                  ** ROUT19R ROUT25R ROUT27R **
                                  ** ROUT36R ROUT44R ROUT48R **
                                  ** ROUT52R ROUT55R ROUT56R **
                                  ** ROUT57R ROUT77R ROUT81R **
                                  ** ROUT91R WINDR01R WINDR30R **
                                  ** WINDR32R WINDR35R **
                                                                        **
5.0.13   04/03/00  B. Trinnel     If order exists in PRECONHP delete    **
                                  all records with this order.          **
                                  ** ROUT59R **
                                                                        **
5.0.14   04/03/00  B. Trinnel     Added new field on a display-Ship     **
                                  Date.                                 **
                                  ** ROUT27D **
                                  ** ROUT27R **
                                                                        **
5.0.15   04/06/00  B. Trinnel     Added Logic to indicate Overweight    **
                                  Shipments.                            **
                                  ** ROUT08D ROUT11D ROUT23D **
                                  ** ROUT08R ROUT11R ROUT23R **
                                  ** ROUT307R **
                                                                        **
5.0.16   04/07/00  B. Trinnel     Added new fields-Total Cost,Direct    **
                                  Cost, TL Rate, Region, TL Carrier     **
                                  and Zone.                             **
                                  ** MNOPT1P MNOPT2P MNOPT3P **
                                  ** ROUT304R ROUT305R  **
                                                                        **
5.0.17   04/07/00  B. Trinnel     Added logic to write leftovers to     **
                                  MINLTLP file. Use SZONE field to      **
                                  store zone information.               **
                                  ** ROUT300R ROUT301R ROUT302R **
                                  ** ROUT303R ROUT307R **
                                  ** ROUT300C ROUT301C **
                                                                        **
5.0.18   04/10/00  B. Trinnel     Redesigned Optimization Report.       **
                                  ** ROUT301R ROUT308R **
                                                                        **
5.0.19   04/10/00  B. Trinnel     If Optimization type is "Minimize     **
                                  Miles" CALL ROUT302C.                 **
                                  ** ROUT22R **

5.0.20   04/11/00  B. Trinnel     Use SHPHEDL5 instead of SHPHEDL.
                                  ** ROUT06C **
                                                                        **
5.0.21   04/12/00  B. Trinnel     Added logic to run Optimization in    **
                                  one shot by region.                   **
                                  ** ROUT300R ROUT306R ROUT11R **
                                  ** ROUT300C ROUT301C **
                                                                        **
5.0.22   04/10/00  B. Trinnel     Added logic to use Floor Charges if   **
                                  truck charge is less than Minimum.    **
                                  ** ROUT77R ROUT22R ROUT23R **
                                                                        **
5.0.23   04/14/00  B. Trinnel     Message "Orders exist in Preconsoli-  **
                                  dation file" pop-up when *IN55 is off **
                                  instead of on.                        **
                                  ** ROUT11D **
                                                                        **
5.0.24   04/26/00  B. Trinnel     Added PARM POPTM .                    **
                                  ** ROUT40R ROUT317R **
                                  ** ROUT41C ROUT307C **
                                                                        **
5.0.25   05/11/00  B. Trinnel     Fill out field CHOPT in CNSHSTP and   **
                                  OADTE in MINOPNP.                     **
                                  ** ROUT310R ROUT301R **
                                                                        **
5.0.26   05/11/00  B. Trinnel     Fixed sequence of stops in report.    **
                                  ** ROUT308R **
                                                                        **
5.0.27   07/13/00  B. Trinnel     Added logic to print separtly "Error  **
                                  Report" and "Accepted Report".        **
                                  ** ROUT50T1 ROUT50T2**
                                  ** ROUT50R **
                                                                        **
5.0.28   07/15/00  B. Trinnel     Added logic to run optimization for   **
                                  all warehouses at ones.               **
                                  ** ROUT06R ROUT309R ROUT318R **
                                  ** ROUT301C ROUT308C ROUT309C **
                                  ** ROUT310C ROUT318 **
                                                                        **
5.0.29   07/21/00  B. Trinnel     Since there no leftovers for method   **
                                  "Minimize miles" do not call pgm      **
                                  ROUT307R.                             **
                                  ** ROUT309R **
                                  ** ROUT302C **
                                                                        **
5.0.30   07/21/00  B. Trinnel     Changed edit code to print total      **
                                  weight for method "Minimize miles".   **
                                  Increased size of this field from     **
                                  7,0 to 8,0.                           **
                                  ** ROUT309R ROUT308R **
                                                                        **
5.0.31   07/21/00  B. Trinnel     Made default the direction on "Sub-   **
                                  mit Optimization" to "O".             **
                                  ** ROUT06R **
                                                                        **
5.0.32   07/21/00  B. Trinnel     Elliminate class validation in inter- **
                                  face pgm if use "Minimize Miles" me-  **
                                  thod.                                 **
                                  ** ROUT50R **
                                                                        **
5.0.33   07/21/00  B. Trinnel     If all records have the same Ship     **
                                  Date show on a screen this date.If    **
                                  dates are different field should be   **
                                  blank.                                **
                                  ** ROUT27R **
                                                                        **
5.0.34   07/25/00  B. Trinnel     Let user to release all loads at on-  **
                                  ce.                                   **
                                  ** ROUT22R ROUT320R **
                                                                        **
5.0.35   08/21/00  B. Trinnel     Let user to display optimizations by  **
                                  number and release them.              **
                                  ** CNSHSTL MINOPNL0 ROUT321D **
                                  ** ROUT322D ROUT323D ROUT324D**
                                  ** ROUT321R ROUT322R ROUT323R**
                                  ** ROUT324R ROUT309R ROUT310R**
                                  ** ROUTMENU **
                                                                        **
5.0.36   09/06/00  B. Trinnel     Added logic to let user run optimi-   **
                                  zation for some regions in reverse    **
                                  sequence.                             **
                                  ** ROGIONL1 REGRVSP ROUT35D **
                                  ** ROUT35R ROUT310R **
                                                                        **
5.0.37   10/02/00  B. Trinnel     Program did not write record in to    **
                                  CNSHSTP file .                        **
                                  **  ROUT311R **
                                                                        **
5.0.38   10/02/00  B. Trinnel     Added surcharges to carrier cost.     **
                                  ** ROUT22R ROUT23R ROUT77R**          **
                                  **  ROUT317R **
                                                                        **
5.0.39   10/03/00  B. Trinnel     Fixed problem: program missed ship-   **
                                  ment.                                 **
                                  **  ROUT305R **
                                                                        **
5.0.40   02/12/01  B. Trinnel     Added logic to calculate delivery da- **
                                  te/time.                              **
                                  **  ROUT317R **
                                                                        **
WARNING!!! Next modification has been made only for ALCAN!!!            **
5.0.41  02/14/01  B. Trinnel      Print single shipments only as a le-  **
                                  ftowers.                              **
                                  **  ROUT317RA **
                                                                        **
5.0.42  02/21/01  B. Trinnel      Added logic to let user determine la- **
                                  st/first stops for selected vendors.  **
                                  ** MNOPT1P MNOPT1L MNOPT1L1 **
                                  ** MNOPT1L2 **
                                  ** ROUT300R ROUT302R ROUT303R **
                                  ** ROUT304R ROUT305R ROUT314R **
                                                                        **
5.0.43  02/21/01   B. Trinnel     Program has to look for none-zero re- **
                                  cord.                                 **
                                  ** ROUT306R **
                                                                        **
5.0.44  02/21/01   B. Trinnel     Z-add SHNBR to OORDN.                 **
                                  ** ROUT301R **
                                                                        **
5.0.45  02/27/01   B. Trinnel     Added logic to sort shipments before
                                  printing of report.
                                  ** ROUT325R **
                                  ** ROUT305C ROUT307C ROUT310C **
                                                                        **
5.0.46  03/09/01   B. Trinnel     Added logic to run inbound opti-
                                  mizations.
                                  ** ROUT314R ROUT315R ROUT313R **
                                  ** ROUT326R **
                                  ** ROUT303C ROUT307C **
                                                                        **
5.0.47  04/03/01   B. Trinnel     Increased size of field LOAD from     **
                                  2,0 to 3,0.                           **
                                  ** ROUT309R ROUT310R **
                                                                        **
5.0.48  04/18/01   B. Trinnel     Added logic to sort shipments before
                                  printing of report.
                                  ** ROUT327R **
                                  ** ROUT327C ROUT305C ROUT310C **
                                                                        **
5.0.49  06/26/01   B. Trinnel     Look for most recent rate.            **
                                  ** ROUTTL **
                                                                        **
5.0.50  12/28/01   V. Soybelman   Print last TL Carrier in Total output **
                                  ** ROUT317R **
                                                                        **
5.0.51  04/04/02   B. Trinnel     Changed positions for ship and due    **
                                  dates.                                **
                                  ** ROUT50T ROUT50T1 ROUT50T2**
                                                                        **
5.0.52  04/11/02   B. Trinnel     Added new hidden field -IN31 to indi- **
                                  cate existing of orders attached to   **
                                  shipment.                             **
                                  ** ROUT23D **
                                  ** ROUT23R **
                                                                        **
5.0.53  04/11/02   B. Trinnel     Changed lenght FRONBD from 10 to 20.  **
                                  ** ROUT24D **
                                  ** ROUT24R **
                                                                        **
5.0.54  04/16/02   B. Trinnel     Show all orders attached to the ship- **
                                  ment in manifest.                     **
                                  ** ROUT307R ROUT317R **
                                                                        **
5.0.55  04/16/02   B. Trinnel     Show all orders attached to the ship- **
                                  ment for all shipments.               **
                                  ** ROUT23R **
                                                                        **
5.0.56  05/02/02   B. Trinnel     Do not pass FRCTY when we CALL        **
                                  CALCMLS.                              **
                                  ** ROUT50R **
                                                                        **
5.0.57  05/28/02  B. Trinnel      Write overcube records to leftovers.  **
                                  ** ROUT300R **
                                                                        **
5.0.58  05/28/02  B. Trinnel      Added logic to run optimisation for   **
                                  canadian shipments.                   **
                                  ** ROUT304R ROUT305R ROUT325R**
                                  ** ROUT327R **
                                                                        **
5.0.59  10/17/02  B. Trinnel      CALL ROUT327C only if PCMILER is in-
                                  stalled in system.
                                  ** ROUT305C ROUT307C ROUT310C**
                                                                        **
5.0.60  10/17/02  B. Trinnel      Execute subroutine $FNL only if Back- **
                                  ward Schedule ="Y".                   **
                                  ** ROUT317R **
                                                                        **
5.0.61  02/07/03  B. Trinnel      Added PARM  to CALL CALCACS.          **
                                  ** ROUT05R ROUT09R ROUT33R**
                                  ** ROUT50R ROUT51R WINDR31R**
                                  ** WINDR32R**
                                  NOTE: Sources in lib BORIS            **
5.0.62  02/20/03  B. Trinnel      Let user to change sequence of stops  **
                                  in truck.                             **
                                  ** ROUT23D ROUT328D **
                                  ** ROUT23R ROUT328R **
                                                                        **
5.0.63  02/28/03  B. Trinnel      Changed $$RLL routine.                **
                                  ** ROUT54R **
                                                                        **
5.0.64  02/28/03  B. Trinnel      Fixed a hard halt.                    **
                                  ** ROUT08R ROUT09R **
                                                                        **
5.0.65  02/28/03  B. Trinnel      Call "DISCNTR" to calculate all sur-  **
                                  charges.                              **
                                  ** ROUT22D **
                                  ** ROUT19R ROUT22R ROUT23R **
                                  ** ROUT26R ROUT27R ROUT311R **
                                  ** ROUT313R ROUT317R ROUT320R **
                                  ** ROUT323R ROUT328R ROUT61R **
                                  ** ROUT77R ROUT78R ROUT80R **
                                                                        **
5.0.66  03/05/03  I. Friedman     Update CNSTRNTP when changing constra **
                                  ints for optimization
                                  ** ROUT02D ROUT11D **
                                  ** ROUT02R ROUT11R **
                                                                        **
5.0.67  03/06/03  I. Friedman     Accumulate weight for shipment and    **
                                  always show direct carrier            **
                                  ** ROUT55R **
                                                                        **
5.0.68  03/07/03  B. Trinnel      Use MINOPNL3 instead of MINOPNL8.     **
                                  ** ROUT74R **
                                                                        **
5.0.69  03/07/03  B. Trinnel      To CHAIN to CARRL2 use *IN17 instead  **
                                  of *IN15.                             **
                                  ** ROUT54R **
                                                                        **
5.0.70  03/12/03  B. Trinnel      To load subfile skip records with the **
                                  same shipment number.                 **
                                  ** ROUT54R ROUT55R **
                                                                        **
5.0.71  03/12/03  B. Trinnel      Corrected display file.               **
                                  ** ROUT54D **
                                                                        **
5.0.72  03/10/03  B. Trinnel      Added Poll logic.                     **
                                  ** MNOPT5P MNOPT5L MNOPT5L1 **
                                  ** MNOPT5L2 MNOPT6P MNOPT6L **
                                  ** SHPHEDP1 **
                                  ** ROUT341D **
                                  ** ROUT11R ROUT22R ROUT23R **
                                  ** ROUT26R ROUT27R ROUT52R **
                                  ** ROUT54R ROUT55R ROUT76R **
                                  ** ROUT77R ROUT91R ROUT320R **
                                  ** ROUT329R ROUT330R ROUT331R **
                                  ** ROUT332R ROUT333R ROUT334R **
                                  ** ROUT335R ROUT336R ROUT337R **
                                  ** ROUT338R ROUT341R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                  ** ROUT346R ROUT347R **
                                  ** ROUT300C ROUT306C ROUT311C **
                                  ** ROUT312C **
                                                                        **
5.0.73  03/27/03  B. Trinnel      Look for most recent and cheapest     **
                                  rate.
                                  ** ROUTTL **

5.0.74  04/04/03  B. Trinnel      Program showed region incorrect.      **
                                  ** ROUT11R **
                                                                        **
5.0.75  04/04/03  B. Trinnel      Added file SHPHEDP to get customer    **
                                  number.                               **
                                  ** ROUT302R ROUT303R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                  ** ROUT304R ROUT305R **
                                                                        **
5.0.76  04/04/03  B. Trinnel      Program showed number of stop incor-  **
                                  rect.                                 **
                                  ** ROUT23R **
                                                                        **
5.0.77  04/04/03  B. Trinnel      Do not show ship date on a screen.    **
                                  ** ROUT27D ROUT320D **
                                  ** ROUT27R ROUT320R **
                                                                        **
5.0.78  04/07/03  B. Trinnel      Changed size of carrier arrays from   **
                                  30 to 997, do not show message on the **
                                  bottom of screen anymore.             **
                                  ** ROUT05R **
                                                                        **
5.0.79  04/09/03  B. Trinnel      Z-add 1 to K in $$INZ routine.        **
                                  ** ROUTTL **

5.0.80  04/11/03  I. Friedman     Remove CLRPFM OPTSHPP1.
                                  ** ROUT307C **

5.0.81  04/14/03  B. Trinnel      Move OLINE to LINE after each new     **
                                  truck.                                **
                                  ** ROUT325R **
                                                                        **
5.0.82  04/14/03  B. Trinnel      Load rate into array only if rate per **
                                  mile is greater then *ZERO.
                                  ** ROUTTL **
                                                                        **
5.0.83  04/14/03  B. Trinnel      Added flag to "turn off" final pass   **
                                  Cross region optimization.            **
                                  ** ROUT02D ROUT03D **
                                  ** ROUT02R ROUT03R ROUT11R **
                                  ** ROUT307C **
                                                                        **
5.0.84  04/15/03  I. Friedman     Added flag to check for previously    **
                                  optimized shipments.                  **
                                  ** ROUT02D ROUT03D **
                                  ** ROUT02R ROUT03R ROUT11R **
                                                                        **
5.0.85  04/16/03  I. Friedman     Call MULTRTER in place of TRCKRTER    **
                                  ** ROUT26R **
                                                                        **
5.0.86  04/16/03  B. Trinnel      Let user "freeze" shipments.          **
                                  ** ROUT22D **
                                  ** ROUT22R **
                                                                        **
5.0.87  04/17/03  B. Trinnel      Do not combine shipments if zip code  **
                                  is different.                         **
                                  ** ROUTEIWP **
                                  ** ROUT66R ROUT67R **
                                                                        **
5.0.88  04/17/03  I. Friedman     Update all records with the last stop **
                                  ** ROUT26R **
                                                                        **
5.0.89  04/18/03  B. Trinnel      Show pickup date on a screen.         **
                                  ** ROUT27D ROUT53D ROUT54D **
                                  ** ROUT320D **
                                  ** ROUT27R ROUT53R ROUT320R **
                                                                        **
5.0.90  04/18/03  B. Trinnel      Fixed the bug: user could not delete  **
                                  all records at once.                  **
                                  ** ROUT23R **
                                                                        **
5.0.91  04/21/03  B. Trinnel      Added new functionality - print mani- **
                                  fest for single shipment.             **
                                  ** ROUT23D **
                                  ** ROUT08R ROUT22R ROUT23R **
                                  ** ROUT52R **
                                                                        **
5.0.92  04/21/03  B. Trinnel      Execute subroutine $FNL only if Back- **
                                  ward Schedule ="Y".                   **
                                  ** ROUT77R **
                                                                        **
5.0.93  04/23/03  B. Trinnel      Added  logical file POOLSHPL with
                                  member &MBR.
                                  ** ROUT312C **

5.0.94  04/23/03  B. Trinnel      Z-add order number to FRORD instead   **
                                  of shipment number.                   **
                                  ** ROUT27R ROUT320R **
                                                                        **
5.0.95  04/23/03  B. Trinnel      Initilize array ARR3 and index K af-  **
                                  ter each truck.                       **
                                  ** ROUT302R ROUT303R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                  ** ROUT304R ROUT305R **
                                                                        **
5.0.96  04/25/03  B. Trinnel      Fixed pool logic.                     **
                                  ** ROUT325R ROUT327R ROUT332R **
                                  ** ROUT346R ROUT76R **
                                  ** ROUT311C ROUT312C **
                                                                        **
5.0.97  04/30/03  B. Trinnel      Fixed a hard halt.                    **
                                  ** ROUT20R **
                                                                        **
5.0.98  05/01/03  B. Trinnel      Increased RRN and SFLRC1 from 3,0 to  **
                                  4,0.                                  **
                                  ** ROUT08D **
                                  ** ROUT08R **
                                                                        **
5.0.99  05/01/03  B. Trinnel      Show pickup date on a screen.         **
                                  ** ROUT19D ROUT323D **
                                  ** ROUT19R ROUT323R ROUT44R **
                                  ** ROUT56R **
                                                                        **
5.1.00  05/02/03  B. Trinnel      Show orders attached to each shipment **
                                  ** ROUT55R **
                                                                        **
5.1.01  05/02/03  B. Trinnel      Fixed hard halt.                      **
                                  ** ROUT54R **
                                                                        **
5.1.02  05/05/03  B. Trinnel      To show details for non pool shipmen- **
                                  ts call ROUT348R.                     **
                                  ** ROUT348D **
                                  ** ROUT55R ROUT348R **
                                                                        **
5.1.03  05/05/03  B. Trinnel      When zip/state mismatch before turnin **
                                  g on error indicator chain to ZIPEXCP **
                                  check for exceptions.                 **
                                  ** ROUT50R **
                                                                        **
5.1.04  05/06/03  B. Trinnel      Remove message "Optimization is in    **
                                  Progress".                            **
                                  ** ROUT21R **
                                                                        **
5.1.05  05/06/03  B. Trinnel      Switched "Qty" to "Pcs".              **
                                  ** ROUT22D ROUT23D ROUT25D **
                                  ** ROUT28D ROUT341D ROUT54D **
                                  ** ROUT55D **
                                                                        **
5.1.06  05/06/03  B. Trinnel      Fixed hard halt.                      **
                                  ** ROUT28R **
                                                                        **
5.1.07  05/06/03  B. Trinnel      When Forward Scheduling is 'Y' user   **
                                  can enter Number Days From Order      **
                                  equals to *ZERO.                      **
                                  ** ROUT03R **
                                                                        **
5.1.08  05/06/03  B. Trinnel      Replace "Entered Date" with "Weight". **
                                  ** ROUT08D **
                                  ** ROUT08R **
                                                                        **
5.1.09  05/06/03  B. Trinnel      Redesigned Load Manifest.             **
                                  ** ROUT307R ROUT317R ROUT347R **
                                  ** ROUT332R ROUT77R ROUT91R **
                                                                        **
5.1.10  05/08/03  B. Trinnel      Made customer number part of the key  **
                                  to resequence shipments.              **
                                  ** ROUT302R ROUT303R ROUT304R **
                                  ** ROUT305R ROUT325R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                  ** ROUT346R **
                                                                        **
5.1.11  05/12/03  B. Trinnel      Program wroute records to MINOPNP     **
                                  with wrong OSTOP field.               **
                                  ** ROUT332R **
                                                                        **
5.1.12  05/13/03  B. Trinnel      Fixed pool logic.                     **
                                  ** ROUT330R **
                                                                        **
5.1.13  05/13/03  B. Trinnel      For leftovers make OMODE='L'.         **
                                  ** ROUT40R **
                                                                        **
5.1.14  05/14/03  B. Trinnel      Program printed orders attached to    **
                                  shipment at wrong time.               **
                                  ** ROUT347R **
                                                                        **
5.1.15  05/14/03  B. Trinnel      Added logic to call "DIMRTER".        **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT33R ROUT50R ROUT72R **
                                  ** ROUT89R WINDR32R **
                                                                        **
5.1.16  05/16/03  I. Friedman     Move "x" to SMNMX in SHPHEDP.         **
                                  ** WINDR32R **
                                                                        **
5.1.17  05/19/03  B. Trinnel      Removed "OVERLAY" from FMTBTM record- **
                                  format.                               **
                                  ** ROUT95D **
                                  ** ROUT95R **
                                                                        **
5.1.18  05/19/03  B. Trinnel      Let user choose rate from rates with  **
                                  the same carrier but different equip-
                                  ment codes.                           **
                                  ** ROUTTL   ROUTEQTL ROUT76R **
                                  ** ROUT302R ROUT303R ROUT304R **
                                  ** ROUT305R ROUT325R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                  ** ROUT346R ROUT311R ROUT327R **
                                  ** ROUT330R ROUT331R ROUT333R **
                                  ** ROUT80R  ROUT337R WINDR32R **
                                  ** ROUT56R  ROUT58R  ROUT61R **
                                  ** ROUT05R  ROUT50R  ROUT73R **
                                                                        **
5.1.19  05/28/03  B. Trinnel      In $$RLL routine do not show sequence **
                                  for leftovers.                        **
                                  ** ROUT23R **
                                                                        **
5.1.20  05/28/03  B. Trinnel      Program showed number of stop incor-  **
                                  rect.                                 **
                                  ** ROUT55R **
                                                                        **
5.1.21  05/29/03  B. Trinnel      Programm calculated number of stops   **
                                  incorrect.                            **
                                  ** ROUT26R **
                                                                        **
5.1.22  05/29/03  B. Trinnel      For one-stop truck let user change    **
                                  direct carrier.                       **
                                  ** MINCUML3 **
                                  ** ROUT18R ROUT22R ROUT23R **
                                  ** ROUT27R ROUT320R ROUT347R **
                                  ** ROUT91R ROUT54R ROUT55R **
                                  ** ROUT63R ROUT64R ROUT77R **
                                  ** ROUT56R ROUT348R **
                                                                        **
5.1.23  06/06/02  B. Trinnel      Added new functionality-change Carr-  **
                                  ier and Pickup date.                  **
                                  ** ROUT54D **
                                  ** ROUT54R ROUT349R **
                                                                        **
5.1.24  06/06/03  B. Trinnel      If order exists in MINOPNP or in RO-  **
                                  UTEIYP  delete all records with this  **
                                  order.                                **
                                  ** POLOPNL2 **
                                  ** ROUT59R **
                                                                        **
5.1.25  06/09/03  B. Trinnel      Program tried to divide by *ZERO.     **
                                  ** ROUT337R **

5.1.26  06/10/03  B. Trinnel      Do not run ROUT300R if OPTSHPP1 is    **
                                  empty.                                **
                                  ** ROUT11R **
                                                                        **
5.1.27  06/10/03  B. Trinnel      Redesigned program.                   **
                                  ** ROUT57R **
                                                                        **
5.1.28  06/11/03  B. Trinnel      Let user "freeze" pool shipments.     **
                                  ** ROUT22R **
                                                                        **
5.1.29  06/12/03  B. Trinnel      Initialize SAVCUS and SAVZIP.         **
                                  ** ROUT77R ROUT317R ROUT332R **
                                                                        **
5.1.30  06/13/03  B. Trinnel      Program did not populate fields:      **
                                  FRWHS, FRDIR.                         **
                                  ** ROUT56R **
                                                                        **
5.1.31  06/13/03  B. Trinnel      Switched "L/H Chgs" and "Dst Chgs".   **
                                  ** ROUT25D **
                                  ** ROUT77R **
                                                                        **
5.1.32  06/19/03  B. Trinnel      Indicate on a screen consolidated     **
                                  orders.                               **
                                  ** ROUT23D ROUT25D ROUT55D **
                                  ** ROUT341D **
                                  ** ROUT23R ROUT25R ROUT55R **
                                  ** ROUT341R **
                                                                        **
5.1.33  06/19/03  B. Trinnel      Let user see orders attached to all   **
                                  shipments.                            **
                                  ** ROUT25D ROUT341D **
                                  ** ROUT24R ROUT25R ROUT341R **
                                  ** ROUT348R ROUT350R **
                                                                        **
5.1.34  06/19/03  B. Trinnel      Changed $$RLL routine.                **
                                  ** ROUT54R **
                                                                        **
5.1.35  06/20/03  B. Trinnel      Increased size of array SHP from 100  **
                                  to 9999.                              **
                                  ** ROUT22R **
                                                                        **
5.1.36  06/20/03  B. Trinnel      Commented out OPNQRYF SHPHEDP.
                                  ** ROUT307C **

5.1.37  06/23/03  B. Trinnel      On Time logic should work for for-    **
                                  ward schedule also.                   **
                                  ** ROUT23D ROUT25D ROUT08D **
                                  ** ROUT11D ROUT22D **
                                  ** ROUT23R ROUT25R ROUT08R **
                                  ** ROUT11R ROUT22R ROUT77R**
                                  ** ROUT91R ROUT307R ROUT317R **
                                  ** ROUT332R **
                                                                        **
5.1.38  07/01/03  B. Trinnel      Pass FRCTY when we CALL CALCMLS.      **
                                  ** ROUT50R **
                                                                        **
5.1.39  09/04/03  I. Friedman     Added function key to view shipments  **
                                  within an optimization.               **
                                  ** ROUT22D ROUT353D **
                                  ** ROUT22R ROUT353R **
                                                                        **
5.1.40  09/24/03  B. Trinnel      To print Load Manifest call ROUT352R. **
                                  ** ROUT55D **
                                  ** ROUT54R ROUT55R ROUT352R **
                                                                        **
5.1.41  10/03/03  B. Trinnel      Set up market lane logic for inbound  **
                                  shipments.
                                  ** ROUT05R ROUT09R ROUT50R **         **
                                  ** ROUT51R WINDR31R WINDR32R **       **
                                                                        **
5.1.42  10/10/03  B. Trinnel      Let user view shipments in different  **
                                  order: by load and by state.          **
                                  ** ROUT351D ROUT353D **               **
                                  ** ROUT351R ROUT353R ROUT22R **       **
                                                                        **
5.1.43  12/15/03  B. Trinnel      Let user to run optimization for the  **
                                  next year.                            **
                                  ** ROUT06R **                         **
                                                                        **
5.1.44  01/19/04  B. Trinnel      Added PARM  to CALL CALCACS.          **
                                  ** ROUT05R ROUT09R ROUT33R**
                                  ** ROUT50R ROUT51R WINDR31R**
                                  ** WINDR32R**
                                                                        **
5.1.45  03/30/04  B. Trinnel      Make 3 stop truck only if maximum sto **
                                  ps in constraint file is *GE 3.       **
                                  ** ROUT88R**
                                                                        **
5.1.46  04/06/04  B. Trinnel      Fixed the bug :program incremented    **
                                  number of stops incorrectly.
                                  ** ROUT302R ROUT303R ROUT304R**
                                  ** ROUT305R ROUT342R ROUT343R**
                                  ** ROUT344R ROUT345R **
                                                                        **
5.1.47  05/04/04  B. Trinnel      For SEDTE ,SODTE and SDDTE use the    **
                                  "oldest" dates.
                                  ** ROUT50R **
                                                                        **
5.1.48  05/04/04  B. Trinnel      List # of shipments on the display    **
                                  screen.
                                  ** ROUT22D **
                                  ** ROUT22R **
                                                                        **
5.1.49  05/04/04  B. Trinnel      When we look for cheapest carrier in- **
                                  clude parcel carriers as well.
                                  ** ROUT55D ROUT354D **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT50R ROUT55R ROUT354R **
                                  ** ROUT05C ROUT07C  **
                                                                        **
5.1.50  05/13/04  B. Trinnel      Program did not populate fields FRTYP **
                                  and FRMLS .                           **
                                  ** ROUT19R ROUT27R ROUT320R **
                                                                        **
5.1.51  05/17/04  B. Trinnel      Print shipment manifest when relea-   **
                                  sing orders.Control by WHSCNTP file.  **
                                  ** WHSCNTP **
                                  ** ROUT55D ROUT97D **
                                  ** ROUT19R ROUT22R ROUT44R **
                                  ** ROUT54R ROUT55R ROUT94R **
                                  ** ROUT97R ROUT100R ROUT102R **
                                                                        **
5.1.52  05/21/04  B. Trinnel      Let user use negative and *ZERO num-  **
                                  bers of days for Forward Scheduling.  **
                                  ** ROUT03D **
                                  ** ROUT03R ROUT08R ROUT11R **
                                  ** ROUT22R ROUT23R ROUT25R **
                                  ** ROUT77R ROUT91R ROUT307R **
                                  ** ROUT317R ROUT332R ROUT03E **
                                                                        **
5.1.53  05/28/04  B. Trinnel      Let user print manifests for the who- **
                                  le optimization from the command line **
                                  ** ROUT356R **
                                                                        **
5.1.54  05/28/04  B. Trinnel      Let user release the whole optimizati **
                                  on from the command line.             **
                                  ** ROUT355R **
                                                                        **
5.1.55  05/28/04  B. Trinnel      If OCLSS=0 z-add 50.0 to OCLSS.       **
                                  ** ROUT40R **
                                                                        **
5.1.57  05/28/04  B. Trinnel      Fixed the bug :program incremented    **
                                  number of stops incorrectly.
                                  ** ROUT302R ROUT303R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                                                        **
5.1.58  06/10/04  B. Trinnel      Use field SCUST instead of SNME3
                                  ** ROUT06C **

5.1.59  06/14/04  B. Trinnel      Call "ROUT357R" to check if carrier   **
                                  excluded from CalcRoute.
                                  ** ROUT19D ROUT22D ROUT23D **
                                  ** ROUT322D ROUT358D ROUT359D **
                                  ** ROUTTL ROUTEQTL ROUT05R **
                                  ** ROUT08R ROUT09R ROUT10R **
                                  ** ROUT105R ROUT116R ROUT18R **
                                  ** ROUT19R ROUT22R ROUT23R **
                                  ** ROUT26R ROUT322R ROUT349R **
                                  ** ROUT354R ROUT355R ROUT356R **
                                  ** ROUT357R ROUT358R ROUT359R **
                                  ** ROUT44R ROUT50R ROUT72R **
                                  ** ROUT89R WINDR02R WINDR03R **
                                  ** WINDR04R WINDR31R WINDR32R **
                                                                        **
5.1.60  06/21/04  B. Trinnel      If shipment is "HOT" select the fas-  **
                                  test carrier instead of cheapest.
                                  ** ROUT03D **
                                  ** ROUT05R ROUT50R ROUT03R **
                                  ** ROUT08R ROUT11R **
                                                                        **
5.1.61  07/19/04  B. Trinnel      If user changes carrier use date when **
                                  it was changed as active date, show
                                  field OMODED as '*T*', '*L*' etc.     **
                                  Use file CHGOPTP to get date.         **
                                  ** CHGOPTP **
                                  ** ROUT22D ROUT23D **
                                  ** ROUT09R ROUT18R ROUT22R **
                                  ** ROUT23R ROUT26R ROUT27R **
                                  ** ROUT311R ROUT313R ROUT317R **
                                  ** ROUT320R ROUT323R ROUT33R **
                                  ** ROUT328R ROUT331R ROUT332R **
                                  ** ROUT346R ROUT347R ROUT349R **
                                  ** ROUT354R ROUT355R ROUT50R **
                                  ** ROUT61R ROUT72R ROUT77R **
                                  ** ROUT78R ROUT80R ROUT89R **
                                  ** WINDR32R **
                                                                        **
5.1.62  07/19/04  B. Trinnel      After we call "ROUTEQTL" change car-  **
                                  rier every time when returned carri-  **
                                  er is different from original.        **
                                  ** ROUT311R ROUT325R ROUT327R **
                                  ** ROUT331R ROUT333R ROUT346R **
                                  ** ROUT61R ROUT80R **
                                                                        **
5.1.63  07/21/04  B. Trinnel      Call "DISCNTR" before load data-struc **
                                  ture to array.
                                  ** ROUTEQTL **
                                                                        **
5.1.64  07/22/04  B. Trinnel      Call "ROUTEQTL" to find the cheapest  **
                                  carrier.
                                  ** ROUT328R **
                                                                        **
5.1.65  07/22/04  B. Trinnel      Added parms to *ENTRY PLIST.          **
                                  ** ROUT328R ROUT23R **
                                                                        **
5.1.66  07/22/04  B. Trinnel      After call "ROUT09R" program did not  **
                                  return to the same page.
                                  ** ROUT08R **

5.1.67  07/23/04  I. Friedman     Added WHSOPTP and set up loop
                                  with overrides to allow loading
                                  of all warehouse to ROUTEIHP
                                  ** WHSOPTP **
                                  ** ROUT360R **
                                  ** ROUT50C **
                                                                        **
5.1.68  07/27/04  B. Trinnel      Call "CALCMRK" to check if market la- **
                                  ne is set up.
                                  ** ROUTEQTL **
                                                                        **
5.1.69  07/30/04  B. Trinnel      Do not show message "OPTIMIZATION IN  **
                                  PROGRESS" anymore.                    **
                                  ** ROUT06R **
                                                                        **
5.1.70  08/02/04  B. Trinnel      After user changes carrier or look    **
                                  for details program should return
                                  to the same record.                   **
                                  ** ROUT23R **
                                                                        **
5.1.71  08/04/04  I. Friedman     Use FRCTN field from ROUTEIDP in      **
                                  place of FRPCS to load SDPCS in
                                  SHPDETP.                              **
                                  ** ROUT50R **
                                                                        **
5.1.72  08/04/04  B. Trinnel      For each error write record to the    **
                                  corresponded error file.
                                  ** ERRORIDP ERRORIHP ERRORITP **
                                  ** ERRORIWP **
                                  ** ROUT50R ROUT361R **
                                  ** ROUT50C **
                                                                        **
5.1.73  08/12/04  B. Trinnel      Fixed the bug: data-structure SDDTE   **
                                  did not have "DS" in I-spec.
                                  ** ROUT77R **
                                                                        **
5.1.74  08/13/04  B. Trinnel      Fixed market lane logic.              **
                                  ** WINDR30D **
                                  ** ROUTEQTL ROUT26R ROUT349R **
                                  ** ROUT61R ROUT80R ROUT58R **
                                  ** ROUT74R WINDR30R WINDR31R **

5.1.75  08/19/04  B. Trinnel      Let user to calculate accessorials    **
                                  as percentage of amount.              **
                                  ** ROUT05R ROUT09R ROUT33R **
                                  ** ROUT50R ROUT51R WINDR30R **
                                  ** WINDR31R **
                                                                        **
5.1.76  08/30/04  B. Trinnel      Blank out ODR array after record is   **
                                  written to subfile.
                                  ** ROUT55R **
                                                                        **
5.1.77  09/09/04  B. Trinnel      If input detail record has an error,  **
                                  write error header record with code
                                  "ERRORIDP". If more than one record   **
                                  belong to the same customer and at    **
                                  least one record has an error, write  **
                                  error header record with code "ERRO-
                                  RIHP/customer number/zip code".       **
                                  ** ROUT50R **
                                                                        **
5.1.78  09/10/04  B. Trinnel      Let user to decide make TL lefto-     **
                                  vers part of truck load report or     **
                                  part of 888 report.Let user to deci-  **
                                  de to print automaticly truck load    **
                                  report or leftovers report or both.   **
                                  Commented out field "Print Manifest.  **
                                  ** ROUT97D **
                                  ** ROUT19R ROUT22R ROUT27R **
                                  ** ROUT44R ROUT97R ROUT309R **
                                  ** ROUT313R ROUT317R ROUT320R **
                                  ** ROUT332R ROUT355R **
                                                                        **
5.1.79  09/10/04  B. Trinnel      Use different edit code for saved     **
                                  amounts.
                                  ** ROUT77R ROUT313R ROUT317R **
                                  ** ROUT332R ROUT347R **
                                                                        **
5.1.80  09/15/04  B. Trinnel      Added call ROUT362R to write ERRORIP
                                  file.
                                  ** ERRORIP **
                                  ** ROUT362R **
                                  ** ROUT50C **

5.1.81  10/19/04  B. Trinnel      Added new field-"Saved Amount".       **
                                  ** ROUT26D **
                                  ** ROUT26R **
                                                                        **
5.1.82  10/19/04  B. Trinnel      Added new field-Primary or Secondary  **
                                  carrier.                              **
                                  ** ROUT18D ROUT26D ROUT354D **
                                  ** ROUT18R ROUT26R ROUT354R **
                                                                        **
5.1.83  10/21/04  B. Trinnel      To call "PRCLRTER" always populate    **
                                  field PPDSC with 'Y' to apply for     **
                                  discount.                             **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT50R ROUT354R **
                                                                        **
5.1.84  10/21/04  B. Trinnel      Changed "Preferred carrier" logic.    **
                                  ** ROUTCARR ROUT05R ROUT50R **
                                                                        **
5.1.85  10/25/04  B. Trinnel      Added field-"Release Number".         **
                                  ** ROUT52T **
                                  ** ROUT52R ROUT352R **
                                                                        **
5.1.86  10/25/04  B. Trinnel      Added message "X to select". Changed .**
                                  size of the window.                   **
                                  ** ROUT351D **
                                                                        **
5.1.87  10/25/04  B. Trinnel      Weight and Cube are reversed.         **
                                  ** ROUT353D **                        **
                                                                        **
5.1.88  10/26/04  B. Trinnel      Write all deleted records to DELHEDP  **
                                  and DELDETP.
                                  ** DELDETP DELHEDP **
                                  ** ROUT08R **                         **
                                                                        **
5.1.89  10/27/04  B. Trinnel      Added new option-Display.             **
                                  ** ROUT18D ROUT26D ROUT354D **
                                  ** ROUT18R ROUT26R ROUT354R **
                                                                        **
5.1.90  12/14/04  B. Trinnel      Fixed roll routine.                   **
                                  ** ROUT23R **                         **
                                                                        **
5.1.91  08/04/04  B. Trinnel      Use FRCTN field from ROUTEIDP in      **
                                  place of FRPCS to load SDPCS in
                                  SHPDETP.                              **
                                  ** ROUT50R **
                                                                        **
5.1.92  01/21/05  B. Trinnel      Fixed loading routine.                **
                                  ** ROUTEQTL **

5.1.93  01/28/05  B. Trinnel      Load Leveling.                        **
                                  ** CNSTRNTP (Notes in source **
                                  ** GROUPP GROUPL LODLVLP **
                                  ** LODLVLL MINCUML6 MINOPNL4 **
                                  ** MINOPNL5 **
                                  ** ROUT02D ROUT03D ROUT117D **
                                  ** ROUT119D ROUT97D ROUTDSPF **
                                  ** ROUT02R ROUT03R ROUT05R **
                                  ** ROUT23R ROUT50R ROUT91R **
                                  ** ROUT97R ROUT117R ROUT118R **
                                  ** ROUT119R ROUT120R ROUT307R **
                                  ** ROUT309R ROUT313R ROUT317R **
                                  ** ROUT326R ROUT332R **
                                  ** ROUTMENU ROUT43C **

5.1.94  02/02/05   B. Trinnel     If user passed whse code in PWHSE fi-
                                  eld run process only for warehouse
                                  PWHSE, if parm PWHSE is blank run
                                  process for all warehouses.
                                  ** ROUT50C **
                                                                        **
5.1.95  02/11/05   B. Trinnel     Added field Expiration Date. Use rate **
                                  only if rate is not expired.          **
                                  ** ROUTEQTL ROUTTL **
                                                                        **
5.1.96  03/24/05   I. Friedman    If shipment is not in SHPHEDP but is  **
                                  in MINOPNP on another optimization    **
                                  display it in blue.                   **
                                  ** ROUT22D ROUT23D **
                                  ** ROUT22R ROUT23R **
                                                                        **
5.1.97  04/19/05   B. Trinnel     Added PARMS to call ROUT02R.          **
                                  ** ROUT02R ROUT11R **
                                                                        **
5.1.98  04/19/05   B. Trinnel     Fixed the bug: program was looping    **
                                  in $$PRC routine.                     **
                                  ** ROUT118R **
                                                                        **
5.1.99  05/03/05   B. Trinnel     Call "ROUT357R" to check if carrier   **
                                  excluded from CalcRoute.
                                  ** ROUT26R **
                                                                        **
5.2.00  05/18/05   B. Trinnel     If cube is greater than CNST4 write   **
                                  record to MINLTLP.                    **
                                  ** ROUT40R **
                                                                        **
5.2.01  07/07/05  I. Friedman     Expand number of stops to 20.  Incre- **
                                  ase array and new call to ROUT121R
                                  instead of CALC29R.
                                  ** ROUT121D **
                                  ** ROUT26R ROUT121R **
                                                                        **
5.2.02  07/07/05  B. Trinnel      Program passed incorrect equipment    **
                                  code to CALC29R.                      **
                                  ** ROUT18R ROUT354R **
                                                                        **
5.2.03  07/13/05  B. Trinnel      Corrected stop sequence.              **
                                  Use MNOPT4L instead of MNOPT4L2.      **
                                  ** ROUT313R **
                                                                        **
5.2.04  07/13/05  B. Trinnel      Allways use PDZIP as a KEYZIP.        **
                                  ** ROUTEQTL **
                                                                        **
5.2.05  07/21/05  B. Trinnel      Print pool street address.            **
                                  ** ROUT52R **
                                                                        **
5.2.06  09/16/05  B. Trinnel      Pass total carton count to PRCLRTER   **
                                  in parm PDIMWT.                       **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT50R ROUT354R **
                                                                        **
5.2.07  01/18/06  B. Trinnel      Program passed incorrect date to      **
                                  CALCMRK.                              **
                                  ** ROUT18R **
                                                                        **
5.2.08  03/14/06  B. Trinnel      Mods to allow call to DHL server      **
                                  if it exists and is setup for the     **
                                  requested warehouse.                  **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT50R ROUT354R **
                                                                        **
5.2.09  03/24/06  B. Trinnel      Added FAK Exception logic.            **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT33R ROUT50R ROUT51R **
                                  ** ROUT72R ROUT89R ROUT118R **
                                  ** ROUT349R ROUT354R WIND31R **
                                  ** WIND32R **
                                                                        **
5.2.10  04/06/06  B. Trinnel      If cube is greater than CNST4 do not  **
                                  write record from MINLTLP to POOLSHPP **
                                  ** ROUT71R **
                                                                        **
5.2.11  04/14/06  B. Trinnel      In routing routine allways use most   **
                                  recent records.                       **
                                  ** ROUTCAR ROUTCARR ROUT05R **
                                  ** ROUT09R ROUT50R WINDR32R **

5.2.12  05/22/06  B. Trinnel      Stop using SADD3 as an address field. **
                                  Use this field for latest ship date.  **
                                  Only if Backward or Forward flag is   **
                                  on.                                   **
                                  ** ROUT08R ROUT11R ROUT19R **
                                  ** ROUT22R ROUT23R ROUT25R **
                                  ** ROUT27R ROUT44R ROUT48R **
                                  ** ROUT50R ROUT56R ROUT77R **
                                  ** ROUT91R ROUT120R ROUT307R **
                                  ** ROUT317R ROUT320R ROUT323R **
                                  ** ROUT332R ROUT355R WINDR30R **
                                  ** WINDR32R **
                                                                        **
5.2.13  05/22/06  I. Friedman     Display 888 leftovers by transit days **
                                  ** MINOPNL6 **
                                  ** ROUT18D ROUT23D ROUT97D **
                                  ** ROUT18R ROUT23R ROUT97R **
                                  ** ROUT363R **
                                  ** ROUT305C ROUT307C ROUT310C **
                                  ** ROUT311C **

5.2.14  05/26/06  B. Trinnel      In routing routine use as a key year, **
                                  month and day , not year only.        **
                                  ** ROUTCAR ROUTCARR ROUT05R **
                                  ** ROUT09R ROUT50R WINDR32R **

5.2.15  05/30/06  B. Trinnel      Added new function key-Preconsolida-  **
                                  tion.                                 **
                                  ** CONVNDP **
                                  ** ROUT122D **
                                  ** ROUT94R ROUT97R ROUT122R **
                                                                        **
5.2.16  07/31/06  B. Trinnel      Changed "Preconsolidation" to "Auto   **
                                  Consolidation", changed function "F6= **
                                  Preconsolidation" to "F6= Forced Con- **
                                  solidation" .                         **
                                  ** ROUT97D **
                                  ** ROUT94R ROUT97R **
                                                                        **
5.2.17  07/31/06  B. Trinnel      Added search by order number. User    **
                                  can enter single order only.          **
                                  ** ROUT07D **
                                  ** ROUT07R ROUT08R **
                                  ** ROUT07C **
                                                                        **
5.2.18  08/01/06  B. Trinnel      Added new message-"Orders exist in    **
                                  Preconsolidation file.                **
                                  ** ROUT08D ROUT22D **
                                  ** ROUT08R ROUT22R ROUT77R **
                                  ** ROUT91R ROUT120R ROUT307R **
                                  ** ROUT308R ROUT309R ROUT313R **
                                  ** ROUT317R ROUT326R ROUT332R **
                                  ** ROUT347R **
                                                                        **
5.2.19  08/02/06  B. Trinnel      When user pressed F4 call WIND01R to  **
                                  show all Calcrate Warehouses. When
                                  user pressed F5 call WINDR10R to show **
                                  Pool Contents window.                 **
                                  ** ROUT10R **
                                                                        **
5.2.20  08/02/06  B. Trinnel      Let user to sort leftovers by hot/on  **
                                  time shipments.                       **
                                  ** ROUT97D **
                                  ** ROUT23R ROUT91R ROUT97R **
                                  ** ROUT307R **
                                                                        **
5.2.21  08/02/06  B. Trinnel      Let user to sort leftovers by due da- **
                                  te.                                   **
                                  ** MINOPNLA **
                                  ** ROUT23D ROUT97D **
                                  ** ROUT23R ROUT91R ROUT97R **
                                  ** ROUT123R ROUT307R ROUT363R **
                                  ** ROUT307C **
                                                                        **
5.2.23  09/07/06  B. Trinnel      If direct cost is less than TL cost   **
                                  for single shipments make direct car- **
                                  rier TL carrier, direct cost- TL cost **
                                  ** ROUT19R ROUT27R ROUT317R **
                                  ** ROUT320R ROUT323R ROUT355R **
                                  ** ROUT77R **
                                                                        **
5.2.24  09/08/06  I. Friedman     Use total cartons and tariff code to  **
                                  pass to LTLRTER.                      **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT33R ROUT50R ROUT51R **
                                  ** ROUT72R ROUT89R ROUT118R **
                                  ** ROUT349R ROUT354R WINDR31R **
                                  ** WINDR32R **
                                                                        **
5.2.22  08/11/06  B. Trinnel      Let user run optimization by division **
                                  ** MNOPT4P MNOPT4L MNOPT4L1 **
                                  ** MNOPT4L2 **
                                  ** OPTSHPP1 PRECONH1 ROUTEIH1 **
                                  ** SHPHEDL6 **
                                  ** ROUT52T **
                                  ** ROUT18D ROUT21D ROUT22D **
                                  ** ROUT23D ROUT24D ROUT25D **
                                  ** ROUT26D ROUT28D ROUT52D **
                                  ** ROUT95D ROUT97D ROUT322D **
                                  ** ROUT324D WINDR06D **
                                  ** ROUT06R ROUT08R ROUT11R **
                                  ** ROUT18R ROUT19R ROUT21R **
                                  ** ROUT22R ROUT23R ROUT24R **
                                  ** ROUT25R ROUT26R ROUT27R **
                                  ** ROUT28R ROUT44R ROUT48R **
                                  ** ROUT52R ROUT56R ROUT57R **
                                  ** ROUT77R ROUT91R ROUT94R **
                                  ** ROUT95R ROUT97R ROUT120R **
                                  ** ROUT123R ROUT300R ROUT301R **
                                  ** ROUT307R ROUT308R ROUT309R **
                                  ** ROUT310R ROUT311R ROUT312R **
                                  ** ROUT313R ROUT314R ROUT315R **
                                  ** ROUT316R ROUT317R ROUT318R **
                                  ** ROUT320R ROUT322R ROUT323R **
                                  ** ROUT324R ROUT325R ROUT326R **
                                  ** ROUT327R ROUT330R ROUT331R **
                                  ** ROUT332R ROUT334R ROUT335R **
                                  ** ROUT346R ROUT347R ROUT352R **
                                  ** ROUT355R ROUT363R ROUT364R **
                                  ** WINDR06R **
                                  ** ROUT06C ROUT300C ROUT301C **
                                  ** ROUT303C ROUT312C **
                                                                        **
5.2.25  09/19/06  B. Trinnel      Let user print reports by device.     **
                                  ** ROUTPRTP **
                                  ** ROUT97D ROUT365D **
                                  ** ROUT08R ROUT18R ROUT19R **
                                  ** ROUT22R ROUT23R ROUT27R **
                                  ** ROUT44R ROUT54R ROUT55R **
                                  ** ROUT97R ROUT320R ROUT355R **
                                  ** ROUT356R ROUT365R ROUT366R **
                                  ** WINDR30R **
                                  ** ROUT43C ROUT52C ROUT302C **
                                  ** ROUT305C ROUT307C ROUT310C **
                                  ** ROUT311C **
                                                                        **
                                                                        **
5.2.26  10/18/06  B. Trinnel      For single shipments allways use di-  **
                                  rect carrier as a TL carrier.         **
                                  ** ROUT77R ROUT317R ROUTEQTL **
                                                                        **
5.2.27  11/01/06  B. Trinnel      For backward schedule print due date. **
                                  ** ROUT317R **
                                                                        **
5.2.28  11/03/06  B. Trinnel      Added a line after each load.         **
                                  ** ROUT77R ROUT317R ROUT332R **
                                                                        **
5.2.29  12/05/06  B. Trinnel      Use different edit code for saved     **
                                  amounts.
                                  ** ROUT332R **
                                                                        **
5.2.30  12/06/06  B. Trinnel      Fixed "blue" logic for pool shipments **
                                  ** ROUT22R **
                                                                        **
5.2.31  12/06/06  B. Trinnel      When calculate line haul charges in-  **
                                  clude fuel charges, use PCOST from
                                  ROUTEQTL. Delete record from MINORDSP **
                                  if there no records in POOLSHPP.      **
                                  ** ROUT72R ROUT337R **
                                                                        **
5.2.32  12/11/06  B. Trinnel      Fixed pool logic.                     **
                                  ** ROUT77R ROUT332R **
                                                                        **
5.2.33  12/11/06  B. Trinnel      Do not call ROUT325R anymore.
                                  ** ROUT311C **

5.2.34  12/14/06  B. Trinnel      If WCNS2='Y' all single shipments     **
                                  should be printed in leftovers report **
                                  ** MNOPT4L **
                                  ** ROUT310R ROUT313R ROUT317R **
                                  ** ROUT325R ROUT327R ROUT332R **
                                                                        **
5.2.35  12/14/06  B. Trinnel      When sort by due date sort in accen-  **
                                  ding order.                           **
                                  ** MINOPNLA **
                                  ** ROUT23R ROUT307R **
                                                                        **
5.2.36  12/20/06  B. Trinnel      Added customer lookup.                **
                                  ** ROUT122D WINDR07D **
                                  ** ROUT122R WINDR07R **
                                                                        **
5.2.37  12/21/06  I. Friedman     Delete loads but password required.   **
                                  ** ROUT54D WINDR08D **
                                  ** ROUT54R WINDR08R **
                                                                        **
5.2.38  01/04/07  B. Trinnel      Added Report option.
                                  ** ROUTDSPF ROUTDSP1 **
                                  ** ROUT367R ROUT368R ROUT369R **
                                  ** ROUTMENU ROUTMNU1 ROUT367C **
                                  ** ROUT368C **
                                                                        **
5.2.39  01/29/07  B. Trinnel      Initialize TRK@.                      **
                                  ** ROUT317R **
                                                                        **
5.2.40  02/05/07  B. Trinnel      Do not call ROUT82R.
                                  ** ROUT307C **
                                                                        **
5.2.41  03/14/07  I. Friedman     Switched indicator in chain stateme-
                                  nt.  Caused incorrect message disp-
                                  laying.
                                  ** ROUT08R ROUT307R ROUT308R **
                                  ** ROUT313R ROUT317R ROUT326R **
                                  ** ROUT332R ROUT347R **
                                                                        **
5.2.42  03/20/07  I. Friedman     If TCOSTD is greater than 99,999.99
                                  then z-add 99,999.99 to it before
                                  moving it to DSCOST which is only 7,2
                                  ** ROUT50R **
                                                                        **
5.2.43  03/27/07  B. Trinnel      For Canadian shipments in parcel rou- **
                                  tine do not leave the loop after fi-  **
                                  rst class processed.                  **
                                  ** ROUT50R **
                                                                        **
5.2.44  04/17/07  B. Trinnel      Preconsolidate shipments only if they **
                                  are under constraints.                **
                                  ** ROUT67R ROUT94R **
                                                                        **
5.2.45  04/23/07  B. Trinnel      Key MINOPNL2 file in stop/miles or-
                                  der.
                                  ** ROUT43C **
                                                                        **
5.2.46  05/29/07  B. Trinnel      Wrong carrier being passed when call  **
                                  "DISCNTR".
                                  ** ROUT80R ROUT88R **
                                                                        **
5.2.47  06/15/07  B. Trinnel      When call ROUT02R populate all fie-   **
                                  lds.                                  **
                                  ** ROUT11R **
                                                                        **
5.2.48  07/09/07  B. Trinnel      When we look for cheapest carrier in- **
                                  clude parcel and air carriers as well
                                  ** WINDR32R **
                                                                        **
5.2.49  08/08/07  B. Trinnel      If there is no records to optimize    **
                                  do not activate function keys F7 and  **
                                  F9.                                   **
                                  ** ROUT11R **
                                                                        **
5.2.50  09/26/07  B. Trinnel      Changed message "Blue=Release" to     **
                                  "Blue=Not in Edit File". "Red Indi-   **
                                  cate Hot Shipments" to "Red=Hot Ship- **
                                  ments".                               **
                                  ** ROUT22D ROUT23D **
                                                                        **
5.2.51  09/28/07  B. Trinnel      Add sort by Order# and Shipment#.    .**
                                  ** ROUT351D ROUT353D **
                                  ** ROUT351R ROUT353R **
                                                                        **
5.2.52  10/02/07  B. Trinnel      Print customer name. For Backward sce **
                                  dule print order number.              **
                                  ** ROUT77R ROUT123R ROUT307R**
                                  ** ROUT317R**
                                                                        **
5.2.53  10/02/07  B. Trinnel      Printout should match Display Opti-   **
                                  mization.                             **
                                  ** MINOPNLA MINOPNL6 **
                                  ** ROUT123R **
                                                                        **
5.2.54  10/04/07  B. Trinnel      For single stop trucks allways show   **
                                  direct charge as a carrier charge.    **
                                  ** ROUT22R **
                                                                        **
5.2.55  10/14/07  B. Trinnel      Allow build pool manually.            **
                                  ** ROUT23D ROUT370D WINDR09D **
                                  ** ROUT22R ROUT23R ROUT77R **
                                  ** ROUT123R ROUT337R ROUT370R **
                                  ** ROUT371R ROUT372R ROUT373R **
                                  ** ROUT374R ROUT375R WINDR09R **
                                  ** ROUT312C ROUT370C **
                                                                        **
5.2.56  10/24/07  B. Trinnel      Match manual shipments with automatic **
                                  shipments.                            **
                                  ** ROUT05R ROUT23R ROUT24R **
                                  ** ROUT25R ROUT52R ROUT57R **
                                  ** ROUT77R ROUT89R ROUT91R **
                                  ** ROUT123R ROUT307R ROUT317R **
                                  ** ROUT332R ROUT341R ROUT347R **
                                                                        **
5.2.57  10/24/07  B. Trinnel      On backward schedule show Delivery Da **
                                  te.                                   **
                                  ** ROUT123R ROUT307R **
                                                                        **
5.2.58  10/25/07  B. Trinnel      Fixed Hot/On Time logic.              **
                                  ** ROUT22R ROUT23R ROUT25R **
                                  ** ROUT77R ROUT317R ROUT332R **
                                                                        **
5.2.59  10/30/07  B. Trinnel      If cube is greater than Max Cube va-  **
                                  lue from CNSTRNTP write record to     **
                                  MNOPT4P.                              **
                                  ** ROUT314R **
                                                                        **
5.2.60  10/30/07  B. Trinnel      Added new field-Force Pool.           **
                                  ** ROUT02D ROUT03D **
                                  ** ROUT02R ROUT03R ROUT376R **
                                                                        **
5.2.61  10/31/07  B. Trinnel      Combine shipments with the same       **
                                  zip and customer.
                                  ** MINORDS4 OPTCRSP **
                                  ** ROUT306R ROUT311R ROUT330R **
                                  ** ROUT331R ROUT346R ROUT377R **
                                  ** ROUT378R ROUT379R ROUT380R **
                                  ** ROUT303C ROUT307C ROUT311C **
                                  ** ROUT312C  **
                                                                        **
5.2.62  11/13/07  B. Trinnel      Do not let user run optimization when **
                                  another optimization in progress.     **
                                  ** ROUT11D **
                                  ** ROUT11R **
                                  ** ROUT307C ROUT311C **
                                                                        **
5.2.63  11/14/07  B. Trinnel      If user deleted all orders attached   **
                                  to the shipment delete record from    **
                                  SHPHEDP.
                                  ** ROUT08R ROUT09R **
                                                                        **
5.2.64  11/14/07  B. Trinnel      If WCNS2='Y' all single shipments sho **
                                  ld be printed in leftovers report for **
                                  pools also.                           **
                                  ** ROUT40R ROUT332R **
                                                                        **
5.2.65  11/15/07  B. Trinnel      Added maximum cube field to pool      **
                                  maintenance.                          **
                                  ** POOLCNSP **
                                  ** ROUT10D **
                                  ** ROUT10R ROUT71R **
                                                                        **
5.2.66  12/03/07  B. Trinnel      After call rating program if PTYPE is **
                                  '2' move 'ZZZZ' to PCARR.             **
                                  ** ROUT372R **
                                                                        **
5.2.67  12/06/07  B. Trinnel      Let user change pick up date.         **
                                  ** ROUT27R **
                                                                        **
5.2.68  12/12/07  B. Trinnel      If record is in ROUTEIYP file write   **
                                  only one record for each MINOPNP re-  **
                                  cord.                                 **
                                  ** ROUT19R ROUT27R ROUT56R **
                                  ** ROUT320R ROUT323R ROUT355R **
                                                                        **
5.2.69  12/13/07  B. Trinnel      For each POLOPNP record write custo-  **
                                  mer information to POLDETP file.      **
                                  ** POLDETP **
                                  ** ROUT90R ROUT330R ROUT371R **
                                                                        **
5.2.70  01/18/08  B. Trinnel      Execute last part of the program when **
                                  *INLR is *ON.                         **
                                  ** ROUT378R **
                                                                        **
5.2.71  01/28/08  B. Trinnel      Allways use information from SHPHEDP  **
                                  file.                                 **
                                  ** ROUT19R ROUT27R ROUT56R **
                                  ** ROUT320R ROUT323R ROUT355R **
                                                                        **
5.2.72  02/22/08  B. Trinnel      After call "CALC118R" if no FAK ex-   **
                                  ception found z-add original class    **
                                  to PCLSS.                             **
                                  ** ROUT72R ROUT89R **
                                                                        **
5.2.73  02/25/08  B. Trinnel      Allow a zip to be serviced by multi-  **
                                  ple pools.                            **
                                  ** CARTRMP **
                                  ** ROUT10D ROUT124D WINDR11D**
                                  ** ROUT10R ROUT124R ROUT125R **
                                  ** ROUT126R ROUT127R ROUT128R **
                                  ** WINDR11R WINDR12R **
                                  ** ROUT125C ROUT312C **
                                                                        **
5.2.74  03/05/08  B. Trinnel      If record is not in SHPHEDP mark      **
                                  it as "DELETED".                      **
                                  ** ROUT77R ROUT123R **
                                                                        **
5.2.75  03/10/08  B. Trinnel      Let user build pool as a part of mul- **
                                  ti stop truck.                        **
                                  ** ROUT23D ROUT129D **
                                  ** ROUT22R ROUT23R ROUT129R **
                                  ** ROUT130R ROUT131R ROUT381R **
                                  ** ROUT314C **
                                                                        **
5.2.76  03/17/08  B. Trinnel      For Pool shipments program calculated **
                                  pool total charge incorrectly.        **
                                  ** ROUT77R ROUT332R ROUT378R **
                                                                        **
5.2.77  03/25/08  B. Trinnel      Use PCPCM as a maximum individual     **
                                  shipment weight.                      **
                                  ** ROUT10D **
                                  ** ROUT71R ROUT72R **
                                                                        **
5.2.78  03/28/08  B. Trinnel      If shipment is not in SHPHEDP show    **
                                  it in blue.
                                  ** ROUT25D **
                                  ** ROUT25R **
                                                                        **
5.2.79  04/08/08  B. Trinnel      Show each order once only.            **
                                  ** ROUT23R ROUT24R ROUT25R **
                                  ** ROUT52R ROUT57R ROUT77R **
                                  ** ROUT89R ROUT123R ROUT307R **
                                  ** ROUT317R ROUT332R **
                                                                        **
5.2.80  04/25/08  B. Trinnel      Clear POLADV field after every load.  **
                                  ** ROUT331R **
                                                                        **
5.2.81  04/25/08  B. Trinnel      Program writes duplicate records.     **
                                  ** ROUT379R **
                                                                        **
5.2.82  04/29/08  B. Trinnel      For Pool total use TL carrier from    **
                                  SHPHEDP1. Do not put shipments in     **
                                  pool if weight is greater than max-   **
                                  imum individual shipment weight.      **
                                  ** ROUT71R ROUT332R **
                                                                        **
5.2.83  05/02/08  B. Trinnel      Added programs to combine left-
                                  overs.
                                  ** ROUT381R ROUT382R ROUT383R **
                                  ** ROUT303C ROUT312C **
                                                                        **
5.2.84  05/08/08  B. Trinnel      For single shipments allways use di-  **
                                  rect carrier as a TL carrier.         **
                                  ** ROUT332R **
                                                                        **
5.2.85  06/02/08  B. Trinnel      Combine shipments with the same       **
                                  zip and customer.
                                  ** OPTCRSL **
                                  ** ROUT384R ROUT385R ROUT386R **
                                  ** ROUT387R ROUT388R ROUT389R **
                                  ** ROUT307C ROUT311C ROUT385C **
                                                                        **
5.2.86  06/05/08  B. Trinnel      Do not call "DISCNTR" if there is no  **
                                  rate.                                 **
                                  ** ROUT72R **
                                                                        **
5.2.87  06/13/08  B. Trinnel      Sort shipments after every new truck. **
                                  ** ROUT304R ROUT305R ROUT344R **
                                  ** ROUT345R **

5.2.88  06/24/08  B. Trinnel      To calculate mileage use OMLSP in-    **
                                  stead of OMLSV.                       **
                                  ** ROUT18R **
                                                                        **
5.2.89  06/30/08  B. Trinnel      Fixed Pool logic.
                                  ** ROUT309C ROUT311C ROUT312C**
                                                                        **
5.2.90  07/10/08  B. Trinnel      Changed length of TCOSTD from 7,2 to  **
                                  15,5.                                 **
                                  ** ROUT09R ROUT50R **
                                                                        **
5.2.91  07/11/08  B. Trinnel      Do nor execute subroutine $$MLS.      **
                                  ** ROUT304R ROUT305R ROUT344R **
                                  ** ROUT345R **
                                                                        **
5.2.92  07/18/08  B. Trinnel      Populate state field.                 **
                                  ** ROUT73R **
                                                                        **
5.2.93  07/22/08  B. Trinnel      Clear input files. Use TL carrier
                                  from MNOPT4P.
                                  ** ROUT332R **
                                  ** ROUT311C **

5.2.94  07/23/08  B. Trinnel      Call ROUT315C to combine leftovers.
                                  ** ROUT311RA ROUT382RA **
                                  ** ROUT307C ROUT311C ROUT315C **

5.2.95  07/29/08  B. Trinnel      Call ROUT390R to combine leftovers.
                                  ** ROUT390R **
                                  ** ROUT311C **
                                                                        **
5.2.96  09/08/08  B. Trinnel      Added new fields-Delivery on each     **
                                  day of weeks ,Delivery Saturday, Sun- **
                                  day and Delivery Hours,Ship Saturday  **
                                  , Sunday, Earliest Ship Date and      **
                                  Time.Add Backward logic.              **
                                  ** VNDDLVP MNOPT7P MNOPT7L **
                                  ** ROUT01D ROUT04D ROUT97D **
                                  ** ROUT01R ROUT04R ROUT22R **
                                  ** ROUT97R ROUT132R ROUT133R **
                                  ** ROUT135R ROUT136R ROUT137R **
                                  ** ROUT138R ROUT139R ROUT140R **
                                  ** ROUT141R ROUT142R ROUT143R **
                                  ** ROUT144R ROUT145R ROUT146R **
                                  ** ROUT147R ROUT328R ROUT371R **
                                  ** ROUT372R **
                                  ** ROUT42C ROUT43C ROUT132C **
                                  ** ROUT133C ROUT134C ROUT300C **
                                  ** ROUT306C ROUT314C **
                                  ** ROUT04E ROUT05E ROUT06E **
                                  ** SHPENTP WHSCNTP ** source only
                                                                        **
5.2.97  10/10/08  B. Trinnel      Program was bombing out if only one   **
                                  carrier was found to rate shipment.   **
                                  ** ROUT50R **
                                                                        **
5.2.98  10/21/08   B. Trinnel     Increased size of field LOAD from     **
                                  2,0 to 3,0.                           **
                                  ** ROUT311R ROUT311RA ROUT313R **
                                  ** ROUT317R ROUT326R ROUT332R **
                                  ** ROUT383R **
                                                                        **
5.2.99  12/18/08   B. Trinnel     Truck release from Shipment Mainte-   **
                                  nance and Display Optimization did
                                  not match.                            **
                                  ** ROUT51R ROUT58R ROUT61R **
                                  ** ROUT42C1 **
                                                                        **
5.3.00  01/20/09   B. Trinnel     When call mileage pgm pass first      **
                                  zip closest to warehouse.             **
                                  ** ROUT86R ROUT93R ROUT130R **
                                  ** ROUT133R ROUT139R ROUT302R **
                                  ** ROUT303R ROUT304R ROUT305R **
                                  ** ROUT342R ROUT343R ROUT344R **
                                  ** ROUT345R ROUT346R ROUT388R **
                                  ** WINDR30R **
                                                                        **
5.3.01  01/16/09   B. Trinnel     After user call ROUT25R check if      **
                                  load has records. If not-leave the
                                  program.                              **
                                  ** ROUT23R ROUT25R **
                                                                        **
5.3.02  02/04/09   B. Trinnel     Write all deleted records to DELDETP. **
                                  If user deleted all orders attached   **
                                  to the shipment write record to       **
                                  DELHEDP.                              **
                                  ** ROUT09R **
                                                                        **
5.3.03  03/10/09  B.Trinnel       When call CALC118R pass carrier code  **
                                  instead of tariff code.               **
                                  ** ROUT05R ROUT09R ROUT18R **
                                  ** ROUT33R ROUT50R ROUT51R **
                                  ** ROUT118R ROUT349R ROUT354R **
                                  ** ROUT372R ROUT373R WIND31R **
                                  ** WIND32R **
                                                                        **
5.3.04  03/30/09  B. Trinnel      In $$SRT routine check also if record **
                                  is in ARR1 array.
                                  ** ROUT304R ROUT305R ROUT342R **
                                  ** ROUT343R ROUT344R ROUT345R **
                                                                        **
5.3.05  04/01/09  B. Trinnel      When ROUT385C returnes with savings   **
                                  remove new stop and try to save more
                                  with all 888's.                       **
                                  ** ROUT390R **
                                                                        **