■  独自のサブルーチンの呼び出し方


PERFORM文を使ってサブルーチンを呼び出すことができます。

EX)
JOB INPUT FILEA                                   
  PERFORM PROCRTN
  PRINT                                           
PROCRTN. PROC

  ここに処理内容

END-PROC 



BEFORE PAGE

TOP PAGE