asked on

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

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

bazika

You have mentioned Perl in Your question, however, no perl script reference is present in Your code.
What exactly difference in results do You have ?

ASKER CERTIFIED SOLUTION

Seydina Fall

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Dirk Haest

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.