Colorful Life²⁰¹⁰

设计思路：

1、使用FNDSTRPDM进行查找，查找结果PRINT到SPOOL FILE里

2、将SPOOL FILE拷到PF-DTA内

3、使用SQL语句更新PF-DTA得到结果

下面是代码：

PGM        PARM(&KSTR &SFILE &SLIB)                    
                                                       
DCL        VAR(&KSTR     )  TYPE(*CHAR)  LEN(20)       
DCL        VAR(&SFILE    )  TYPE(*CHAR)  LEN(10)       
DCL        VAR(&SLIB     )  TYPE(*CHAR)  LEN(10)       
DCL        VAR(&JOBNAM   )  TYPE(*CHAR)  LEN(10)       
DCL        VAR(&JOBNBR   )  TYPE(*CHAR)  LEN(06)       
DCL        VAR(&JOBUSR   )  TYPE(*CHAR)  LEN(10)       
                                                       
RTVJOBA    JOB(&JOBNAM) USER(&JOBUSR) NBR(&JOBNBR)     
                                                       
/* 検索して、結果をスプールファイルに出力 */             
FNDSTRPDM  STRING(&KSTR) FILE(&SLIB/&SFILE) MBR(*ALL) +
             OPTION(*NONE) PRTMBRLIST(*YES) PRTRCDS(*ALL)
CHKOBJ     OBJ(QTEMP/FNDSTRPF)  OBJTYPE(*FILE)           
MONMSG     MSGID(CPF9801)  EXEC(DO)                      
CRTPF      FILE(QTEMP/FNDSTRPF) RCDLEN(120) IGCDTA(*YES) 
ENDDO                                                    
CLRPFM     FILE(QTEMP/FNDSTRPF)                          
/* スプールファイルをコピー */                             
CPYSPLF    FILE(QPUOPRTF) TOFILE(QTEMP/FNDSTRPF) +       
             JOB(&JOBNBR/&JOBUSR/&JOBNAM) SPLNBR(*LAST)  
/* 結果を修正 */                                         
RUNSQLSTM  SRCFILE(SCLIBS/QSQLSRC) SRCMBR(UPDFNDSTR) +   
             COMMIT(*NONE)                               
                                                         
/* ENDING */                                             
ENDPGM                                                   

还可以做成COMMAND：

CMD        PROMPT(' ストリングの検索リスト ')           
PARM       KWD(KEYSTR) TYPE(*CHAR) LEN(20) REL(*NE '') +
             MIN(1) PROMPT(' キーワード ')              
PARM       KWD(SRCFIL)  TYPE(*CHAR) LEN(10) MIN(1) +    
             PROMPT(' ソースファイル ')                 
PARM       KWD(SRCLIB)  TYPE(*CHAR) LEN(10) MIN(1) +    
             PROMPT('      ソースライブラリ ')          
QUAL       TYPE(*NAME)                                  

 继续可以做成快捷命令：

FNDSTRLST KEYSTR(  ) SRCFIL(&N) SRCLIB(&L)