La solución sería aplicar la sentencia NO-SIGN de la siguiente manera:

WRITE t1-c1 TO t2-c1 RIGHT-JUSTIFIED NO-SIGN.

ya que por default (aunque no se vea) las variables del tipo int incluyen el signo positivo en su último caracter y por lo tanto la sentencia write lo incluye
(cuando es positivo el signo no se muestra porque se entiende que es positivo).

Para probarlo puede hacer el mismo write con números negativos y sin poner la sentencia "NO-SIGN" te aparecerá lo siguiente como resultado:

1 2 3 4 5    => posiciones
      1 5 -    => contenido

Espero que te sirva.
Saludos.