Forum: RPG/RPGLE

Hi, I have CL that gets called with 4 parms like so: DCL VAR(&FILE) TYPE(*CHAR) LEN(22) DCL VAR(&PCFILE) TYPE(*CHAR) LEN(64) DCL VAR(&HEADINGS) TYPE(*CHAR) LEN(1) DCL VAR(&FORMAT) TYPE(*CHAR) LEN(3)

We have been creating more and more code in RPG Free and we've run into some issues keeping the code clean. By clean I mean in a manner in which it is easy to read and not overly cluttered. Are there any guidelines available that can help with this?

I've got a file without a key and I am attempting to write a program to allow users to update the file. I can grab the file and dump it into a subfile and I can access an individual record based on the subfiles RRN; however, I don't have a way to write back to the actual table because there is...

hi all, i found some old rpg program, i don't familiar with rpg III syntax... so any one can give me a clue or help to understand this syntax .... FMT I IFilename++SqNORiPos1+NCCPos2+NCCPos3+NCC... 0497.00 IFLP001 ZX 29 4 C2 5 C0 6 C5 0498.00 I/COPY...

Hi I have came accross the following scinarios 1.I have a Physical file in production, so the problem is it`s reached to the max record after some processing .How to handle this situation. 2.I need a CL program which will monitor the job and make it to message wait,so after send this...

I'm writing a new service program and I could do with creating an enumerated type. Can anyone think of a way to do this in ILE RPG? I suppose I could define the types as constants in the /copy member where my prototypes are. Then the procedure where I want them to pass the enum could receive an...

I am using A S2CMDT L B 21 23DSPATR(CS) A DATFMT(*MDY) in my spec for dates. I call them true dates because we commonly use decimals for dates as well. I created a program to maintain a file, which recently I went back and added...

I have a procedure, compiled as a module and the program that using it. I can see calculated value while debugging the module, but after returning to the program it is blank again :( What is wrong? The module: HNoMain D ConvText PR 5000 ...

Maybe I've missed something in my searches... but I can't figure this out.... I'm helping someone with an issue... they have a solution using a DS but I'm convinced there has to be a prettier way to do it with bifs need to take a 2 digit day or month and convert it to a 2a field. But the...

Hi all: fupccpadm ipe e disk recno(admr) f prefix('X') funumccp if e disk fqsysprt o f 132 printer D admr s 10i 0 /free ...

Is that feasible? I mean I wanted to send a "virtual file " as parameter to a called program ,the "virtual file" is exactly be same to a existed PF (the key, the fields and the recorde), the called program can update the values in the "virtual file" and return it to the caller. I...

How i have to configure in client access the Printer Zebra Tlp 2844 ??

dear all hope ur all fine...... i would like to know if there is any function in rpg to convert a date from the format 01-JAN-2010 to CYYMMDD? Thanks in advance

d Entry pr ExtPgm( 'MYPGM' ) d Parm1 3a d Entry pi d Parm1 3a c If %Parms > 0 c If Parm1 = '311' c ...

Hi All, Can you please some can share the knowledge on this query? how to send a flat file or Physical file to my mail id? To more specific how to send the csv file from AS/400 system to my mail id? Many Thanks in advance!!! Regards, Sudha.

Hi, What is the best way to find the list of users working on a particular file? Is there any API’s to get this information other than getting it from WRKOBJLCK?

hello. i am a rookie on rpg programming, and being faced with a porblem below which bother me a lot recently. i really appreciate your time and concern. system message: Message . . . . : Session or device error occurred in file MNENVMNDR@ (C G D F). ...

MOVE FIRST-EXTRACT-RECORD TO POLICY-EXTRACT-RECORD. here they are move the whole record format to another record fmt.is it possible in rpg or rpgiv

Hi All, Could you please tell me if i am upgrading my Hardware from V5R4 to V6R1, Is there any impact in RPG,CL Objects. Thanks.

Hi All, Can you please tell me where SQL queries stores in AS/400?. I was working in SQL in AS/400 using command strsql but my system got restarted suddenly , but I cant retrive sql queries which I worked earlier. Can you please some one help me Many Thanks!!! Sudha

Sorry I'm not sure this is where to post this question but I'm hoping someone can help. We are currently setting up a AS400 new box with V6R1 but haven't gone live with it yet as I'm still testing. :duh My problem is I downloaded the latest and greatest version of MMAIL on it but some of the...

Load all subfile. Page down to page 2 or greater. Press enter and the subfile positions to page one. What am I missing to get it to stay on the current page. Thanks!

hi I have created a socket program using ILE C++. I have used pointers in this program.once I used the same pointer twice I see that the new value is getting overwrite with the old one. I just want to know that is it necessary to clear the pointer buffer once its used. if so how can i do it? is...