請教問題

js-liao

有一支程序寫法如下:
0007 FDKENS8LFIP  E           K        DISK
0010 FDKANS8LFIS  E           K        DISK
0011 FDGAICUF O   E                    DISK
     IDKENREC     01
     IDKANREC     02
     C**
     C*
     C           *IN01     IFEQ '1'
     C                     MOVE DEDLT     DGDLT
     C                     MOVE DEDEN     DGDEN
     C                     MOVE DEGYO     DGGYO
     C                     MOVE DEHNC     DGHNC
     C                     MOVE DESNC     DGSNC
     C                     MOVE DEHNM     DGHNM
     C                     MOVE DESNP     DGSNP
     C                     MOVE DESIJ     DGSIJ
     C                     MOVE DEKNB     DGKNB
     C                     MOVE DETNT     DGTNT
     C                     MOVE '1'       DGRFM
     C                     Z-ADDDEKED     DGDAY
     C                     Z-ADDDEKNS     DGNSU
     C                     Z-ADDUDATE     DGINP
     C                     WRITEDGAIREC
     C                     END
     C           *IN02     IFEQ '1'
     C                     MOVE DADLT     DGDLT
     C                     MOVE DADEN     DGDEN
     C                     MOVE DAGYO     DGGYO
     C                     MOVE DAHNC     DGHNC
     C                     MOVE DASNC     DGSNC
     C                     MOVE DAHNM     DGHNM
     C                     MOVE DASNP     DGSNP
     C                     MOVE DASIJ     DGSIJ
     C                     MOVE DAKNB     DGKNB
     C                     MOVE DATNT     DGTNT
     C                     MOVE DATEN     DGTEN
     C                     MOVE '2'       DGRFM
     C                     Z-ADDDADAY     DGDAY
     C                     Z-ADDDANSU     DGHSU
     C                     Z-ADDUDATE     DGINP
     C                     WRITEDGAIREC
     C                     END


其中 三個PF的結構完全相同。
請問這支程序的目的是什麼？

NINERI

应该是复制的作用
F1时将第一个PF写入第三个PF
F2时将第二个PF写入第三个PF

lizi211314

恩 完全是备份数据用的

还有就是你第三个表没有键字呗 可以随便重复写吗

js-liao

谢谢两位.我另外新建了个程序.测试了一下.

就是把前面两个PF的内容全部写入第三个表中.