Macro

[thurmy34]

Hi All

Is there a macro like the dsjobname for the routine ?

Thanks

[kduke]

What do you want the routine name? Or are you asking does DSJobName work in a routine?

[thurmy34]

I want the routine name.

[ArndW]

If you write a routine called "MyRoutine" then do you want some sort of a DS function call which will return "DSU.MyRoutine"? If that is what you are asking then I think it might be possible, but I'm not sure it can be done. It might depend upon how the routine was called.

[thurmy34]

Here is exactly what i want to do

Code: Select all

 if len(trim(Zone))=0 or isnull(Zone) then
         Begin Case
            case Type='A'
               Ans=" "
            case Type='N'
               Ans="0"
            case @TRUE
               Call DSTransformError("Valeur de parametre iconnue ":Type,"ZoneNull")
               Ans=@NULL
         end case
      end Else
         Ans=Zone
      end

I want to replace "ZoneNull" witch it's the actual name of my routine by a macro.
So i don't have to tkink to change the name when i'll reuse the code.
Thanks

[ray.wurlod]

It's not possible.

What I do as standard practice is to place an EQUATE declaration at the beginning of every routine.

Code: Select all

Equate RoutineName To "MyRoutine"

This behaves like the macro you seek. Because it's at the top of the code, it's obviously there needing to be changed when the code is copied.

[ArndW]

Just as Ray stated, I always have my first code line in every program

Code: Select all

EQUATE ProgramName TO "name-of-routine"

, and usually the second line is

Code: Select all

EQUATE Version TO "x.x.x"

.

I thought the stack might contain an easily accessible name of the current routine, but I've done some checking and this value isn't available.

[thurmy34]

so my code will be

Code: Select all

Equate RoutineName to "ZoneNull"
Equate Version to "1.0"
if len(trim(Zone))=0 or isnull(Zone) then 
         Begin Case 
            case Type='A' 
               Ans=" " 
            case Type='N' 
               Ans="0" 
            case @TRUE 
               Call DSTransformError("Valeur de parametre iconnue ":Type,RoutineName:Version) 
               Ans=@NULL 
         end case 
      end Else 
         Ans=Zone 
      end 

am i right ?

[ArndW]

Yes.

[thurmy34]

I will do that.
Do you do the same in the jobcontrol or do you use dsjobname ?
Thank you all.

[ArndW]

In JobControl you can use DSGetJobInfo(DSJ.ME,DSJ.JOBNAME)

[thurmy34]

I have all my answers.
Thank you all