What it looks like you want to do is not possible.
You source and target field names are the same.
So if you start with ‘ABC ‘ you will end with ‘ABC ‘
Something has to go in the last 3 spaces.
%TRIIM is used you you are putting two fileds together.
Something like this:
Work6 = %trimr(DGHCOD) + anotherfield
Also you should start using free form
If you insist on fixed form, get rid of the indicator 93 in your subroutine. You already have code that says you cannont execute the code unless *IN93 is on.