<>iI 3JBORDERIDE$Äð¨$ó,ÓÄûÑ JBPLAN.tpló1ÓÄûÅóÓÄûó Å÷Åó,ÓÄûÑJBPLAN …3LET JBITEM=UNT; OPEN (JBITEM)"JBITEM.tpl"; READ (JBITEM)JBITEMTPL$; CLOSE (JBITEM); DIM JBITEMREC$:JBITEMTPL$; OPEN (JBITEM)"JBITEM"! 3LET JBREGIONS=UNT; OPEN (JBREGIONS)"JBREGIONS.tpl"; READ (JBREGIONS)JBREGIONSTPL$; CLOSE (JBREGIONS); DIM JBREGIONS$:JBREGIONSTPL$; OPEN (JBREGIONS)"JBREGIONS"" 3LET JBDEALERS=UNT; OPEN (JBDEALERS)"JBDEALERS.tpl"; READ (JBDEALERS)JBDEALERSTPL$; CLOSE (JBDEALERS); DIM JBDEALERS$:JBDEALERSTPL$; OPEN (JBDEALERS)"JBDEALERS"#M$Äð¨$ó,ÓÄûÑCONFIGFILE.tpló1ÓÄûÅóÓÄûó Å÷Åó,ÓÄûÑ CONFIGFILEdÅòÅòÅ òÅn@3 SHOULD FIND EXISTING ORDER FOR A DEALER/RIC/DATE AND ADD TO ITx+3IF NONE THEN RETURN NEXT AVAILABLE ORDERID‚1ÓĵżƯöƒû‡2 ÅÓÆòÆûâÑZZýêö´ó3SKIP FOR NONHOUSE ACCTSŒ1úÓİö´ûÅó Å@ âÅýêö´– ©ÓÅ@ òÆûâ©ÓÅòÆûýêöŒ  $ÅðÅ@ óö#(´3NO MATCHING PLAN FOUNDÈ 1úÓĵ©AÓÑ nextorderidòÆûûÅÒ"$Åð©(Ó¨Ó©ÓÅ@ òÆûû÷Ñ0000000ûÜ$Å@ ð©(Ó¨ÓÅûÜÆ÷Ñ0000000û LúÓÄûÅ#( 3outtahere#Œ ÓÄûóÓÄû&¬ÿÿ NEXTORDERIDJBPLAN JBPLANTPLJBPLAN CONFIGFILECONFIGFILETPL CONFIGFILEDEALERRICREQDATE CONFIGFILE.OTHERVALUE JBPLAN.DEALER JBPLAN.RIC JBPLAN.ORDERIDC4IC JBPLAN.REQUESTED_DATE JBPLAN.ORDERID)