FlatFile Delete Error

[dhanuxp]

hi all,
can update flatfile, but cant compile with Delete opcode
what is the error pls??

HDECEDIT('.')  DATEDIT(*DMY.) datfmt(*eur)
     F
     FAAAAAA    Ip   f 1870        Disk
     FAB@SEC    UF   F    8     8AIDISK    KeyLoc(1)
     D*---------------------------------------------------------------------____
     D
     D* Ds to describe file
     DParaRec          Ds             8
     D K1to6                   1      6
     D DltTag                  7      7
     D K8to8                   8      8
     D
     IAAAAAA    ns  01
     I                                  1    8  AAKEY

      /free

             Chain AAKey AB@SEC ParaREC;
             If  %found(AB@SEC);
             Delete AB@SEC ParaRec;
             Endif;

      /end-free

the error is

RNF7260 30     24 002400  The Factor 2 operand is not valid for the specified
                          operation.                                         
RNF7086 00      3 000300  RPG handles blocking for file AAAAAA. INFDS is upda
                          when blocks of data are transferred.

Thanks
dhanuxp

[vinomails]

Re: FlatFile Delete Error

Hi Dhanu,

Try with

Delete Pararec;

[arrow483]

Re: FlatFile Delete Error

Actually, it should be

Delete AB@SEC ;

When using internally-described files, the file name is required. Same is true on the CHAIN

[dhanuxp]

Re: FlatFile Delete Error

Actually, it should be

Delete AB@SEC ;

When using internally-described files, the file name is required. Same is true on the CHAIN

YEP! ARROW thanks lot