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

Hi,

Thanks SQL alias seems to work but below program is not getting compiled
itself.

**Free
Dcl-F FL1 Extfile(OvrFile) Extmbr(OvrMbr) Usage(*Update)
Rename(Qrpgsrc:Rqrpgsrc) usropn;
Dcl-S OvrFile Char(21);
Dcl-S OvrMbr Char(10);
OvrFile = 'lib1/fl1' ;
Ovrmbr = 'sq9' ;
Open fl1 ;
Read RQRPGSRC ;
Dow Not %Eof(QRPGSRC) ;
If srcdat = 190109;
srcdat = 0;
Update fl1 ;
EndIf;
Read RQRPGSRC ;
EndDo;
Close QRPGSRC ;
*Inlr = *On;

getting below errors for above program whereas FL1 source file in LIB1 and
member SQ9 do exist in lib. lib1 and in source physical file FL1.

Msg id Sv Number Message text
RNF7030 30 3 The name or indicator is not defined.
RNF7451 30 1 A built-in function is not defined; built-in function is
ignored.
RNF7503 30 5 Expression contains an operand that is not defined.
RNF2120 40 1 External description not found for file specified as
externally described; file ignored.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *

Return;

On Mon, Jan 13, 2020 at 4:32 PM Kevin Bucknum <Kevin@xxxxxxxxxxxxxxxxxxx>
wrote:

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.
--
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