[Info-vax] f$env("depth") from where?

[Arne Vajhøj]

On 12/30/2022 10:11 PM, Stephen Hoffman wrote:
> On 2022-12-30 23:50:13 +0000, Arne Vajhj said:
>> Where does f$env("depth") get the value from?
>>
>> Or how does one get that value from a program?
> 
> 
> https://groups.google.com/g/comp.os.vms/c/hwPJZbKQ_4o/m/tkMTdEPfmlcJ

So I was not the first wanting to get this.

:-)

Thanks.

Code snippet:

         .title  depth
PRC$W_PROCLEVEL=56
         .psect  $CODE quad,pic,con,lcl,shr,exe,nowrt
         .entry  depth,^m<>
         movl    #CTL$AG_CLIDATA,r1
         movl    W^PPD$L_PRC(r1),r1
         cvtwl   W^PRC$W_PROCLEVEL(r1),r0
          ret
         .end

       program testdepth
       integer*4 depth
       write(*,*) depth()
       end

$ macro depth
$ for testdepth
$ link testdepth + depth + sys$input/opt
sys$loadable_images:dcldef.stb/selective_search
sys$loadable_images:sys$base_image.exe/shareable
$
$ exit

Arne