[daip] tiny bug in TACOP

[Amy Mioduszewski]

Thanks, I'll take care of that.

Amy

Olaf Wucknitz wrote:
> Hello,
> 
> there may be a small bug in TACOP.FOR when it comes to printing error 
> messages for already existing output tables.
> 
> Here is the relevant code:
> 
>          IF (TABLE) THEN
>             CALL TABCOP (TABTYP, IVER, OVER, LUN1, LUN2, DISKIN, DISKO,
>      *         OLDCNO, NEWCNO, CATBLK, BUFF1, BUFF2, IRET)
>          ELSE
>             CALL FILCOP (TABTYP, IVER, OVER, LUN1, LUN2, DISKIN, DISKO,
>      *         OLDCNO, NEWCNO, CATBLK, BUFF1, BUFF2, IRET)
>             END IF
>          IF (IRET.NE.0) THEN
>             IF (IRET.EQ.1) THEN
>                MSGTXT = 'INPUT AND OUTPUT EXTSION FILES ARE THE SAME.'
>                GO TO 990
>             ELSE IF (IRET.EQ.6) THEN
>                WRITE (MSGTXT,1085) TABTYP, IVER
>                GO TO 990
>             ELSE
>                WRITE (MSGTXT,1086) IRET, TABTYP, IVER
>                GO TO 990
>                END IF
>             END IF
> 
> and further downwards:
> 
> 1085 FORMAT ('OUTPUT EXTENSION FILE ALREADY EXISTS: ',A2,I5)
> 
> 
> Now IVER obviously refers to the input table and not the output table.
> Therefore the following line should be changed:
> 
> old:
>                WRITE (MSGTXT,1085) TABTYP, IVER
> new:
>                WRITE (MSGTXT,1085) TABTYP, OVER
> 
> 
> It is only a minor issue, but it confused me a bit when TACOP complained 
> about existing output table CL3 which was not really there and which I did 
> not want to create either.
> 
> 
> 
> Cheers,
> Olaf
> 
> _______________________________________________
> Daip mailing list
> Daip at listmgr.cv.nrao.edu
> http://listmgr.cv.nrao.edu/mailman/listinfo/daip
>