Step 1 Create Physical FIle

This is the DDS for the Physical File named CUST.

     A          R CSREC                        TEXT('CUSTOMER')
     A            CSNBR          6S 0        TEXT('CUST #')
     A            CSNAME        30A        TEXT('NAME')
     A            CSADR1        30A         TEXT('ADDRESS 1')
     A            CUSCTY        20A         TEXT('CITY')          
     A            CUSSTA         2A          TEXT('STATE')         
     A            CUSZIP        10A          TEXT('ZIP')
     A          K CSNBR

RPG/400 Step by Step

Agenda

1. Create Physical File.
2. Create Display File.
3. Create RPG/400 Source Code.
4. Create RPG ILE Source Code.

RPG400

เริ่มต้นการเขียนโปรแกรมบน AS400 โดยใช้ ภาษา RPG

ก่อนอื่นก็ขอสวัสดีทุกที่มาเยี่ยมชมบล๊อกของผม และยินดีต้อนรับทุกท่านที่ต้องการรู้ว่า โปรแกรมที่ใช้บน AS400  ใช้ภาษาอะไรเขียน และมันทำงานยังไง  เอาง่ายๆผมจะเล่าให้ฟังและแนะนำตัวอย่างให้ดู
แบบง่ายๆบ้านๆไม่ต้องใช้หลักการอะไรเยอะแยะ AS400 ก็คือ เป็นชือผลิตภัณฑ์ ชนิดหนึ่งที่บริษํท IBM  ผลิดขึ้นมาเพื่อsupport ธุรกิจต่างๆ เช่น ธนาคาร โรงงานอุตสาหกรรมขนาดใหญ่ ที่มีสาขาเยอะๆ ต้องใช้
ข้อมูลที่แม่นยำ รวดเร็ว มีประสิทธิภาพ ข้อมูลเป็นปัจจุบัน เก็บข้อมูลได้มหาศาล และที่สำคัญ มีความปลอดภัยของข้อมูลสูง และ Run อยู่บนระบบปฏิบัติการ OS400 ซึ่งก็เป็นของบริษัท IBM อีกนั่นและ และภาษาที่ใช้เขียน Applicaion ต่างๆ  ที่นิยมใช้กัน เช่น ภาษา RPG ภาษา Cobol และ ภาษา C เป็นต้น

เรามาเริ่มกันเลยดีกว่า ว่าภาษา RPG มันเป็นแบบไหน และมันเขียนต่างจาก OOP ทั่วไปอย่างไร  และหลายๆคนที่เริ่มเรียนเขียนโปรแกรมในตอนแรกๆนั้น ผมคงจะเดาไม่ผิด พื้นฐานการเขียนครั้งแรกที่อาจารย์สอนเรา คงหนีไม่พ้นโปรแกรมคิดเลข บวก บล คูณ หาร แน่นอน  และเราก็จะเดินตามรอยนั้นที่เราคิดว่าเราถนัดที่สุด เรามาเริ่มกันเลย


1. Program คิดเลข บวก ลบ คูณ หาร
ผมจะเปรียบเที่ยบกับภาษาOOP ที่ผมคิดว่าท่านเข้าใจมากที่สุดและง่านที่สุดนั่นก็คือ VB นั่นเอง เพื่อประกอบความเข้าใจ

VB Program
บวก
Dim A as Integer
Dim B as Integer
Dim C as Interger
A =0
B=5
C=6
A=B+C
ผลลัพธ์ก็คือ A=11

RPG

C               Z-ADD0             A  10
C               Z-ADD5             B   10
C              Z-ADD6              C   10
C      B      ADD    C             A

ผลลัพธ์ก็คือ A=6