RE: Dates Problem

Hi Srinivas

I think I can help with this one... (before America awakes !)

In RPGLE free format ...
/free
setll (fromCYMD) trncd42;
dou %eof(trncd42);
read trncd42;
if not %eof(trncd42);
if tcdate > toCYMD;
leave;
endif;
do RPGLE stuff here ...
endif;
enddo;
/End-Free

In RPG400)... (approximately)
C FRCYMD SETLLFILE
C *IN15 DOUEQ*ON
C READ FILE 15
C *IN15 IFEQ *ON
C FILEDT IFGT TOCYMD
C SETON 15
C ENDIF
C* DO RPG400 STUFF HERE
C ENDIF
C ENDDO


Hope this helps ... a European friend


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Srinivas Boggula
Sent: 12 September 2007 09:31
To: RPG programming on the AS400 / iSeries
Subject: Dates Problem

Hi every one,



How do I Select from Date To - To Date in RPGLE



Say suppose I have 20 records in a Physical File and I have 8 fields in
it.

Now I want to retrieve from Dates To - To Date.



I tried with the following way created a logical file of eight fields
all of them are keyed



In RPGLE program I have created KLIST ( KEY AND KEY1)



C KEY KLIST

C KFLD FDD

C KFLD FMM

C KFLD FCC

C KFLD FYY

C*

C KEY1 KLIST

C KFLD TDD

C KFLD TMM

C KFLD TCC

C KFLD TYY



With the help of KEY & Chain I can able to set pointer to from date and
read the record.

But how do I stop at To-Date.



0004.43 C KEY CHAIN DSPREC 90





Please Can any one guide me on this issue.



Thanks in Advance



Regards,

Srinivas













I want to retrieve records from 10 to 15, I can able to set pointer and
read 10th

record using SETLL and READE but how do I Stop at 15th record.



Thanks in Advance



Regards,

Srinivas





























iGATE is ranked as 3rd best IT employer in India as per DQ-IDC Best
Employer Survey-2007
----------------------------------------------------------------DISCLAIM
ER---------------------------------------------------------
Information transmitted by this EMAIL is proprietary to iGATE Group of
Companies and is intended for use only by the individual
or entity to whom it is addressed and may contain information that is
privileged, confidential, or exempt from disclosure under
applicable law. If you are not the intended recipient of this EMAIL
immediately notify the sender at iGATE or mailadmin@xxxxxxxxx
and delete this EMAIL including any attachments