経営課題　　Nov

Size: px

Start display at page:

Download "経営課題　　Nov"

えのあみおか
5 years ago
Views:

1 フリーフォーマット型 RPG の入門株式会社アイラーニング中村潤

2 Agenda 再確認 RPG とはフリーフォーマット RPG は RPGⅣ であるということ演算仕様書のみのフリーフォーマット RPG 完全フリーフォーマット 1

3 再確認 RPG とは 2

4 RPG とは RPG とは Report Program Generator 帳票印刷プログラムを作成する言語 RPG 仕様書記入方式で習得が早い固定位置記入方式のコーディング RPG 内部論理で入出力命令が不要 CL0N01FACTOR OPCODE&EXTFACTOR RESULT LEN++D+HILOEQ C EXCEPT MIDASI C* 繰り返し C DO *HIVAL C READ TOKMSP 99 C N99 C N99 ENDDO C* 終了処理 C EXCEPT SAISHU C SETON LR C RETURN

5 RPG とはコーディング例 4

6 RPG の変遷 RPGⅡ System36 以前プログラム記述方式 RPG 内部論理 RPGⅢ System38 AS/400 RDBを外部記述ファイルで使用 RPGⅣ AS/400~IBM i RPGⅢでの規制を大幅緩和 5

7 RPGⅣ で大きく変わった事データ名の柔軟性 _ が使用可長さが10 文字まで ( フィールド名は4096 文字 ) 関数の使用命令の表現が簡素に日付計算が容易標識を使用せずに命令結果を判断統合言語環境パフォーマンスの向上プログラム管理運用の効率化

8 RPGⅢ プログラマーにとっては RPGⅣ の新しい機能も自分たちで解決済み日付の計算データ名の名前の短さ (6 文字 ) あえて冒険する必要は無い? 7

9 しかし! プログラマーが高齢化 S/38 以来この道 30 年後継者を育てたい! 若いプログラマーは Java C PHP 自宅 PC で開発可能市販教材が豊富教育機関で学習 8

10 フリーフォーマット RPG が解決の糸口 Java や C と記述方式が似ているので若いプログラマーの習得が容易 Rational Develper for i (Eclipse) で Java と違和感がまったく無い同じ RPG なのでこれまでの RPG プログラマーも慣れるのが速い 9

11 Agenda フリーフォーマット RPG は RPGⅣ であるということ 10

12 RPGⅢ から RPGⅣ への変換フリーフォーマット RPG は RPGⅣ ソースプログラムは CVTRPGSRC コマンドで RPGⅢ から RPGⅣ へ簡単に変換可能固定位置記入形式の RPGⅣ プログラムに変換 CVTRPGSRC FROMFILE(QRPGSRC) FROMMBR(*ALL) TOMBR(*FROMMBR)

13 RPG は混在可能 RPGⅢ プログラムも RPGⅣ プログラムもオブジェクトタイプは *PGM CALL コマンドまたは RPG から CALL 命令で実行 RPGⅢ プログラムから RPGⅣ プログラムが実行可能すべての RPG プログラムを RPGⅣ FFRPG に変更する必要は無い 12

14 まず RPGⅣ を知ろう (1) 制御仕様書はすべてキーワード DATEDIT( 日付編集 ) DATFMT(*JIS) TIMFMT(*ISO) NOMAIN 13

15 まず RPGⅣ を知ろう (2) ファイル仕様書の継続行はキーワード記入オーバーフロー標識 OFLIND(*INOF) ユーザーオープン USROPN サブファイル使用 SFILE(#RRN01:SFL01) 14

16 まず RPGⅣ を知ろう (3) 定義仕様書 (D) 配列 (RPGⅢではE 仕様書 ) データ構造 (RPGⅢではI 仕様書 ) キーワード使用可能 INZ( 省略時の値指定 ) CONST( 固定情報 ) DIM( 配列定義 ) 15

17 まず RPGⅣ を知ろう (4) 定義仕様書の例 ( 配列 ) RPGⅢ の E 仕様書 FMT E...E...FROMFILETOFILE++NAME++N/RN/TBLENPDSARRNAMLENPDSCOMMENTS E TCD TNM 10 RPGⅣ の D 仕様書 FMT D...DNAME ETDSFROM+++TO/L+++IDC.KEYWORDS D TCD S 5 DIM(10) CTDATA PERRCD(1) D TNM S 10 DIM(10) ALT(TCD) 16

18 まず RPGⅣ を知ろう (5) 定義仕様書の例 ( データ構造 ) RPGⅢ の I 仕様書 FMT DS...IDSNAME...NODSEXT-FILE++...OCCRLEN I@DATA DS 99 FMT J...I...PFROMTO++DFIELD+L1M1FRPLMNZR I 1 5 CODE I 6 20 NAME RPGⅣ の D 仕様書 FMT D...DNAME ETDSFROM+++TO/L+++IDC.KEYWORDS DS OCCURS(99) D CODE D NAME

19 まず RPGⅣ を知ろう (6) 演算仕様書拡張演算項目 2 が使用可能 18

20 まず RPGⅣ を知ろう (7) 新しい演算命令 FOR ELSEIF LEAVESR ADDSUR SUBDUR 従来と名前が変わった命令 LOKUP LOOKUP UPDAT UPDATE DELET DELETE 19

21 まず RPGⅣ を知ろう (8) 演算仕様書 : 式の評価拡張演算項目 2 を使用し式の評価が可能 EVAL URIAGE = SURYO * TANKA IF URIAGE = 0 EVAL URIAGE = SURYO * TANKA ENDIF 20

22 まず RPGⅣ を知ろう (8) 関数日付計算 %DAYS %MONTHS %YEARS 文字列操作 %SUBST %TRIM これまでの演算命令の代わり %XFOOT %LOOKUP

23 演算仕様書のみのフリーフォーマット RPG 22

24 フリーフォーマット型 RPG V5R1 より演算仕様書のフリーフォーマット化 / は7 桁目 /FREE URIAGE = SURYO * TANKA; /END-FREE V7R1(Technology Refresh 7) より完全フリーフォーマット化

25 演算命令記入規則命令演算項目 2 演算項目 1 結果のフィールド ; 開始桁は 8 桁目 CHAIN TOKMSP JHTOKB; URIAGE = SURYO * TANKA; COUNT += 1; // コメント

26 コーディング例 1 read tokmsp; dow not %eof(tokmsp); count += 1; sagaku = tkgend - tkuzan; if *inof; write midashi; *inof = *off; endif; write meisai; read tokmsp; enddo;

27 コーディング例 2 READ TOKMSP; DOW NOT %EOF(TOKMSP); COUNT += 1; SAGAKU = TKGEND - IF *INOF; WRITE MIDASHI; *INOF = *OFF; ENDIF; WRITE MEISAI; READ TOKMSP; ENDDO; TKUZAN;

28 関数日付計算今までのやり方 FMT I...IFILENAMESQNORIPOS1NCCPOS2NCCPOS3NCC I DS FMT J...I...PFROMTO++DFIELD+L1M1FRPLMNZR I 1 80HIZUKE I 1 40NEN I 5 60TSUKI I 7 80HI 年月日のフィールドをデーや構造で定義 ( 年月日 )

29 関数日付計算 (ADDDURやSUBDURでも可) TKNYUK + %DAYS(20) ; TKNYUK + %MONTHS(6) ; TKNYUK + %YEARS(2) ; データベースの日付フィールド定義 FMT PF...A...T.NAME++++++RLEN++TDPB...FUNCTIONS A TKGEND 9P 0 COLHDG(' 信用限度額 ') A TKUZAN 9P 0 COLHDG(' 売掛金 ' ' 残高 ') A TKNYUK L DATFMT(*ISO) A COLHDG(' 最終入金日 ') A TKNYUT T TIMFMT(*JIS) A COLHDG(' 入金時間 ')

30 関数文字列操作 TKNAKJ = 株式会社アイ = %TRIM(TKNAKJ) + 様 ; 株式会社アイラーニング様

31 フリーフォーマットで使えないもの使えなくなった命令 XFOOT LOOKUP ADDDUR SUBDUR 関数で代用結果の標識が使用不可関数で代用 %EOF %FOUND 30

32 完全フリーフォーマット 31

33 完全フリーフォーマット制御仕様書ファイル仕様書定義仕様書もフリーフォーマット完全フリーフォーマット化 /FREE と /END-FREE は不要 IBM i 7.1 TR7(Technology Refresh 7) より Rational Develper for i 使用 (5250 画面の SEU では構文エラー ) RPG 内部論理は使用不可 32

34 完全フリーフォーマットのメリット習得が容易 Java や PHP を知っている人であれば直感で理解できる (RDi の画面では Java の世界とほぼ同じ ) 従来の RPG プログラマーは命令を知っているのですぐに慣れることができる SEU からの開放 FTP などでソースメンバーを PC に転送して編集が可能 RDI で PC 側のファイルと実際のソースメンバーとの整合性を管理 33

35 Rational Develper for i (Eclipse 画面 ) での開発 PDM のように IBM i 上のオブジェクトを操作 SEU のようにソースを表示編集操作できる LPEX エディターファイルのフィールドやデータをテーブル形式で表示 Java と違和感がない 34

36 制御仕様書 CTL-OPT DATFMT(*ISO) TIMFMT(*ISO); 仕様書コード H が CTL-OPT に変わっただけ

37 ファイル仕様書 DCL-F TOKMSP; デフォルトでは読み取り専用全手順アクセス外部記述データベースファイル DCL-F TOKMSP USAGE(*INPUT) KEYD DISK(*EXT) ; DCL-F QPRINT USAGE(*OUTPUT) PRINTER(132) OFLIND(*INOF);

38 定義仕様書 DCL-S URIAGE PACKED (9:0); DCL-S CUST_NAME CHAR(100); DCL-S ARRAY1 ZONED(5:0) DIM(5); フィールド名配列データ構造もすべて定義仕様書で定義

39 定義仕様書データ構造の例 DCL-DS *N; DCL-SUBF DS_1_5 DS_6_10 DS_2_6 DS_7_9 END-DS; DCL-DS INPDTA END-DS; DS_1_10 CHAR(10); CHAR(5) OVERLAY (DS_1_10:1); CHAR(5) OVERLAY (DS_1_10:6); CHAR(5) OVERLAY (DS_1_10:2); CHAR(3) OVERLAY (DS_1_10:7); EXT EXTNAME('TOKMSP') PREFIX(I#:2) 38

40 徐々に勉強しましょう ILE( 統合言語環境 ) 異なる言語のプログラム (RPG COBOL C CL) をモジュールとしてコンパイルし結合してプログラムオブジェクトを作成サービスプログラムの作成により関数的な使用方法が可能ソースプログラムソースプログラムモジュールオブジェクトモジュールオブジェクトプログラムオブジェクト 39

41 徐々に勉強しましょう SQL 組み込み SQL でファイル操作今存在している物理ファイル論理ファイルをテーブルビューとして使用可能条件付レコードの読み取りが OPNQRYF よりも簡単 DCL-DS INPDTA END-DS; EXT EXTNAME('TOKMSP') PREFIX(I#:2) EXEC SQL SELECT * INTO :INPDTA FROM TOKMSP WHERE TKBANG = :X1BANG; 他の言語よりも簡単! 40

42 コンパイル単一コマンドでのコンパイル CRTBNGRPG( 今までのCRTRPGPGM) CRTSQLPKGI(SQLを含むプログラム ) ILE でのコンパイル CRTRPGMOD( モジュール作成 ) CRTPGM( プログラム結合 ) 41

43 アイラーニングについて IBM コーポレーションのグローバルプログラムの一環として IBM 研修事業はトレーニングパートナーであるアイラーニングに移管されました日本アイビーエム研修部アイセス ( トレーニングパートナー ) 1990 IBM-J 4% 社名変更 2013 年 4 月アイラーニング IBM Japan Learning Division 日本研修サービス日本 IBM 人財ソリューション研修事業移管 IBM-J 100% 42

44 RPG 研修 AS513 System i RPGⅣ バッチプログラム演習 RPGⅣ の基礎と帳票を出力するバッチプログラムのプログラミングを学ぶコースです AS514 System i RPGⅣ 対話型プログラム演習画面を使用した RPGⅣ のプログラミングを学ぶコースです AS518 System i RPGⅢ 基礎演習 RPGⅢ の基礎と帳票出力データベース操作を行うプログラミングを学ぶコースです AS515 System i RPGⅢ バッチプログラム演習 RPGⅢ の構造化内部論理プログラミングを学ぶコースです AS519 System i RPGⅢ 対話型プログラム演習画面を使用した RPGⅢ のプログラミングを学ぶコースです

45 RPG 研修 AS520 RPGⅢ プログラマーのための FreeFormatRPG RPGⅢ プログラマーの方を対象にフリーフォーマット RPG プログラミングを解説するコースですこれから RPGⅢ をフリーフォーマット RPG にコンバージョンされるというプログラマーの方全てを対象としたコースですお待ちしております! 44

スライド 1

スライド 1 オープンソース協議会 2016 年第一回勉強会フリーフォーム RPG Ver. 概要 OS のバージョンと PTF V7R1 - テクノロジーリフレッシュ SF99707 11 DB2 グループ SF99071 Level 38 SI51904 5770WDS Compiler ILE RPGⅣ SI58136 5770WDS Compiler ILE RPGⅣ V7R2 - テクノロジーリフレッシュ

経営課題 Nov

経営課題　　Nov