Getting a timestamp into a numeric 8,0 in *USA

Is there a way to extract from a time stamp field just the date and putting it into a numeric 8,0 field in *USA?

Now I know you can extract portions using %SUBDT.
I know if I was putting it into a *ISO date field I could use %date.

But is the only method to use is building a data structure over the timestamp like this;

D DS
D MyTimeStamp Z
D HereIsTheDate D Overlay(MyTimeStamp:1)
D HereIsTheTime T Overlay(MyTimeStamp:12)

Then doing;

NumericUsa = %int(%char(HereIsTheDate:*usa0));

Thanks;
Andy