From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 19-MAY-1991 09:34:32.77
To:	ARISIA::EVERHART
CC:	
Subj:	Re: F$Environment items from FORTRAN

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.97)
	 id AA27490; Sun, 19 May 91 08:47:09 EDT
Received: From DANPOST.UNI-C.DK by CRVAX.SRI.COM with TCP; Sun, 19 MAY 91 05:38:50 PDT
Received: from vms2.uni-c.dk by danpost.uni-c.dk (5.65/1.34)
	id AA26370; Sun, 19 May 91 12:33:14 GMT
Date: Sun, 19 May 91 14:40 +0200
From: ISIS08@ecostat.aau.dk
Subject: Re: F$Environment items from FORTRAN
To: BARKELEW@UTXVMS.CC.UTEXAS.EDU, INFO-VAX@SRI.COM
Message-Id: <72900FCA855F000D4F@vms2.uni-c.dk>
X-Envelope-To: INFO-VAX@SRI.COM, BARKELEW@UTXVMS.CC.UTEXAS.EDU
X-Vms-To: IN::"BARKELEW@UTXVMS.CC.UTEXAS.EDU"
X-Vms-Cc: IN::"INFO-VAX@SRI.COM"

>Does anyone know how to get command_procedure depth and
>whether or not procedure and/or image verification is
>enabled from within a HLL, such as Fortran?  I have looked
>at $GETJPI, $GETSYI, as well as all the LIB$xxx items I
>could think of, and I'm not sure where else to look in
>the grey wall. :-/

These things are not documented in the grey wall. A little
try and error did result in the following piece of code
testing for procedure verification.

      PROGRAM Z
      LOGICAL*4 V
      CALL VERIFY(V)
      WRITE(*,*) V
      END

        .title  verify
        .link   "sys$system:sys.stb"/selective_search
        .link   "sys$system:dcldef.stb"/selective_search
        .library "SYS$LIBRARY:LIB"
        .psect  $CODE long,pic,con,lcl,shr,exe,nowrt
        .entry  verify,^m<iv>
        movl    #CTL$AG_CLIDATA,r0
        movl    W^PPD$L_PRC(r0),r0
        moval   W^PRC_W_FLAGS(r0),r0
        movzwl  (r0),r0
        bbs     #PRC_V_VERIFY,r0,100$
        movl    #0,@B^4(ap)
        ret
100$:   movl    #-1,@B^4(ap)
        ret
        .end

I could not find image verification or procedure depth.

Does anyone have a relative complete description of these datafields in P1
space ?

                                                                 Arne

Arne Vajhxj                             Internet: ISIS08@ECOSTAT.AAU.DK
Institute of Economics and Statistics   PSI:      DATAPAX.23830211371400::ISIS08
Aarhus University
Denmark


