truncating a decimal value in /Free (Hijacked)

Gernally, I would discourage the use of '010' for the setting of
indicators. . .
If it is a straight set-on-all-in-the-block-of-indicators *ALL '1' or
set-off all-in-the-block *ALL '0' , then block them.
But if it makes me as a programmer have to look back up into the D-specs
to see which are on and which are off, then darn it,
just set them all individually by name, one indicator on a line.

The only exception are when your are setting SFLCLR and SFLDSP and
SFLDSPCTL indicators.
That is an idiom that we are all familiar with, and then name the block
for what it is

D Indicator_DS DS Based(Indicator_Ptr)
D SubFile_Indicators 3A overlay(indicator_ds : 30)

SubFile_Indicators = '010' ;
Write SFLCTL01 ;

-=================================================-

D Indicator_DS DS Based(Indicator_Ptr)
D Indicator_3032 3A overlay(indicator_ds : 30)

D Indicator_Ptr * Inz(%Addr(*In)

/Free
Indicator_3032 = '010';