RPG

Reading an unknown file in RPG

Hi All, I am working on a DBU like utility which will provide a maintainance screen for each file. I need to read the file in an rpg program but i dont know the program name till runtime. I can't declare the file in F specs as i dont know the file name. SQL is very bothering and is very heavy for...

RPG/400

i have a physical file name with length of 10 same file i need to declare in rpg/400 but here accepting only 8 length so any way to overcome....

Setting lower limits In CL

I know how to declare a file and read through the data in CL....but how can you reset it? Like setll in CL. I have searched and searched but nothing works. I have closed opend...etc.. Any ideas? Example: PGM DCLF FILEA Loop: RCVF FILEA If %EOF ne '0' DO Goto Loop: Enddo. Now I want to read...

ISeries System Debug Manager

I have recently started using the ISeries System Debug Manager (I know, finally making the move to RPGLE). I have having trouble setting up the library list for it. We do not use the SYSVAL library lists normally for our users. We have a menu system that controls the users library list outside...

Change AS/400 Library List for a Batch Job

HI, Is there a way by which we can override the Library List for a batch job, when the job is active?

What language "Next" from RPG(LE)

Hi everyone; I took a hiatus as a stay-at-home mom and am just back into the programming world. 13 years experience - 8 year break - back 1 year. Pure AS400 (can't say iSeries yet) do use RPGLE (thankfully) understand free - used to be MAPICS guru (can't say Infor either). Do any of you use...

RPGILE comparing values

i have a value say for example ASD12246. i need to check this value against afile which contains similar values lik this. i need to pick the value that has maximum matches with this number. Sa y for example if the File has ASD122 and ASD1224 i have to selct the code corresponding to ASD1224 as it...

SFLRCDNBR

I want to know the use of SFLRCDNBR Keyword used in Subfile . I also want any sample Code of how it is handled in the RPGLE Program?

Mixed record format Subfiles

I've been writing standard subfiles for a while now but I've seen some where, to me, it looks like the subfile has a mixed record format - i.e. a header and then a variable number of detail lines. (The fields are of different length and position in the header and detail lines). I'm writing an...

How to add one Module to the existing Service Program

Hi, I want to add or append one new module called 'C' to the already existing service program(SRVPGM) For Example: I have one service program called SRVPGM consits of 2 Modules are A, B. Now i want to add one new Module called 'C' to SRVPGM. how can i do this ?

Pass-Through API

QPASTRPT- i can use this API to do Pass thru from one system to another, but i can't return any values back to the calling program thru this. is there any API for that ?

Learning RPG

Hi, I am a COBOL programmer. I want to learn RPG. Can you please suggest the best internet site to learn interactive RPG. Thank you.

How to determine the RPG version

Hi, Can you tell me how to know the RPG version (III or IV) in our AS400? Also, if it's ILE? Thank you.

converting numeric field to a character field and show leading zeros

I am using %char to convert a numeric 9 pos field to character for use in a larger out put field. My code looks basically like eval labelout - "4J'+lpart+%char(lexpire)+%char(lserl) Where lexpire and lserl are used in the labelout field, I need the leading zeros to show. Right now, they are...

Using RPGLE indicators

How can use i use indicators for hide the fields and lables in the display file.

Bad performance in call command in RPGLE

We are facing a bad performance issue when RPGLE pgm A is calling RPG pgm B. Pgm A is reading a file as primary that contains 1000000 records and for every record calls pgm B that is doing 1 chain to a file and if it's sucessfully updates another file and then RETURN (not with SETON LR) to pgm A...

How do I populate an SQL table created on the fly in RPGLE?

I am writing a report program where I create a table that is then converted to an Excel spreadsheet using SQL2JXL. I am able to dynamically create a table with Execute Immediate but I have been unable to populate it. The problem is the table name is stored in a variable within the program and I...

Pop-Up Calendar with RPG

I found a link that would show me how to code a pop-up calendar on the AS400. However, when I went to that link, it was invalid. Does anyone know how to create RPG code for a pop-up calendar on the AS400?

Unable to over ride a PF member

Hi, I made a cl program and in it I over ride a pf member, clrpfm then call my rpgle program. I can't write on my member but instead it writes on the primary member and reads it. seems the member that is used is the the primary member and not the member that I over rides.

How to convert system date to other format using RPGILE

please advice how can convert system date to other format using rpgile.