|
CASE upper(bi) = "K"
@6,25 say ' Sila Taip Kod Kumpulan : ' get xx
READ
STORE xx to xxp
IF len(trim(xx)) = 0
Clear
RETURN
ENDIF
SELECT Files.kumpulan, Files.nofile, Files.namafile+namafile1;
+namafile2+namafile3;
FROM files;
where (files.kumpulan= xxp);
ORDER BY files.kumpulan
Clear
CLOSE all
LOOP
CASE upper(bi) = "N"
xx=space(1)
@6,25 say ' Sila Taip Huruf : ' get xx picture "!"
READ
STORE xx to xxp
IF len(trim(xx)) = 0
Clear
RETURN
ENDIF
SELECT Files.kumpulan, Files.nofile, Files.namafile;
+namafile1+namafile2+namafile3;
FROM files;
where (upper(substr(files.namafile,1))= xxp);
GROUP BY files.namafile;
ORDER BY files.namafile
Clear
CLOSE all
LOOP
ENDCASE
.