2013-10-29 65 views
0

我正在使用需要添加記錄的抄寫本。寫一個Cobol copybook?

是否可以將記錄移動到抄寫本記錄然後在COBOL中寫出抄寫本? 如果是這樣,有關如何做到這一點的任何參考?

我有這個代碼(基於這個問題的答案),這是正常工作,但我被告知我不需要TRNREC94-OUT,我可以只寫TRNREC94副本。當我嘗試用「從TRNREC94寫入報告 - 記錄」替換B700-MOVE-RECORDS。我收到一個錯誤消息,說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.     
+0

您需要向人們展示您所嘗試過的東西,如果您不打算投票並被要求閱讀需求手冊。 –

+0

您需要參考本抄本TRNREC94的內容。關於字帖沒有什麼魔力。這可能是一個01記錄描述。 –

+0

謝謝@GilbertLeBlanc,就是這樣。 – Meg

回答

0

如果輸出記錄已經在工作存儲(在輸出文件要求的格式相同)settup,你可以做

write Output-Record  from source-record 

但更可能的情況是,你將有一個移動領域之一輸出記錄:

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 Write Statement