COBOLの配列の中身をソート、昇順

Question

COBOLでキーボードから10件分の整数を入力し配列に格納。
格納した配列の値を昇順になるように格納し、内容を表示するプログラムを組みたいです。

コードはこちらですがうまく入れ替わってくれません。どこが良くないでしょうか？

WORKING-STORAGE                 SECTION.
000290*
000300 01   WK-TBL.
            05    in-number            pic 9(2) occurs 10.
       
       01   soeji                      pic 9(2).
       01   soeji2                     pic 9(2).
       01   taihi                      pic 9(2).
       
000340******************************************************************
000350*  手続き部
000360******************************************************************
000370 PROCEDURE                       DIVISION.
000430*
000560 HAIRETU-KAKUNOU                         section.
       
       SYOKIKA.
            MOVE 1 TO soeji.
           
            
       NYUURYOKU.
            PERFORM UNTIL soeji > 10
                display "数値を入力してください"
               
                accept in-number(soeji)
               
                compute soeji = soeji + 1
            end-perform.
            
            
       SORTSYORI.
            move 1 to soeji.
            move 2 to soeji2.
            perform until soeji > 10
                perform until soeji2 > 10
                    if in-number(soeji) > in-number(soeji2)
                        move in-number(soeji) to taihi
                        move in-number(soeji2) to in-number(soeji)
                        move taihi to in-number(soeji2)
                    end-if
                    compute soeji2 = soeji2 + 1
                end-perform
                compute soeji = soeji + 1
            end-perform.
                
       SYUTURYOKU.
            move 1 to soeji.
            perform until soeji > 10
                display in-number(soeji)
                
                compute soeji = soeji + 1
            end-perform.
            
            stop run.

よろしくお願い致します。

Answer 1

質問に、お使いのCOBOLの正式名やバージョンは明記されている方が適切なコメントが付き易いです。

PERFORM ... VARYING ... AFTER ... が使えるともっとシンプルにコードを書けます。古いものでは使えない処理系もあるけど。
PERFORM はセクション名かパラグラフ名を指定して、外のセクション名かパラグラフ名を呼び出す形で記述しないといけない処理系のあったかと。

配列を昇順に並べるのですから、

               if in-number(soeji) > in-number(soeji2)

だと降順になるのでは？

他のメンバーから年寄りだと思われないのように、ローマ字表はヘボン式を使われては？それで損をする人が多いです。