PGM                                                                                    
                                                                                                    
                                                                                                   
             CRTRPGMOD  MODULE(DURATNRM00) SRCFILE(QDURATION) +                                     
                          DBGVIEW(*SOURCE)                                                          
                                                                                                    
             DLTOBJ     OBJ(DURATNSV00) OBJTYPE(*SRVPGM)                                            
             MONMSG     MSGID(CPF0000)                                                              
                                                                                                    
             CRTSRVPGM  SRVPGM(DURATNSV00) MODULE(DURATNRM00) +                                     
                          EXPORT(*ALL) BNDDIR(DURATION)                                             
                                                                                                    
             DLTOBJ     OBJ(DURATNRM00) OBJTYPE(*MODULE)                                            
                                                                                                    
             CRTBNDRPG  PGM(DURATNRG00) SRCFILE(QDURATION) +                                        
                          DBGVIEW(*SOURCE)                                                          
                                                                                                    
             ADDBNDDIRE BNDDIR(DURATION) OBJ((DURATNSV00))                                          
                                                                                                    
ENDJOB:     ENDPGM