Forum: RPG/RPGLE

while using ENDSR, in the place factor 1 what the label I am using, What;s the purpose of that?? like following, C RTNPNT TAG . . . C ADDRTN BEGSR

I'm running into the following issue: I made a small change in a program (some calculation changes only) and put it in another environment (replaced the old object) * But in doing so, I'm getting an error CPF5134 - Not authorized to process request on member File :confused: But If i...

Hi All, "LineNum" And 'StatusCode' in this code is getting as '0000000' when an attempt to write duplicate record on TESTPF FTESTPF O a e disk INFSR(*PSSR) DPSDS SDS ...

Hello, i have a program that i want to run, and have it monitor when my user starts a process, and after 1 hour has passed i need to be able to send them a message that a quality check on the product needs to be performed. I know there is the sndusrmsg command, but i am wondering what other...

Hello *ALL Suppose i have a file having 10 records. now, how to write data after particular record....for example how to write data after 4th record ?

hello everyone, i use the chain comand and update a record in some condition. if the condition is false, i jump to tag. i need to free the record before , how can i do it? thank's Rachel

OK... was looking over my code (Doing a Self Code-Review) and was wanting some feedback on this ... Which way would be "better" or is an "acceptable" coding practice? This is a basic indicator control for Display Option or Not based on Field = *Blanks c Eval ...

Hello i'm looking for examples of srvpgm to access to a file; example; parameter in input custumer Id parameter in output DS of the image of the record of customer record thanks in advance

Hi I must create txt file in UTF-8 encoding. Do you know how to simply translate text from EBCDIC to UTF-8?

Hello I want to use external defined structure as a buffer in my program. I have code like this: D buffer e ds extname(personspf:*input) D qualified /free ...

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 for the first time the possibility to create a file pdf through: OVRPRTF FILE(MYPRTF) DEVTYPE(*AFPDS) TOSTMF ('/ myapp/mypdfs') WSCST(*PDF) however in some row it overlaps some characters a can some one help me ?? thanks

D Up C 'ABCDEFGHIJKLMNOPQRS- D 'TUVWXYZ' D Lo C 'abcdefghijklmnopqrs- 'tuvwxyz' C MOVE 'rpg dept' String 8...

Hai friends, I need to design a subfile such that when a user press 1 against a employee number,it should display the details of the selected employee.Pls help me.

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?

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)

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