%BEGIN
!
!    PROGRAM TO TEST THE PRODUCTION OF THE STATISTICS FILE BY LIBRIP
!
%EXTERNALROUTINESPEC READDA (%INTEGER CHANNEL,%INTEGERNAME SECT,    %C
                             %NAME BEGIN,END)
%EXTERNALROUTINESPEC OPENDA (%INTEGER CHANNEL)
%EXTERNALROUTINESPEC CLOSEDA(%INTEGER CHANNEL)
!
%INTEGERARRAY NUMBER(1:200)
!??; %HALFINTEGERARRAY NUMTOT(1:200)
%INTEGERARRAY CMDETS(1:3)
!
%INTEGER BLOCK
%INTEGER I
%INTEGER J
%INTEGER MAX
%INTEGER N1
%INTEGER N2
%INTEGER UNIT
!
     UNIT=10
     OPENDA(UNIT)
     BLOCK=1                           ;! READ FIRST BLOCK
     READDA(UNIT,BLOCK,CMDETS(1),CMDETS(3))
!
     NEWPAGE
     PRINTSTRING('STATISTICS FILE DETAILS')
     NEWLINES(2)
     PRINTSTRING('WEEKNO =')
     WRITE(CMDETS(1),4)
     NEWLINE
     PRINTSTRING('CURRENT VALUE OF ITEM REFERENCE NUMBER =')
     WRITE(CMDETS(2),4)
     NEWLINE
     PRINTSTRING('NUMBER OF DIFFERENT JOURNAL PROCESSED =')
     WRITE(CMDETS(3),3)
!
     MAX=CMDETS(3)
     BLOCK=BLOCK+1                     ;! READ NEXT BLOCK
     READDA(UNIT,BLOCK,NUMBER(1),NUMBER(MAX))
     BLOCK=BLOCK+1                     ;! READ NEXT BLOCK
     READDA(UNIT,BLOCK,NUMTOT(1),NUMTOT(MAX))
     NEWLINES(2)
     PRINTSTRING('CURRENT WEEKS SDI RECORD STATISTICS')
     NEWLINE
     PRINTSTRING('    NUMBER    TOTAL')
     %CYCLE I=1,1,MAX
     NEWLINE
     SPACES(4)
     N1=NUMBER(I)
     %CYCLE J=0,1,5
     N2=N1//INT(10**(5-J));      !?? INT INSERTED
     PRINT SYMBOL(N2!X'30')
     N1=N1-N2*INT(10**(5-J));      !?? INT INSERTED
     %REPEAT
     WRITE(NUMTOT(I),6)
     %REPEAT
     NEWLINES(2)
     PRINTSTRING('END OF STATISTICS')
!
     CLOSEDA(UNIT)
     %STOP
%ENDOFPROGRAM