PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTTIMCL  :  10 分後に消滅させるには                           */         
/*                                                                   */         
/*   2021/11/21  作成                                                */         
/*-------------------------------------------------------------------*/         
/*( IFS のファイル名 )*/                                                        
             DCL        VAR(&IFS_FILE) TYPE(*CHAR) LEN(512)                     
/*( 10 分後に消滅させるための変数 )*/                                           
             DCL        VAR(&DATETIME) TYPE(*CHAR) LEN(20)                      
             DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                           
             DCL        VAR(&TIME) TYPE(*CHAR) LEN(6)                           
             DCL        VAR(&HH) TYPE(*DEC) LEN(2 0)                            
             DCL        VAR(&HHC) TYPE(*CHAR) LEN(2)                            
             DCL        VAR(&MM) TYPE(*DEC) LEN(2 0)                            
             DCL        VAR(&MMC) TYPE(*CHAR) LEN(2)                            
             DCL        VAR(&SS) TYPE(*DEC) LEN(2 0)                            
             DCL        VAR(&SSC) TYPE(*CHAR) LEN(2)                            
                                                                                
/*( 環境の取得 )*/                                                              
             RTVJOBA    DATETIME(&DATETIME)                                     
                                                                                
/*( ファイル名を指定する )*/                                                    
             CHGVAR     VAR(&IFS_FILE) +                                        
                          VALUE('/AS400-NET.USR/TEMP/QTR_903779.XML')           
/*( 10 分後に一時ファイルを消す )*/                                             
             RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)                             
             RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME)                             
             CHGVAR     VAR(&HH) VALUE(%SST(&TIME 1 2))                         
             CHGVAR     VAR(&MM) VALUE(%SST(&TIME 3 2))                         
             CHGVAR     VAR(&SS) VALUE(%SST(&TIME 5 2))                         
             CHGVAR     VAR(&MM) VALUE(&MM + 10)                                
             IF         COND(&MM >= 60) THEN(DO)                                
             CHGVAR     VAR(&HH) VALUE(&HH + 1)                                 
             CHGVAR     VAR(&MM) VALUE(1)                                       
             ENDDO                                                              
             CHGVAR     VAR(&HHC) VALUE(&HH)                                    
             CHGVAR     VAR(&MMC) VALUE(&MM)                                    
             CHGVAR     VAR(&SSC) VALUE(&SS)                                    
             CHGVAR     VAR(&TIME) VALUE(&HHC *CAT &MMC *CAT &SSC)              
             SBMJOB     CMD(RMVLNK OBJLNK(&IFS_FILE)) JOB(DLTIFS) +             
                          SCDDATE(&DATE) SCDTIME(&TIME) MSGQ(*NONE)             
                                                                                
             ENDPGM