  Macro32 and STORCODLAB, DATINCODE errors? 
 The Question is:
 
Dear Wizard,
 
I am converting some Macro code from VAX to Alpha. The following compilation
 errors are the last that I need to resolve. I've already resolved many other
 STORCODLAB and DATINCODE errors but these appear to be different. Can you
 please tell me what I need
to do to correct the following code for AXP?
 
Regards,
 
Pete Dunkin.
 
------------------------------------------------
 
In ENVMISFUN.MAR
 
        $IMGACT_S   NAME=NAMDSC,-
                    DFLNAM=DEFDSC,-
                    IMGCTL=#&lt;IAC$M_MERGE!IAC$M_EXPREG
                    HDRBUF=(R6),-
                    INADR=START_VA,-
                    RETADR=G^ENV_TRACE_VA
 
gives the following compilation error:-
 
                    RETADR=G^ENV_TRACE_VA
 
%AMAC-E-STORCODLAB, stored code labels must be declared entry points in routine
 DEFDSC at line number 401 in file SPARE2:[A21B.SRC.XBC.WRK]ENVMISFUN.MAR;20
 
------------------------------------------------
 
In ENVSCHED.MAR
 
        CMPL    R0, #ss$_exquota
        BNEQ    25$
        $CANEXH
        $EXIT   ss$_exquota
 
25$:
 
gives the following compilation errors:-
 
        $CANEXH
 
%AMAC-E-DATINCODE, data in code stream
at line number 864 in file SPARE2:[A21B.SRC.XBC.WRK]ENVSCHED.MAR;52
 
        $EXIT   ss$_exquota
 
%AMAC-E-DATINCODE, data in code stream
at line number 865 in file SPARE2:[A21B.SRC.XBC.WRK]ENVSCHED.MAR;52
 
------------------------------------------------
 
 The Answer is :
 
;  The OpenVMS Wizard would encourage moving to a
;  higher-level language as feasible, and to reduce
;  the quanity of Macro32 code in use.
 
;  The $imgact and $imgfix image activation system
;  services are not documented nor supported; please
;  use the supported lib$find_image_symbol interface,
;  or C functions such as dlopen() and friends.
 
 
; ---
 
; STORCODLAB,  stored code labels must be declared entry
;              points in routine 'routine-descriptor'
 
;  Facility:     AMAC, MACRO-32 Compiler for OpenVMS Alpha
 
;  Explanation:  An instruction such as MOVAx or PUSHAx
;                that is used to store the address of a
;                code label is not declared as an entry
;                point.
 
;  User Action:  Add the appropriate entry declaration,
;                either .JSB_ENTRY, or .JSB32_ENTRY, or
;                .CALL_ENTRY.
 
; ---
 
; DATINCODE,  data in code stream
 
;  Facility:     AMAC, MACRO-32 Compiler for OpenVMS Alpha
 
;  Explanation:  Data was found in the code stream. This
;                condition is not allowed on OpenVMS Alpha
;                systems.
 
;  User Action:  For implicit JSB parameters, pass the
;                parameter value in a register. If any values
;                are larger than a longword, put them in
;                another program section (psect) and
;                explicitly pass its address.
 
;                For data contiguous with code in the code
;                stream, rewrite the code so that the data
;                is in a data program section.
 
; ---
 
 
	.library        'sys$library:starlet.mlb'
	.psect data,noexe,wrt
	$ssdef
 
	.psect code,exe,nowrt
	.call_entry Label=start,preserve=&l
        $CANEXH_S
        $EXIT_S   code=#ss$_exquota
	.end start
 
; ---
 Answer written or last revised on  10-MAR-2004 
