■前提
最終目標はRPG3をTOBiのmakei convertコマンドでPCに抽出します
抽出前に5250でRPG3のコンパイルと実行ができることを確認します
■事前準備(ライブラリ・ソースとメンバーの作成)
◯5250で接続
PVSへsshと5250ログインの手順に従って5250に接続します
＊PowerShellでssh接続してPortForwarding経由で5250接続します
◯ライブラリとソース作成
master/developの共通ブランチ用出力先ライブラリがFLIBです
各人ブランチ用出力先ライブラリが {名前}LIBです
ここでは共通ブランチの FLIB を作成し、FLIBにQRPGSRC,QDSPSRCソースを作成します
> CRTLIB LIB(FLIB) TEXT('RISING2026F Lirary')
Library FLIB created.
> GRTOBJAUT OBJ(FLIB) OBJTYPE(*LIB) USER(*PUBLIC) AUT(*ALL)
Object authority granted.
> CRTSRCPF FILE(FLIB/QRPGSRC) RCDLEN(92) IGCDTA(*YES)
File QRPGSRC created in library FLIB.
> GRTOBJAUT OBJ(FLIB/QRPGSRC) OBJTYPE(*FILE) USER(*PUBLIC) AUT(*ALL)
Object authority granted.
> CRTSRCPF FILE(FLIB/QDSPSRC) RCDLEN(92) IGCDTA(*YES)
File QDSPSRC created in library FLIB.
> GRTOBJAUT OBJ(FLIB/QDSPSRC) OBJTYPE(*FILE) USER(*PUBLIC) AUT(*ALL)
Object authority granted.
◯メンバー作成
SEUで2次元方程式を解くRPG3を入力します
> STRSEU SRCFILE(FLIB/QRPGSRC) SRCMBR(RENRITSU) TYPE(RPG) TEXT('2次元方程式')
> STRSEU SRCFILE(FLIB/QDSPSRC) SRCMBR(RENRITSU) TYPE(DSPF) TEXT('2次元方程式')
■コンパイル
◯DSPFを自分のライブラリにコンパイルする
> CRTDSPF FILE(TAKAMILIB/RENRITSU) SRCFILE(FLIB/QDSPSRC) SRCMBR(*FILE)
File RENRITSU created in library TAKAMILIB.
◯PDMを使う方法
> STRPDM
3 (Work with Members)
FILE : QRPGSRC
Library : FLIB
RENRITSU を 14=Compile でコンパイルバッチ
RENRITSU を 2=Edit で編集 + F15(SHIFT+F3)で2=Spool file
画面下側にコンパイルリストが表示される。コンパイルリストを閉じる時はF12
◯SEUとCRTRPGPGMを使う方法
> STRSEU SRCFILE(FLIB/QRPGSRC) SRCMBR(RENRITSU)
> CRTRPGPGM PGM(TAKAMILIB/RENRITSU) SRCFILE(FLIB/QRPGSRC)
＊ソースはFLIB/QRPGSRCで、プログラム作成は自分のライブラリに出力する
> WRKSPLF
＊エラーがある場合自分のスプールファイル(コンパイルリスト)の一覧表示
■実行
> CALL PGM(RENRITSU)
Ax^2+Bx+C = 0 になるA,B,Cを整数で指定すると満たす解を表示する
例) A=1, B=0, C=1- … x^2 - 1 = 0 … (x+1)(x-1)=0 … 解は1,-1
画面でマイナスを入力する時は 1- とする
二次方程式の係数を入力
Ａ 1
Ｂ 0
Ｃ 1-
係数を入力後ENTを押下
↓
二次方程式の計算結果
Ａ 1
Ｂ 0
Ｃ -1
計算結果１ 1.00
計算結果２ -1.00