RPGLE

CLLE program

I am new to AS400.I just learnt CLLE and i am facing the problem with the parameter that send from a RPGLE pgm to a CLLE pgm. The first pgm is to prompt the user to key in the date which is a numeic field. The coding for the first pgm is : FWKCFFM CF E WORKSTN * Parameter List...

operation code-occur

In what condition we have to use occur?what is the use of occur(Set/Get Occurrence of a Data Structure )?

diff. between two date

Hello guys, I wanna do a one pgm which is find out date diff. between two date in rpg /400. Actually i did this in rpgiv...but now i want to do it in rpg/400. can somebody provide me a exact logic behind this.. Thanx in advance.....

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.

Connect to Unix from iSeries

I am trying to connect to EDW data mart on a Unix server from an SQLRPGLE pgm using the embedded SQL CONNECT TO code. I am getting SQLCOD = -000000113 when in debug and the connection fails. I have the code I can send in an email if you want? BCL2008

Switch between two display files

I M USING A RPGLE PRGM IN WHICH THERE ARE 2 SCREENS.1 CONTAINS ALL THE RECORDS OF CUST ,IN WHICH 1 CAN USE OPT 2OR 4 FOR UPDATE AND DELETE.BOTH THE FUNCTIONS ARE WORKING BUT WHEN UPDATE SCREEN OPENS I WANT TO GO BACK TO MAIN SCREEN WHICH CONTAINS ALL THE RECORDS.SO PLZ TELLL ME HOW TO DO IT.

How do you put the system date into *ISO format?

Update an *ISO date in RPGLE?

iSeries AFPDS printing to an IP printer is not supporting images to IP printer.

I am attempting to eliminate several pre-printed forms by using AFPDS, however I am running into a problem printing images. I first encountered the problem in trying to shade boxes. After research revealed that box shading is actually an image, I tried adding our company logo, confirming that I am...

Can the parameter's name in parameter list same with the field name in physical file?

Can the parameter's name in parameter list same with the field name in physical file?

Is there a way to automate the 'Receive Files from Host' command'?

I need to automatically run the Receive Files from Host command after business hours. Is there a CLP command to accomplish this with an example? Thanks, LWK

How can I define a flat file in RPGLE?

How can I define a flat file in RPGLE?

RPGLE arrays

Please provide me the solution or at least a hint to this problem. Lets Suppose I have an array having 4 elements ( A, B, C, D). I would like to have all the possible combination of the 4 elements with no repetition (i.e. in mathematical terms 4C1 + 4C2 + 4C3 + 4C4 = 15). How can we do this in...

reason for getting defaults value?

i have a file p1 (pf) and one one display file d1 whose fields are taken as reference (using f10) from p1 when i write a simple rpgle pgm to write records from display file in to file p1(pf) using following code: fp1 uf a e disk fd1 cf e workstn ...

CPYTOIMPF 'To File' problem

The following command: ===> CPYTOIMPF FROMFILE(LTCLIB/WPELG01P) TOFILE(LTCLIB/WPELGCSV) MBROPT(*REPLACE) STRDLM(*NONE) produces error To-file WPELGCSV in LTCLIB not allowed. The explanation says the To file must be an externally defined PF, which it is. I need to remove the double quote...

Positioning Cursor in Subfile

I can use the SFLRCDNBR(CURSOR) keyword to position the cursor on the correct subfile line that I want, but can I then get it to position on a particular field ? SFLRCDNBR(CURSOR) defaults to the first input capable field. DSPATR(PC) seems to override the SFLRCDNBR keyword; therefore I lose the...

AS400-DML

I have created one table using CREATE TABLE Command and have added some datas in that table.i have defined that table RPGLE's File specification. FEmployee IF A E Disk . While compiling i am getting RNF2109 Error. Please help me to rectify this error?

READE,*LOVAL SETLL

In what condition we have to use ,READE,READ,REAC and *LOVAL SETLL?

Determine TCP port used by a connection.

We have an application that has our iSeries(AS/400) connect to a remote IP address and port. If we have to end the application and restart it (IPL, error, end/start subsystem) the iSeries keeps the connection open. AFter the application is restarted, the TCP connections show two connections to the...

Message status

Hi, Can any one please tell me what are all the different job statuses in as400 like MSGW,CNDW,EVTW,DEQW,DLYW and what do they actually stand for?

Embedded SQL in RPG ILE

I want to write a program that will retrieve any field(s)from any file on the iSeries. The only part I haven't figured out is how to code the fetch statement to populate variables that aren't known until execution time