Josber, la rutina encripta la longitud total con los espacios en medio o al final del PIC X(50). Si sólo necesitas una parte, efectivamente haz:


Porque cuando vayas a desencriptar, y hagas el MOVE 10, el resto en COBOL se llena por espacios así que el resultado sería el mismo y se reconstruiría todo correctamente.
Me alegro de que te haya gustado como queda :bien: