!FILE OUTPUT=COMMQRY,NEW;SAVE;DEV=DISC;&
      !REC=-59,255,F,ASCII;DISC=250000,8,1;CCTL
      !RUN COMMQRY.LOAD
      !FILE COMMQRY;DEV=LZ3,1;ENV=B1SL.HPENV.SYS
      !FCOPY FROM=COMMQRY;TO=*COMMQRY;CCTL

>A few comments, posted publicly so that someone can correct my information:
>
>Your file equation and the TO=* do not match.

Leonard is correct, I made a typo while trying to make it more readable.  In
the job all names are COMMQRY, and it gets a little hard to read.


>I assume the -59 is based on a report length of 58 plus one byte for the
>carriage control.

Correct

>My understanding is that the blocking factor (,255) is ignored on MPE/iX
>and is useful only if the file will be copied to a Classic machine
>
>I also understand that extents specification (,8,1) is mostly ignored on
>MPE/iX. Only 32,32 will have any effect, and then not literally so. MPE/iX
>interprets this as "fully allocate the file, but not necessarily with 32
>exentents.

The job is very old, about 20 years since it was first written, so finding
classic notation does not surprise me.

>On your FCOPY statement, since the TO device is spooled, CCTL is the
>default. You may want it for documentation

>There is one other issue to consider (not in your case, I believe). COBOL
>output will normally put a pre-space command in the disk file. (Perhaps
>that will be overidden if the code has BEFORE ADVANCING.) QUIZ will not.
>Where I formerly worked, in order to have the first heading line appear at
>the top of the page and not at the bottom of the preceding page, we had to
>create the disk file with 'C' and 'A' in the first two records and then
>append the report to that file. It's been a while, and I forget which of
>these characters represents prespacing. I found it by reading COBOL and
>QUIZ spoolfiles with FCOPY. Later, I found confirmation of this in an
>article in the first Robelle SMUG book.

This program is written COBOL, but we also do what you mention above.

===================
Leonard S. Berkowitz
Perot Health Care Systems
(Harvard Pilgrim Health Care account)
voice: 617-509-1212
fax:   617-509-3737
pager: 781-226-2431

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *