(5) GET,SR=RCPWAVE/UN=CER0Q2, 



(6) GET,UPDFL=RCPUPDT, 



(7) GET,TAPE7=RCPDATA. 



(8) GET,TAPE8=RCPDEPT. 



(9) UPDATE(I=SR,N=NEWLIB,F,L=0) 



(10) UPDATE(P=NEWLIB,I=UPDFL, 



C=NEWPLUS,L=0,F) 



(11) FTN5 , I =NEWPLUS , B=BIN , L=0UTPUT . 



(12) LOAD, BIN. 



(13) EXECUTE. 



(14) REWIND, TAPE6, OUTPUT. 



(15) REPLACE, TAPE6=RCPPRNT. 



(16) REPLACE, OUTPUT=RCPOTPT. 



(17) COST. 



The following statements instruct the 



computer to: 



Get the permanent file RCPWAVE from 

 user number CER0Q2 file space and give 

 it the local file name SR for this batch 

 job. 



Get the permanent file RCPUPDT and 

 give it the local file name UPDFL for 

 this batch job. 



Get the permanent file RCPDATA and 

 give it the local file name TAPE7 for 

 this batch job. 



Get the permanent file RCPDEPT and 

 give it the local file name TAPE8 for 

 this batch job. 



Take the local file SR and create a full 

 (F), new program library NEWLIB from it, 

 but do not list (L=0) the file NEWLIB . 



Take the program library NEWLIB and add 

 to it the update information contained 

 in file UPDFL . Do not list the full 

 combined program library called NEWPLUS . 



Compile the file NEWPLUS . Save the 

 relocatable binary code in a local file 

 BIN and the compiled listing in a local 

 file OUTPUT . 



Load the local file BIN . 



Run the program BIN . 



Rewind the local files TAPE6 and OUTPUT 

 which generated during compilation and 

 execution of the program. 



Take the information from local file 

 TAPE6 and save it in the permanent file 

 RCPPRNT . If a permanent file RCPPRNT 

 already exists, it will be replaced with 

 this new information. 



Take the information from local file 

 OUTPUT and save it in the permanent file 

 RCPOTPT . If a permanent file RCPOTPT 

 already exists, it will be replaced with 

 this new information. 



The following statements instruct the 

 computer to: 



Estimate the cost of this batch job. 

 This cost excludes the CDC discount to 

 US Army Corps of Engineers users. 



D3 



