COBOL初心者です。商品名をテーブルに作成し、プログラムソートで並び替えで価格の高いものベスト１０を画面表示するプログラムを作ってみますた。コンパイラがないのでこれでいいのかわからないっす。何か問題あるでしょうか？↓

IDENTIFICATION DIVISION.
PROGRAM-ID. TBL030.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 I PIC 9(02).
01 J PIC 9(02).
01 K PIC 9(45).
01 TBL-CNST.
03 PIC X(45) VALUE "ボストンクラブ芳醇（６４０ｍｌ）　　　　 960".
03 PIC X(45) VALUE "ボストンクラブ淡麗（６４０ｍｌ）　　　　 910".
03 PIC X(45) VALUE "エバモア（７００ｍｌ）　　　　　　　　　10000".
03 PIC X(45) VALUE "ロバートブラウンSPB．（７００ｍｌ）　　 1510".
03 PIC X(45) VALUE "ロバートブラウン原酒（７５０ｍｌ）　　　 1880".
03 PIC X(45) VALUE "TEN（７２０ｍｌ）　　　　　　　　　　　 4400".
03 PIC X(45) VALUE "クレセント（７２０ｍｌ）　　　　　　　　 3130".
03 PIC X(45) VALUE "クレセント・スリム（６６０ｍｌ）　　　　 2640".
03 PIC X(45) VALUE "エンブレム（７００ｍｌ）　　　　　　　　 1950".
03 PIC X(45) VALUE "NEWS（５００ｍｌ）　　　　　　　　　　　 870".