shadow

Tutorial Membuat Sub File di AS400

Tutorial Membuat Sub File di AS400

Tutorial Membuat Sub File di AS400

Tutorial Membuat Sub File di AS400
Tutorial Membuat Sub File di AS400

Sebelumny kita harus mengetahui, apa itu sub file. Sub File digunakan untuk menampilkan data banyak
berbentuk table. berikut contoh gambar Sub File :

X SCRNO CSNO NAMA ACNO STATUS
X 0000000001 0000000 YADI 0000000000 0
0000000011 0000000 DENI 0000000000 0
X 0000000007 0000000 Salemet 0000000000 0


untuk membuat Sub File ada beberapa File yang harus di siapkan, diantaranya adalah :
1. Buat File *.pf <– sebagai data base yang akan di akses 2. Buat File *.dspf <– yang akan menangani masalah tampilan. 3. Buat File *.rpg/rpgle <– sebagai program utama 1. File DSPF
0000.10 A*%%TS SD 20081114 144536 MULYADI REL-V5R3M0 5722-WDS
0000.20 A* 90/05/03 12:22:01 SYSTEK REL-R02M00 5728-PW1
0000.30 A*%%EC
0000.40 A DSPSIZ(24 80 *DS3)
0000.50 A REF(*LIBL/TRLBTOT)
0000.60 A CHGINPDFT(CS)
0000.70 A PRINT(*LIBL/QSYSPRT)
0000.80 A R SFLREC SFL
0000.90 A*%%TS SD 20081114 144536 MULYADI REL-V5R3M0 5722-WDS
0001.00 A TEXT(‘SUB FILE FORMAT KEYWORD’)
0001.10 A CRDLIM 15S 0H
0001.20 A PILIH 1A I 8 9VALUES(‘X’ ‘ ‘)
0001.30 A NAME R O 8 14REFFLD(SUBFIL/NAME LIBY/CUSMSTL)
0001.40 A ADDR R O 8 26REFFLD(SUBFIL/ADDR LIBY/CUSMSTL)
0001.50 A CUST R O 8 37REFFLD(SUBFIL/CUST LIBY/CUSMSTL)
0001.60 A R SFLCTL SFLCTL(SFLREC)
0001.70 A*%%TS SD 20081114 143714 MULYADI REL-V5R3M0 5722-WDS
0001.80 A SFLSIZ(0100)
0001.90 A SFLPAG(0010)
0002.00 A CA03(03 ‘EXIT_PROGRAM’)
0002.10 A OVERLAY
0002.20 A 20N40 SFLDSP
0002.30 A N40 SFLDSPCTL
0002.40 A 40 SFLCLR
0002.50 A N39 SFLEND
0002.60 A RECNUM 1S 0H
0002.70 A 20 6 4′ PILIH NAMA –
0002.80 A ALAMAT ‘
0002.90 A COLOR(WHT)
0003.00 A CTR 1S 0H
0003.10 A 5 3’==================================-
0003.20 A =======================’
0003.30 A 7 3’==================================-
0003.40 A =======================’
0003.50 A 4 3’MASUKAN NAMA’
0003.60 A SNAMA 10A I 4 19
0003.70 A 1 3’PROGRAM LATIHAN YADI’
0003.80 A R FUNCKY
0003.90 A*%%TS SD 20081103 164843 MULYADI REL-V5R3M0 5722-WDS
0004.00 A 21 4’F3-EXIT’
0004.10 A 20 4’==================================-
0004.20 A ====================== ‘
0004.30 A 20 21 44’pageup/pagedown’
0004.40 A COLOR(RED)
0004.50 A R NEWPAGE
0004.60 A*%%TS SD 20081103 165309 MULYADI REL-V5R3M0 5722-WDS
0004.70 A 4 7’NAMA TERPILIH :’
0004.80 A 5 7’ALAMAT TERPILIH :’
0004.90 A NAMAMU 10A O 4 29
0005.00 A CITYMU 10A O 5 29
0005.10 A 3 3’|’
0005.20 A 4 3’|’
0005.30 A 5 3’|’
0005.40 A 6 3’|’
0005.50 A 7 4′———————————–
0005.60 A —‘
0005.70 A 3 41’|’
0005.80 A 4 41’|’
0005.90 A 5 41’|’
0006.00 A 6 41’|’
0006.10 A 2 4′———————————–
0006.20 A —‘
****************** End of data ****************************************************** 

Sumber : https://anchorstates.net/