Tabel AS400 merupakan object *FILE, maka command CPYF digunakan untuk copy seluruh atau sebagian struktur tabel pada database ke table lain. Berikut command copy file yang biasa saya gunakan:

Member Option > MBROPT

# MBROPT(*ADD) - Copy seluruh record file source ke file target
# MBROPT(*REPLACE) - Copy seluruh record file source ke file target diawali delete member file terlebih dahulu

Create File > CRTFILE

# CRTFILE(*YES) - Membuat file baru di target library
# CRTFILE(*NO) - File sudah tersedia di target library

Copy From – To Record Number > FROMRCD – TORCD

# FROMRCD (*START/<rrn>) - *START jika akan copy dari record pertama dari file source, atau <rrn> relative record number jika ingin dari record number tertentu
# TORCD (*END/<rrn>) - *END jika akan copy sampai record terakhir dari file source, atau <rrn> relative record number jika ingin sampai record number tertentu

Record Format Field Mapping – FMTOPT

Parameter ini digunakan jika format file sumber berbeda dengan format file target
# FMTOPT (*NOCHK) - Copy file berdasarkan length dari record yang ada
# FMTOPT (*MAP *DROP) - Copy file berdasarkan nama field yang ada (*MAP) dan abaikan field yang tidak ada (*DROP)

Contoh:

# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD) CRTFILE(*YES)
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD)
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*REPLACE)
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD) FROMRCD(*START) TORCD(*END)
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD) FROMRCD(10) TORCD(*END)
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD) FMTOPT(*NOCHK) 
# CPYF FROMFILE(SRCLIB/SRCFILE) TOFILE(TGTLIB/TGTFILE) MBROPT(*ADD) FMTOPT(*MAP *DROP)