■  初期処理の方法


初期処理をするにはJOBステートメントにスタートプロシージャを指定すると便利です。

EX)
                   これ
                    ↓
JOB INPUT INFILE  START GETCARD
    WKCNT = WKCNT + 1
    PRINT
GETCARD. PROC
    GET  CNTRL       ←例えばコントロールカードを一回だけ読む場合
END-PROC                                                                                                                
          ;
          ;

 



BEFORE PAGE

TOP PAGE