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:
Código COBOL:
MOVE LNK-ENCRIPT (1:10) TO ...
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
