Update program Master File content---P00213C

JmLei

于 2008-10-21 10:07:00 发布

阅读量595

点赞数

CC 4.0 BY-SA版权

分类专栏： AS400/RPGLE/CL 文章标签： file insert sql output cmd c

本文链接：https://blog.youkuaiyun.com/jmlei/article/details/3115730

AS400/RPGLE/CL 专栏收录该内容

69 篇文章

订阅专栏

本文介绍了一个用于数据库记录迁移的脚本，该脚本通过创建临时文件并利用SQL语句将记录从一个临时表TMP0021302迁移到另一个临时表TMP0021301，并进一步将数据导入到目标表F00002中。涉及的主要操作包括创建物理文件、显示对象描述、调用程序以及执行SQL插入语句。

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

****P00213C****
START:      PGM
/**/
             MONMSG     MSGID(CPF0000 RPG0000)
/**/
             CHGLIBL    LIBL(PPRGDEV PDTASRC PDTAL1 PPRGSRC POBJSRC +
                          QGPL QRPG QTEMP)
/**/
             CRTPF      FILE(QTEMP/TMP0021301) +
                          SRCFILE(*LIBL/QPLFSRC) OPTION(*NOSRC +
                          *NOLIST) SIZE(*NOMAX) LVLCHK(*NO)
/**/
             DSPOBJD    OBJ(POBJSRC/*ALL) OBJTYPE(*CMD *PGM *QRYDFN) +
                          OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/TMP0021302) OUTMBR(*FIRST *ADD)
/**/
             CALL       PGM(*LIBL/P00213R)
/**/
END:        ENDPGM
****P00213R****
C*    /MAIN = Main routine.
C******************************************************************
CSR   /MAIN         BEGSR
C*
C*--- Add record from TMP0021302 into TMP0021301.
C*
C/EXEC SQL insert into TMP0021301 select ODOBNM, ODOBTX
C+ from TMP0021302
C/END-EXEC
C*--- Add record from TMP0021301 into F.
C/EXEC SQL insert into F00002 select xxPID, xxDES
C+ from TMP0021301
C/END-EXEC
C*
****TMP0021301****
A          R XXR
A*
A            XXPID         10O
A            XXDES         50O
A*
A          K XXPID