เราจะสร้างโปรแกรมที่
-ไม่ต้องสร้างหน้าจอ (Display File) ... แต่จะแสดงผลผ่าน Msg แทน
Msg ของ iSeries หรือ AS/400
Msg (Message) เป็นข้อความที่ใช้ส่งหากัน (คล้าย Mail แต่เป็นยุคเริ่มต้น)
Msg จะถูกส่งให้ไปยัง Msg Queue ซึ่งใช้บ่อย 2 ตัว คือ ชื่อ User Profile กับ ชื่อจอที่ทำงาน(hob)
เราจะเขียนโปรแกรม ส่งไปยัง User Profile ของเรา "SARAYUT"
การส่ง Msg ทำผ่านคำสั่ง
เราจะดู Msg ได้โดยผ่านคำสั่ง DspMsg
ที่ line command ป้อนคำสั่ง DspMsg กด Enter
จะได้ผล คล้ายแบบนี้ (ไม่มี Msg ค้างในนี้)
มุมซ้าย-บน แสดงชื่อ User Profile ของผม
สร้าง source code
cmd line : STRPDM + Enter > ป้อน 3 + Enter (เลือก opt=3 Work with Member)
ป้อน File = QRPGSRC , Lib = QGPL (หรือที่เก็บ) , Member : Name = *ALL
กด F6=Create (สร้าง member) + ตั้งชื่อ code (member) HELLO1 ชนิด RPG
(หลังจาก ตั้งชื่อ) จะเห็น หน้าจอ พร้อมป้อน code (แสดงบรรทัดว่างให้ป้อน)
ให้กด Enter เพื่อ "ยกเลิก"
แล้วสั่ง "เพิ่ม"(Insert) บรรทัดว่างเพื่อป้อน โดยแสดง Format ช่วยป้อนชนิด C-Spec เพิ่ม 5 บรรทัด
ป้อนคำสั่ง IFC3 ที่ด้านซ้าย + กด Enter
จากนั้น ป้อน code ตามภาพ (ตำแหน่ง ต้องตรง)
ให้ส่ง "HI!" ไปที่ Msg Queue ชื่อ SARAYUT
แล้ว สิ้นสุดการทำงาน ของ RPG (LR= Last Record)
Compile (code) เป็น Object
จะเกิด Member = Hello1
(ทำครั้งแรกเท่านั้น)
ตั้งค่าการ Compile และ Run
-Object ที่ compile จะเก็บใน Lib= QGPL
-Compile ไม่ใช่ Compile in Batch (=เห็นผลลัพธ์ของการ compile โดยตรง)
-ไม่ run ใน Batch (=เห็นผลการ Run ทันที)
ที่ Work with Member using PDM
กด [F18]=Change Default (ถ้าไม่เห็น ปุ่มนี้ กด [F24] 2 ครั้ง)
Compile โดย ช่อง Opt ด้านหน้า Hello1 ป้อน 14
+ กด F4 = Prompt (ดูว่าสร้างแล้วไปเก็บที่ Lib. อะไร ปรกติจะตรงกับที่ตั้งค่าไว้)
ถ้า compile ผ่านจะแสดง msg ที่บรรทัดด้านล่าง
สั่ง run program นี้ได้เลย call hello1
หลัง run ใช้คำสั่ง dspmsg
จะเห็นข้อความที่ RPG ส่งไป
สรุป
-Simple RPG ใช้ Msg ในการติดต่อ
-(ผมเลือก)ใช้ StrPDM ในการจัดการ code (สร้าง, compile) อยู่ในรูป member ใน Source (File)
- ตั้งค่าเพื่อให้จัดการ ง่าย
-เข้าไปเขียน code ด้วย StrSEU
- RPG ต้องเขียนใน "แนว" ตำแหน่ง
-compile code เป็น object
-สั่ง run (call) + ตรวจผลการทำงาน ด้วยคำสั่ง DspMsg
