- 177 名前:デフォルトの名無しさん [2007/04/24(火) 22:51:02 ]
- 先週研修はじめましたが、詰まっています。
入力ファイルの SHOHIN-CODE PIC X(1) の中身が1かつ2なら正常でそのまま出力ファイルの同項目に書き込み、それ以外なら、 ERR-KBN PIC X(1) (注:OCCURS 5 TIMES になっている)のエラー区分(1)に1を入力するという 処理なのですが、IF SHOHIN-CODE = 1 OR 2 THEN CONTINUE ELSE MOVE 1 TO ERR-KBN(1) END-IF. でいいのでしょうか?
|

|