peoplesoft - sqr ロジックの理解の支援

Question

こんにちは。PeopleSoft 内で sqr プログラムを開発する方法を学ぶのは初めてです。私たちが利用しているいくつかのプログラムを調べてきましたが、このWhileループで以下のコードスニペットが何をしているのかを誰かが明確にするのを手伝ってくれるかどうかを知りたいと思っていました.

 if $path != ''
   let $Archive_File = $path || 'ARCHIVE\' || $filename || $Curr_Date || '.dat'
   open $Out_File  as 1  for-reading record=450:vary status=#fileread
   open $Archive_File as 2  for-writing record=450:vary status=#filewrite
   While 1
     if #END-FILE
        break
     else
        read 1 into $Current_Line:999
        write 2 from $Current_Line
    end-if    
 End-While
 close 1
 close 2
end-if

WHILE ステートメントが "$Out_File as 1" を論理式として評価しているか、変数 #END-FILE の値として 1 を評価しているかを理解しようとしています (私が理解しているように、この変数は 0 に設定されていますまたは 1)。