0

レコードを追加する必要があるコピーブックを使用しています..

レコードをコピーブック レコードに移動してから、コピーブックを COBOL で書き出すことはできますか? もしそうなら、これを行う方法に関する参考文献はありますか?

私はこのコード (この質問への回答に基づく) を持っていますが、正しく動作していますが、TRNREC94-OUT は必要ないと言われました。TRNREC94 コピーブックを作成するだけです。B700-MOVE-RECORDS を「WRITE REPORT-RECORD FROM TRNREC94」に置き換えてみたところ、TRNREC94 がデータ名として定義されておらず、破棄されたというエラーが表示されます。ここからどこへ行くべきかわからない..

 WORKING-STORAGE SECTION.                    

 COPY TRNREC94.                          

 01  TRNREC94-OUT.                           
     05 REC-94-TYPE-OUT           PIC X(2).  
     05 REC-94-POLICY-NUMBER-OUT  PIC X(8).  
     05 FILLER                    PIC X(5).  
     05 REC-94-PARISH-CODE-OUT    PIC X(3).  
     05 FILLER                    PIC X(1).  
     05 REC-94-TERRITORY-CODE-OUT PIC X(1).  
     05 FILLER                    PIC X(60). 

...
...

 B700-MOVE-RECORDS.                                          
     MOVE REC-94-TYPE TO REC-94-TYPE-OUT                     
     MOVE REC-94-POLICY-NUMBER TO REC-94-POLICY-NUMBER-OUT   
     MOVE REC-94-PARISH-CODE TO REC-94-PARISH-CODE-OUT       
     MOVE REC-94-TERRITORY-CODE TO REC-94-TERRITORY-CODE-OUT 
     WRITE REPORT-RECORD FROM TRNREC94-OUT.
4

1 に答える 1

0

出力レコードが (出力ファイルに必要な同じ形式で) 作業用ストレージに既にセットアップされている場合は、次のことができます。

   write Output-Record     from source-record

しかし、より可能性の高いケースは、フィールドを 1 つずつ出力レコードに移動する必要があることです。

   Move field-1               to output-field-1 
   Move field-2               to output-field-2 
          ......
   Move field-n               to output-field-n 

   Write Output-Record

ここに書き込みステートメント形式の説明があります

IBM COBOL 書き込みステートメント

于 2013-10-29T20:51:32.577 に答える