Write a program that reads the source member and updates the date. Or use sql.
create alias kevin.updatesrc for kevin.qrpgsrc (uqryalltst);
select srcdat, count(*) from kevin.updatesrc group by srcdat;
31230 1
90610 19
70222 13
130716 2
180205 7
90706 2
51206 2
update kevin.updatesrc set srcdat = 0 where srcdta like '%@Sql<mailto:'%@Sql>%';
select srcdat, count(*) from kevin.updatesrc group by srcdat;
90610 17
51206 1
90706 2
31230 1
70222 13
180205 7
130716 2
0 3
drop alias kevin.updatesrc
On Mon, 2020-01-13 at 14:17 +0100, techie21 IT wrote:
Hi,
Suppose there are 100 lines of code then if if we want to set first 20
lines of code to date1 and next 20 to date 2 and then next 20 to date 3
and similarly arbitrarily if we want to change the dates based on selection
of particular line of code in the program
then how could we achieve it ?
Thanks
On Mon, Jan 13, 2020 at 1:19 PM techie21 IT <
<mailto:techiei876@xxxxxxxxx>
techiei876@xxxxxxxxx
wrote:
thanks,But how to change the date of particular lines of code ? currently
what is happening is that it's changing all the date to 000000 if set to
records to date
is set to 000000.
Change Session Defaults
Type choices, press Enter.
Amount to roll . . . . . . . . . . . H H=Half, F=Full
C=Cursor, D=Data
1-999
Uppercase input only . . . . . . . . N Y=Yes, N=No
Tabs on . . . . . . . . . . . . . . N Y=Yes, N=No
Increment of insert record . . . . . 0.01 0.01-999.99
Full screen mode . . . . . . . . . . N Y=Yes, N=No
Source type . . . . . . . . . . . . RPGLE
Syntax checking:
When added/modified . . . . . . . Y Y=Yes, N=No
From sequence number . . . . . . . 0000.00-9999.99
To sequence number . . . . . . . . 0000.00-9999.99
Set records to date . . . . . . . . / / YY/MM/DD or YYMMDD
More...
F3=Exit F5=Refresh F12=Cancel
F14=Find/Change options F15=Browse/Copy options
On Wed, Jan 8, 2020 at 7:10 PM David Gibbs via RPG400-L <
<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
rpg400-l@xxxxxxxxxxxxxxxxxx
wrote:
On Wed, Jan 8, 2020 at 12:05 PM Justin Taylor <
<mailto:JUSTIN@xxxxxxxxxxxxx>
JUSTIN@xxxxxxxxxxxxx
wrote:
RPGLE source PFs have three columns: SRCSEQ, SRCDAT and SRCDTA. Column
SRCDAT contains the date that is automatically updated when changing source
in RDi.
More specifically, ALL source PF's have those columns.
david
--
IBM i on Power Systems: For when you can't afford to be out of business!
I'm riding in the American Diabetes Association's Tour de Cure to
raise money for diabetes research, education, advocacy, and awareness.
You can make a tax-deductible donation to my ride by visiting
<
https://mideml.diabetessucks.net>
https://mideml.diabetessucks.net
.
You can see where my donations come from by visiting my interactive
donation map ...
<
https://mideml.diabetessucks.net/map>
https://mideml.diabetessucks.net/map
(it's a geeky
thing).
I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email:
<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
<
https://lists.midrange.com/mailman/listinfo/rpg400-l>
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email:
<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
<
https://archive.midrange.com/rpg400-l>
https://archive.midrange.com/rpg400-l
.
Please contact
<mailto:support@xxxxxxxxxxxx>
support@xxxxxxxxxxxx
for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
<
https://amazon.midrange.com>
https://amazon.midrange.com
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
