{PRIVATE} PROCEDURE procname(var1{=defval} {as <typsiz>{:<mod},...varN{=defval} {as <typsiz>{:<mod})

    <optional local MAP statements, with optional STATIC prefix>

    <optional XGETARGs>

    <nearly any kind of statements>

    XPUTARG n,<expression>    ! return (1 or more) parameters

ENDPROCEDURE

Notes

Procedures are exactly like Dynamic Structure Functions (which see, for many details) except that they cannot be used as expressions, and they don't return an expression value. Like functions, or SBX routines, they can update any of the parameters passed. They also use similar but separate keywords:

FUNCTION        PROCEDURE

ENDFUNCTION     ENDPROCEDURE (also END FUNCTION and END PROCEDURE)

EXITFUNCTION    EXITPROCEDURE

To call the procedure, use a form of the CALL statement:

CALL procname(var1,...varn)  

History

2016 August, A-Shell 6.3.1523, compiler edit 770:  Add private attribute for functions and procedures.

2014 January, A-Shell 6.1.1373:  Named parameters implemented in A-Shell.