Has anybody used -WRITE to update (APPEND to an AS400 flat file? Is there something special I need to do?

Did you put the (APPEND on the filedef?

My code

 
FILEDEF FOCAUDIT DISK RS6000/FOCAUDIT ( APPEND
-RUN
-* -SET &ECHO=ALL;
-SET &AUDIT_TIME = EDIT('&TOD.EVAL','99$99$99');
-SET &AUDIT_DATE = '&YYMD.EVAL'|'&AUDIT_TIME.EVAL';
-DEFAULT &AUDIT_USER='ouruser';
-SET &AUDIT_USER = GETUSER('A8');
-* -SET &AUDIT_FEX  = '&FEX.EVAL';
-SET &AUDIT_SRVR='400SRV';
-RUN

-WRITE FOCAUDIT  &AUDIT_DATE  &AUDIT_FEX  &AUDIT_USER  &AUDIT_SRVR
-RUN

 

This message has been edited. Last edited by: PBrightwell,

Hi Pat,

Ginny is not on, so, I hope she doesn't mind...

Your dataset name should have a suffix, and, you'll need write access on it:

FILEDEF FOCAUDIT DISK RS6000/FOCAUDIT.dat or .ftm or .txt (APPEND

Tom

Not sure about the AS400. But on an AIX box, I've found that a -RUN closes and reopens the output file... thus overlaying what was previously there. Is that what you are experiencing?

-Diptesh Patel

This looks like MRE, so, you may need:

APP FI FOCAUDIT DISK RS6000/FOCAUDIT.dat or .ftm or .txt (APPEND

Tom,

The file extention doesn't apply on AS400, that's a pc/unix thing- none of our AS400 files has an extention.

Diptesh,

This same fex works on the AIX (UNIX with the UNIX path of course). Without the -RUN after the FILEDEF I get a message saying it isn't filedef'd

Pat,
You do need to have a a value for &AUDIT_FEX, since you write it out. But you had it commented, which may lead to unwanted results. The -RUN after the filedef is needed, but the one after the -SET's is not. The code would look like:

APP FI FOCAUDIT DISK RS6000/FOCAUDIT (APPEND
-RUN
-* -SET &ECHO=ALL;
-SET &AUDIT_TIME = EDIT('&TOD.EVAL','99$99$99');
-SET &AUDIT_DATE = '&YYMD.EVAL'|'&AUDIT_TIME.EVAL';
-DEFAULT &AUDIT_USER='WFOCUS';
-SET &AUDIT_USER = GETUSER('A8');
-SET &AUDIT_FEX  = '&FEX.EVAL';
-SET &AUDIT_SRVR='400SRV';

-WRITE FOCAUDIT  &AUDIT_DATE  &AUDIT_FEX  &AUDIT_USER  &AUDIT_SRVR
-RUN

But, is there some error that you receive or any undesired reuslts?

This is an online server procedure executed from our intranet interface. The &AUDIT_FEX is set in the individual program and this is -INCLUDEd. I -TYPEd my variables to be sure all had values and they are:

20090421080617 amd018a WFOCUS 400SRV

I also tried the AP FI instead of the FILEDEF with the same results. The message I am getting is somewhat meaningless it is

(FOC325) ERROR WRITING FILE NAMED: FOCAUDIT 1