$ set verify
$ if f$search("rawpmt.cob") .nes. "" then delete rawpmt.cob.*
$ libr/extr=(PRAW01,PRAW02,PRAW03,PRAW04,PRAW05,PRAW06,PRAW07,PRAW08)/outp=rawpmt.cob rlib.olb
$ libr/extr=(PRAW09,PRAW10,RAWPMT)/outp=t.o rlib.olb
$ appe t.o rawpmt.cob
$ delete t.o.*