RPG

Move all fields in a record format at once.

How can I move all the fields of a single record format at once? I need to move fields totalling 712 positions to a single flat-file record that is also 712 positions long. I really don't want to move one-field-at-a-time into a data structure if I can help it.

AS/400 Primary Language

Hi! I developed an application in CL and RPG and I want it to be multilingual. Is it possible to programmatically read the system primary language so I can use the same language for my application?[o:p][/o:p]

Can anyone please tell me what is the basic difference between arrays and tables in RPG.

Hi All, Can anyone please tell me what is the basic differance between arrays and tables in RPG and for which type of requirement we have to use arrays and tables. since there might be bit difference between both of them. Please explain me.

data search using popup window

Is there a sample RPG/CL/SQL code on how to create a popup window to search data from a PF? Software/Hardware used: RPG, CL, SQL, iSeries

Input or Update Primary files and (shudder) the RPG cycle ...

First, I'd like to say that obviously there are some very knowledgeable midrange people here ... lots of good tips to pick up ...  I've been programming RPG since the early 80's ... and I notice that   very few people ever use or even refer to the RPG cycle any more ...  nor do I ever see IP...

Padding with zeros in Synon/2e

How can we implement Padding with zeros (concept in rpg) in Synon/2e?

rpg

I have five indexed files in rpg prog. Can I decleared common key field parameters for all five files? Is it possible in cobol ? If not how will solve this querry in cobol ? Explain with an ex.

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