COBOL mfsort take trouble

Hi,
I met this problem : for the same program perl v5.6.1 on sun solaris I can't have the same result on perl v5.8.8 whitin v5.8.8 on linux.
Actually, when I run it on the first case I get good results. But on linux it seems like sort trouble and like a different behavior between these to OS with the cobol utility mfsort take Can somebody help me for this please (It's quite urgent) ?

See the output file attached below

So here is the COBOL command :
Caution : The COBOL command is encapsulated under shell command

Select all Open in new window

SORTIN=$TMP/T120DFU."$nupro"
    export SORTIN
SORTOUT=$TMP/T150OUT."$nupro"
    export SORTOUT

echo "SIGN-EBCDIC
SORT FIELDS (
00001,00040,CH,A,
00041,00012,CH,A,
00061,00025,CH,A,
00086,00002,CH,A)
RECORD (F, 3052)
USE $SORTIN ORG (SQ) RECORD (F,3052)
GIVE $SORTOUT ORG (SQ) RECORD (F,3052)
" 1>$TMP/KJ3150."$nupro"
mfsort take $TMP/KJ3150."$nupro"
    CODE_RETOUR=$?
    unset SORTIN
    unset SORTOUT
    rm $TMP/T120DFU."$nupro"
    rm $TMP/KJ3150*."$nupro"
if
  [ $CODE_RETOUR -gt $MAX_RETOUR ]
  then
      MAX_RETOUR=$CODE_RETOUR
fi
echo "\n"
fi
if
  [ $MAX_RETOUR -le 4 ]
  then
echo "*-------------------------- STEP160A ---------------------------*"
echo "*                  Load parameters in T160DTR                   *"
echo "*---------------------------------------------------------------*"
echo "DA341"\
  >$TMP/T160DTR."$nupro"


Thanks for your feedback
T150OUT.zip