RCB_DELARG

Delete an argument from a routine call block

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

xcall RCB_DELARG(rcbid, argnum)

Arguments

rcbid

The identifier for the routine call block. (n)

argnum

The one-based index of the argument to be deleted. (n)

Discussion

If rcbid is invalid, an error is signaled.

If argnum is not passed or is less than or equal to 0, an error is signaled.

Examples

record
    rcbid       ,i4
    arg_1       ,a3
proc
    rcbid = %rcb_create(3)                      ;Create an RCB block with 3 args
    xcall rcb_setarg(rcbid, arg_1, 1)           ;Set up arg_1 as argument #1
    xcall rcb_delarg(rcbid, 3)                  ;Delete argument #3
    xcall rcb_delarg(rcbid, 2)                  ;Delete argument #2
    xcall rcb_setfnc(rcbid, "routine")          ;Set function to be called
    xcall rcb_call(rcbid)                       ;Call function as xcall routine(arg_1)
    xcall rcb_delete(rcbid)                     ;Delete RCB block
end