Indicators in RPG
HI, I am a cobol400 developer and new to RPG and curious to know much about RPG… My question here is In what scenarios we use the below indicators 1.Overflow indicator 2.Record Identifying indicator 3.Control level indicator 4.Field level indicator 5.Resulting indicator Thanks in adv Anup

Answer Question   |  March 27, 2013  12:11 PM
AS400 RPGLE, RPG, RPG indicators

Problem with the READ from PF in RPGLE
Hi ! Im trying to read a physical file from my RPGLE program. That physical file having many fileds. AGCDE is the one of the filed there. The AGCDE data is from 001 to 700. But i just added it randomly. Now im having a problem with READ in RPGLE.. When i call the program [...]

Answer Question   |  January 18, 2013  6:47 AM
AS400 RPGLE, reading Physical file

Debugging ILE programs
Are there any documents on Debugging ILE programs(cobol ile or rpg ile) ? Please share the link..Thanks

Answer Question   |  January 8, 2013  6:18 PM
AS400 - COBOL, AS400 Debug, AS400 RPGLE, Debugging

AS400 – RPGLE
FTESTCF IF E K Disk * /Free EmpNo = 100; Chain (EmpNo) TestCF; If %Found(TestCF); Dsply EmpName; Endif; Dsply EmpName; Clear RTEST; EmpNo = 101; Chain (EmpNo) TestCF; If %Found(TestCF); Dsply EmpName; Endif; Dsply EmpName; Above Code Employee NUmber 100 is found in File. Employee Name is coming as expected. But EMPNO = 101 is [...]

Answer Question   |  December 18, 2012  9:18 AM
AS/400, AS400 RPGLE

Performance improvement – RPGLE
Hi, I have an RPGLE program which reads every record of a masterfile ( 4 million records) and updates some of the field values. There are different procedures to retrieve the values from various files and to update the masterfile. The procedures are written with read, chain logic to retrieve the value. The program is [...]

Answer Question   |  December 4, 2012  9:18 AM
AS/400, AS400 RPGLE

In RPGLE CHAIN and %FOUND
Hi there ! while we using chain with %Found do we need to add else? or else rrn1 chain sfl01 if %found update sfl01 else leave endif is this right ?

Answer Question   |  November 29, 2012  8:14 AM
AS/400, AS400 RPGLE

Trigger program to validate data and notify interactive program of errors before insert or update action
I have an interactive program that writes (Inventory Management) transactions to a file. I do not have the source for this program. I need to ensure that field content which is not currently validated by the program can be validated and corrected BEFORE the transaction being INSERTed or UPDATEd is written to the file. I [...]

Answer Question   |  November 26, 2012  5:52 AM
AS400 RPGLE, RPGLE

Getting the error CPF5257 when trying to write record in Logical File
RPGLE Program crashing with the error CPF5257 (Failure for device or member &4 file &2 in library &3) when trying to write record in Logical File.

Answer Question   |  November 2, 2012  3:54 AM
AS400 RPGLE, Logical File

Blank line Input capable page at a time subfile
Hi – I am a bit rusty subfile-wise and was hoping to find an example of a page at a time subfile that provides position to and blank line input capability on the user’s request to add records to the file. I’m particularly curious about the paging concerns involved. What can I say…It’s been a [...]

Answer Question   |  October 22, 2012  6:05 PM
AS/400, AS/400 Subfiles, AS400 RPGLE

AS400
If i have a pf (pf1) R Rec account 10p00 name 10a dept 1a salary 5p00 k account After Updating, I given dept- A, S, D different account, different salary. NOW I AM TRYING TO ADD SALARY ON DEPT WISE {FOR EXAMPLE- IN SQL, SELECT SUM(SALARY) FROM PF1 WHERE DEPT=’A'} BUT I AM TRYING IN [...]

Answer Question   |  August 21, 2012  4:54 PM
AS400 RPGLE

How to get a total of amount field in RPGLE code
I have a table which contain a several types of data for the same customer, I need to get the total amount for each type in RPGLE code.

Answer Question   |  July 17, 2012  12:23 PM
AS400 RPGLE, RPGLE code

RPGLE
how many files, we declare at one RPGLE program (maximum no. of file)?

Answer Question   |  June 13, 2012  4:32 PM
AS400 RPGLE

How do you code footers in DDS Print File?
I need to print a footer on every page of a report. Thought it would be simple like headers. If anyone has the answer let me know. Thx.

Answer Question   |  June 5, 2012  11:56 PM
AS400 RPGLE, DDS Printer files

CRTSQLRPGI
I have two questions about an RPGLE program with embedded SQL statements: When compiling an RPGLE program with embedded SQL statements, how do you set the activation group? I am trying to run a program which ran when we were on version 5V4. Now that I am on version 6.1, the exact same program will [...]

Answer Question   |  May 25, 2012  4:27 PM
AS/400 v6.1, AS400 RPGLE, SQL statements

Clear Leading ZERO’S
Hi, I am having a numeric field which is used in KLIST.I need to remove the leading zero’s for my numeric field.How i can do this.

Answer Question   |  May 25, 2012  6:52 AM
AS/400, AS400 RPGLE

how to prevent values
how to prevent  these values &<>” in a field

Answer Question   |  May 15, 2012  5:46 AM
AS400 RPGLE, RPGLE values

USER INFORMATION
HOW CAN WE GET THE USER DETAILS THROUGH RPGLE PROGRAM?

Answer Question   |  May 10, 2012  6:49 AM
AS/400, AS400 RPGLE

user profile
how to get library list for perticuler user profile?

Answer Question   |  May 9, 2012  6:09 AM
AS/400, AS400 RPGLE

Error while using OVRDBF
Hi I am using OVRDBF command in my cl program in order to apply a particular select criteria on a database file in order to pass it to the RPGLE code. The syntax I used is as below: OVRDBF     FILE(MYFILE) TOFILE(MYFILE) +                      MBR(MYFILE) OVRSCOPE(*JOB) SHARE(*YES) OPNQRYF    FILE((MYFILE *FIRST *ONLY)) OPTION(*ALL) +              QRYSLT(‘MYCODE *EQ [...]

Answer Question   |  May 8, 2012  2:51 PM
AS/400, AS400 RPGLE, OVRDBF

Scan a string
Hi, I am using scan function in rpgle for scan string my problem is that when i scan a string with one space like ‘Invalid Customer’ then my program not given positive result or no result

Answer Question   |  May 11, 2012  11:38 AM
AS400 RPGLE, RPGLE Program