Banyak metode yang dapat digunakan untuk mengambil source code dari AS/400 ke PC. Saya lebih sering menggunakan FTP, karena lebih mudah dapat dibaca di PC berupa text file. Kali ini akan saya coba ulas sedikit cara mengambil source code dari AS/400 ke PC (Os. Windows).

Asumsi bahwa source code yang akan diambil berada di :

AS/400 dengan IP : 10.10.1.10
Library : Eden
Source File : QRPGLESRC
Member : TST1R

Cara simple untuk mengambil code tersebut adalah menggunakan commad prompt yang tersedia di Windows. Berikut langkah-langkahnya

1. Nyalakan aplikasi command prompt. Secara default apliasi ini ada di “Program Files” -> “Accesories” -> “Command Prompt”. Tips : tekan Win+R, kemudian ketikan “cmd” (tanpa tanda kutip) dan Enter.

2. Tuju ke folder yang akan dijadikan tempat untuk menyimpan source code yang akan diambil. Misalkan saya akan menyimpan di Drive D, maka commandnya adalah “D:”.

3. Akses server AS/400 menggunakan FTP. Ketikan command FTP ip-Address, dalam hal ini : “FTP 10.10.1.10” (tanpa tanda kutip). Kemudian Log-in.

4. Set library source code sebagai current library. Gunakan command “CD nama-library”, dalam hal ini : “CD Eden” (tanpa tanda kutip).

6. Ambil source code. Gunakan command “Get nama-source-file.nama-member”, dalam hal ini : “Get QRPGLESRC.TST1R” (tanpa tanda kutip).

7. Maka source code akan ada di dirve D dengan nama file : Qrpglesrc.Tst1R. Source code ini berupa text file, bisa dibuka di notepad atau text editor lainnya.

8. Untuk keluar dari FTP dan Command Prompt, ketikan command bye – enter – exit – enter.

Kurang lebih jika step-step ini dijalankan yang muncul di layar command prompt akan seperti ini :

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings>d:
D:\>FTP 10.10.1.10
Connected to 10.10.1.10.
220-QTCP at AS400.
220 Connection will close if idle more than 5 minutes.
User (10.10.1.10:(none)): eden
331 Enter password.
Password:
230 EDEN logged on.
ftp> cd eden
250 "EDEN" is current library.
ftp> get qrpglesrc.tst1r
200 PORT subcommand request successful.
150 Retrieving member TST1R in file QRPGLESRC in library EDEN.
250 File transfer completed successfully.
ftp: 633 bytes received in 0.09Seconds 6.73Kbytes/sec.
ftp> bye
221 QUIT subcommand received.
D:\> exit

Untuk selanjutnya, dengan beberapa modifikasi, cara ini saya gunakan sebagai salah satu cara dalam mem-backup source code AS/400.