戻る

出力サンプル ―SU00400―(日本語表示版)

元のRPGソースコード

H***************************************************************** H* COPYRIGHT SEC 1992 * H* LICENSED MATERIAL PROGRAM PROPERTY OF SEC.C * H***************************************************************** H* * 00.02H* SU00400 : 人事考課 評定ランク算出処理 条件指定 * H* 2005.12.1 考課区分マスタ化対応 * H*        * H***************************************************************** H Y/ 1 * リファレンスファイル * FREF IF E DISK *現在処理年月ファイル* FGENSYMP IF E DISK *管理マスタ * FCONTRLP IF E K DISK 0511 *考課区分マスタ 0511 FJIKKKBLAIF E K DISK *人事考課 評定入力ファイル F*JIKNYULBIF E K DISK *人事考課 評定ランク マスタ FJIKKKAP IF E K DISK *画面ファイル * 00.02FSU00400DCF E WORKSTN F KINFDS INF1 E JSKC 10 4 0 E TSKC 10 4 0 IINF1 DS I 370 370 CPOSY1 I 371 371 CPOSX1 I B 378 3790SFPAGE I DS I B 1 20CGYO I 1 1 B1 I 2 2 CPOSY2 I B 3 40CKETA I 3 3 B2 I 4 4 CPOSX2 *改定年月 I UDS I 101 1060#KTYM I 107 1100#KTYM4 I 107 110 #KTYMX * * パラメータ * C *ENTRY PLIST C PARM WSYYYY 40 対象年(YYYY) C PARM WSYY 20 対象年( YY) C PARM WSKKKB 考課区分 C PARM INKC 1 * C *LIKE DEFN YMD #YMD *キーリスト C* K#INS KLIST C* KFLD INHTYY C* KFLD INKKKB C* KFLD INSYCD *キーリスト C* K#IN KLIST C* KFLD INHTYY C* KFLD INKKKB * C K#LNK KLIST C KFLD WSKKKB C KFLD IKKTYM 05.12 *考課区分マスタ : C K#KK KLIST : C KFLD KKKKKB 05.12C KFLD KKHTYY DESCEND ***************************************************************** * * MAIN * ***************************************************************** ******************* * 初期処理 * ******************* C @MA010 TAG C EXSR \INIT C LR GOTO @MAEXT ******************* *見出し1 * ******************* C @MA020 TAG C EXSR \HD1 C KC GOTO @MAEXT C KL GOTO @MAEXT * ************ *終了処理* ************ C @MAEXT TAG C SETON LR C LR RETRN * C 1 CHAINREF 99 ***************************************************************** * * 初 期 処 理 * ***************************************************************** C \INIT BEGSR * カーソル取り出し用* C BITOF'01234567'B1 C BITOF'01234567'B2 * *現在処理年月ファイル CHAIN C 1 CHAINGENSYMP 75 *管理マスタ SETGT READP C GEGSYM SETGTCONTRLP C READPCONTRLP LR C LR RETRN *改定年月のデフオルト値を画面にセット C #KTYMX IFEQ *BLANK C CALL '\DAY6TO4' C PARM GEGSYM C PARM WSYM 40 C Z-ADDGEGSYM #KTYM C Z-ADDWSYM #KTYM4 C END C Z-ADD#KTYM4 WSYM C Z-ADD#KTYM4 WSGSYM C MOVELWSYM WSYY * C @INEXT ENDSR ***************************************************************** * * 第一画面処理 * ***************************************************************** C \HD1 BEGSR * *日付指定画面表示* C @HD010 TAG C EXFMT#HD1 C SETOF 010203 * C MOVELCPOSY1 CPOSY2 C MOVELCPOSX1 CPOSX2 * C KC MOVEL'1' INKC C KC GOTO @HDEXT C KL MOVEL'1' INKC C KL GOTO @HDEXT 0511 C KI DO | C EXSR \F09 | C Z-ADDWSKKKB KKKKKB | C WSYY IFGT 50 | C 1900 ADD WSYY KKHTYY | C ELSE | C 2000 ADD WSYY KKHTYY | C ENDIF | C K#KK SETLLJIKKKBLA | C WSKKKB READEJIKKKBLA 90 | C 90 MOVEL*BLANK WSKKNM | C N90 MOVELKKKKNM WSKKNM | C GOTO @HD010 0511 C ENDDO * C SETOF 0405 * *考課区分1,2,3以外はエラー * 00.02C*//////////WSKKKB////IFLT/1////////////////////////////////////// 00.02C*//////////WSKKKB////ORGT/3////////////////////////////////////// 0511 C*//////////WSKKKB IFNE 1 | C*//////////WSKKKB ANDNE3 | C*//////////WSKKKB ANDNE5 | C Z-ADDWSKKKB KKKKKB | C WSYY IFGT 50 | C 1900 ADD WSYY KKHTYY | C ELSE | C 2000 ADD WSYY KKHTYY | C ENDIF | C K#KK SETLLJIKKKBLA | C WSKKKB READEJIKKKBLA 90 | C N90 MOVELKKKKNM WSKKNM | C 90 MOVEL*BLANK WSKKNM | C 90 SETON 01 | C 90 GOTO @HD010 0511 C*////////////////////END * 03.11C *INKM IFEQ *ON 03.11C EXSR \HD2 03.01C KC GOTO @HDEXT 03.11C GOTO @HD010 03.11C ENDIF *考課年度チェック * C Z-ADD0101 #YMD C MOVELWSYY #YMD C CALL '\DCHK' C PARM #YMD C PARM STS 1 C STS IFNE ' ' C SETON 02 C GOTO @HD010 C END *日付形式変換 C MOVELWSYY @@YM4 C MOVE 01 @@YM4 C EXSR \4TO6 C MOVEL@@YYM6 WKHTYY 40 * *考課区分1,2,3存在チェック C* Z-ADDWKHTYY INHTYY C* Z-ADDWSKKKB INKKKB C* Z-ADD*LOVAL INSYCD C* K#INS SETLLJIKNYULB C* K#IN READEJIKNYULB 03 C* 03 GOTO @HD010 * * *日付形式変換 C MOVELWSYY @@YM4 C MOVE 01 @@YM4 C EXSR \4TO6 C MOVEL@@YYM6 IKKTYM C MOVEL@@YYM6 #SYYM 60 95.05C K#LNK SETGTJIKKKAP 95.05C WSKKKB REDPEJIKKKAP 75 95.05C*//////////K#LNK CHAINJIKKKAP 75 C 75 DO C 'ジンジコウカ'DSPLY C 'ヒョウテイランク'DSPLY C 'INV 'DSPLY C 'スキップシタ 'DSPLY C END * 00.02C*//////////WSKKKB////IFEQ/3////////////////////////////////////// 00.02C*//////////IKMTSY////ANDLE3////////////////////////////////////// 00.02C*////////////////////ADD//100///////#SYYM//////////////////////// 00.02C*////////////////////END///////////////////////////////////////// * C MOVE IKMTSY #SYYM * *処理年月のLDA セット * C Z-ADD#SYYM P#KTYM 60 C CALL '\LDASET' C PARM P#KTYM C Z-ADDP#KTYM #KTYM 00.02 *パラメータセット 00.02C MOVEL#KTYM WSYYYY * * 00.02 *追加役職グループ 03.11C*//KM CALL 'SU00402C' 03.11C*// PARM WSKKKB 03.11C*//KM GOTO @HD010 00.02 * 00.02 *甘辛計算地区割り 03.11C*//KN CALL 'YP210C' 03.11C*//KN GOTO @HD010 00.02 * 00.02 *甘辛計算除外資格 03.11C*//KP CALL 'SU00401C' 03.11C*// PARM WSKKKB 03.11C*//KP GOTO @HD010 00.02 * 00.02 *甘辛目標除外職掌 03.11C*//KQ CALL 'SU00404C' 03.11C*// PARM WSKKKB 03.11C*//KQ GOTO @HD010 00.02 * 00.02 *改善貢献除外資格 03.11C*//KR CALL 'SU00403C' 03.11C*// PARM WSKKKB 03.11C*//KR GOTO @HD010 01.03 * 01.03 *素点換算対象資格 03.11C*//KS CALL 'SU00405C' 03.11C*// PARM WSKKKB 03.11C*//KS GOTO @HD010 01.03 * 01.03 *素点換算値 03.11C*//KT CALL 'SU00406C' 03.11C*// PARM WSKKKB 03.11C*//KT GOTO @HD010 00.02 * C NKJ GOTO @HD010 * C @HDEXT ENDSR ***************************************************************** * * パラメータ保守画面 * ***************************************************************** C \HD2 BEGSR * C DO *HIVAL C EXFMT#HD2 *F13=終了 C *INKC IFEQ *ON C MOVEL'1' INKC C LEAVE C ENDIF *F12=前画面 C *INKL IFEQ *ON C LEAVE C ENDIF * C SELEC * 1.追加役職グループ C WSNO WHEQ 1 C CALL 'SU00402C' C PARM WSKKKB * 2.甘辛計算地区割り C WSNO WHEQ 2 C CALL 'YP210C' * 3.甘辛計算除外資格 C WSNO WHEQ 3 C CALL 'SU00401C' C PARM WSKKKB * 4.甘辛目標除外資格 C WSNO WHEQ 4 C CALL 'SU00404C' C PARM WSKKKB * 5.改善貢献除外資格 C WSNO WHEQ 5 C CALL 'SU00403C' C PARM WSKKKB * 6.素点換算対象資格 C WSNO WHEQ 6 C CALL 'SU00405C' C PARM WSKKKB * 7.素点換算値 C WSNO WHEQ 7 C CALL 'SU00406C' C PARM WSKKKB *<---総合職用---> * 20.年俸者資格 C WSNO WHEQ 20 C CALL 'SU0040AC' * 21.組織評価素点調整 C WSNO WHEQ 21 C CALL 'SU0040BC' 08.01 * 22.組織評価持ち点 : C WSNO WHEQ 22 08.01C CALL 'SU0040HC' * 23.年俸種類 08.01C*//////////WSNO//////WHEQ 22 08.01C WSNO WHEQ 23 C CALL 'SU0040CC' * 24.組織評価加算額 08.01C*//////////WSNO//////WHEQ 23 08.01C WSNO WHEQ 24 C CALL 'SU0040DC' * 25.間接成果評価加算額 08.01C*//////////WSNO//////WHEQ 24 08.01C WSNO WHEQ 25 C CALL 'SU0040EC' * 26.標準年令 08.01C*//////////WSNO//////WHEQ 25 08.01C WSNO WHEQ 26 C CALL 'SU0040FC' * 27.甘辛素点算出マスタ 08.01C*//////////WSNO//////WHEQ 26 08.01C WSNO WHEQ 27 C CALL 'SU0040GC' C ENDSL * C ENDDO * C ENDSR **************************************************************** * * * 日付の変換 * * * **************************************************************** ************************** *表示用4桁からDB6桁* ************************** C \4TO6 BEGSR * C CALL '\DAY4TO6' C PARM @@YM4 40 C PARM @@YYM6 60 * C ENDSR * ***************************************************************** 0511 * \F09 考課区分照会 | ***************************************************************** | C \F09 BEGSR | *考課区分照会 | C CGYO IFEQ 4 | * | C CKETA ANDEQ34 | C MOVEL*BLANK WKK 10 | C MOVEL*BLANK STS 1 | C CALL 'KD04600' | C PARM WKK | C PARM STS | C STS IFEQ ' ' | C MOVELWKK WSKKKB | C ENDIF | C ENDIF | * 0511 C F09EX ENDSR *****************************************************************

フローチャート図で表現したもの

C演算仕様書 サブルーチン以外
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize':'15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 s([演算 開始])--> 1["46行目: パラメータリスト:*ENTRYを定義する"] 2["47行目: パラメータ:WSYYYYを定義する"] 3["48行目: パラメータ:WSYYを定義する"] 4["49行目: パラメータ:WSKKKBを定義する"] 5["50行目: パラメータ:INKCを定義する"] 6["52行目:【DEFN】 YMDを#YMDと同じ型定義する"] 7["63行目: キーリスト:K#LNKを定義する"] 8["64行目: キー:WSKKKBを定義する"] 9["65行目: キー:IKKTYMを定義する"] 10["67行目: キーリスト:K#KKを定義する"] 11["68行目: キー:KKKKKBを定義する"] 12["69行目: キー:KKHTYYを定義する"] 13["78行目:【TAG】 ラベル【@MA010】"] 14[["79行目:【EXSR】 ¥INITサブルーチンを実行する"]]:::clrPattern3 15{"80_1行目:【LR】 標識[LR]はオンか"}:::clrPattern4 17["80_2行目:【GOTO】 @MAEXTラベルにジャンプする"] 18(["80_3行目: 条件文を終了する"]) 19["84行目:【TAG】 ラベル【@MA020】"] 20[["85行目:【EXSR】 ¥HD1サブルーチンを実行する"]]:::clrPattern3 21{"86_1行目:【KC】 標識[KC]はオンか"}:::clrPattern4 23["86_2行目:【GOTO】 @MAEXTラベルにジャンプする"] 24(["86_3行目: 条件文を終了する"]) 25{"87_1行目:【KL】 標識[KL]はオンか"}:::clrPattern4 27["87_2行目:【GOTO】 @MAEXTラベルにジャンプする"] 28(["87_3行目: 条件文を終了する"]) 29["92行目:【TAG】 ラベル【@MAEXT】"] 30["93行目:【SETON】 標識[LR]をオンにセットする"] 31{"94_1行目:【LR】 標識[LR]はオンか"}:::clrPattern4 33["94_2行目:【RETRN】 呼出し元へ戻る"] 34(["94_3行目: 条件文を終了する"]) 35[/"96行目:【CHAIN】 REFファイルで1をキーとしてCHAIN操作する 読み込めなかった場合、標識 [99] をオンにセットする。"/]:::clrPatternR %%ルート設定 1-->2 2-->3 3-->4 4-->5 5-->6 6-->7 7-->8 8-->9 9-->10 10-->11 11-->12 12-->13 13-->14 14-->15 15-->|条件文 真 |17 15-->|条件文 偽 |18 17-->29 18-->19 19-->20 20-->21 21-->|条件文 真 |23 21-->|条件文 偽 |24 23-->29 24-->25 25-->|条件文 真 |27 25-->|条件文 偽 |28 27-->29 28-->29 29-->30 30-->31 31-->|条件文 真 |33 31-->|条件文 偽 |34 33["94_2行目:【RETRN】 呼出し元へ戻る"] 34-->35 35-->X1(["プログラムを終了する"]) style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S35 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD<Read>"] subgraph S35[" "] 35 end end
C演算仕様書 サブルーチン:¥INIT
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize''15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 36(["102行目: ¥INITサブルーチンを開始する"]) 37["104行目: B1ビットのうち、'01234567'で指定したビットをオフ に設定する"] 38["105行目: B2ビットのうち、'01234567'で指定したビットをオフ に設定する"] 39[/"108行目:【CHAIN】 GENSYMPファイルで1をキーとしてCHAIN操作する 読み込めなかった場合、標識 [75] をオンにセットする。"/]:::clrPatternR 40["110行目:【SETGT】 CONTRLPファイルに対してGEGSYMキーリストを使用し て設定より大きい操作を実行する"]:::clrPatternR 41[/"111行目:【READP】 CONTRLPファイルから前方にレコードを読み込む 読み込めなかった場合、標識 [LR] をオンにセットする。"/]:::clrPatternR 42{"112_1行目:【LR】 標識[LR]はオンか"}:::clrPattern4 44["112_2行目:【RETRN】 呼出し元へ戻る"] 45(["112_3行目: 条件文を終了する"]) 46{"114行目:【IFEQ】 #KTYMXが*BLANKと等しいか"}:::clrPattern1 48[["115行目:【CALL】 '¥DAY6TO4'プログラムを呼び出す"]]:::clrPattern3 49["116行目: パラメータ:GEGSYMを定義する"] 50["117行目: パラメータ:WSYMを定義する"] 51["118行目:【Z-ADD】 GEGSYMを#KTYMにゼロ加算する"] 52["119行目:【Z-ADD】 WSYMを#KTYM4にゼロ加算する"] 53(["120行目: 条件文を終了する"]) 54["121行目:【Z-ADD】 #KTYM4をWSYMにゼロ加算する"] 55["122行目:【Z-ADD】 #KTYM4をWSGSYMにゼロ加算する"] 56["123行目:【MOVEL】 WSYMの値をWSYYに左詰めで移動する"] 57(["125行目: ¥INITサブルーチンを終了する"]) %%ルート設定 36-->37 37-->38 38-->39 39-->40 40-->41 41-->42 42-->|条件文 真 |44 42-->|条件文 偽 |45 45-->46 46-->|条件文 真 |48 46-->|条件文 偽 |53 48-->49 49-->50 50-->51 51-->52 52-->53 53-->54 54-->55 55-->56 56-->57 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S39 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD<Read>"] subgraph S39[" "] 39 end end style sg2 color:red,fill-opacity:0, stroke-opacity:0; style S40 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["CRUD<Read>"] subgraph S40[" "] 40 end end style sg3 color:red,fill-opacity:0, stroke-opacity:0; style S41 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["CRUD<Read>"] subgraph S41[" "] 41 end end
C演算仕様書 サブルーチン:¥HD1
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize''15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 58(["131行目: ¥HD1サブルーチンを開始する"]) 59["134行目:【TAG】 ラベル【@HD010】"] 60[/"135行目:【EXFMT】 #HD1ディスプレイファイルのフォーマットを拡張して表示及び 入力する"/]:::clrPatternC 61["136行目:【SETOF】 標識[01][02[03]をオフにセットする"] 62["138行目:【MOVEL】 CPOSY1の値をCPOSY2に左詰めで移動する"] 63["139行目:【MOVEL】 CPOSX1の値をCPOSX2に左詰めで移動する"] 64{"141_1行目:【KC】 標識[KC]はオンか"}:::clrPattern4 66["141_2行目:【MOVEL】 '1'の値をINKCに左詰めで移動する"] 67(["141_3行目: 条件文を終了する"]) 68{"142_1行目:【KC】 標識[KC]はオンか"}:::clrPattern4 70["142_2行目:【GOTO】 @HDEXTラベルにジャンプする"] 71(["142_3行目: 条件文を終了する"]) 72{"143_1行目:【KL】 標識[KL]はオンか"}:::clrPattern4 74["143_2行目:【MOVEL】 '1'の値をINKCに左詰めで移動する"] 75(["143_3行目: 条件文を終了する"]) 76{"144_1行目:【KL】 標識[KL]はオンか"}:::clrPattern4 78["144_2行目:【GOTO】 @HDEXTラベルにジャンプする"] 79(["144_3行目: 条件文を終了する"]) 80{"145_1行目:【KI】 標識[KI]はオンか"}:::clrPattern4 82[/"145_2行目:【DO】 開始値 1から限界値 1 の条件でループをする"\]:::clrPattern2 83[["146行目:【EXSR】 ¥F09サブルーチンを実行する"]]:::clrPattern3 84["147行目:【Z-ADD】 WSKKKBをKKKKKBにゼロ加算する"] 85{"148行目:【IFGT】 WSYYが50より大きいか"}:::clrPattern1 87["149行目:【ADD】 1900がWSYYに加算、和をKKHTYYに代入する"] 88(["150行目: ELSE"]) 89["151行目:【ADD】 2000がWSYYに加算、和をKKHTYYに代入する"] 90(["152行目: 条件文を終了する"]) 91["153行目:【SETLL】 JIKKKBLAファイルに対してK#KKを用いて位置設定する"]:::clrPatternR 92[/"154行目:【READE】 JIKKKBLAファイルに対して、WSKKKBを用いてREA DE(等価読み込み)実行する 読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR 93{"155_1行目:【90】 標識[90]はオンか"}:::clrPattern4 95["155_2行目:【MOVEL】 *BLANKの値をWSKKNMに左詰めで移動する"] 96(["155_3行目: 条件文を終了する"]) 97{"156_1行目:【N90】 標識[90]はオフか"}:::clrPattern4 99["156_2行目:【MOVEL】 KKKKNMの値をWSKKNMに左詰めで移動する"] 100(["156_3行目: 条件文を終了する"]) 101["157行目:【GOTO】 @HD010ラベルにジャンプする"] 102[\"158行目: ループを終了する"/]:::clrPattern2 103(["158_1行目: 条件文を終了する"]) 104["160行目:【SETOF】 標識[04][05]をオフにセットする"] 105["168行目:【Z-ADD】 WSKKKBをKKKKKBにゼロ加算する"] 106{"169行目:【IFGT】 WSYYが50より大きいか"}:::clrPattern1 108["170行目:【ADD】 1900がWSYYに加算、和をKKHTYYに代入する"] 109(["171行目: ELSE"]) 110["172行目:【ADD】 2000がWSYYに加算、和をKKHTYYに代入する"] 111(["173行目: 条件文を終了する"]) 112["174行目:【SETLL】 JIKKKBLAファイルに対してK#KKを用いて位置設定する"]:::clrPatternR 113[/"175行目:【READE】 JIKKKBLAファイルに対して、WSKKKBを用いてREA DE(等価読み込み)実行する 読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR 114{"176_1行目:【N90】 標識[90]はオフか"}:::clrPattern4 116["176_2行目:【MOVEL】 KKKKNMの値をWSKKNMに左詰めで移動する"] 117(["176_3行目: 条件文を終了する"]) 118{"177_1行目:【90】 標識[90]はオンか"}:::clrPattern4 120["177_2行目:【MOVEL】 *BLANKの値をWSKKNMに左詰めで移動する"] 121(["177_3行目: 条件文を終了する"]) 122{"178_1行目:【90】 標識[90]はオンか"}:::clrPattern4 124["178_2行目:【SETON】 標識[01]をオンにセットする"] 125(["178_3行目: 条件文を終了する"]) 126{"179_1行目:【90】 標識[90]はオンか"}:::clrPattern4 128["179_2行目:【GOTO】 @HD010ラベルにジャンプする"] 129(["179_3行目: 条件文を終了する"]) 130{"182行目:【IFEQ】 標識KMが*オンか"}:::clrPattern1 132[["183行目:【EXSR】 ¥HD2サブルーチンを実行する"]]:::clrPattern3 133{"184_1行目:【KC】 標識[KC]はオンか"}:::clrPattern4 135["184_2行目:【GOTO】 @HDEXTラベルにジャンプする"] 136(["184_3行目: 条件文を終了する"]) 137["185行目:【GOTO】 @HD010ラベルにジャンプする"] 138(["186行目: 条件文を終了する"]) 139["188行目:【Z-ADD】 101を#YMDにゼロ加算する"] 140["189行目:【MOVEL】 WSYYの値を#YMDに左詰めで移動する"] 141[["190行目:【CALL】 '¥DCHK'プログラムを呼び出す"]]:::clrPattern3 142["191行目: パラメータ:#YMDを定義する"] 143["192行目: パラメータ:STSを定義する"] 144{"193行目:【IFNE】 STSが''と等しくないか"}:::clrPattern1 146["194行目:【SETON】 標識[02]をオンにセットする"] 147["195行目:【GOTO】 @HD010ラベルにジャンプする"] 148(["196行目: 条件文を終了する"]) 149["198行目:【MOVEL】 WSYYの値を@@YM4に左詰めで移動する"] 150["199行目:【MOVE】 1から@@YM4に移動する"] 151[["200行目:【EXSR】 ¥4TO6サブルーチンを実行する"]]:::clrPattern3 152["201行目:【MOVEL】 @@YYM6の値をWKHTYYに左詰めで移動する"] 153["213行目:【MOVEL】 WSYYの値を@@YM4に左詰めで移動する"] 154["214行目:【MOVE】 1から@@YM4に移動する"] 155[["215行目:【EXSR】 ¥4TO6サブルーチンを実行する"]]:::clrPattern3 156["216行目:【MOVEL】 @@YYM6の値をIKKTYMに左詰めで移動する"] 157["217行目:【MOVEL】 @@YYM6の値を#SYYMに左詰めで移動する"] 158["218行目:【SETGT】 JIKKKAPファイルに対してK#LNKキーリストを使用して 設定より大きい操作を実行する"]:::clrPatternR 159[/"219行目:【REDPE】 WSKKKBをキーとしてJIKKKAPファイルでREDPE( 逆順読み込み)実行する 読み込めなかった場合、標識 [75] をオンにセットする。"/]:::clrPatternR 160{"221_1行目:【75】 標識[75]はオンか"}:::clrPattern4 162[/"221_2行目:【DO】 開始値 1から限界値 1 の条件でループをする"\]:::clrPattern2 163[/"222行目:【DSPLY】 'ジンジコウカ'をディスプレイに表示する"/] 164[/"223行目:【DSPLY】 'ヒョウテイランク'をディスプレイに表示する"/] 165[/"224行目:【DSPLY】 'INV 'をディスプレイに表示する"/] 166[/"225行目:【DSPLY】 'スキップシタ 'をディスプレイに表示する"/] 167[\"226行目: プログラムを終了する"/]:::clrPattern2 168(["226_1行目: 条件文を終了する"]) 169["233行目:【MOVE】 IKMTSYから#SYYMに移動する"] 170["237行目:【Z-ADD】 #SYYMをP#KTYMにゼロ加算する"] 171[["238行目:【CALL】 '¥LDASET'プログラムを呼び出す"]]:::clrPattern3 172["239行目: パラメータ:P#KTYMを定義する"] 173["240行目:【Z-ADD】 P#KTYMを#KTYMにゼロ加算する"] 174["242行目:【MOVEL】 #KTYMの値をWSYYYYに左詰めで移動する"] 175{"279_1行目:【NKJ】 標識[KJ]はオフか"}:::clrPattern4 177["279_2行目:【GOTO】 @HD010ラベルにジャンプする"] 178(["279_3行目: 条件文を終了する"]) 179(["281行目: ¥HD1サブルーチンを終了する"]) %%ルート設定 58-->59 59-->60 60-->61 61-->62 62-->63 63-->64 64-->|条件文 真 |66 64-->|条件文 偽 |67 66-->67 67-->68 68-->|条件文 真 |70 68-->|条件文 偽 |71 70-->179 71-->72 72-->|条件文 真 |74 72-->|条件文 偽 |75 74-->75 75-->76 76-->|条件文 真 |78 76-->|条件文 偽 |79 78-->179 79-->80 80-->|条件文 真 |82 80-->|条件文 偽 |103 82-->|ループ開始|83 83-->84 84-->85 85-->|条件文 真 |87 85-->|条件文 偽 |88 87-->90 88-->89 89-->90 90-->91 91-->92 92-->93 93-->|条件文 真 |95 93-->|条件文 偽 |96 95-->96 96-->97 97-->|条件文 偽 |100 97-->|条件文 真 |99 99-->100 100-->101 101-->59 102-->|ループ終了|103 103-->104 104-->105 105-->106 106-->|条件文 真 |108 106-->|条件文 偽 |109 108-->111 109-->110 110-->111 111-->112 112-->113 113-->114 114-->|条件文 偽 |117 114-->|条件文 真 |116 116-->117 117-->118 118-->|条件文 真 |120 118-->|条件文 偽 |121 120-->121 121-->122 122-->|条件文 真 |124 122-->|条件文 偽 |125 124-->125 125-->126 126-->|条件文 真 |128 126-->|条件文 偽 |129 128-->59 129-->130 130-->|条件文 真 |132 130-->|条件文 偽 |138 132-->133 133-->|条件文 真 |135 133-->|条件文 偽 |136 135-->179 136-->137 137-->59 138-->139 139-->140 140-->141 141-->142 142-->143 143-->144 144-->|条件文 真 |146 144-->|条件文 偽 |148 146-->147 147-->59 148-->149 149-->150 150-->151 151-->152 152-->153 153-->154 154-->155 155-->156 156-->157 157-->158 158-->159 159-->160 160-->|条件文 真 |162 160-->|条件文 偽 |168 162-->|ループ開始|163 163-->164 164-->165 165-->166 166-->167 167-->|ループ終了|168 168-->169 169-->170 170-->171 171-->172 172-->173 173-->174 174-->175 175-->|条件文 偽 |178 175-->|条件文 真 |177 177-->59 178-->179 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S60 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD<Create>"] subgraph S60[" "] 60 end end style sg2 color:red,fill-opacity:0, stroke-opacity:0; style S91 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["CRUD<Read>"] subgraph S91[" "] 91 end end style sg3 color:red,fill-opacity:0, stroke-opacity:0; style S92 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["CRUD<Read>"] subgraph S92[" "] 92 end end style sg4 color:red,fill-opacity:0, stroke-opacity:0; style S112 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg4["CRUD<Read>"] subgraph S112[" "] 112 end end style sg5 color:red,fill-opacity:0, stroke-opacity:0; style S113 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg5["CRUD<Read>"] subgraph S113[" "] 113 end end style sg6 color:red,fill-opacity:0, stroke-opacity:0; style S158 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg6["CRUD<Read>"] subgraph S158[" "] 158 end end style sg7 color:red,fill-opacity:0, stroke-opacity:0; style S159 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg7["CRUD<Read>"] subgraph S159[" "] 159 end end
C演算仕様書 サブルーチン:¥HD2
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize''15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 180(["287行目: ¥HD2サブルーチンを開始する"]) 181[/"289行目:【DO】 開始値 1から限界値 *HIVAL の条件でループをする"\]:::clrPattern2 182[/"290行目:【EXFMT】 #HD2ディスプレイファイルのフォーマットを拡張して表示及び 入力する"/]:::clrPatternC 183{"292行目:【IFEQ】 標識KCが*オンか"}:::clrPattern1 185["293行目:【MOVEL】 '1'の値をINKCに左詰めで移動する"] 186["294行目: ループから抜け出す"] 187(["295行目: 条件文を終了する"]) 188{"297行目:【IFEQ】 標識KLが*オンか"}:::clrPattern1 190["298行目: ループから抜け出す"] 191(["299行目: 条件文を終了する"]) 192["301行目: 選択処理を開始する"]:::clrPattern2 193["303行目:【WHEQ】 WSNOが1と等しいか"]:::clrPattern1 194[["304行目:【CALL】 'SU00402C'プログラムを呼び出す"]]:::clrPattern3 195["305行目: パラメータ:WSKKKBを定義する"] 196(["WH文の終了"]) 197["307行目:【WHEQ】 WSNOが2と等しいか"]:::clrPattern1 198[["308行目:【CALL】 'YP210C'プログラムを呼び出す"]]:::clrPattern3 199(["WH文の終了"]) 200["310行目:【WHEQ】 WSNOが3と等しいか"]:::clrPattern1 201[["311行目:【CALL】 'SU00401C'プログラムを呼び出す"]]:::clrPattern3 202["312行目: パラメータ:WSKKKBを定義する"] 203(["WH文の終了"]) 204["314行目:【WHEQ】 WSNOが4と等しいか"]:::clrPattern1 205[["315行目:【CALL】 'SU00404C'プログラムを呼び出す"]]:::clrPattern3 206["316行目: パラメータ:WSKKKBを定義する"] 207(["WH文の終了"]) 208["318行目:【WHEQ】 WSNOが5と等しいか"]:::clrPattern1 209[["319行目:【CALL】 'SU00403C'プログラムを呼び出す"]]:::clrPattern3 210["320行目: パラメータ:WSKKKBを定義する"] 211(["WH文の終了"]) 212["322行目:【WHEQ】 WSNOが6と等しいか"]:::clrPattern1 213[["323行目:【CALL】 'SU00405C'プログラムを呼び出す"]]:::clrPattern3 214["324行目: パラメータ:WSKKKBを定義する"] 215(["WH文の終了"]) 216["326行目:【WHEQ】 WSNOが7と等しいか"]:::clrPattern1 217[["327行目:【CALL】 'SU00406C'プログラムを呼び出す"]]:::clrPattern3 218["328行目: パラメータ:WSKKKBを定義する"] 219(["WH文の終了"]) 220["331行目:【WHEQ】 WSNOが20と等しいか"]:::clrPattern1 221[["332行目:【CALL】 'SU0040AC'プログラムを呼び出す"]]:::clrPattern3 222(["WH文の終了"]) 223["334行目:【WHEQ】 WSNOが21と等しいか"]:::clrPattern1 224[["335行目:【CALL】 'SU0040BC'プログラムを呼び出す"]]:::clrPattern3 225(["WH文の終了"]) 226["337行目:【WHEQ】 WSNOが22と等しいか"]:::clrPattern1 227[["338行目:【CALL】 'SU0040HC'プログラムを呼び出す"]]:::clrPattern3 228(["WH文の終了"]) 229["341行目:【WHEQ】 WSNOが23と等しいか"]:::clrPattern1 230[["342行目:【CALL】 'SU0040CC'プログラムを呼び出す"]]:::clrPattern3 231(["WH文の終了"]) 232["345行目:【WHEQ】 WSNOが24と等しいか"]:::clrPattern1 233[["346行目:【CALL】 'SU0040DC'プログラムを呼び出す"]]:::clrPattern3 234(["WH文の終了"]) 235["349行目:【WHEQ】 WSNOが25と等しいか"]:::clrPattern1 236[["350行目:【CALL】 'SU0040EC'プログラムを呼び出す"]]:::clrPattern3 237(["WH文の終了"]) 238["353行目:【WHEQ】 WSNOが26と等しいか"]:::clrPattern1 239[["354行目:【CALL】 'SU0040FC'プログラムを呼び出す"]]:::clrPattern3 240(["WH文の終了"]) 241["357行目:【WHEQ】 WSNOが27と等しいか"]:::clrPattern1 242[["358行目:【CALL】 'SU0040GC'プログラムを呼び出す"]]:::clrPattern3 243(["WH文の終了"]) 244["359行目: 選択処理を終了する"]:::clrPattern2 245[\"361行目: ループを終了する"/]:::clrPattern2 246(["363行目: ¥HD2サブルーチンを終了する"]) %%ルート設定 180-->181 181-->|ループ開始|182 182-->183 183-->|条件文 真 |185 183-->|条件文 偽 |187 185-->186 186-->187 187-->188 188-->|条件文 真 |190 188-->|条件文 偽 |191 190-->191 191-->192 192-->|WH文へ|193 192-->|WH文へ|197 192-->|WH文へ|200 192-->|WH文へ|204 192-->|WH文へ|208 192-->|WH文へ|212 192-->|WH文へ|216 192-->|WH文へ|220 192-->|WH文へ|223 192-->|WH文へ|226 192-->|WH文へ|229 192-->|WH文へ|232 192-->|WH文へ|235 192-->|WH文へ|238 192-->|WH文へ|241 193-->194 194-->195 195-->196 196-->244 197-->198 198-->199 199-->244 200-->201 201-->202 202-->203 203-->244 204-->205 205-->206 206-->207 207-->244 208-->209 209-->210 210-->211 211-->244 212-->213 213-->214 214-->215 215-->244 216-->217 217-->218 218-->219 219-->244 220-->221 221-->222 222-->244 223-->224 224-->225 225-->244 226-->227 227-->228 228-->244 229-->230 230-->231 231-->244 232-->233 233-->234 234-->244 235-->236 236-->237 237-->244 238-->239 239-->240 240-->244 241-->242 242-->243 243-->244 244-->245 245-->|ループ終了|246 245-->|ループ継続| 181 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S182 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD<Create>"] subgraph S182[" "] 182 end end
C演算仕様書 サブルーチン:¥4TO6
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize''15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 247(["372行目: ¥4TO6サブルーチンを開始する"]) 248[["374行目:【CALL】 '¥DAY4TO6'プログラムを呼び出す"]]:::clrPattern3 249["375行目: パラメータ:@@YM4を定義する"] 250["376行目: パラメータ:@@YYM6を定義する"] 251(["378行目: ¥4TO6サブルーチンを終了する"]) %%ルート設定 247-->248 248-->249 249-->250 250-->251
C演算仕様書 サブルーチン:¥F09
%%{init: {'theme':'base','themeVariables':{ 'primaryColor':'white', 'primaryTextColor':'#000000', 'primaryBorderColor':'#000000', 'lineColor':'#808080', 'textColor':'#6A7FABCC', 'fontSize''15px'}}}%% %%{ init: { 'flowchart': { 'curve': 'basis' } } }%% graph TD; classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px; classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px; classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px; classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px; classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px; classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px; classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px; classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px; linkStyle default stroke:#808080,stroke-width:2px; %%データ項目 252(["383行目: ¥F09サブルーチンを開始する"]) 253{"385行目:【IFEQ】 CGYOが4と等しいか およびCKETAが34と等しいか"}:::clrPattern1 257["388行目:【MOVEL】 *BLANKの値をWKKに左詰めで移動する"] 258["389行目:【MOVEL】 *BLANKの値をSTSに左詰めで移動する"] 259[["390行目:【CALL】 'KD04600'プログラムを呼び出す"]]:::clrPattern3 260["391行目: パラメータ:WKKを定義する"] 261["392行目: パラメータ:STSを定義する"] 262{"393行目:【IFEQ】 STSが''と等しいか"}:::clrPattern1 264["394行目:【MOVEL】 WKKの値をWSKKKBに左詰めで移動する"] 265(["395行目: 条件文を終了する"]) 266(["396行目: 条件文を終了する"]) 267(["398行目: ¥F09サブルーチンを終了する"]) %%ルート設定 252-->253 253-->|条件文 真 |257 253-->|条件文 偽 |266 257-->258 258-->259 259-->260 260-->261 261-->262 262-->|条件文 真 |264 262-->|条件文 偽 |265 264-->265 265-->266 266-->267