Re: yday's data &today's data

vern,
i knoe DSPFD and to get that last changed date and  variable to hold that..but 
iam really confused how to put those stuff in my program?? .....however i shall 
look into the info centre material...
Thanks so much  vern !
Murali.


Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
Files also have change time - use that. Check out the file management 
manuals - this is pretty basic stuff. Look up commands about members - do 
you know about the various menus of commands? Or go to the API finder at 
InfoCenter and look up member description and file description APIs.

Vern

At 12:57 AM 11/4/2003 -0800, you wrote:
>Hi all,
>following is my cl program.MURALI0 is previous day's
>file.MURALI1 is today's file.
>prior to generating today's file(MURALI1) i shall be
>taking yesterday's file into MURALI0 as per first copy
>file command in my program.The program is running
>fine.But I have problem if i run this program more
>than once in the same day since it replacing MURALI0.
>is there any command (please suggest me) i can include
>before the first copy file command to compare the
>dates (OR)
>If I execute the program more than once ,file MURALI0
>is having the same data as MURALI1.
>How do i make changes to my program sothat it can be
>run any number of times that day without changing the
>data in the MURALI0(after 1st run).
>for my first time execution of the program,file
>MURALI0 will contain yesterday's data,
>for second execution of the program ,file MURALI0 will
>get today's data since it is copying from MURALI1.so
>teh very purpose of the program is nt working.
>I want to see the program work for any number of runs
>without loosing yesterday's data in MURALI0.
>please suggest me i shall be greatful to you,
>Thanks,
>Murali.
>
>
>
>
>===========
>
>PGM
>
> /*THIS IS FOR YDAY'S DATA MURALI0 CONSISTS
>PREVIOUS DAY */
> CPYF FROMFILE(YMNTEST/MURALI1) +
>
> TOFILE(YMNTEST/MURALI0)
>MBROPT(*REPLACE) CRTFILE(*YES) FROMRCD(1)
>
>
> YCTAC200C REQSFILE(YDJ.REQS)
>POSFILE(YDJPOSF1) OUTFILE(YDJAC200)
>
> /* COPY FILE YDJAC200 TO MURALI1 */
> RUNQRY QRY(YMNTEST/YIMQRY)
>
> /*combines MURALI0 &MURALI1 and
>generates required output */
> RUNQRY QRY(YMNTEST/YIMQRY01)
>
>
>
>
>
>
>
>
> ENDPGM
>
>==============
>
>__________________________________
>Do you Yahoo!?
>Protect your identity with Yahoo! Mail AddressGuard
>http://antispam.yahoo.com/whatsnewfree
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/midrange-l
>or email: MIDRANGE-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


---------------------------------
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard