@Joseg, prueba con la última versión, la de
byte occurs 750 pic 9(9) comp-5. porque ahí toma 4 bytes con lo cual también tiene en cuenta el orden.
A mi me funciona, mira el ejemplo que has dado da diferente resultado con el método que digo:
Código:
PIC X(12) VALUE "101.10.01" --> 00000000002122285203
PIC X(12) VALUE "101.10.10" --> 00000000002139062418