Complete novice question

Question

Question

#Compiler #Studio #Testing #InterSystems IRIS

I'm trying to learn M programing for an Epic db class prerequisite. They said to download the IRIS Studio software to do the testing. I'm having a very difficult time finding information the language. I'm trying to run some examples that Epic has provided (like in below) but the compiler complains that it isn't valid. Of course, it doesn't tell you why it isn't valid.

r !,"Enter the hour: ",hr
r !,"Enter the minute: ",min
r !,"Enter the second: ",sec
s Mtime=$$ConvertToMTime(hr,min,sec)
w !,"Equivalent M time: ",Mtime
q
ConvertToMTime(h,m,s)
q (h*3600)+(m*60)+(s)

I get these errors:

ERROR: zipcodevalidate.int(11) #8: <NOLINE>
TEXT: s Mtime=$$ConvertToMTime(hr,min,sec)
ERROR: zipcodevalidate.int(14) #1026: Invalid command : 'ConvertToMTime(h,m,s)' : Offset:15
TEXT: ConvertToMTime(h,m,s)

Would appreciate any guidance on why this doesn't work or some sources to better understand how to use Studio.

Product version: IRIS 2023.3

Discussion (7)5

Log in or sign up to continue

score 0 · Answer 1 · 2024-04-25T16:45:22-04:00

The first error means that you aren't calling the method/routine correctly. See the <NOLINE> error code in this doc page: https://docs.intersystems.com/iris20231/csp/docbook/Doc.View.cls?KEY=RER... . Are you sure $$ConvertToMTime is the right name?

As for the second error: unlike most other programming languages, just calling a routine/method does not work in M/ObjectScript. Every line of code must use a command; in this case what you are looking for is the DO command: https://docs.intersystems.com/iris20231/csp/docbook/Doc.View.cls?KEY=RCO...

So, when calling a method/routine, you would write 'do ConvertToMTime(h,m,s)'

score 0 · Answer 2 · 2024-04-25T17:37:21-04:00

My guess is that you put a space at the beginning of the line shown above as:

ConvertToMTime(h,m,s)

Pasting a screenshot here might help.

score 0 · Answer 3 · 2024-04-26T07:53:48-04:00

James Rutledge · Apr 26

So, you can't set a variable to the return value of a function?

0 0

score 0 · Answer 4 · 2024-04-26T08:51:36-04:00

Yes you can, but your function isn't being found, perhaps because of whitespace in front of its labet.

score 0 · Answer 5 · 2024-04-26T09:03:17-04:00

Hi @James Rutledge

welcome in our world !

Using this ROUTINE below :

ROUTINE test.1
    r !,"Enter the hour: ",hr  
    r !,"Enter the minute: ",min 
    r !,"Enter the second: ",sec 
    s Mtime=$$ConvertToMTime(hr,min,sec)
    w !,"Equivalent M time: ",Mtime," (Time:",$zt(Mtime),")",!

    /// Display some other internal time values :
    for a = 0,3600,43200,45296,86399 {
        w !,"Equivalent M time: ",a," (Time:",$zt(a),")",!
    }
    q
ConvertToMTime(h,m,s)
    q (h*3600)+(m*60)+(s)

Will display the following result :

USER>d ^test.1

Enter the hour: 12
Enter the minute: 34
Enter the second: 45
Equivalent M time: 45285 (Time:12:34:45)

Equivalent M time: 0 (Time:00:00:00)

Equivalent M time: 3600 (Time:01:00:00)

Equivalent M time: 43200 (Time:12:00:00)

Equivalent M time: 45296 (Time:12:34:56)

Equivalent M time: 86399 (Time:23:59:59)

score 1 · Answer 6 · 2024-04-26T09:19:31-04:00

it sounds like this is an Epic provided example, so presumably ConvertToMTime is defined by Epic but was either misspelled or called from a context where it couldn't be found

score 0 · Answer 7 · 2024-04-26T09:07:51-04:00

You can also use classes instead of routines.

For instance :

Class test.a Extends %RegisteredObject
{

ClassMethod run() As %Status
{
    Set sc = $$$OK
    read !,"Enter the hour: ",hr  
    read !,"Enter the minute: ",min 
    read !,"Enter the second: ",sec     
    do ..getInternalTime(hr,min,sec)

     /// Display some other internal time values :
    for a = 0,3600,43200,45296,86399 {
        w !,"Equivalent M time: ",a," (Time:",$zt(a),")",!
    }
    Return sc
}

ClassMethod getInternalTime(hr As %Integer, min As %Integer, sec As %Integer) As %Status
{
    set sc=$$$OK
    set Mtime=$$ConvertToMTime(hr,min,sec)
    write !,"Equivalent M time: ",Mtime," (Time:",$zt(Mtime),")",!
    return sc
}

ClassMethod ConvertToMTime(h, m, s) As %Integer
{
        Return (h*3600)+(m*60)+(s)
}

}

Will give :

USER>w ##class(test.a).run()

Enter the hour: 12
Enter the minute: 34
Enter the second: 45
Equivalent M time: 45285 (Time:12:34:45)

Equivalent M time: 0 (Time:00:00:00)

Equivalent M time: 3600 (Time:01:00:00)

Equivalent M time: 43200 (Time:12:00:00)

Equivalent M time: 45296 (Time:12:34:56)

Equivalent M time: 86399 (Time:23:59:59)
1