Micros RES3700 - ISL Error When Starting Workstation In Standalone Mode

[JonnyB82]

Hi Guys,

When the workstation starts us on the network, all appears fine, howver when starting in standalone mode, the following error appears:

ISL error on line 2115:90 Variable Unlimited (REF)

Not sure if anyone may have any ideas what is causing this, and how I can rectify?

Many Thanks

 

[Jackba]

hi guys can you help with dencrypting the attached isl if possible

thanks for your time

 

[Moregelen]

I haven't seen any issues with any of these ISL files when in standalone mode - we use all but the opera ISL, which we used a lot at my old job. I'm not sure its any of these three SIM files causing the issue. I decrypted all three and looked through them, and while they are a nightmare to read through, everything does seem to do valid stand alone checks. Are you sure these are the only three you are running?

 

[Moregelen]

A bit amusing that they encrypted a check trailer SIM:

event Print_trailer : YUM_trailer
    
  var Ord1: A40
  var Ord2: A40
  var Ord3: A40
  var Chk_num: A4
  var num1: A3
  var num2: n1
  var bigchar : a10
  var normal : a2
  var daily_text1: a40
  var daily_text2: a40
  

 	num2 = @cknum % 10

if num2 = 0 
	daily_text1 = "Don't be a stranger"
	daily_text2 = ""
elseif num2 = 1
daily_text1 = "           Next time,          " 
daily_text2 = "        stay longer, ok?       "
elseif num2 = 2
daily_text1 = "             Go well,          "
daily_text2 = "          see you soon         "
elseif num2 = 3
daily_text1 = "    You're always welcome,     "
daily_text2 = "         you know that         "
elseif num2 = 4
daily_text1 = "  It's been great seeing you   "
daily_text2 = ""
elseif num2 = 5
daily_text1 = "      Don't be a stranger"
daily_text2 = ""
elseif num2 = 6
daily_text1 = "       Thanks for sharing"
daily_text2 = "         a meal with us"
elseif num2 = 7
daily_text1 = "         Miss you already"
daily_text2 = ""
else
daily_text1 = "          Great company"
daily_text2 = "         makes great food"
endif 


  // chr(13)             - Linefeed after printing
  // chr(29),chr(98),"1" - Turn printer font smoothing on
  // chr(29),chr(33),"1" - Send the Large font

  format bigchar as chr(29),chr(98),"1",  chr(29),chr(33),"3"	
  format normal as @dwoff
format chk_num as @cknum			
if len(@cknum) = 4
  num1 = mid(chk_num,2,3)
Else 
  num1 = chk_num
EndIf

// On the next line is where we tell it how to print, you can change the stuff between the quotation marks
// on the Ord1 line, I'd suggest that you leave the Ord2 line alone
// We're also telling the first line to print in the standard MICROS "double wide" font
// The second line (Ord2) will be the guest check # in a 1/2" tall "smooth" font


        format Ord1 as @dwon,"  Your Order #:",@dwoff
        format Ord2 as bigchar, "  ",num1, @dwoff
        format Ord3 as @dwon,"  KFC SoGood",@dwoff
       
	@trailer[1] = "  "
	@trailer[2] = "-------------------------------"
	@trailer[3] = Ord1
	@trailer[4] = "   "
	@trailer[5] = Ord2
	@trailer[6] = "-------------------------------"
	//@trailer[8] = "   "
	//@trailer[9] = Ord3
	//@trailer[10] = "   "
	//@trailer[11] = "******************************"
	//@trailer[12] = "   "	
	//@trailer[13] = daily_text1
	//@trailer[14] = daily_text2
	//@trailer[15] = "   "
	//@trailer[16] = "******************************"

endevent

event Print_trailer : Fusion_trailer
    
  var Ord1: A40
  var Ord2: A40
  var Ord3: A40
  var Chk_num: A4
  var num1: A3
  var num2: n1
  var bigchar : a10
  var normal : a2

                  
  // chr(13)             - Linefeed after printing
  // chr(29),chr(98),"1" - Turn printer font smoothing on
  // chr(29),chr(33),"1" - Send the Large font

  format bigchar as chr(29),chr(98),"1",  chr(29),chr(33),"1"	
  format normal as @dwoff
format chk_num as @cknum			
if len(@cknum) = 4
  num1 = mid(chk_num,2,3)
Else 
  num1 = chk_num
EndIf

// On the next line is where we tell it how to print, you can change the stuff between the quotation marks
// on the Ord1 line, I'd suggest that you leave the Ord2 line alone
// We're also telling the first line to print in the standard MICROS "double wide" font
// The second line (Ord2) will be the guest check # in a 1/2" tall "smooth" font


        format Ord1 as @dwon,"  Your Order #:",@dwoff
        format Ord2 as @dwon,"      ",num1, @dwoff
        format Ord3 as @dwon,"  KFC SoGood",@dwoff
       
	@trailer[1] = "  "
	@trailer[2] = "-------------------------------"
	@trailer[3] = Ord1
	@trailer[4] = "   "
	@trailer[5] = Ord2
	@trailer[6] = "-------------------------------"


endevent

event Print_trailer : Survey_trailer


	var hODBCDLL : N12 = 0
	var constatus : N9
	var sql_cmd : A2000
	var store_id : A10
	var trans_id : N4
	var code : A32
	var i     : N3
	var val0  : N3 = 0      // other Digits from left and mult Result by 2
	var val1  : N3 = 0      // No of val Digits > 4
	var val2  : N3 = 0      // all uncounted Digits
	var val3  : N3 = 0      // sum from val0 to val2
	var chkdig: N1 = 0      // sum to next number that ends in 0
	var trim_val:N1
                           //  = Check Digit = last Pos

// --------------------- Load SIMODBC.dll -------------------
if hODBCDLL = 0
DLLLoad hODBCDLL, "MDSSysUtilsProxy.dll"
endif
if hODBCDLL = 0
exitwitherror "Unable to Load MDSSysUtilsProxy.dll"
endif
// -----------------------------------------------------------
// Connect to micros 3700 database

//Get Store ID
DLLCALL_CDECL hODBCDLL, sqlIsConnectionOpen(ref constatus)
if constatus = 0
DLLCALL_CDECL hODBCDLL, sqlInitConnection("micros","ODBC;UID=custom;PWD=custom", "")
endif
//format sql_cmd as "SELECT user_defined_1 FROM micros.em_store_def WHERE Store_seq <> 1"
format sql_cmd as "SELECT user_dfn_3 FROM micros.rest_def" 
DLLCALL_CDECL hODBCDLL, sqlGetRecordSet(sql_cmd)
sql_cmd = ""
DLLCALL_CDECL hODBCDLL, sqlGetLastErrorString(ref sql_cmd)
if (sql_cmd <> "")
ErrorMessage "Error From SQL -> ", sql_cmd
endif
sql_cmd = ""
DLLCALL_CDECL hODBCDLL, sqlGetFirst(ref sql_cmd)
split sql_cmd, ";" , store_id
//errormessage store_id
if sql_cmd = ""
exitwitherror "There Is No Matching Record"
endif

trim_val = len(store_id) -1
if trim_val < 1
	trim_val = 5
endif

store_id = mid(store_id,2,trim_val)

Format code AS "    ", store_id, "-", @Day{02}, @Month{02}, @Year{02}, "-",@Hour{02}, @minute{02},"-",@cknum % 100
    	@trailer[1] = "     Stand a chance to Win      "
	@trailer[2] = "        a 21 Piece Bucket       "
	@trailer[3] = "   Visit [URL unfurl="true"]www.talk2kfckenya.com[/URL]  "
	@trailer[4] = "  and complete the survey using "
	@trailer[5] = "       your unique code:        "
	@trailer[6] =  code
	@trailer[7] = "    Terms & conditions apply.   "
	@trailer[8] = "         Complete survey        "
	@trailer[9] = "    within 7 days of purchase  "
	@trailer[10] = "--------------------------------"
        
endevent

 

[hosehead78]

Actually, it's not surprising for me. I'm running a 9700 system, and I have had a few ISL scripts with just time out messages, and a few other printing ones as well. It makes it so you have to call Micros to get them to change or update something.

I'm thinking that the encrypter for 9700 and 3700 are different, cause I couldn't decrypt it with the 9700 version. Unless I am doing something wrong, but I can with 9700 stuff.
Good Job

 

[Jackba]

thanks Moregelen , is it possible to do the same for simphony?

 

[Johnabbate]

Moregelen

I have read many of your posts. They are very helpful.
Just curious, do you work on Micros stuff for a living or have your own business?

 

[Jackba]

I think its more to do with experience rather than working with micros

 

[Moregelen]

Depends on the version of simphony. I haven't tried on any scripts from simphony 2, but simphony 1, definitely. It's also the same encryption on the opsdisplay files.

I disappeared for a while there - did OP ever get this resolved?

 

[hosehead78]

Haven't seen OP in a while either. Not sure.

 

[JonnyB82]

Hi, no still not resolved, its not causing us any massive issues, as we are just pressing OK to the error message...
I've had a case open for quite a number of weeks with Oracle, but still not heard anything back.

 

[hosehead78]

Is the ISL script in question the one posted here?

In the 3700d.log, are there any other references as to the ISL file or line?

Are any of the Variables declared with in the Subs declared Globally?
Example: at the beginning of an isl, you declare 'var Ord1: A40', however, it is also declared in a few subroutines. Check these with any ISL scripts you can.