× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Somehow after adding lib1 at top of lib. list below got compiled but again
when trying to execute below program
is getting error at Open FL1 statement and error is :-

Additional Message Information



Message ID . . . . . . : RNX1217 Severity . . . . . . . : 99

Message type . . . . . : Diagnostic

Date sent . . . . . . : 20-01-14 Time sent . . . . . . :
09:15:29


Message . . . . : Error message CPF4102 appeared during OPEN.

Cause . . . . . : RPG procedure DA2 in program LIB1/DA2 received the
message
CPF4102 while performing an explicit OPEN operation on file FL1. The
actual
file is lib1/fl1(sq9).

Recovery . . . : Check the job log for a complete description of
message
CPF4102, and contact the person responsible for program maintenance.





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


On Tue, Jan 14, 2020 at 8:50 AM techie21 IT <techiei876@xxxxxxxxx> wrote:

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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.