元の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
*****************************************************************
フローチャート図で表現したもの
%%{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
%%{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
%%{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
%%{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
%%{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
%%{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