PGM                                                                
             DCL        VAR(&DUMY) TYPE(*CHAR) LEN(1)                           
             DCLF       FILE(QUSRSYS/QATOCIFC) ALWGRAPHIC(*YES) +               
                          DCLBINFLD(*INT)                                       
                                                                                
 READ:       RCVF       RCDFMT(QIFC)                                            
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(REDEND))                
             IF         COND((&LIND *NE '          ') *AND +                    
                          (%SST(&LIND 1 1) *NE '*')) THEN(DO)                   
             SNDPGMMSG  MSG('IPADR=' *CAT &INTERNET) MSGTYPE(*DIAG)             
             ENDDO                                                              
             GOTO       READ                                                    
 REDEND:                                                                        
             ENDPGM