🚀 go-pugleaf

I originally posted this to comp.lang.fortran and someone suggested that
memebers of this list might be able to help.

I am trying to run a large program on an antiquated IBM mainframe
using VS Fortran 1.4.1 (May 1985) for IBM OS390 V1.R3.0, which are numbers
that mean absolutely nothing to me. On every direct access file I use in the
program I get a message like:

0IFY151I VDIOS : 4950 RECORDS OF LENGTH 222 FORMATTED ON FILE APPDATA.
0IFY151I VDIOS : 4050 RECORDS OF LENGTH 404 FORMATTED ON FILE OSRNPTS.
0IFY151I VDIOS : 4575 RECORDS OF LENGTH 270 FORMATTED ON FILE DESRPTS.
0IFY151I VDIOS : 5400 RECORDS OF LENGTH 148 FORMATTED ON FILE OSRINEI.
0IFY151I VDIOS : 1050 RECORDS OF LENGTH 3207 FORMATTED ON FILE DESCREI.

I inferred that this meant I was writing 4950 records to APPDATA but I
wasn't. In fact I get those same messages regardless of whether I write one
record to APPDATA or 200 or 2000. It still says that it formatted 4950
records to APPDATA. I have not yet tried a case with more than 4950 writes
to APPDATA due to dificulties in getting large data sets loaded to this
remote machine (don't ask unless you want a good laugh). When we looked at
what was in APPDATA, we saw the binary data from the records I wrote and
"low values" (unprintable characters?) in the other records that I did not
write.

I thought this might have something to do with the block size on the JCL (DD
cards - wasn't that an experience I'd like to share) but regardless of what
we put there we got the same exact messages.  All direct access files were
declared FB (fixed block) - could that be wrong? Here is  the JCL
for APPDATA:

//APPDATA  DD  DSN=&IAC.AG.APPDATA,DISP=(NEW,PASS),UNIT=&UNIT,
//             DCB=(RECFM=FB,LRECL=222,BLKSIZE=4440),
//             SPACE=(CYL,(5,5),RLSE)


I have proven that this is not my program gone amok (write statements in
program every time I write a record to APPDATA for instance) an am sure that
this is something the compiler is doing for direct access records. I am
worried that this might be taking unnecessary time but am also curious as to
what these messages mean. We do not have access to any mauals and the people
at IBM won't help me without a customer number and nobody at the site knows
that. Sheesh.

Any help and insights would be appreciated.

--
Meyer Kotkin <kotkin@arl.mil>
USAMSAA Inventory Research Office
800 U.S. Custom House
Phila. PA 19106 (215)597-8377  DSN:444-3808 FAX:(215)597-2240