Seydina Fall
asked on
mfsort for COBOL microfocus's utility error - Status = 9/139
Hello,
I have a little issue with mfsort (COBOL) utility.
Here is the code (in UNIX OS) :
SORTIN=£FI
export SORTIN
SORTOUT=$TMP/T120OUT."$nup ro"
export SORTOUT
echo "SIGN-EBCDIC
SORT FIELDS (
00005,00009,CH,A,
00014,00050,CH,A,
00064,00020,CH,A)
RECORD (V, 4,4004)
USE $SORTIN ORG (SQ) RECORD (V,4,4004)
GIVE $SORTOUT ORG (SQ) RECORD (V,4,4004)
" 1>$TMP/NRB120."$nupro"
mfsort take $TMP/NRB120."$nupro"
CODE_RETOUR=$?
unset SORTIN
unset SORTOUT
rm $TMP/NRB120*."$nupro"
Input file is BORD_GEL_ZZZ_Suppr has only one line :
000000000GEL ZZZ 0 *EZO00 A0
Output Error is :
SORT013U: I/O error on dataset '/opt/hrdev/file/BORD_GEL_ ZZZ_Suppr'
SORT014U: Status = 9/139
SORT020U: SORT(EXTSM) failed - sort engine status = 9/139
What's wrong in mfsort parameters ?
Thanks for your feedback.
papfal
I have a little issue with mfsort (COBOL) utility.
Here is the code (in UNIX OS) :
SORTIN=£FI
export SORTIN
SORTOUT=$TMP/T120OUT."$nup
export SORTOUT
echo "SIGN-EBCDIC
SORT FIELDS (
00005,00009,CH,A,
00014,00050,CH,A,
00064,00020,CH,A)
RECORD (V, 4,4004)
USE $SORTIN ORG (SQ) RECORD (V,4,4004)
GIVE $SORTOUT ORG (SQ) RECORD (V,4,4004)
" 1>$TMP/NRB120."$nupro"
mfsort take $TMP/NRB120."$nupro"
CODE_RETOUR=$?
unset SORTIN
unset SORTOUT
rm $TMP/NRB120*."$nupro"
Input file is BORD_GEL_ZZZ_Suppr has only one line :
000000000GEL ZZZ 0 *EZO00 A0
Output Error is :
SORT013U: I/O error on dataset '/opt/hrdev/file/BORD_GEL_
SORT014U: Status = 9/139
SORT020U: SORT(EXTSM) failed - sort engine status = 9/139
What's wrong in mfsort parameters ?
Thanks for your feedback.
papfal
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.