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)