Source files are just files with 3 fields. You would write a program like any other that reads and updates files.
On your create alias, you are creating an alias named al1 in library lib1 that points to file fl1 and member uqryalltst. Do you actually have a member named uqryalltst? Sql doesn't play nice with multiple member files like most source files are. The create alias is just a way to override to a specific member in a file.
Info on aliases -
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/sqlp/rbafycreatingalias.htm
A quick and dirty example of what you are trying to do. Again on my test member uqryalltst. You would need to change your file and member info.
**Free
Dcl-F Qrpgsrc Extfile(OvrFile) Extmbr(OvrMbr) Usage(*Update)
Rename(Qrpgsrc:Rqrpgsrc) usropn;
Dcl-S OvrFile Char(21);
Dcl-S OvrMbr Char(10);
OvrFile = 'KEVIN/QRPGSRC';
Ovrmbr = 'UQRYALLTST';
Open Qrpgsrc;
Read Rqrpgsrc;
Dow Not %Eof(Qrpgsrc);
If srcdat = 090706;
srcdat = 0;
Update Rqrpgsrc;
EndIf;
Read Rqrpgsrc;
EndDo;
Close Qrpgsrc;
*Inlr = *On;
Return;
On Mon, 2020-01-13 at 16:10 +0100, techie21 IT wrote:
not sure how can we write program code for the same but when tried below
got this error:-
create alias lib1.al1 for lib1.fl1 (uqryalltst)
Alias AL1 created in LIB1.
update lib1.al1 set srcdat = 0 where srcdat= 191119
Additional Message Information
Message ID . . . . . . : SQL0204 Severity . . . . . . . : 30
Message type . . . . . : Diagnostic
Message . . . . : UQRYALLTST in *N type *MEM not found.
Cause . . . . . : UQRYALLTST in *N type *MEM was not found. If the
member
name is *ALL, the table is not partitioned. If this is an ALTER TABLE
statement and the type is *N, a constraint or partition was not found.
If
this is not an ALTER TABLE statement and the type is *N, a function,
procedure, trigger or sequence object was not found.
If a function was not found, UQRYALLTST is the service program that
contains the function. The function will not be found unless the
external
name and usage name match exactly. Examine the job log for a message
that
gives more details on which function name is being searched for and the
name
that did not match.
Recovery . . . : Change the name and try the request again. If the
object
is a node group, ensure that the DB2 Multisystem product is installed on
More...
Press Enter to continue.
On Mon, Jan 13, 2020 at 2:38 PM Kevin Bucknum <
<mailto:Kevin@xxxxxxxxxxxxxxxxxxx>
Kevin@xxxxxxxxxxxxxxxxxxx
wrote:
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:
<mailto:techiei876@xxxxxxxxx>
techiei876@xxxxxxxxx
<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:
<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
rpg400-l@xxxxxxxxxxxxxxxxxx
<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
rpg400-l@xxxxxxxxxxxxxxxxxx
wrote:
On Wed, Jan 8, 2020 at 12:05 PM Justin Taylor <
<mailto:
<mailto:JUSTIN@xxxxxxxxxxxxx>
JUSTIN@xxxxxxxxxxxxx
<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
<
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
<
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:
<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxxxxxxxx
<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
<
https://lists.midrange.com/mailman/listinfo/rpg400-l>
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email:
<mailto:
<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxxxxxxxx
<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
<
https://archive.midrange.com/rpg400-l>
https://archive.midrange.com/rpg400-l
.
Please contact
<mailto:
<mailto:support@xxxxxxxxxxxx>
support@xxxxxxxxxxxx
<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://amazon.midrange.com>
https://amazon.midrange.com
[
<
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp>
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>
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.
--
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
