TCL command to assign Material ID(Solver ID) in Optistruct/Nastran

I tried to look for in HyperMesh Customization help but I have not found the TCL command to assign Material ID(Solver ID) with certain number (example same as Component Number).

Really appreciate anyone who has comments or inputs for this.