Increase the connection time of FTP connection

By default, FTP automatically disconnects after five minutes of inactivity. The following command increases the time. Once you made a FTP connection type the following command.

Quote time 1000 (This increases idle time to 1000 seconds)

Likewise specify required time.

Define data areas in ILE RPG programs

As a good programming practice, define data areas in the D spec. First you have to define a data structure or a variable which has equal length to the data area.



Define the data area in D spec



Use the data area in free format

Cl_run = *blanks;
In *lock *dtaara;
Cl_run = Lastrun;

Defining a key list in a free format program

Here is an example of defining a key list in a free format program.

The AB20LF logical file created with ABCUS and ABCLC as keys.



Define the file in F spec as follows.



Define the key list as a data structure in D spec.




The free format code as follows

Workaround solution for MOVE operation

MOVE operation can be used to convert integer values to character values. But in ILE free format, we have to use %CHAR built in function for that.

Let us define two variables
A char 10
B dec 10 0 Inz(2510)

MOVE B A

The value in A is now '0000002510'

A = %char(B)

The value in A is now ' 2510'

Main difference is leading zeros. Sometimes it is necessary to have leading zeros in variables. Therefore the below mentioned code can be used.

Evalr a = %editc(b:'4':*ASTFILL)
a = %xlate('*':'0':a)

%EDITC built in function converts numeric field into character field and edit the value according to the edit code. *ASTFILL fills the leading spaces with '*'. %XLATE function translate '*' to '0'.

Data queue programming

Follow the steps given below

1. Create a data queue.
CRTDTAQ DTAQ(Mylib/Mydataq) TYPE(*STD) MAXLEN(124) FORCE(*YES) SIZE(*MAX2GB 1000) TEXT('My first data queue')

2. Define a data structure in your RPG program. Please remember that, data structure is used to read and write data into the data queue according to an order. For our convenience we are defining 124 length data structure.



3. By calling the below mentioned program, you will be able to write data into the data queue.

Call 'QSNDDTAQ'
Parm Dataqueue (Name of the data queue)
Parm lib (Library of the data queue)
Parm len (Length of the data queue)
Parm Dtq_struct (Data structure)

4. Write another program to retrieve data from the data queue.

Call 'QRCVDTAQ'
Parm Dtqnam (Name of the data queue)
Parm Dtqlib (Library of the data queue)
Parm Dtqfldlen (Length of the data queue)
Parm Dtqfld (Data structure)
Parm Dtqwait (Amount of time to wait if no record exist in the data queue)

Use FTP to receive IFS files

These simple steps describe how to perform a ftp function with AS400 folder system.

c:\ftp xxx.xxx.xxx.xxx
User (xxx.xxx.xxx.xxx:(none)): xxxxxxxxxx
Enter password.xxxxxxxxx
xxxxxxxxx logged on.
ftp> quote site nam 1
ftp> cd /qdls

now you are in QDLS folder

If you want to revert back, do the following steps.

ftp> cd /
ftp> cd qsys.lib
ftp> quote site nam 0
ftp> cd qgpl