Juan,

How about using an intermediate file to capture just the first 100 lines and
FTPing it instead of the original.

    setvar recsize;finfo("!origfile",14)
    build INTFILE;disc=100;rec=!recsize
    file outfile=INTFILE,old;acc=append
    print !origfile;end=100 >>*outfile

This way you only send the first (up to) 100 lines.

Rs~

Russ Smith, Systems Consultant
Problem Solved, Vacaville, CA
r s m i t h @ c u - h e l p . c o m
h p 3 k - l @ e - 3 0 0 0 . n e t
----- Original Message -----
From: "Juan Pineiro" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, December 05, 2000 8:32 AM
Subject: [HP3000-L] MPE/MPEX Scripting questions


Greetings HP3000 List server group:

I was wondering if any of you have come across either of the two following
issues on  your HP3000 journeys and might have a resolution you'd like to
share:

1. We've developed a series of version control scripts between our
production hp3000 and our development hp3000.   The core of the scripts is
FTP.  One of the options we were hoping to add was a feature that would
allow it's user to download the first 100 records of a file.  Apparently the
;DISC= build parm of FTP GET or the ;DISC=;SAVE for that matter only causes
the FTP to abort when EOF is reached leaving us with a 0 record file?
Anybody know a way around this.  Only care for an FTP solution and would
rather not mess around Build since FTP (very intelligently) retains file
properties from 3000 to 3000.

2. We've developed a front end for Suprtool that collects and logs all
commands entered - I know this sounds extreme - but any ways. One of things
we were also hoping to do was force online screen query outputs to a
temporary file which would then be displayed back to the user.  Suprtool
queries to screen display the field names and in two columns.  Attempts to
redisplay a piped ">out" version of that file results in very messy
mis-aligned file. Any CCTL or MPEX PRINT;FORMAT secret we can use to correct
this?

Thank you in advance for any information you may have on these topics.

Jc Pineiro
Avmed Health Plan
Miami Florida
305-671-4920