using FMTSRC

["N, Muralidhar" <Muralidhar.N@xxxxxxxxxxxxxxxxx>]

Iam new to this flat file concept...can any body tell me how to write
sort/select  conditions...Iam sorting data (iam nt using opnqryf)by using
FMTDTA and how to write sort conditions in the flat file   for that?how do i
use this in CL pgm?

Regards,
Murali

> -----Original Message-----
> From: Erich W. Schasse [SMTP:schasse@wiedemann.de]
> Sent: Thursday, January 02, 2003 5:59 PM
> To:   RPG400-L@midrange.com
> Subject:      Free-Format and CLEAR *ALL problem: MCH3601
>
> Hi all,
>
> the following tiny programm, an extract of a 6000+ line programm, causes
> the
> runtime error MCH3601, followed by RNQ0222 and RNX9998.
> But not always...
> If for instance FLD1 is defind 10A the programm works fine. The file
> itself
> is arbitray.
>
> I assume a bug! Does anyone know a PTF or a work-around other than don't
> use
> CLEAR *ALL in free-format RPG?
>
> I wasn't able to find some hints in the archives or on the IBM site. Any
> help is highly appreciated.
>
>  SEU==>
>         ***************** Datenanfang *******************************
> 0001.00 FFILE1     IF   E           K DISK
> 0002.00
> 0003.00 D MOD1            DS                  OCCURS(301)
> 0004.00 D  FLD1                         15A
> 0005.00
> 0006.00  /FREE
> 0007.00    CLEAR *ALL MOD1;
> 0008.00    CHAIN 1 FILE1P;
> 0009.00    *INLR = *ON;
> 0010.00  /END-FREE
>         ******************Datenende *********************************
>
>
> TIA and kind regards
>
> Erich W. Schasse
> WIEDEMANN GmbH & Co. KG
> (+49) 5066 997-190
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
WARNING: The information in this message is confidential and may be legally
privileged. It is intended solely for the addressee.  Access to this message
by anyone else is unauthorised.  If you are not the intended recipient, any
disclosure, copying, or distribution of the message, or any action or
omission taken by you in reliance on it, is prohibited and may be unlawful.
Please immediately contact the sender if you have received this message in
error. Thank you.