Update file Master File content---H00030C

本文介绍了一个使用RPG编程语言实现的程序，该程序负责将特定的数据从一个临时文件中读取并插入到名为F00027的文件中。通过调用H00030C和H00030R两个程序模块，实现了数据的迁移功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

****H00030C****
START:      PGM
/**/
             MONMSG     MSGID(CPF0000 RPG0000)
/**/
             CHGLIBL    LIBL(PPRGDEV PDTASRC PDTAL1 PPRGSRC POBJSRC +
                          QGPL QRPG QTEMP)
/**/
             DSPFD      FILE(PDTASRC/*ALL) TYPE(*BASATR) +
                          OUTPUT(*OUTFILE) FILEATR(*LF *PF) +
                          OUTFILE(QTEMP/TMP0003001) OUTMBR(*FIRST +
                          *REPLACE)
/**/
             CLRPFM     FILE(*LIBL/F00027)
/**/
             CALL       PGM(*LIBL/H00030R)
/**/
END:        ENDPGM

****H00030R****
C*    /MAIN = Main process.
C*************************************************************
CSR   /MAIN         BEGSR
C*
C*--- Add records into F00027.
C*
C/EXEC SQL insert into F00027 select ATFILE, ATFATR, ATTXT
C+ from TMP0003001
C/END-EXEC
C*
CSR                 ENDSR

****F00027****
A                                      UNIQUE
A********************************************************************
A          R F00027R                   TEXT('File Master File')
A********************************************************************
A            F00027FID     10O         COLHDG(' ' 'File' 'Name')
A                                      DFT(' ')
A            F00027_TYP    10O         COLHDG(' ' 'File' 'Type')
A                                      DFT(' ')
A            F00027_DES    50O         COLHDG(' ' ' ' 'Description')
A                                      DFT(' ')
A********************************************************************
A          K F00027FID