! Constant Filename %CONSTANT %STRING (20) update = "ECTU74.upusers" %recordformat rf(%integer conad,filetype,datastart,dataend) %systemroutinespec connect(%string(31) filename,%integer access,maxbytes,prot, %record(rf) %name r,%integername flag) %systemroutinespec disconnect(%string(31) filename,%integername flag) ! Start of routine llr to list all users who have used renew %externalroutine llr(%string(255) nowt) %byteintegerarrayformat raformat(0:50) %byteintegerarrayname contents %integer i,j,flag,startaddr %record(rf) r connect(update,10,0,0,r,flag) { Connect up relevant file} startaddr=r_conad+r_datastart %for i=0,1,49 %cycle contents==array(startaddr+i*51,RAFORMAT) %exitif contents(0)='_' %for j=0,1,49 %cycle %exitif contents(j)='_' printsymbol(contents(j)) { Print out the contents of the array} %repeat newline %repeat printstring("File Listed") newline disconnect(update,flag) %end %externalroutine clearusers(%string(255) nowt) %record(rf) r %byteintegerarrayformat RAFORMAT(0:50) %byteintegerarrayname contents %integer i,j,flag,startaddr connect(update,10,0,0,r,flag) startaddr=r_conad+r_datastart %for i=0,1,49 %cycle contents==array(startaddr+i*51,RAFORMAT) %exitif contents(0)='_' %for j=0,1,49 %cycle %exitif contents(j)='_' contents(j)='_' { wipe over the contents of the array} %repeat %repeat disconnect(update,flag) %end %endoffile