RPG

I/O operation was applied to closed file error on AS400

I've got a program that outputs to two reports, a summary and a detail. Both printfiles are using the keyword usropn. I open the files at the begining of the program and I close them at the end. The files close after the totals are printed, the totals are only printed when LR is turned on. LR is...

ACCESS PARTICULAR MEMBERS IN RPG

SUPPOSE I HAVE A PF WITH 3 MEMBERS. IS IT POSSIBLE TO DO READ/WRITE OPERATION ON PARTICULAR 2 MEMBERS? Software/Hardware used: AS/400

Clear leading zeros

I have a 10A character field which hold a numeric value. Problem is that it contains leading zeros. How can I remove them? Many thanks.   Software/Hardware used: V5R4 iSeries

Convert number to roman numerals in RPG

Hi, Can any know how to convert numbers to roman numerals in RPG or RPGLE?

Moving to prototypes and /FREE (correcting my last post)

I want to change the following to using prototypes and /FREE... how do I do that? D RDCTL         E DS                  EXTNAME(RDCTL)  C     *ENTRY        PLIST                          C                  ...

Need to find everyplace a file is being used.

I have a file that we are adding a field. Need to find every program the file is being used to know which ones need to be recompiler. Would be nice to do one big search of the entire library.  Software/Hardware used: as400

Using prototypes and data structures

How do I convert the following into using prototypes (including the *ENTRY) and /free?? D RDCTL         E DS  EXTNAME(RDCTL)     Software/Hardware used: V5R4 RPG

How to handle deletion in RPG

I have a file(A) that needs to have records deleted from it based off information in another file(B). I think the logic should be... Read A Chain to B if criteria met delete record. Is there a better/cleaner way to do this? I do not have much experience with RPG.

decimal data error

I declare time field in RPG as D btime    4  0 eval btime = 2400 this one i pass to a CL program with var type var(&tim) type(*dec) len(4,0) and this in turn passed to another RPG program D stime    4  0 when it comes to third program it has some hex char shown in debug as belo stime = 2_4_...

ILE Best method of Parameter handling using Procedures

Using prototypes and Procedure interfaces I understand that no parameter may be returned if a procedure is called directly via CALLP. And only one parameter may be returned if procedure is called via EVAL with return. What is the best way to return multiple parameters from a procedure (assuming I...

How to use debug on a interactive program with subfiles

I want to know if you can use debug on a interactive program that uses subfiles to hold the modify data?

Why do I have such a problem with passing to a program a 8 byte field using a parm.

Why do I have such a problem with passing to a program a 8 byte field using a parm. Parm field is define as packed(8,0) but as soon as the program tries to acquired the parm I get a Decimal data error. *ENTRY       ...

How to use edtcde &edtwrd in o spec?

Dear all, Actually I want to learn the use of edtcde and edtwrd keywords in O spec. how can i use these keywords suppose if  i have a field sellprice which consists 7 length with 2 decimal position i want to put $ sign for the values of this field in fixed and floating format how can i code it in...

6.1 OS

Will RPG IV programs generated using the increase field sizes in 6.1 be able to run on previous versions (i.e. V5R4)?

error in following rpg code?

Dear all, I am having problem while compiling follwing rpg code for calculation of square and cube of 2digit number.my display file compiles well but there is an error exfmt operation entry not valid.(error qrg 5199). RPG CODE is:  Columns . . . :    1  71           ...

RPG Programming Standards

I'M LOOKING FOR RPG PROGRAMMING STANDARDS. We have always had standards example if you create a report the report should have the date, title, program name, page numbers.  Does anyone have a stanards document or is there anything on the web?   I appreciate your help!     Software/Hardware...

S/36 RPG program using a Data Area

We enter in vouchers from a variety to locations. All of the voucher entry programs are written in RPG IV and use a Data Area to get the next voucher, update the data area using lock in/out. This all works very well. We have an older S/36 program that populates Employee Expenses into the voucher...

File open RPG

Is there a way in an rpg program to open a file using a character field for the filename? for example: if my file name is TESTFILE I can use the line: (in rpg free)   OPEN TESTFILE; but is there a way to have character field in place of the filename:   D filename          ...

AS400: copybook or module? ...or...other?

I'm on V6R1, using WDSCi 7 to program in RPG IV.  I've accumulated a number of functions that I use in quite a few of my programs, and I was thinking it might be a good idea to go ahead and place them as subroutines (may be wrong terminology) in a copybook.  But, having done some research, there...

Stored procedure

how to capture the messages sent by Stored procedure.. the one which i'm using is programmed to returned '0001110' if certaine condition do not match...how will i capture this or where i'll see these messages... Thanks, NG Software/Hardware used: AS400