Update File/Program Access Mode file---H00031C

最新推荐文章于 2023-08-18 19:09:27 发布

原创最新推荐文章于 2023-08-18 19:09:27 发布 · 635 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access #delete #file #insert #sql #output

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

69 篇文章

订阅专栏

本文介绍了一个用于更新和清理数据库记录的脚本。该脚本通过执行SQL语句来添加特定类型的记录，并删除不必要的记录。主要关注于F00028文件，通过条件判断插入新的记录并进行数据清理。

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

****H00031C****
START:      PGM
/**/
             MONMSG     MSGID(CPF0000 RPG0000)
/**/
             CHGLIBL    LIBL(PPRGDEV PDTASRC PDTAL1 PPRGSRC POBJSRC +
                          QGPL QRPG QTEMP)
/**/
             DSPPGMREF PGM(POBJSRC/*ALL) OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/TMH0003101) OUTMBR(*FIRST *ADD)
/**/
             CLRPFM     FILE(*LIBL/F00028)
/**/
             CALL       PGM(*LIBL/H00031R)
/**/
END:        ENDPGM
****H00031R****
C*    /MAIN = Main process.
C*******************************************************************
CSR   /MAIN         BEGSR
C*
C*--- Add records into F00028.
C*
C/EXEC SQL insert into F00028 select distinct substr(WHFNAM,1,10),
C+ WHPNAM, 'U' from TMH0003101 where WHOTYP = '*FILE' and
C+ WHFUSG between 4 and 7
C/END-EXEC
C*
C/EXEC SQL insert into F00028 select distinct substr(WHFNAM,1,10),
C+ WHPNAM, 'O' from TMH0003101 where WHOTYP = '*FILE' and
C+ WHFUSG between 2 and 3 and substr(WHFNAM,1,10)||WHPNAM
C+ not in (select F00028FID||F00028PID from F00028)
C/END-EXEC
C*
C/EXEC SQL insert into F00028 select distinct substr(WHFNAM,1,10),
C+ WHPNAM, 'I' from TMH0003101 where WHOTYP = '*FILE' and
C+ WHFUSG = 1 and substr(WHFNAM,1,10)||WHPNAM not in
C+ (select F00028FID||F00028PID from F00028)
C/END-EXEC
C*
C*--- Delete unnecessary records in F00028.
C*
C/EXEC SQL delete from F00028 where F00028FID = ' '
C/END-EXEC
C*
C/EXEC SQL delete from F00028 where F00028FID like '*%'
C/END-EXEC
C*
C/EXEC SQL delete from F00028 where F00028FID like '&%'
C/END-EXEC
C*
CSR                 ENDSR
****F00028****
A                                      UNIQUE
A*
A          R F00028R                   TEXT('File Master File')
A*
A            F00028FID     10O         COLHDG(' ' 'File' 'Name')
A            F00028PID     10O         COLHDG(' ' 'Program' 'ID')
A            F00028_MOD     1A         COLHDG(' ' 'Access' 'Mode')
A*
A          K F00028FID
A          K F00028PID