[Info-vax] tpu bug?

[Phillip Helbig---undress to reply]

In article <j0h97f$e9b$1 at online.de>, helbig at astro.multiCLOTHESvax.de
(Phillip Helbig---undress to reply) writes: 

> I have a file of size 43822 blocks extracted from VMS MAIL.  It contains 
> some JPEG files as attachments.
> 
> Normally, I extract the encoded files with an editor and decode them 
> from the command line.  EDT won't work here due to the known 65535 line 
> limitation.  So, I resorted to TPU.  I get the following message:
> 
> %TPU-E-ARGMISMATCH, parameter 1's data type, UNSPECIFIED, unsupported

When all else fails, use DCL.  :-)  Here's some quick and dirty DCL; 
modify to taste.

$  OPEN/READ INPUT 'P1'
$  I = 0
$  OPENED := FALSE
$LOOP:
$  READ/END=DONE INPUT LINE
$  IF F$EXTRACT(0,4,LINE) .EQS. "/9j/" !start of JPEG file
$  THEN
$    I = I + 1
$    OPEN/WRITE OUTPUT FOTO_'I'.B
$    OPENED := TRUE
$  ENDIF
$  IF OPENED
$  THEN
$    IF F$EXTRACT(0,8,LINE) .NES. "--------"
$    THEN
$      WRITE OUTPUT LINE
$    ELSE
$      CLOSE OUTPUT
$      OPENED := FALSE
$    ENDIF
$  ENDIF
$  IF .NOT. OPENED THEN WRITE SYS$OUTPUT LINE
$  GOTO LOOP
$DONE:
$  CLOSE INPUT
$  DIR/SIZE/SINCE=TODAY FOTO_*.B
$  EXIT