Re: RNF7701 Write to file using output data structure

Okay... ...so I posted too soon, as usual.

My problem was I was using a logical in the F specs, but the physical file
for the data structure.

So if anybody else does this, probably not but it would at least make me not
feel so stupid, the update file and the file used for the data structure
need to match.

Regards,
James R. Perkins


On Jan 22, 2008 4:52 PM, James Perkins <jrperkinsjr@xxxxxxxxx> wrote:

Hello All,
I have a program with an update/add file. I read in data into a data
structure, use eval-corr to get the data into the output data structure for
a write. When I attempt to compile I get this error, RNF7701 "Data structure
BOX is not allowed for the operation.".

I have very similar logic working on another box, but I might just be
missing something.

Anybody else have a problem like this. Oh... ...and the box it will NOT
compile on has newer PTF's then the box it works on.

Code that does not compile:
Fmyfile uf a e k Disk
...
...
D box e DS extname(myfile : *output)
D prefix(pre_ : 2) qualified
...
//write box;
write myrec box;
...

This should be all the code that is needed, unless again I'm missing
something.

Also, this will compile if I change the box data structure to use likerec
instead of extname, but then I can't use prefix and eval-corr is no good.

The program that will compile:
Fvncmehp uf a e k Disk
D history e DS extname(vncmehp:*output)
D qualified prefix(ve:2)
...
eval-corr history = current;
timestamp = %timstamp();
history.veadate = %date(timestamp);
history.veatime = %time(timestamp);
history.veauser = syuser;
write vncmehpr history;
...


Thanks in advance,
James R. Perkins