ISeries RPG Programming

Problem Running SQLRPGLE program in Batch: Works Fine Interactively

Hello all, We currently have a program that runs in batch. Last night, we had the following error occur: RNQ0103: The target for a numeric operation is too small to hold the result. The program works perfectly when run interactively. When the program was originially written, I compensated for...

Modify MS Access using iSeries RPGLE

I have to intergrate a third party product that uses an MS Access database with my AS/400 machine and be able to both update the Access data as well as read data from the Access database to use on the 400. Does anyone know how I can do this?

CPF5149 on Delete using SHARE(*YES)

I am receiving a CPF5149 error when trying to perform a delete of a record in a file that is defined as update/add in the F spec. Unfortuneately, the software package my company uses requires SHARE(*YES) on all database files. I am fairly sure that the problem is caused by the file being opened at...

lexmark printer on iSeries

What are the specific settings to connect a Lexmark model 658 to an iSeries system using ip and crtdevprt.

Does anyone know if Version 4.05 of BPCS is compatible with V5R3 of i5/OS?

We upgraded out production machine to V5R3 of i5/OS and we are seeing an issue with BPCS programs not compiling that use to before. This includes errors with /COPY statements that were found but now showing the following errors * QRG2001 Severity: 30 Number: 11 ...

rpg/400

I am not able to send the messages to message subfile.. i am able to compile my rpgile program sucessfully... please find below displayfile and rpgile code for your reference so please advice. display file. A R MSGRCD SFL A*%%TS SD 20090407 ...

Convert character field in decimal field.

hi, everybody i need a help for this: waval = 15A wnval = 15 2 i put in my source this eval wnval = %dec(waval:15:2) but when i run the program stop with error in this line. what i need to do, because i want this example: waval = 123456789012345 wnval = 123456789012345.00 but if i put...

random number

Can anyone pos thet code in RPG 4 or logic to generate random number....?

Quarter calculation

I have a fiscal calendar that runs from March to February. I need to be able to calculate the quarter number and determine the months that compose that quarter. Doing all of this with out prompting the user.

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

How to use embedded SQL in a RPG program used as a stored procedure

When I use embedded SQL in a RPG program and call it from another program it works fine. But, when I try to use the program as a stored procedure it gives me a SQL error. I have worked with stored procedures and understand them, but have not been successful using embedded SQL with them. Any ideas...

AS400 Cobol screen write hanging up

I am an RPG programmer, but have a client with a cobol issue. When the program does a write to a screen it never returns to the read statement. No error is issued and we have to cancel the job. Any ideas or suggestions?

AS400 - RPG

What is the difference between *NAMVAR and *DTAARA in RPG Programming

Can embedded SQL in a SQLRPGLE program be used as a stored procedure?

I am successfully using (external) stored procedures with many RPGLE programs. (Some of these are SQLRPGLE programs because they return a result set.) All of this works fine. But if I try to replace some of the RPG I/O in a RPGLE program with embedded SQL, creating a SQLRPGLE program, and run it...

Data QUEUE - Remote location ..... for program device DDMDEVICE was not found

When trying to use a remote DATA QUEUE the send and receive data queue commands failed giving : Service with protocol tcp not found. Cannot establish DDM connection with remote system. Operation on DDM data queue DTAQFIFO in TESTLIB failed. Remote location MYAS400 for...

passing parameters via a datastructure to and from a procedure

Can anyone provide a simple example of passing data via a data structure from one procedure to another? I would like to call a procedure to post data to a transaction file using a data structure to pass the data.

DBCS File Support - Data type

I am changing our current application software to support DBCS. As this software needs the ability to run in both an SBCS environment and a DBCS environment, I need to re-define fields at the file level to allow DBCS data. Specifically, is it better to use data type "E" or data type "O" to define...

General keys on iSeries

Hello, Is it possible to activate a 'general key' besides the attention key which can be set for each individual user on the iSeries? I want to give a certain group of users the opportunity to use a Print Screen Pgm when the standard shortcuts (Ctrl P etc..) don't work as expected due to an...