Code:
# SORT1
SORT1_rcode=777
if [ $GLB_code -eq 0 ]; then
echo "USE $DARSEQ/OTPU.FTPEPREC RECORD F,1000 " > $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "GIVE $DARTMP/__TPO501$$ RECORD F,1000 " >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "SORT FIELDS=(1,5,A,52,4,A),FORMAT=BI" >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "SUM FIELDS=(306,8,PD,314,8,PD,322,8,PD,330,8,PD,338,8,PD,346,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "354,8,PD,362,8,PD,370,8,PD,378,8,PD,386,8,PD,394,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "402,8,PD,410,8,PD,418,8,PD,426,8,PD,434,8,PD,442,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "450,8,PD,458,8,PD,466,8,PD,474,8,PD,482,8,PD,490,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "498,8,PD,506,8,PD,514,8,PD,522,8,PD,530,8,PD,538,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "546,8,PD,554,8,PD,562,8,PD,570,8,PD,578,8,PD,586,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "594,8,PD,602,8,PD,610,8,PD,618,8,PD,626,8,PD,634,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "642,8,PD,650,8,PD,658,8,PD,666,8,PD,674,8,PD,682,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "690,8,PD,698,8,PD,706,8,PD,714,8,PD,722,8,PD,730,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "738,8,PD,746,8,PD,754,8,PD,762,8,PD,770,8,PD,778,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "786,8,PD,794,8,PD,802,8,PD,810,8,PD,818,8,PD,826,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "834,8,PD,842,8,PD,850,8,PD,858,8,PD,866,8,PD,874,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "882,8,PD,890,8,PD,898,8,PD,906,8,PD,914,8,PD,922,8,PD," >> $DARPARSRT/TPEKL508.SORT1_$$.srt
echo "930,8,PD,938,8,PD,946,8,PD,954,8,PD,962,8,PD,970,8,PD)" >> $DARPARSRT/TPEKL508.SORT1_$$.srt
mfsort take $DARPARSRT/TPEKL508.SORT1_$$.srt
SORT1_rcode=$?
echo SORT1_rcode=$SORT1_rcode
if [ $SORT1_rcode -gt $GLB_code ]; then
GLB_code=$SORT1_rcode
fi
cat SYSOUT
rm $DARPARSRT/TPEKL508.SORT1_$$.srt
fi