RPG เป็นภาษาที่ใช้บนเครื่อง IBM รุ่น iSeries, AS/400 (รุ่นยอดนิยม)
หรือ System/38 (รุ่นนี้น่าจะไม่มีคนใช้แล้ว)
ช่วงเวลาหนึ่ง รุ่น AS/400 ขายดีมากในประเทศไทย
ด้วยสภาพการใช้งาน ที่เฉพาะ IBM เท่านั้น ทำให้จนถึงปัจจุบันหลายบริษัทฯ ก็ยังใช้งานอยู่
สำหรับผู้ที่จำเป็นต้องใช้งาน ก็มาเรียนรู้กัน
แต่ควรเตรียมปรับตัว รองรับช่องทางเสริม เผื่่อไว้กรณีบริษัทเปลี่ยน platform ด้วยน๊ะครับ
ใน blog นี้
ผมจะแนะนำ แนวทางการใช้งาน ควบคู่กับการใช้เทคโนโลยี่ใหม่
----------------------------------------------------------------------------------------------
โปรแกรมเมอร์ต้อง ได้รับสิทธิการใช้เข้าใช้เครื่อง "ก่อน" น๊ะครับ
(ติดต่อ Admin ของเครื่องนั้น)
เข้าใช้งานด้วยเครื่อง Workstation (เครื่องเฉพาะเพื่อเปิดใช้ ปัจจุบันมีน้อยมาก)
หรือ PC ที่ติดตั้งโปรแกรมจำลองการทำงานเหมือน Workstation
ที่นิยมใช้คือ CA/400
(Client Access/400) ปรกติ Admin จะติดตั้งให้ใช้
สภาวะพร้อมทำงาน คือ หน้าจอ SignOn
หน้าจอ SignOn
การเข้าใช้งาน Admin จะสร้าง UserProfile และ รหัสผ่านเริ่มต้นให้
หลังจาก Sign On เข้าไป จะเห็นหน้าจออย่างน้อย หนึ่งใน 2 แบบ คือ
1. Line Command ต้องป้อนคำสั่งเอง (ต้องจำกัดหน่อยครับ)
2. Line Command ที่แสดง เมนู ให้เลือก (ง่ายดี)
แทนที่จะจำคำสั่งหรือโปรแกรมเครื่องมือแต่ละตัว
IBM ได้จัดรวมโปรแกรมเครื่่องมือ (Tool) ในการป้อน Code ไว้ใน Programming Development Manger
เรียกใช้ ด้วยคำสั่ง StrPdm
หน้าจอแสดงผลลัพธ์จาก คำสั่ง StrPdm
Code ที่เราสร้างจะจัดเก็บใน Library, SourceFile (ที่เราได้รับอนุญาตให้ใช้)
ลองดูภาพรวมๆ ของการสร้าง
ตย ต้องการสร้างโปรแกรม เพื่อแสดงคำว่า Hello
A. สร้างหน้าจอ เพื่อแสดงข้อความ Hello
B. สร้างโปรแกรม เรียกใช้ หน้าจอจากข้อ A
C. เรียกใช้
A. สร้างหน้าจอ ชื่อ HelloW เพื่อแสดงข้อความ Hello
(บรรทัดที่ 2 เริ่มต้น ที่คอลัมน์ 5)
หน้าจอมาตรฐาน จะมีขนาด 80 อักษร (คอลัมน์) 24 แถว
a.1 เลือกเมนู ข้อ 3 (ด้านล่าง ป้อน เลข 3 แล้วกด Enter)
จัดเก็บใน Source File = QDDSSRC ที่ Library = QGPL
จะอยู่ใน mode : หน้าจอแสดงรายชื่อสมาชิก (work member PDM)
a.2 กด F6 เพื่อสร้าง สมาชิก (Member) ใหม่ ตั้งชื่อ file หน้าจอ HelloW ชนิดเป็น DSPF
หลังสร้างเสร็จ จะเห็น ชื่อ HelloW (ในข้อ a.1)
a.3 เข้าไป ออกแบบหน้าจอ HelloW ด้วย StrSDA ป้อน 2=Edit หน้า HelloW
a.4 ป้อน code ดังต่อไปนี้
1. สร้าง หน้าจอ
(Record Format) ชื่อ HelloWR1 ป้อนเลข 1
2. ป้อน คำว่า Hello World ให้แสดง บรรทัดที่ 10 เริ่มที่คอลัมน์ 20
a.5 สิ้นสุดการป้อน โดยกด F3 เพื่อ Save จะกลับไปสู่ ข้อ a.1
a.6 เปลี่ยน code เป็น Object โดยป้อนเลข 14 ในช่อง Opt
หลังการสร้าง compiler จะแสดงผลเป็น รายงาน และ ข้อความ (สำเร็จ หรือ ล้มเหลว)
ตรวจสอบ object ได้สร้างสำเร็จ หรือไม่ ?
ด้วยคำสั่ง
dspobjd qgpl/hellow* *file จะเห็น object
B. สร้างโปรแกรม เรียกใช้หน้าจอข้อ A
(
สังเกต ผมพยายามแสดงให้เห็นว่า ทำงานคล้ายๆกัน)
b.1 เลือกเมนู ข้อ 3 (ด้านล่าง ป้อน เลข 3 แล้วกด Enter)
โดย
จัดเก็บใน SourceFile = QRPGSRC ที่ Library = QGPL
จะอยู่ใน mode : หน้าจอแสดงรายชื่อสมาชิก (work member PDM)
b.2 กด
F6 เพื่อสร้าง สมาชิก (Member) ใหม่ ตั้งชื่อ File = Hello ชนิดเป็น RPG
หลังสร้างเสร็จ จะเห็น ชื่อ Hello ในข้อ b.1
b.3 เข้าไป ป้อน code File= Hello ด้วย StrSEU ป้อน 2 หน้า Hello
b.4 ป้อน code ทีทำงานดังนี้
1. จะใช้ หน้าจอ จากข้อ A HelloW
2. เรียกใช้ หน้าจอเลขที่ 1 HelloWR1
3. บอกจุดสิ้นสุดโปรแกรม
b.5 สิ้นสุดการป้อน โดยกด F3 เพื่อ Save จะกลับไปสู่ ข้อ a.1
b.6 เปลี่ยน code เป็น Object โดยป้อนเลข 14 ในช่อง Opt
หลังการสร้าง compiler จะแสดงผลเป็น รายงาน และ ข้อความ (สำเร็จ หรือ ล้มเหลว)
C. เรียกใช้
ที่ Line Command : Call Hello
ตรวจสอบ object ได้สร้างสำเร็จ หรือไม่ ?
ด้วยคำสั่ง
dspobjd qgpl/hello* *pgm จะเห็น object
ตอนนี้เห็น "ภาพรวม" แล้วน๊ะครับ - แต่ละจุดยังมีรายละเอียดย่อยอีกพอสมควร
ถ้ามองอย่างยุติธรรม ขั้นตอนหลักไม่ต่างกันกับทุกภาษา
- ภาษาอื่น อาจจะมีเครื่องมือ ช่วยให้ใช้งานได้เร็วกว่า ตย.เช่น Visual Studio เป็นต้น
ผู้เขียน สอนพนักงานใหม่มาหลายรุ่น จะเชี่่ยวชาญต้อง
- เพิ่ม "ทักษะ" (ทำมากๆๆๆ)
- จดจำขั้นตอนหลัก ให้ได้ ("ลด" รายละเอียดปลีกย่อยไปก่อน)
- ใช้ "ความเข้าใจ" แทนการท่องจำขั้นตอน
