Basic CL Program for Get IFS File List to Output File

บางครั้งเราต้องการรายชื่อ File บน IFS Directory เพื่อที่จะนำมาใช้งานต่อไป โดยในหัวข้อนี้จะเป็น ตัวอย่างการเขียน CL โปรแกรมเพื่อที่จะ List รายชื่อของไฟล์ที่อยู่ใน IFS Directory บน เครื่อง AS400

1. Create PF File for Output

2. Create CL Program

   2.1) Override STDOUT to FILE_LIST (สำหรับ OUTPUT ของ Command)

   2.2) เรียกใช้ Command LS โดย Qshell

หลังจากนั้น ทำการ Compile Program

Test Program for Get IFS File List

WRKLNK OBJ(‘/SON/EX/’)

Call TESTCL

Check Result

RUNQRY QRY(*NONE)  QRYFILE((FILE_LIST))