Re: How to change the program code or member's source code date -- RPG400-L

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 <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: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.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com