元のRPGソースコード
H*****************************************************************
H* COPYRIGHT SEC 1992 *
H* LICENSED MATERIAL PROGRAM PROPERTY OF SEC.C *
H*****************************************************************
H* *
H* SU00411 : 人事考課 評定ランク算出（総合職）メイン *
H* Ｓ４以上の素点はＳ３の点数を使用し求める *
H* *
H* 2007.12.06 呼称変更 成果→定量 行動→定性 *
H* 定量評価の評定項目を５個から８個へ変更 *
H* 定性評価の評定項目を５個から８個へ変更 *
H* 難易度は廃止 *
H*****************************************************************
H Y/ 1
H*****************************************************************
*入力ファイル KEY= HTYY/KKKB/CKKB/BUCD/SYCD
FJIKINP2 IF E K DISK
*評定入力ファイルKEY= HTYY/KKKB/SYCD
FJIKNYULBUF E K DISK A
F JIKNYU KRENAMEJIKNYUB
*評定者平均ファイルKEY= KKKB/HTYY/SOCD/HTCD/CKKB
FJIKAMAP UF E K DISK
*評定ランクマスタKEY= KKKB/KTYM
FJIKKKAP IF E K DISK
*評定要素点数マスタKEY= KKKB/SOCD/CKKB/SSCD/SEQN/KTYM
FJIKYSPLBIF E K DISK
08.01 *評定要素点数マスタKEY= KKKB/SOCD/CKKB/SSCD/KTYM(DESCEND)/SEQN
08.01FJIKYSPLCIF E K DISK
08.01F JIKYSP KRENAMEJIKYSPC
*評定要素点数マスタ（間接成果用）KEY=KKKB/SOCD/CKKB/SSCD/SNID/KTYM
08.01F*IKYSP2AIF//E///////////K DISK
07.12 *評定要素マスタ
07.12FJIKYSOP IF E K DISK
*出向者基本情報入力マスタKEY=SYCD/FYYM/SICD
FSYUSYALAIF E K DISK
*出向者管理 出向先基本情報入力KEY=SICD
FSYUSKIW IF E K DISK
*部署マスタKEY=BUCD/KTYM
FBUMONP IF E K DISK
*相対評定グループマスタ１KEY=KKKB/SOCD/SSCD/CKCD/YGPC/CKKB
FJIKHG1W IF E K DISK
*社員マスタ
FSYAINW IF E K DISK
*年俸者資格ﾊﾟﾗﾒｰﾀ
FJIKPRWP IF E DISK
*組織評価持ち点ﾊﾟﾗﾒｰﾀ
FJIKPRVP IF E K DISK
*標準年令ﾊﾟﾗﾒｰﾀ
FJIKPR2P IF E K DISK
*評定項目別素点ファイル
FWSU004DPUF E K DISK A
******************************************************
* 配列 *
******************************************************
E SSC 10 4 0 年俸者資格ﾊﾟﾗ
E HT1 10 1 評定ランク
E SPT 10 5 2 直接成果点数
E SP2 10 5 2 間接成果点数
E KPT 10 5 2 行動点数
07.12E*///////////////////NID 5 1 難易度
: E NID 8 1 難易度
: E SHT 8 10 定量的評価
07.12E KHT 8 10 定性的評価
E BLV 5 5 0 第２階層部署
E YBC 10 10 0 予備項目
******************************************************
* 構造化データ *
******************************************************
*改定年月
I UDS
I 101 1060DSKTYM
I 101 106 X#KTYM
I 107 1100DSKTY2
*年俸者 資格
I DS
I 1 400SSC
I 1 40PWSSC1
I 5 80PWSSC2
I 9 120PWSSC3
I 13 160PWSSC4
I 17 200PWSSC5
I 21 240PWSSC6
I 25 280PWSSC7
I 29 320PWSSC8
I 33 360PWSSC9
I 37 400PWSSCA
*評定ランク
I DS
I 1 10 HT1
I 1 1 IKSYO1
I 2 2 IKSYO2
I 3 3 IKSYO3
I 4 4 IKSYO4
I 5 5 IKSYO5
I 6 6 IKSYO6
I 7 7 IKSYO7
I 8 8 IKSYO8
I 9 9 IKSYO9
I 10 10 IKSY10
*要素点数（直接／成果）
I DS
I 1 502SPT
I 1 52IPSHT1
I 6 102IPSHT2
I 11 152IPSHT3
I 16 202IPSHT4
I 21 252IPSHT5
I 26 302IPSHT6
I 31 352IPSHT7
I 36 402IPSHT8
I 41 452IPSHT9
I 46 502IPSHTA
*要素点数（間接／成果）
I DS
I 1 502SP2
I 1 52IPSPT1
I 6 102IPSPT2
I 11 152IPSPT3
I 16 202IPSPT4
I 21 252IPSPT5
I 26 302IPSPT6
I 31 352IPSPT7
I 36 402IPSPT8
I 41 452IPSPT9
I 46 502IPSPTA
*要素点数（行動）
I DS
I 1 502KPT
I 1 52IPKHT1
I 6 102IPKHT2
I 11 152IPKHT3
I 16 202IPKHT4
I 21 252IPKHT5
I 26 302IPKHT6
I 31 352IPKHT7
I 36 402IPKHT8
I 41 452IPKHT9
I 46 502IPKHTA
*難易度
I DS
07.12I*///////////////////////////////////////1 5 NID
07.12I 1 8 NID
I 1 1 I2K1NI
I 2 2 I2K2NI
I 3 3 I2K3NI
I 4 4 I2K4NI
I 5 5 I2K5NI
07.12I 6 6 I2K6NI
: I 7 7 I2K7NI
07.12I 8 8 I2K8NI
*第２階層部署
I DS
I 1 250BLV
I 1 50BMLV21
I 6 100BMLV22
I 11 150BMLV23
I 16 200BMLV24
I 21 250BMLV25
*予備項目
I 1 1000YBC
I 1 100SYYBC1
I 11 200SYYBC2
I 21 300SYYBC3
I 31 400SYYBC4
I 41 500SYYBC5
I 51 600SYYBC6
I 61 700SYYBC7
I 71 800SYYBC8
I 81 900SYYBC9
I 91 1000SYYBCA
******************************************************
* ＰＡＲＭ ＬＩＳＴ *
******************************************************
C *ENTRY PLIST
C PARM PRHTYY 40
C PARM PRKKKB 10
******************************************************
* ＫＥＹ ＬＩＳＴ *
******************************************************
*入力ファイル
C K\I2 KLIST
C KFLD I2HTYY
C KFLD I2KKKB
C KFLD I2CKKB
C KFLD I2BUCD
C KFLD I2SYCD
C K\I2B KLIST
C KFLD I2HTYY
C KFLD I2KKKB
*評定入力ファイル
C K\INB KLIST
C KFLD INHTYY
C KFLD INKKKB
C KFLD INSYCD
C K\INBB KLIST
C KFLD INHTYY
C KFLD INKKKB
*評定ランクマスタ
C K\IK KLIST
C KFLD IKKKKB
C KFLD IKKTYM
*評定者平均ファイル
C K\IA KLIST
C KFLD IAKKKB
C KFLD IAHTYY
C KFLD IASOCD
C KFLD IAHTCD
C KFLD IACKKB
C K\IAB KLIST
C KFLD IAKKKB
C KFLD IAHTYY
*評定要素点数マスタ
C K\IP KLIST
C KFLD IPKKKB
C KFLD IPSOCD
C KFLD IPCKKB
C KFLD IPSSCD
C KFLD IPSEQN
C KFLD IPKTYM
C K\IPB KLIST
C KFLD IPKKKB
C KFLD IPSOCD
C KFLD IPCKKB
C KFLD IPSSCD
C KFLD IPSEQN
08.01C K\IPC1 KLIST
: C KFLD IPKKKB
: C KFLD IPSOCD
: C KFLD IPCKKB
: C KFLD IPSSCD
: C KFLD IPKTYM
: C K\IPC2 KLIST
: C KFLD IPKKKB
: C KFLD IPSOCD
: C KFLD IPCKKB
08.01C KFLD IPSSCD
*評定要素点数マスタ（間接成果用）
08.01C*//////////K\IP2/////KLIST
: C*////////////////////KFLD IPKKKB
: C*////////////////////KFLD IPSOCD
: C*////////////////////KFLD IPCKKB
: C*////////////////////KFLD IPSSCD
: C*////////////////////KFLD IPSNID
: C*////////////////////KFLD IPKTYM
: C*//////////K\IP2B////KLIST
: C*////////////////////KFLD IPKKKB
: C*////////////////////KFLD IPSOCD
: C*////////////////////KFLD IPCKKB
: C*////////////////////KFLD IPSSCD
08.01C*////////////////////KFLD IPSNID
07.12 *評定要素マスタ
: C K#IY KLIST
: C KFLD IYKKKB
: C KFLD IYSOCD
: C KFLD IYCKKB
: C KFLD IYSSCD
: C KFLD IYKTYM
: C K#IY2 KLIST
: C KFLD IYKKKB
: C KFLD IYSOCD
: C KFLD IYCKKB
07.12C KFLD IYSSCD
*相対評定グループマスタ１
C K\IG KLIST
C KFLD IGKKKB
C KFLD IGSOCD
C KFLD IGSSCD
C KFLD IGCKCD
C KFLD IGYGPC
C KFLD IGCKKB
*出向者基本情報入力マスタ
C K\SA KLIST
C KFLD SASYCD
C KFLD SAFYYM
C KFLD SASICD
*
08.04C K\SA2 KLIST
: C KFLD SASYCD
08.04C KFLD SAFYYM
*部署マスタ
C K\BM KLIST
C KFLD BMBUCD
C KFLD BMKTYM
*評定項目別素点ファイル
C K\WD KLIST
C KFLD WDHTYY
C KFLD WDKKKB
C KFLD WDCKKB
C KFLD WDBUCD
C KFLD WDSYCD
C K\WDB KLIST
C KFLD WDHTYY
C KFLD WDKKKB
******************************************************
* Ｍ Ａ Ｉ Ｎ *
******************************************************
C EXSR \INIT
C EXSR \MAIN
C EXSR \END
******************************************************
* 初期処理 *
******************************************************
C \INIT BEGSR
*ワーク定義
C Z-ADD*ZERO IX 20 配列指数
C Z-ADD*ZERO IY 20 配列指数
C Z-ADD*ZERO IZ 20 配列指数
C Z-ADD*ZERO W1SSCD 40 資格ＣＤ
C Z-ADD*ZERO W1BUCD 50 部署ＣＤ
C Z-ADD*ZERO W1CKCD 50 地区ＣＤ
C Z-ADD*ZERO W1KTYM 60 改定年月
C Z-ADD*ZERO W1TAIS 10 対象外区分
C Z-ADD*ZERO W1SEQ 30 内容番号
C Z-ADD*ZERO W1SPT 51 成果点数
C Z-ADD*ZERO W2SPT 105 素点算出用
C Z-ADD*ZERO W1KPT 52 行動点数
C Z-ADD*ZERO W1SOTN 52 素点合計
C Z-ADD*ZERO W1MNTN 52 満点
C MOVEL*BLANK W1SNID 1 難易度
C Z-ADD*ZERO W1SKLV 10 組織管理レベル
C Z-ADD*ZERO W1GRP 20 評定グループ
C Z-ADD*ZERO W1HJNR 30 標準年令
*
C* Z-ADD*ZERO SSC
C MOVEL*BLANK HT1
C Z-ADD*ZERO SPT
C Z-ADD*ZERO SP2
C Z-ADD*ZERO KPT
C MOVEL*BLANK NID
C Z-ADD*ZERO BLV
*＜評定ランク取得＞
C EXSR \KKKA
*組織評価 持ち点満点
C EXSR \MANTN 満点取得
*＜改定年月取得＞
C PRHTYY MULT 100 W1KTYM
C ADD IKMTSY W1KTYM
C Z-ADDW1KTYM DSKTYM
*＜不要レコード削除＞
C* 評定入力ファイル
C Z-ADDPRHTYY INHTYY
C Z-ADDPRKKKB INKKKB
C Z-ADD*LOVAL INSYCD
C K\INB SETLLJIKNYULB
C K\INBB READEJIKNYULB 90
C *IN90 DOWEQ*OFF
C INTKKB IFEQ *BLANK 取込区分
C DELETJIKNYUB
C ELSE
C UNLCKJIKNYULB
C ENDIF
C K\INBB READEJIKNYULB 90
C ENDDO
C* 評定者平均ファイル
C Z-ADDPRKKKB IAKKKB
C Z-ADDPRHTYY IAHTYY
C Z-ADD*LOVAL IASOCD
C Z-ADD*LOVAL IAHTCD
C Z-ADD*LOVAL IACKKB
C K\IA SETLLJIKAMAP
C K\IAB READEJIKAMAP 90
C *IN90 DOWEQ*OFF
C DELETJIKAMA
C K\IAB READEJIKAMA 90
C ENDDO
C* 評定項目別素点ファイル
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADD*LOVAL WDCKKB
C Z-ADD*LOVAL WDBUCD
C Z-ADD*LOVAL WDSYCD
C K\WD SETLLWSU004D
C K\WDB READEWSU004D 90
C *IN90 DOWEQ*OFF
C DELETWSU004D
C K\WDB READEWSU004D 90
C ENDDO
*年俸者資格ﾊﾟﾗﾒｰﾀ
C READ JIKPRWP 90
C 90 Z-ADD*ZERO SSC
*標準年令ﾊﾟﾗﾒｰﾀ
C READ JIKPR2P 90
C 90 CLEARJIKPR2
*
C ENDSR
******************************************************
* メイン *
******************************************************
C \MAIN BEGSR
*
C Z-ADDPRHTYY I2HTYY
C Z-ADDPRKKKB I2KKKB
C Z-ADD*LOVAL I2CKKB
C Z-ADD*LOVAL I2BUCD
C Z-ADD*LOVAL I2SYCD
C K\I2 SETLLJIKINP2
C K\I2B READEJIKINP2 91
C *IN91 DOWEQ*OFF
*資格セット
C MOVEL'0' *IN93
C Z-ADD1 IX
C I2SSCD LOKUPSSC,IX 93
C *IN93 IFEQ *ON Ｓ４の時
C Z-ADD102 W1SSCD Ｓ３を使用
C ELSE
C Z-ADDI2SSCD W1SSCD
C ENDIF
*評定対象者判定
C EXSR \TAIS
C Z-ADDPPTAIS W1TAIS 10
*セット項目取得
C EXSR \SET
*直間区分別に素点算出
C SELEC
C I2CKKB WHEQ 1 直接の時
C EXSR \STNS1 成果素点
C EXSR \STNK1 行動素点
C I2CKKB WHEQ 0 間接の時
C EXSR \STNS2 成果素点
C EXSR \STNK1 行動素点
C ENDSL
*評定入力ファイル出力
C EXSR \WRTIN
*
C K\I2B READEJIKINP2 91
C ENDDO
*
C ENDSR
******************************************************
* 終了処理 *
******************************************************
C \END BEGSR
C SETON LR
C RETRN
C ENDSR
******************************************************
* 考課対象者判定 *
******************************************************
C \TAIS BEGSR
*
C MOVELPRHTYY PPHTYY 40
C MOVELPRKKKB PPKKKB 10
C MOVELI2SYCD PPSYCD 70
C MOVEL*ZERO PPTAIS 10
C CALL 'SU004104'
C PARM PPHTYY
C PARM PPKKKB
C PARM PPSYCD
C PARM PPTAIS 10 0:対象者
* 1:対象外者
* 2:エラー
C ENDSR
******************************************************
* 素点算出（直接，成果） *
******************************************************
C \STNS1 BEGSR
*＜評定項目別素点ファイル参照＞
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADDI2CKKB WDCKKB
C Z-ADDW1BUCD WDBUCD
C Z-ADDI2SYCD WDSYCD
C K\WD CHAINWSU004DP 98
C 98 CLEARWSU004D
*
07.12C*//////////1/////////DO 5 IX
07.12C 1 DO 8 IX
C Z-ADD*ZERO W1SPT 成果点数
*＜成果用点数マスタ参照＞
C Z-ADDIX W1SEQ 項目��
C EXSR \YSPP 点数Ｍ参照
*＜項目別素点算出＞
08.01C MOVEL'0' *IN90
C SELEC
*評定項目01
C IX WHEQ 1
C Z-ADD1 IY
C I2C1HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ
C SPT,IY MULT I2WAT1 W2SPT H 既存取引
C W2SPT DIV 100 W1SPT H
C Z-ADDW1SPT WDC1HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC1HT
C ENDIF
*評定項目02
C IX WHEQ 2
C Z-ADD1 IY
C I2C2HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C SPT,IY MULT I2WAT2 W2SPT H 新規ﾋﾞｼﾞﾈｽ
C W2SPT DIV 100 W1SPT H
C Z-ADDW1SPT WDC2HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC2HT
C ENDIF
*評定項目03
C IX WHEQ 3
C Z-ADD1 IY
C I2C3HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDSPT,IY W1SPT
C Z-ADDW1SPT WDC3HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC3HT
C ENDIF
*評定項目04
C IX WHEQ 4
C Z-ADD1 IY
C I2C4HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDSPT,IY W1SPT
C Z-ADDW1SPT WDC4HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC4HT
C ENDIF
*評定項目05
C IX WHEQ 5
C Z-ADD1 IY
C I2C5HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDSPT,IY W1SPT
C Z-ADDW1SPT WDC5HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC5HT
C ENDIF
* 組織評価
08.01C MOVEL'0' *IN90
C Z-ADD1 IY
C 'S' LOKUPHT1,IY 90換算値取得
C *IN90 IFEQ *ON
* 組織評価素点＝配分点÷満点×換算値
C W1MNTN IFNE *ZERO
C I2C5P1 DIV W1MNTN W2SPT H
C ELSE
C Z-ADD*ZERO W2SPT
C ENDIF
C W2SPT MULT SPT,IY W1SPT H
C Z-ADDW1SPT WDC5PT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDC5PT
C ENDIF
07.12 *評定項目06
: C IX WHEQ 6
: C Z-ADD1 IY
: C I2C6HT LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDSPT,IY W1SPT
: C Z-ADDW1SPT WDC6HT
: C ELSE
: C Z-ADD*ZERO W1SPT
: C Z-ADD*ZERO WDC6HT
: C ENDIF
: *評定項目07
: C IX WHEQ 7
: C Z-ADD1 IY
: C I2C7HT LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDSPT,IY W1SPT
: C Z-ADDW1SPT WDC7HT
: C ELSE
: C Z-ADD*ZERO W1SPT
: C Z-ADD*ZERO WDC7HT
: C ENDIF
: *評定項目08
: C IX WHEQ 8
: C Z-ADD1 IY
: C I2C8HT LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDSPT,IY W1SPT
: C Z-ADDW1SPT WDC8HT
: C ELSE
: C Z-ADD*ZERO W1SPT
: C Z-ADD*ZERO WDC8HT
07.12C ENDIF
C ENDSL
*＜素点集計＞
C ADD W1SPT W1SOTN 成果
*
C ENDDO
*評定項目別素点ファイル更新
C *IN98 IFEQ *ON
C Z-ADDPRHTYY WDHTYY 評定年度
C Z-ADDPRKKKB WDKKKB 考課区分
C Z-ADDI2CKKB WDCKKB 直間区分
C Z-ADDW1BUCD WDBUCD 部署ＣＤ
C Z-ADDI2SYCD WDSYCD 社員ＣＤ
C Z-ADDI2YKCD WDYKCD 職制ＣＤ
C Z-ADDI2SOCD WDSOCD 職掌ＣＤ
C Z-ADDI2SSCD WDSSCD 資格ＣＤ
C Z-ADDI2WAT1 WDWAT1 既存取引
C Z-ADDI2WAT2 WDWAT2 新規ﾋﾞｼﾞﾈｽ
C Z-ADD*ZERO WDC5R1 純益ﾗﾝｸ
C Z-ADD*ZERO WDC5R2 改善ﾗﾝｸ
C MOVELI2C5KK WDC5KK 達成度
C Z-ADDI2C5P1 WDC5P1 配分点
C Z-ADDI2C5P2 WDC5P2 持ち点
07.12C*////////////////////MOVELI2K1NI WDK1NI 行動１難易度
: C*////////////////////Z-ADDI2K1WT WDK1WT 行動１ｳｪｲﾄ
: C*////////////////////MOVELI2K2NI WDK2NI 行動２難易度
: C*////////////////////Z-ADDI2K2WT WDK2WT 行動２ｳｪｲﾄ
: C*////////////////////MOVELI2K3NI WDK3NI 行動３難易度
: C*////////////////////Z-ADDI2K3WT WDK3WT 行動３ｳｪｲﾄ
: C*////////////////////MOVELI2K4NI WDK4NI 行動４難易度
: C*////////////////////Z-ADDI2K4WT WDK4WT 行動４ｳｪｲﾄ
: C*////////////////////MOVELI2K5NI WDK5NI 行動５難易度
07.12C*////////////////////Z-ADDI2K5WT WDK5WT 行動５ｳｪｲﾄ
: C MOVEL*BLANK WDK1NI
: C Z-ADD*ZERO WDK1WT
: C MOVEL*BLANK WDK2NI
: C Z-ADD*ZERO WDK2WT
: C MOVEL*BLANK WDK3NI
: C Z-ADD*ZERO WDK3WT
: C MOVEL*BLANK WDK4NI
: C Z-ADD*ZERO WDK4WT
: C MOVEL*BLANK WDK5NI
: C Z-ADD*ZERO WDK5WT
: C MOVEL*BLANK WDK6NI
: C Z-ADD*ZERO WDK6WT
: C MOVEL*BLANK WDK7NI
: C Z-ADD*ZERO WDK7WT
: C MOVEL*BLANK WDK8NI
07.12C Z-ADD*ZERO WDK8WT
C WRITEWSU004D
C ELSE
C UPDATWSU004D
C ENDIF
*
C ENDSR
******************************************************
* 素点算出（間接，成果） *
******************************************************
C \STNS2 BEGSR
*＜評定項目別素点ファイル参照＞
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADDI2CKKB WDCKKB
C Z-ADDW1BUCD WDBUCD
C Z-ADDI2SYCD WDSYCD
C K\WD CHAINWSU004DP 98
C 98 CLEARWSU004D
*
07.12C*//////////1/////////DO 5 IX
07.12C 1 DO 8 IX
C Z-ADD*ZERO W1SPT 成果点数
*＜成果用点数マスタ参照＞
C Z-ADDIX W1SEQ 項目��
07.12C*////////////////////MOVELNID,IX W1SNID 項目��
07.12C*////////////////////EXSR \YSP2 点数Ｍ参照
07.12C EXSR \YSPP 点数Ｍ参照
*＜項目別素点算出＞
08.01C MOVEL'0' *IN90
C SELEC
*評定項目01
C IX WHEQ 1
C Z-ADD1 IY
C I2K1HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ
07.12C*//////////SP2,IY MULT I2K1WT W2SPT H
07.12C SPT,IY MULT I2K1WT W2SPT H
C W2SPT DIV 100 W1SPT H
C Z-ADDW1SPT WDK1HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK1HT
C ENDIF
*評定項目02
C IX WHEQ 2
C Z-ADD1 IY
C I2K2HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K2WT W2SPT H
07.12C SPT,IY MULT I2K2WT W2SPT H
C W2SPT DIV 100 W1SPT H
C Z-ADDW1SPT WDK2HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK2HT
C ENDIF
*評定項目03
C IX WHEQ 3
C Z-ADD1 IY
C I2K3HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K3WT W2SPT H
07.12C SPT,IY MULT I2K3WT W2SPT H
C W2SPT DIV 100 W1SPT H
C Z-ADDW1SPT WDK3HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK3HT
C ENDIF
*評定項目04
C IX WHEQ 4
C Z-ADD1 IY
C I2K4HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K4WT W2SPT H
: C*//////////W2SPT DIV 100 W1SPT H
: C*////////// Z-ADDW1SPT WDK4HT
: C Z-ADDSPT,IY W1SPT
07.12C Z-ADDSPT,IY WDK4HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK4HT
C ENDIF
*評定項目05
C IX WHEQ 5
C Z-ADD1 IY
C I2K5HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K5WT W2SPT H
: C*//////////W2SPT DIV 100 W1SPT H
: C*////////// Z-ADDW1SPT WDK5HT
: C Z-ADDSPT,IY W1SPT
07.12C Z-ADDSPT,IY WDK5HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK5HT
C ENDIF
*評定項目06
C IX WHEQ 6
C Z-ADD1 IY
C I2K6HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K6WT W2SPT H
: C*//////////W2SPT DIV 100 W1SPT H
: C*////////// Z-ADDW1SPT WDK6HT
: C Z-ADDSPT,IY W1SPT
07.12C Z-ADDSPT,IY WDK6HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK6HT
C ENDIF
*評定項目07
C IX WHEQ 7
C Z-ADD1 IY
C I2K7HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K7WT W2SPT H
: C*//////////W2SPT DIV 100 W1SPT H
: C*////////// Z-ADDW1SPT WDK7HT
: C Z-ADDSPT,IY W1SPT
07.12C Z-ADDSPT,IY WDK7HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK7HT
C ENDIF
*評定項目08
C IX WHEQ 8
C Z-ADD1 IY
C I2K8HT LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
07.12C*//////////SP2,IY MULT I2K8WT W2SPT H
: C*//////////W2SPT DIV 100 W1SPT H
: C*////////// Z-ADDW1SPT WDK8HT
: C Z-ADDSPT,IY W1SPT
07.12C Z-ADDSPT,IY WDK8HT
C ELSE
C Z-ADD*ZERO W1SPT
C Z-ADD*ZERO WDK8HT
C ENDIF
C ENDSL
*＜素点集計＞
C ADD W1SPT W1SOTN 成果
*
C ENDDO
*評定項目別素点ファイル更新
C *IN98 IFEQ *ON
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADDI2CKKB WDCKKB
C Z-ADDW1BUCD WDBUCD
C Z-ADDI2SYCD WDSYCD
C Z-ADDI2YKCD WDYKCD
C Z-ADDI2SOCD WDSOCD
C Z-ADDI2SSCD WDSSCD
C Z-ADDI2WAT1 WDWAT1
C Z-ADDI2WAT2 WDWAT2
C Z-ADD*ZERO WDC5R1
C Z-ADD*ZERO WDC5R2
C MOVELI2C5KK WDC5KK
C MOVELI2K1NI WDK1NI
C Z-ADDI2K1WT WDK1WT
C MOVELI2K2NI WDK2NI
C Z-ADDI2K2WT WDK2WT
C MOVELI2K3NI WDK3NI
C Z-ADDI2K3WT WDK3WT
C MOVELI2K4NI WDK4NI
C Z-ADDI2K4WT WDK4WT
C MOVELI2K5NI WDK5NI
C Z-ADDI2K5WT WDK5WT
07.12C MOVELI2K6NI WDK6NI
: C Z-ADDI2K6WT WDK6WT
: C MOVELI2K7NI WDK7NI
: C Z-ADDI2K7WT WDK7WT
: C MOVELI2K8NI WDK8NI
07.12C Z-ADDI2K8WT WDK8WT
C WRITEWSU004D
C ELSE
C UPDATWSU004D
C ENDIF
*
C ENDSR
******************************************************
* 素点算出（直接，行動） *
******************************************************
C \STNK1 BEGSR
*＜評定項目別素点ファイル参照＞
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADDI2CKKB WDCKKB
C Z-ADDW1BUCD WDBUCD
C Z-ADDI2SYCD WDSYCD
C K\WD CHAINWSU004DP 98
C 98 CLEARWSU004D
07.12 *評定項目取得
07.12C EXSR \STYSO
*
07.12C*//////////1 DO 5 IX
07.12C 1 DO 8 IX
C Z-ADD*ZERO W1KPT 行動点数
*＜点数マスタ参照＞
C Z-ADDIX W1SEQ 項目��
C EXSR \YSPP 点数Ｍ参照
*＜項目別素点算出＞
08.01C MOVEL'0' *IN90
C SELEC
*評定項目01
C IX WHEQ 1
C Z-ADD1 IY
C I2KD01 LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ
C Z-ADDKPT,IY W1KPT 既存取引
C Z-ADDW1KPT WDKD01
C ELSE
C Z-ADD*ZERO W1KPT
C Z-ADD*ZERO WDKD01
C ENDIF
*評定項目02
C IX WHEQ 2
C Z-ADD1 IY
C I2KD02 LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ
C Z-ADDKPT,IY W1KPT 既存取引
C Z-ADDW1KPT WDKD02
C ELSE
C Z-ADD*ZERO W1KPT
C Z-ADD*ZERO WDKD02
C ENDIF
08.01 * 後輩の指導加味
: C*//////////I2CKKB////IFEQ 0 間接
: C*//////////KHT,3/////IFNE *BLANK 後輩の指導設定有
: C*//////////I2KD03////ANDEQ*BLANK だけどランクなし
: C*////////////////////Z-ADD3 W1SEQ 項目��
: C*////////////////////EXSR \YSPP 点数Ｍ参照
: C*////////////////////Z-ADD1 IY
: C*//////////I2KD02////LOKUPHT1,IY 90ﾗﾝｸ参照
: C*//////////*IN90/////IFEQ *ON
: C*////////////////////ADD KPT,IY W1KPT
: C*////////////////////Z-ADDW1KPT WDKD02
: C*////////////////////ENDIF
: C*////////////////////ENDIF
08.01C*////////////////////ENDIF
*評定項目03
C IX WHEQ 3
C Z-ADD1 IY
C I2KD03 LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDKPT,IY W1KPT
C Z-ADDW1KPT WDKD03
C ELSE
C Z-ADD*ZERO W1KPT
C Z-ADD*ZERO WDKD03
C ENDIF
08.01 * 後輩の指導加味
08.02C*//////////I2CKKB IFEQ 1 国内営業
: C KHT,4 IFNE *BLANK 後輩の指導設定有
: C I2KD04 ANDEQ*BLANK だけどランクなし
: C Z-ADD4 W1SEQ 項目��
: C EXSR \YSPP 点数Ｍ参照
: C Z-ADD1 IY
: C I2KD03 LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C ADD KPT,IY W1KPT
: C Z-ADDW1KPT WDKD03
: C ENDIF
08.01C ENDIF
08.02C*////////////////////ENDIF
*評定項目04
C IX WHEQ 4
C Z-ADD1 IY
C I2KD04 LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDKPT,IY W1KPT
C Z-ADDW1KPT WDKD04
C ELSE
C Z-ADD*ZERO W1KPT
C Z-ADD*ZERO WDKD04
C ENDIF
*評定項目05
C IX WHEQ 5
C Z-ADD1 IY
C I2KD05 LOKUPHT1,IY 90ﾗﾝｸ参照
C *IN90 IFEQ *ON
C Z-ADDKPT,IY W1KPT
C Z-ADDW1KPT WDKD05
C ELSE
C Z-ADD*ZERO W1KPT
C Z-ADD*ZERO WDKD05
C ENDIF
07.12 *評定項目06
: C IX WHEQ 6
: C Z-ADD1 IY
: C I2KD06 LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDKPT,IY W1KPT
: C Z-ADDW1KPT WDKD06
: C ELSE
: C Z-ADD*ZERO W1KPT
: C Z-ADD*ZERO WDKD06
07.12C ENDIF
07.12 *評定項目07
: C IX WHEQ 7
: C Z-ADD1 IY
: C I2KD07 LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDKPT,IY W1KPT
: C Z-ADDW1KPT WDKD07
: C ELSE
: C Z-ADD*ZERO W1KPT
: C Z-ADD*ZERO WDKD07
07.12C ENDIF
07.12 *評定項目08
: C IX WHEQ 8
: C Z-ADD1 IY
: C I2KD08 LOKUPHT1,IY 90ﾗﾝｸ参照
: C *IN90 IFEQ *ON
: C Z-ADDKPT,IY W1KPT
: C Z-ADDW1KPT WDKD08
: C ELSE
: C Z-ADD*ZERO W1KPT
: C Z-ADD*ZERO WDKD08
07.12C ENDIF
C ENDSL
*＜素点集計＞
C ADD W1KPT W1SOTN 成果
*
C ENDDO
*評定項目別素点ファイル更新
C *IN98 IFEQ *ON
C Z-ADDPRHTYY WDHTYY
C Z-ADDPRKKKB WDKKKB
C Z-ADDI2CKKB WDCKKB
C Z-ADDW1BUCD WDBUCD
C Z-ADDI2SYCD WDSYCD
C Z-ADDI2YKCD WDYKCD
C Z-ADDI2SOCD WDSOCD
C Z-ADDI2SSCD WDSSCD
C Z-ADDI2WAT1 WDWAT1
C Z-ADDI2WAT2 WDWAT2
C Z-ADD*ZERO WDC5R1
C Z-ADD*ZERO WDC5R2
C MOVELI2C5KK WDC5KK
C MOVELI2K1NI WDK1NI
C Z-ADDI2K1WT WDK1WT
C MOVELI2K2NI WDK2NI
C Z-ADDI2K2WT WDK2WT
C MOVELI2K3NI WDK3NI
C Z-ADDI2K3WT WDK3WT
C MOVELI2K4NI WDK4NI
C Z-ADDI2K4WT WDK4WT
C MOVELI2K5NI WDK5NI
C Z-ADDI2K5WT WDK5WT
07.12C MOVELI2K6NI WDK6NI
: C Z-ADDI2K6WT WDK6WT
: C MOVELI2K7NI WDK7NI
: C Z-ADDI2K7WT WDK7WT
: C MOVELI2K8NI WDK8NI
07.12C Z-ADDI2K8WT WDK8WT
C WRITEWSU004D
C ELSE
C UPDATWSU004D
C ENDIF
*
C ENDSR
******************************************************
* セット項目取得 *
******************************************************
C \SET BEGSR
*組織管理レベル取得
C Z-ADDPRKKKB IGKKKB
C Z-ADDI2SOCD IGSOCD
C Z-ADDI2SSCD IGSSCD
C Z-ADD*ZERO IGCKCD
C Z-ADD*ZERO IGYGPC
C Z-ADD*ZERO IGCKKB
C K\IG CHAINJIKHG1 90
C 90 CLEARJIKHG1
C Z-ADDI2BUCD W1BUCD
*＜出向者のチェック＞
C Z-ADDI2SYCD SASYCD
C Z-ADDW1KTYM SAFYYM
C Z-ADD*HIVAL SASICD
C K\SA SETGTSYUSYALA
08.04C*//////////I2SYCD REDPESYUSYALA 90
08.04C I2SYCD REDPESYUSYALA 91
08.04C*//////////*IN90/////IFEQ *OFF
08.04C*//////////SADFLG////ANDEQ*ZERO
08.04C *IN91 DOWEQ'0'
08.04C SADFLG IFEQ 0
*出向先マスタより主管部署取得
C Z-ADDSASICD SISICD
C SASICD CHAINSYUSKIW 90
*地区コードチェック
C *IN90 IFEQ *OFF
C Z-ADDSISKAN BMBUCD
C Z-ADDW1KTYM BMKTYM
C K\BM SETGTBUMONP
C BMBUCD REDPEBUMONP 90
C *IN90 IFEQ *OFF
C IGSKLV IFNE *ZERO
C Z-ADDIGSKLV IX
C BLV,IX IFEQ 41000
C Z-ADDSISKAN W1BUCD
08.04C*////////////////////ENDIF
C ENDIF
C ENDIF
*
C ENDIF
C ENDIF
08.04C LEAVE
: C ELSE
: C K\SA2 REDPESYUSYALA 91
: C ENDIF
08.04C ENDDO
*地区コード取得
C Z-ADDW1BUCD BMBUCD
C Z-ADDW1KTYM BMKTYM
C K\BM SETGTBUMONP
C W1BUCD REDPEBUMONP 90
C *IN90 IFEQ *OFF
C IGSKLV IFNE *ZERO
C Z-ADDIGSKLV IX
C Z-ADDBLV,IX W1CKCD
C ELSE
C Z-ADD*ZERO W1CKCD
C ENDIF
C ENDIF
*＜相対評価グループ取得＞
C Z-ADDPRKKKB IGKKKB
C Z-ADDI2SOCD IGSOCD
C Z-ADDI2SSCD IGSSCD
C Z-ADDW1CKCD IGCKCD
C Z-ADDI2YKCD IGYGPC
C Z-ADDI2CKKB IGCKKB
C K\IG CHAINJIKHG1 90
C *IN90 IFEQ *OFF
C Z-ADDIGSKLV W1SKLV
C Z-ADDIGGRP W1GRP
C ELSE
C Z-ADD*ZERO W1SKLV
C Z-ADD*ZERO W1GRP
C ENDIF
*
C ENDSR
******************************************************
* 評定入力ファイル出力 *
******************************************************
C \WRTIN BEGSR
*
C Z-ADDI2HTYY INHTYY
C Z-ADDI2KKKB INKKKB
C Z-ADDI2SYCD INSYCD
C K\INB CHAINJIKNYUB 98
C 98 CLEARJIKNYUB
*
C Z-ADDI2SYCD INSYCD 社員ＣＤ
C Z-ADDI2HTYY INHTYY 評定年度
C Z-ADDW1BUCD INBUCD 部署ＣＤ
C Z-ADDI2KKKB INKKKB 考課区分
C Z-ADDI2CKKB INCKKB 直間区分
C Z-ADDI2YKCD INYKCD 職制ＣＤ
C Z-ADDI2SOCD INSOCD 職掌ＣＤ
C Z-ADDI2SSCD INSSCD 資格ＣＤ
C Z-ADDW1SOTN INKSST 計算素点
C Z-ADD*ZERO INSYST 修正素点
C Z-ADD*ZERO INSUST 夏季修正素点
C Z-ADD*ZERO INWIST 年末修正素点
C Z-ADD*ZERO INSOST 昇給昇格素点
C MOVEL*BLANK INKSRK 計算ランク
C MOVEL*BLANK INHTRK 評定ランク
C MOVEL*BLANK INTNRK 本店長ランク
C MOVEL*BLANK INJIRK 人事ランク
C MOVEL*BLANK INKTRK 決定ランク
C MOVEL*BLANK INHT01 評定内容０１
C MOVEL*BLANK INHT02 評定内容０２
C MOVEL*BLANK INHT03 評定内容０３
C MOVEL*BLANK INHT04 評定内容０４
C MOVEL*BLANK INHT05 評定内容０５
C MOVEL*BLANK INHT06 評定内容０６
C MOVEL*BLANK INHT07 評定内容０７
C MOVEL*BLANK INHT08 評定内容０８
C MOVEL*BLANK INHT09 評定内容０９
C MOVEL*BLANK INHT10 評定内容１０
C MOVEL*BLANK INHT11 評定内容１１
C MOVEL*BLANK INHT12 評定内容１２
C MOVEL*BLANK INHT13 評定内容１３
C MOVEL*BLANK INHT14 評定内容１４
C MOVEL*BLANK INHT15 評定内容１５
C MOVEL*BLANK INHT16 評定内容１６
C MOVEL*BLANK INHT17 評定内容１７
C MOVEL*BLANK INHT18 評定内容１８
C MOVEL*BLANK INHT19 評定内容１９
C MOVEL*BLANK INHT20 評定内容２０
C MOVEL*BLANK INHT21 評定内容２１
C MOVEL*BLANK INHT22 評定内容２２
C MOVEL*BLANK INHT23 評定内容２３
C MOVEL*BLANK INHT24 評定内容２４
C MOVEL*BLANK INHT25 評定内容２５
C Z-ADD1 INUPDT 更新区分
C Z-ADD*ZERO INCKCD 評定地区ｺｰﾄﾞ1
C Z-ADDIGGRP INGRP 評定ｸﾞﾙｰﾌﾟ1
C Z-ADDIGSKLV INSKLV 組織管理項目1
C Z-ADD*ZERO INCKC2 評定地区ｺｰﾄﾞ2
C Z-ADD*ZERO INGRP2 評定ｸﾞﾙｰﾌﾟ2
C Z-ADD*ZERO INSKL2 組織管理項目2
C Z-ADD*ZERO INTOU\ 当期金額
C Z-ADD*ZERO INZEN\ 前年同月
C MOVEL*BLANK INKZRK 改善ランク
C MOVEL*BLANK INKORK 貢献ランク
C MOVEL*BLANK INSGRK 総合ランク
C Z-ADD*ZERO INKZPT 改善ポイント
C Z-ADD*ZERO INKOPT 貢献ポイント
C Z-ADD*ZERO INSGPT 総合素点
C Z-ADDW1TAIS INTAIS 考課対象外区分
C Z-ADD*ZERO INYGPC 役職ＧＰ
C MOVEL*BLANK INSYRK 賞与確定ランク
C Z-ADD*ZERO INNKCD 給与／年俸種類ｺｰﾄﾞ
C Z-ADD*ZERO INNGKY 給与／年俸種類額
C Z-ADD*ZERO INNTCD 退職／年俸種類ｺｰﾄﾞ
C Z-ADD*ZERO INNGRN 退職／年俸額
C Z-ADD*ZERO INNSOC 退職／職掌ｺｰﾄﾞ
C Z-ADD*ZERO INNSCD 退職／資格ｺｰﾄﾞ
C Z-ADDI2WAT1 INWAT1 既存取引
C Z-ADDI2WAT2 INWAT2 新規ﾋﾞｼﾞﾈｽ
C MOVELI2C1HT INC1HT 直接成果１評定
C MOVELI2C2HT INC2HT 直接成果２評定
C MOVELI2C3HT INC3HT 直接成果３評定
C MOVELI2C4HT INC4HT 直接成果４評定
07.12C MOVELI2C5HT INC5HT 直接成果５評定
: C MOVELI2C6HT INC6HT 直接成果６評定
: C MOVELI2C7HT INC7HT 直接成果７評定
07.12C MOVELI2C8HT INC8HT 直接成果８評定
C MOVELI2C5R1 INC5R1 直接成果５純益ﾗﾝｸ
C MOVELI2C5R2 INC5R2 直接成果５改善ﾗﾝｸ
C MOVELI2C5KK INC5KK 直接成果５達成度
C Z-ADDI2C5P1 INC5P1 直接成果５配分点
C Z-ADDI2C5P2 INC5P2 直接成果５持ち点
C MOVELI2K1NI INK1N1 間接成果1難易度
C Z-ADDI2K1WT INK1WT 間接成果1 ｳｪｲﾄ
C MOVELI2K1HT INK1HT 間接成果1評定
C MOVELI2K2NI INK2N1 間接成果2難易度
C Z-ADDI2K2WT INK2WT 間接成果2 ｳｪｲﾄ
C MOVELI2K2HT INK2HT 間接成果2評定
C MOVELI2K3NI INK3N1 間接成果3難易度
C Z-ADDI2K3WT INK3WT 間接成果3 ｳｪｲﾄ
C MOVELI2K3HT INK3HT 間接成果3評定
C MOVELI2K4NI INK4N1 間接成果4難易度
C Z-ADDI2K4WT INK4WT 間接成果4 ｳｪｲﾄ
C MOVELI2K4HT INK4HT 間接成果4評定
C MOVELI2K5NI INK5N1 間接成果5難易度
C Z-ADDI2K5WT INK5WT 間接成果5 ｳｪｲﾄ
C MOVELI2K5HT INK5HT 間接成果5評定
07.12C MOVELI2K6NI INK6N1 間接成果6難易度
: C Z-ADDI2K6WT INK6WT 間接成果6 ｳｪｲﾄ
: C MOVELI2K6HT INK6HT 間接成果6評定
: C MOVELI2K7NI INK7N1 間接成果7難易度
: C Z-ADDI2K7WT INK7WT 間接成果7 ｳｪｲﾄ
: C MOVELI2K7HT INK7HT 間接成果7評定
: C MOVELI2K8NI INK8N1 間接成果8難易度
: C Z-ADDI2K8WT INK8WT 間接成果8 ｳｪｲﾄ
07.12C MOVELI2K8HT INK8HT 間接成果8評定
C MOVELI2KD01 INKD01 行動１
C MOVELI2KD02 INKD02 行動２
C MOVELI2KD03 INKD03 行動３
C MOVELI2KD04 INKD04 行動４
C MOVELI2KD05 INKD05 行動５
07.12C MOVELI2KD06 INKD06 行動６
: C MOVELI2KD07 INKD07 行動７
07.12C MOVELI2KD08 INKD08 行動８
C MOVEL*BLANK INKSR7 計算ランク ７段階
C MOVEL*BLANK INHTR7 評定ランク ７段階
C MOVEL*BLANK INTNR7 本店長ランク７段階
C MOVEL*BLANK INJIR7 人事ランク ７段階
C MOVEL*BLANK INKTR7 決定ランク ７段階
C Z-ADD*ZERO INHTCD 評定者ＣＤ
C Z-ADD*ZERO INSCPT
C Z-ADD*ZERO INAMGP 甘辛ＧＰ
C Z-ADD*ZERO INAMPT 甘辛指数
C Z-ADD*ZERO INNPSK 年俸最下限額
C Z-ADD*ZERO INNPKG 年俸加算額
C Z-ADD*ZERO INNPCJ 年俸調整額（人事）
C Z-ADD*ZERO INNPCK 年俸調整額（決定）
C MOVEL*BLANK INTKKB 取込区分
C Z-ADD*ZERO INTKDT 取込日付
C Z-ADD*ZERO INNATU 業績額（夏）
C Z-ADD*ZERO INFUYU 業績額（冬）
*考課対象外の時、考課固定
C INTAIS IFNE *ZERO
C *IN93 ANDNE*ON
C MOVEL'B ' INKSRK
C MOVEL'B ' INHTRK
C MOVEL'B ' INSGRK
C MOVEL'B ' INKSR7
C MOVEL'B ' INHTR7
C ENDIF
*標準年令取得
C EXSR \HJNR
C Z-ADDW1HJNR INHJNR 標準年令
*
C N98 UPDATJIKNYUB
C 98 WRITEJIKNYUB
*ワーククリア
C Z-ADD*ZERO W1BUCD
C Z-ADD*ZERO W1CKCD
C Z-ADD*ZERO W1TAIS
C Z-ADD*ZERO W1SOTN
*
C ENDSR
******************************************************
* 評定ランクマスタ参照
******************************************************
C \KKKA BEGSR
*
C Z-ADDPRKKKB IKKKKB
C Z-ADD*HIVAL IKKTYM
C K\IK SETLLJIKKKAP
C PRKKKB REDPEJIKKKAP 90
C 90 CLEARJIKKKA
*
C ENDSR
******************************************************
* 要素項目点数マスタ参照 *
******************************************************
C \YSPP BEGSR
*
C Z-ADDPRKKKB IPKKKB
C Z-ADDI2SOCD IPSOCD
C Z-ADDI2CKKB IPCKKB
C Z-ADDW1SSCD IPSSCD
*
08.01C IX IFEQ 1
: C Z-ADDW1KTYM IPKTYM
: C Z-ADD1 IPSEQN
: C K\IPC1 SETLLJIKYSPC
: C K\IPC2 READEJIKYSPC 91
: C N91 Z-ADDIPKTYM WWKTYM 60
: C 91 Z-ADD*ZERO WWKTYM
08.01C ENDIF
*
08.01C*////////////////////Z-ADDW1KTYM IPKTYM
08.01C*//////////K\IP//////SETGTJIKYSP
08.01C*//////////K\IPB/////REDPEJIKYSP 90
C Z-ADDIX IPSEQN
08.01C Z-ADDWWKTYM IPKTYM
08.01C K\IP CHAINJIKYSP 90
C *IN90 IFEQ *ON
C CLEARJIKYSP
C Z-ADD*ZERO SPT
08.01C Z-ADD*ZERO SP2
08.01C Z-ADD*ZERO KPT
C ENDIF
*
C ENDSR
******************************************************
* 要素項目点数マスタ（間接用） *
******************************************************
08.01C*//////////\YSP2/////BEGSR
: *
: C*////////////////////Z-ADDPRKKKB IPKKKB
: C*////////////////////Z-ADDI2SOCD IPSOCD
: C*////////////////////Z-ADDI2CKKB IPCKKB
: C*////////////////////Z-ADDW1SSCD IPSSCD
: C*////////////////////MOVELW1SNID IPSNID
: C*////////////////////Z-ADDW1KTYM IPKTYM
: C*//////////K\IP2/////SETGTJIKYP2
: C*//////////K\IP2B////REDPEJIKYP2 90
: C*//////////*IN90/////IFEQ *ON
: C*////////////////////CLEARJIKYP2
: C*////////////////////Z-ADD*ZERO SP2
: C*////////////////////ENDIF
: *
08.01C*////////////////////ENDSR
******************************************************
* 組織評価 持ち点 満点取得 *
******************************************************
C \MANTN BEGSR
*持ち点ﾊﾟﾗﾒｰﾀ
C READ JIKPRVP 90
C 90 CLEARJIKPRV
*
C Z-ADDPVJEPS W1MNTN
C ADD PVKZPS W1MNTN
C ADD PVTSPG W1MNTN
*
C ENDSR
******************************************************
* 標準年令 取得 *
******************************************************
C \HJNR BEGSR
*
C INSYCD CHAINSYAIN 90
C *IN90 IFEQ *OFF
C P2YBC ANDNE*ZERO
C Z-ADDP2YBC IY
C Z-ADDYBC,IY W1HJNR
C ELSE
C Z-ADD*ZERO W1HJNR
C ENDIF
*
C ENDSR
****************************************************************
* 評定要素マスタ参照 *
****************************************************************
C \STYSO BEGSR
*
C Z-ADDPRKKKB IYKKKB
C Z-ADDI2SOCD IYSOCD
C Z-ADDI2CKKB IYCKKB
C Z-ADDW1SSCD IYSSCD
C Z-ADDW1KTYM IYKTYM
C K#IY SETGTJIKYSOP
C K#IY2 REDPEJIKYSOP 90
C *IN90 IFEQ *OFF
*定量評価
C MOVELIYSHT1 SHT,1
C MOVELIYSHT2 SHT,2
C MOVELIYSHT3 SHT,3
C MOVELIYSHT4 SHT,4
C MOVELIYSHT5 SHT,5
C MOVELIYSHT6 SHT,6
C MOVELIYSHT7 SHT,7
C MOVELIYSHT8 SHT,8
*定性評価
C MOVELIYKHT1 KHT,1
C MOVELIYKHT2 KHT,2
C MOVELIYKHT3 KHT,3
C MOVELIYKHT4 KHT,4
C MOVELIYKHT5 KHT,5
C MOVELIYKHT6 KHT,6
C MOVELIYKHT7 KHT,7
C MOVELIYKHT8 KHT,8
C ELSE
C MOVEA*ALL' ' SHT
C MOVEA*ALL' ' KHT
C ENDIF
*
C 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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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["【パラメータリスト】
174：*ENTRY|PLIST|"]
2["【パラメータ定義】
175： PARM PRHTYY"]
3["【パラメータ定義】
176： PARM PRKKKB"]
4["【キーリスト】
181：K¥I2|KLIST|"]
5["【キー定義】
182：KFLD|I2HTYY|"]
6["【キー定義】
183：KFLD|I2KKKB|"]
7["【キー定義】
184：KFLD|I2CKKB|"]
10["【キーリスト】
187：K¥I2B|KLIST|"]
11["【キー定義】
188：KFLD|I2HTYY|"]
12["【キー定義】
189：KFLD|I2KKKB|"]
13["【キーリスト】
191：K¥INB|KLIST|"]
14["【キー定義】
192：KFLD|INHTYY|"]
15["【キー定義】
193：KFLD|INKKKB|"]
16["【キー定義】
194：KFLD|INSYCD|"]
17["【キーリスト】
195：K¥INBB|KLIST|"]
18["【キー定義】
196：KFLD|INHTYY|"]
19["【キー定義】
197：KFLD|INKKKB|"]
20["【キーリスト】
199：K¥IK|KLIST|"]
21["【キー定義】
200：KFLD|IKKKKB|"]
22["【キー定義】
201：KFLD|IKKTYM|"]
23["【キーリスト】
203：K¥IA|KLIST|"]
24["【キー定義】
204：KFLD|IAKKKB|"]
25["【キー定義】
205：KFLD|IAHTYY|"]
26["【キー定義】
206：KFLD|IASOCD|"]
29["【キーリスト】
209：K¥IAB|KLIST|"]
30["【キー定義】
210：KFLD|IAKKKB|"]
31["【キー定義】
211：KFLD|IAHTYY|"]
32["【キーリスト】
213：K¥IP|KLIST|"]
33["【キー定義】
214：KFLD|IPKKKB|"]
34["【キー定義】
215：KFLD|IPSOCD|"]
35["【キー定義】
216：KFLD|IPCKKB|"]
39["【キーリスト】
220：K¥IPB|KLIST|"]
40["【キー定義】
221：KFLD|IPKKKB|"]
41["【キー定義】
222：KFLD|IPSOCD|"]
42["【キー定義】
223：KFLD|IPCKKB|"]
45["【キーリスト】
226：K¥IPC1|KLIST|"]
46["【キー定義】
227：KFLD|IPKKKB|"]
47["【キー定義】
228：KFLD|IPSOCD|"]
48["【キー定義】
229：KFLD|IPCKKB|"]
51["【キーリスト】
232：K¥IPC2|KLIST|"]
52["【キー定義】
233：KFLD|IPKKKB|"]
53["【キー定義】
234：KFLD|IPSOCD|"]
54["【キー定義】
235：KFLD|IPCKKB|"]
56["【キーリスト】
252：K#IY|KLIST|"]
57["【キー定義】
253：KFLD|IYKKKB|"]
58["【キー定義】
254：KFLD|IYSOCD|"]
59["【キー定義】
255：KFLD|IYCKKB|"]
62["【キーリスト】
258：K#IY2|KLIST|"]
63["【キー定義】
259：KFLD|IYKKKB|"]
64["【キー定義】
260：KFLD|IYSOCD|"]
65["【キー定義】
261：KFLD|IYCKKB|"]
67["【キーリスト】
264：K¥IG|KLIST|"]
68["【キー定義】
265：KFLD|IGKKKB|"]
69["【キー定義】
266：KFLD|IGSOCD|"]
70["【キー定義】
267：KFLD|IGSSCD|"]
74["【キーリスト】
272：K¥SA|KLIST|"]
75["【キー定義】
273：KFLD|SASYCD|"]
76["【キー定義】
274：KFLD|SAFYYM|"]
77["【キー定義】
275：KFLD|SASICD|"]
78["【キーリスト】
277：K¥SA2|KLIST|"]
79["【キー定義】
278：KFLD|SASYCD|"]
80["【キー定義】
279：KFLD|SAFYYM|"]
81["【キーリスト】
281：K¥BM|KLIST|"]
82["【キー定義】
282：KFLD|BMBUCD|"]
83["【キー定義】
283：KFLD|BMKTYM|"]
84["【キーリスト】
285：K¥WD|KLIST|"]
85["【キー定義】
286：KFLD|WDHTYY|"]
86["【キー定義】
287：KFLD|WDKKKB|"]
87["【キー定義】
288：KFLD|WDCKKB|"]
90["【キーリスト】
291：K¥WDB|KLIST|"]
91["【キー定義】
292：KFLD|WDHTYY|"]
92["【キー定義】
293：KFLD|WDKKKB|"]
93[["【ｻﾌﾞﾙｰﾁﾝ呼出】
297：¥INIT"]]:::clrPattern3
94[["【ｻﾌﾞﾙｰﾁﾝ呼出】
298：¥MAIN"]]:::clrPattern3
95[["【ｻﾌﾞﾙｰﾁﾝ呼出】
299：¥END"]]:::clrPattern3
%%ルート設定
1-->2
2-->3
3-->4
4-->5
5-->6
6-->7
7--中略-->10
10-->11
11-->12
12-->13
13-->14
14-->15
15-->16
16-->17
17-->18
18-->19
19-->20
20-->21
21-->22
22-->23
23-->24
24-->25
25-->26
26--中略-->29
29-->30
30-->31
31-->32
32-->33
33-->34
34-->35
35--中略-->39
39-->40
40-->41
41-->42
42--中略-->45
45-->46
46-->47
47-->48
48--中略-->51
51-->52
52-->53
53-->54
54--中略-->56
56-->57
57-->58
58-->59
59--中略-->62
62-->63
63-->64
64-->65
65--中略-->67
67-->68
68-->69
69-->70
70--中略-->74
74-->75
75-->76
76-->77
77-->78
78-->79
79-->80
80-->81
81-->82
82-->83
83-->84
84-->85
85-->86
86-->87
87--中略-->90
90-->91
91-->92
92-->93
93-->94
94-->95
95-->P0(["演算 終了"])
%%{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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
96(["【ｻﾌﾞﾙｰﾁﾝ開始】
303：¥INIT"])
97["【Z-ADD】
305：IX = 0"]
98["【Z-ADD】
306：IY = 0"]
99["【Z-ADD】
307：IZ = 0"]
121[["【ｻﾌﾞﾙｰﾁﾝ呼出】
332：¥KKKA"]]:::clrPattern3
122[["【ｻﾌﾞﾙｰﾁﾝ呼出】
334：¥MANTN"]]:::clrPattern3
123["【MULT】
336：W1KTYM = PRHTYY * 100"]
124["【ADD】
337：W1KTYM = W1KTYM + IKMTSY"]
125["【Z-ADD】
338：DSKTYM = W1KTYM"]
126["【Z-ADD】
341：INHTYY = PRHTYY"]
127["【Z-ADD】
342：INKKKB = PRKKKB"]
128["【Z-ADD】
343：INSYCD = *LOVAL"]
129["CRUD＜READ＞
【SETLL】
344：JIKNYULB||"]:::clrPatternR
130[/"CRUD＜READ＞
【READE】
345：JIKNYULB|90|"/]:::clrPatternR
131[/"【繰返文開始】
DO WHILE 文
346：
if *IN90 = 0"\]:::clrPattern2
132{"347:条件文"}:::clrPattern1
134[/"CRUD＜DELETE＞
【DELET】
348：DELET"/]:::clrPatternD
135["349：ELSE"]
136[/"【UNLCK】
350：UNLCK"/]
137(["351：ENDIF"])
138[/"CRUD＜READ＞
【READE】
352：JIKNYULB|90|"/]:::clrPatternR
139[\"【繰返文終了】
353：ENDDO"/]:::clrPattern2
140["【Z-ADD】
355：IAKKKB = PRKKKB"]
141["【Z-ADD】
356：IAHTYY = PRHTYY"]
142["【Z-ADD】
357：IASOCD = *LOVAL"]
145["CRUD＜READ＞
【SETLL】
360：JIKAMAP||"]:::clrPatternR
146[/"CRUD＜READ＞
【READE】
361：JIKAMAP|90|"/]:::clrPatternR
147[/"【繰返文開始】
DO WHILE 文
362：
if *IN90 = 0"\]:::clrPattern2
148[/"CRUD＜DELETE＞
【DELET】
363：DELET"/]:::clrPatternD
149[/"CRUD＜READ＞
【READE】
364：JIKAMA|90|"/]:::clrPatternR
150[\"【繰返文終了】
365：ENDDO"/]:::clrPattern2
151["【Z-ADD】
367：WDHTYY = PRHTYY"]
152["【Z-ADD】
368：WDKKKB = PRKKKB"]
153["【Z-ADD】
369：WDCKKB = *LOVAL"]
156["CRUD＜READ＞
【SETLL】
372：WSU004D||"]:::clrPatternR
157[/"CRUD＜READ＞
【READE】
373：WSU004D|90|"/]:::clrPatternR
158[/"【繰返文開始】
DO WHILE 文
374：
if *IN90 = 0"\]:::clrPattern2
159[/"CRUD＜DELETE＞
【DELET】
375：DELET"/]:::clrPatternD
160[/"CRUD＜READ＞
【READE】
376：WSU004D|90|"/]:::clrPatternR
161[\"【繰返文終了】
377：ENDDO"/]:::clrPattern2
162[/"CRUD＜READ＞
【READ】
379：JIKPRWP|90|"/]:::clrPatternR
163{"380_1:条件文"}:::clrPattern1
165["【Z-ADD】
380_2：SSC = 0"]
166(["380_3：ENDIF"])
167[/"CRUD＜READ＞
【READ】
382：JIKPR2P|90|"/]:::clrPatternR
168{"383_1:条件文"}:::clrPattern1
170["【CLEAR】
383_2：CLEAR"]
171(["383_3：ENDIF"])
172(["【ｻﾌﾞﾙｰﾁﾝ終了】
385：ENDSR"])
%%ルート設定
96-->97
97-->98
98-->99
99--中略-->121
121-->122
122-->123
123-->124
124-->125
125-->126
126-->127
127-->128
128-->129
129-->130
130-->131
131-->|ループ開始|132
132-->|条件文 真 |134
132-->|条件文 偽 |135
134-->137
135-->136
136-->137
137-->138
138-->139
139-->|ループ終了|140
139-->|ループ継続| 131
140-->141
141-->142
142--中略-->145
145-->146
146-->147
147-->|ループ開始|148
148-->149
149-->150
150-->|ループ終了|151
150-->|ループ継続| 147
151-->152
152-->153
153--中略-->156
156-->157
157-->158
158-->|ループ開始|159
159-->160
160-->161
161-->|ループ終了|162
161-->|ループ継続| 158
162-->163
163-->|条件文 真 |165
163-->|条件文 偽 |166
165-->166
166-->167
167-->168
168-->|条件文 真 |170
168-->|条件文 偽 |171
170-->171
171-->172
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if INTKKB = *BLANK"]
132
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["90真"]
163
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["90真"]
168
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
173(["【ｻﾌﾞﾙｰﾁﾝ開始】
389：¥MAIN"])
174["【Z-ADD】
391：I2HTYY = PRHTYY"]
175["【Z-ADD】
392：I2KKKB = PRKKKB"]
176["【Z-ADD】
393：I2CKKB = *LOVAL"]
179["CRUD＜READ＞
【SETLL】
396：JIKINP2||"]:::clrPatternR
180[/"CRUD＜READ＞
【READE】
397：JIKINP2|91|"/]:::clrPatternR
181[/"【繰返文開始】
DO WHILE 文
398：
if *IN91 = 0"\]:::clrPattern2
182["【MOVEL】
400：*IN93 = '0'"]
183["【Z-ADD】
401：IX = 1"]
184["【LOKUP】
402：LOKUP||"]
185{"403:条件文"}:::clrPattern1
187["【Z-ADD】
404：W1SSCD = 102"]
188["405：ELSE"]
189["【Z-ADD】
406：W1SSCD = I2SSCD"]
190(["407：ENDIF"])
191[["【ｻﾌﾞﾙｰﾁﾝ呼出】
409：¥TAIS"]]:::clrPattern3
192["【Z-ADD】
410：W1TAIS = PPTAIS"]
193[["【ｻﾌﾞﾙｰﾁﾝ呼出】
412：¥SET"]]:::clrPattern3
194["【SELEC開始】
414：SELEC"]:::clrPattern2
195["【WH文】415：
if I2CKKB = 1"]:::clrPattern1
196[["【ｻﾌﾞﾙｰﾁﾝ呼出】
416：¥STNS1"]]:::clrPattern3
197[["【ｻﾌﾞﾙｰﾁﾝ呼出】
417：¥STNK1"]]:::clrPattern3
198(["WH終了"])
199["【WH文】418：
if I2CKKB = 0"]:::clrPattern1
200[["【ｻﾌﾞﾙｰﾁﾝ呼出】
419：¥STNS2"]]:::clrPattern3
201[["【ｻﾌﾞﾙｰﾁﾝ呼出】
420：¥STNK1"]]:::clrPattern3
202(["WH終了"])
203["【SELECT終了】
421：ENDSL"]:::clrPattern2
204[["【ｻﾌﾞﾙｰﾁﾝ呼出】
423：¥WRTIN"]]:::clrPattern3
205[/"CRUD＜READ＞
【READE】
425：JIKINP2|91|"/]:::clrPatternR
206[\"【繰返文終了】
426：ENDDO"/]:::clrPattern2
207(["【ｻﾌﾞﾙｰﾁﾝ終了】
428：ENDSR"])
%%ルート設定
173-->174
174-->175
175-->176
176--中略-->179
179-->180
180-->181
181-->|ループ開始|182
182-->183
183-->184
184-->185
185-->|条件文 真 |187
185-->|条件文 偽 |188
187-->190
188-->189
189-->190
190-->191
191-->192
192-->193
193-->194
194-->|WH文へ|195
194-->|WH文へ|199
195-->196
196-->197
197-->198
198-->203
199-->200
200-->201
201-->202
202-->203
203-->204
204-->205
205-->206
206-->|ループ終了|207
206-->|ループ継続| 181
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if *IN93 = 1"]
185
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
208(["【ｻﾌﾞﾙｰﾁﾝ開始】
432：¥END"])
209["【SETON】
433：SETON|LR|"]
210["【ﾌﾟﾛｸﾞﾗﾑ終了】
434：RETRN"]
211(["【ｻﾌﾞﾙｰﾁﾝ終了】
435：ENDSR"])
%%ルート設定
208-->209
209-->210
%%{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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
212(["【ｻﾌﾞﾙｰﾁﾝ開始】
439：¥TAIS"])
213["【MOVEL】
441：PPHTYY = PRHTYY"]
214["【MOVEL】
442：PPKKKB = PRKKKB"]
215["【MOVEL】
443：PPSYCD = I2SYCD"]
217[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
445：SU004104'"]]:::clrPattern3
218["【パラメータ定義】
446： PARM PPHTYY"]
219["【パラメータ定義】
447： PARM PPKKKB"]
220["【パラメータ定義】
448： PARM PPSYCD"]
222(["【ｻﾌﾞﾙｰﾁﾝ終了】
452：ENDSR"])
%%ルート設定
212-->213
213-->214
214-->215
215--中略-->217
217-->218
218-->219
219-->220
220--中略-->222
%%{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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
223(["【ｻﾌﾞﾙｰﾁﾝ開始】
456：¥STNS1"])
224["【Z-ADD】
458：WDHTYY = PRHTYY"]
225["【Z-ADD】
459：WDKKKB = PRKKKB"]
226["【Z-ADD】
460：WDCKKB = I2CKKB"]
229[/"CRUD＜READ＞
【CHAIN】
463：WSU004DP|98|"/]:::clrPatternR
230{"464_1:条件文"}:::clrPattern1
232["【CLEAR】
464_2：CLEAR"]
233(["464_3：ENDIF"])
234[/"【繰返文開始】
Do 文
467：
if 1 < 8"\]:::clrPattern2
235["【Z-ADD】
468：W1SPT = 0"]
236["【Z-ADD】
470：W1SEQ = IX"]
237[["【ｻﾌﾞﾙｰﾁﾝ呼出】
471：¥YSPP"]]:::clrPattern3
238["【MOVEL】
473：*IN90 = '0'"]
239["【SELEC開始】
474：SELEC"]:::clrPattern2
240["【WH文】476：
if IX = 1"]:::clrPattern1
241["【Z-ADD】
477：IY = 1"]
242["【LOKUP】
478：LOKUP||"]
243{"479:条件文"}:::clrPattern1
245["【MULT】
480：W2SPT = SPT,IY * I2WAT1"]
246["【DIV】
481：W1SPT = W2SPT ÷ 100"]
247["【Z-ADD】
482：WDC1HT = W1SPT"]
248["483：ELSE"]
249["【Z-ADD】
484：W1SPT = 0"]
250["【Z-ADD】
485：WDC1HT = 0"]
251(["486：ENDIF"])
252(["WH終了"])
253["【WH文】488：
if IX = 2"]:::clrPattern1
254["【Z-ADD】
489：IY = 1"]
255["【LOKUP】
490：LOKUP||"]
256{"491:条件文"}:::clrPattern1
258["【MULT】
492：W2SPT = SPT,IY * I2WAT2"]
259["【DIV】
493：W1SPT = W2SPT ÷ 100"]
260["【Z-ADD】
494：WDC2HT = W1SPT"]
261["495：ELSE"]
262["【Z-ADD】
496：W1SPT = 0"]
263["【Z-ADD】
497：WDC2HT = 0"]
264(["498：ENDIF"])
265(["WH終了"])
266["【WH文】500：
if IX = 3"]:::clrPattern1
267["【Z-ADD】
501：IY = 1"]
268["【LOKUP】
502：LOKUP||"]
269{"503:条件文"}:::clrPattern1
271["【Z-ADD】
504：W1SPT = SPT,IY"]
272["【Z-ADD】
505：WDC3HT = W1SPT"]
273["506：ELSE"]
274["【Z-ADD】
507：W1SPT = 0"]
275["【Z-ADD】
508：WDC3HT = 0"]
276(["509：ENDIF"])
277(["WH終了"])
278["【WH文】511：
if IX = 4"]:::clrPattern1
279["【Z-ADD】
512：IY = 1"]
280["【LOKUP】
513：LOKUP||"]
281{"514:条件文"}:::clrPattern1
283["【Z-ADD】
515：W1SPT = SPT,IY"]
284["【Z-ADD】
516：WDC4HT = W1SPT"]
285["517：ELSE"]
286["【Z-ADD】
518：W1SPT = 0"]
287["【Z-ADD】
519：WDC4HT = 0"]
288(["520：ENDIF"])
289(["WH終了"])
290["【WH文】522：
if IX = 5"]:::clrPattern1
291["【Z-ADD】
523：IY = 1"]
292["【LOKUP】
524：LOKUP||"]
293{"525:条件文"}:::clrPattern1
295["【Z-ADD】
526：W1SPT = SPT,IY"]
296["【Z-ADD】
527：WDC5HT = W1SPT"]
297["528：ELSE"]
298["【Z-ADD】
529：W1SPT = 0"]
299["【Z-ADD】
530：WDC5HT = 0"]
300(["531：ENDIF"])
301["【MOVEL】
533：*IN90 = '0'"]
302["【Z-ADD】
534：IY = 1"]
303["【LOKUP】
535：LOKUP||"]
304{"536:条件文"}:::clrPattern1
306{"538:条件文"}:::clrPattern1
308["【DIV】
539：W2SPT = I2C5P1 ÷ W1MNTN"]
309["540：ELSE"]
310["【Z-ADD】
541：W2SPT = 0"]
311(["542：ENDIF"])
312["【MULT】
543：W1SPT = W2SPT * SPT,IY"]
313["【Z-ADD】
544：WDC5PT = W1SPT"]
314["545：ELSE"]
315["【Z-ADD】
546：W1SPT = 0"]
316["【Z-ADD】
547：WDC5PT = 0"]
317(["548：ENDIF"])
318(["WH終了"])
319["【WH文】550：
if IX = 6"]:::clrPattern1
320["【Z-ADD】
551：IY = 1"]
321["【LOKUP】
552：LOKUP||"]
322{"553:条件文"}:::clrPattern1
324["【Z-ADD】
554：W1SPT = SPT,IY"]
325["【Z-ADD】
555：WDC6HT = W1SPT"]
326["556：ELSE"]
327["【Z-ADD】
557：W1SPT = 0"]
328["【Z-ADD】
558：WDC6HT = 0"]
329(["559：ENDIF"])
330(["WH終了"])
331["【WH文】561：
if IX = 7"]:::clrPattern1
332["【Z-ADD】
562：IY = 1"]
333["【LOKUP】
563：LOKUP||"]
334{"564:条件文"}:::clrPattern1
336["【Z-ADD】
565：W1SPT = SPT,IY"]
337["【Z-ADD】
566：WDC7HT = W1SPT"]
338["567：ELSE"]
339["【Z-ADD】
568：W1SPT = 0"]
340["【Z-ADD】
569：WDC7HT = 0"]
341(["570：ENDIF"])
342(["WH終了"])
343["【WH文】572：
if IX = 8"]:::clrPattern1
344["【Z-ADD】
573：IY = 1"]
345["【LOKUP】
574：LOKUP||"]
346{"575:条件文"}:::clrPattern1
348["【Z-ADD】
576：W1SPT = SPT,IY"]
349["【Z-ADD】
577：WDC8HT = W1SPT"]
350["578：ELSE"]
351["【Z-ADD】
579：W1SPT = 0"]
352["【Z-ADD】
580：WDC8HT = 0"]
353(["581：ENDIF"])
354(["WH終了"])
355["【SELECT終了】
582：ENDSL"]:::clrPattern2
356["【ADD】
584：W1SOTN = W1SOTN + W1SPT"]
357[\"【繰返文終了】
586：ENDDO"/]:::clrPattern2
358{"588:条件文"}:::clrPattern1
360["【Z-ADD】
589：WDHTYY = PRHTYY"]
361["【Z-ADD】
590：WDKKKB = PRKKKB"]
362["【Z-ADD】
591：WDCKKB = I2CKKB"]
391[/"CRUD＜CREATE＞
【WRITE】
630：WSU004D||"/]:::clrPatternC
392["631：ELSE"]
393[/"CRUD＜UPDATE＞
【UPDAT】
632：UPDAT"/]:::clrPatternU
394(["633：ENDIF"])
395(["【ｻﾌﾞﾙｰﾁﾝ終了】
635：ENDSR"])
%%ルート設定
223-->224
224-->225
225-->226
226--中略-->229
229-->230
230-->|条件文 真 |232
230-->|条件文 偽 |233
232-->233
233-->234
234-->|ループ開始|235
235-->236
236-->237
237-->238
238-->239
239-->|WH文へ|240
239-->|WH文へ|253
239-->|WH文へ|266
239-->|WH文へ|278
239-->|WH文へ|290
239-->|WH文へ|319
239-->|WH文へ|331
239-->|WH文へ|343
240-->241
241-->242
242-->243
243-->|条件文 真 |245
243-->|条件文 偽 |248
245-->246
246-->247
247-->251
248-->249
249-->250
250-->251
251-->252
252-->355
253-->254
254-->255
255-->256
256-->|条件文 真 |258
256-->|条件文 偽 |261
258-->259
259-->260
260-->264
261-->262
262-->263
263-->264
264-->265
265-->355
266-->267
267-->268
268-->269
269-->|条件文 真 |271
269-->|条件文 偽 |273
271-->272
272-->276
273-->274
274-->275
275-->276
276-->277
277-->355
278-->279
279-->280
280-->281
281-->|条件文 真 |283
281-->|条件文 偽 |285
283-->284
284-->288
285-->286
286-->287
287-->288
288-->289
289-->355
290-->291
291-->292
292-->293
293-->|条件文 真 |295
293-->|条件文 偽 |297
295-->296
296-->300
297-->298
298-->299
299-->300
300-->301
301-->302
302-->303
303-->304
304-->|条件文 真 |306
304-->|条件文 偽 |309
306-->|条件文 真 |308
306-->|条件文 偽 |309
308-->317
309-->310
310-->311
311-->312
312-->313
313-->317
314-->315
315-->316
316-->317
317-->318
318-->355
319-->320
320-->321
321-->322
322-->|条件文 真 |324
322-->|条件文 偽 |326
324-->325
325-->329
326-->327
327-->328
328-->329
329-->330
330-->355
331-->332
332-->333
333-->334
334-->|条件文 真 |336
334-->|条件文 偽 |338
336-->337
337-->341
338-->339
339-->340
340-->341
341-->342
342-->355
343-->344
344-->345
345-->346
346-->|条件文 真 |348
346-->|条件文 偽 |350
348-->349
349-->353
350-->351
351-->352
352-->353
353-->354
354-->355
355-->356
356-->357
357-->|ループ終了|358
357-->|ループ継続| 234
358-->|条件文 真 |360
358-->|条件文 偽 |392
360-->361
361-->362
362--中略-->391
391-->394
392-->393
393-->394
394-->395
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["98真"]
230
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if *IN90 = 1"]
243
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN90 = 1"]
256
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if *IN90 = 1"]
269
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if *IN90 = 1"]
281
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if *IN90 = 1"]
293
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["if *IN90 = 1"]
304
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["if W1MNTN != *ZERO"]
306
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["if *IN90 = 1"]
322
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["if *IN90 = 1"]
334
end
style sg11 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg11["if *IN90 = 1"]
346
end
style sg12 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg12["if *IN98 = 1"]
358
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
396(["【ｻﾌﾞﾙｰﾁﾝ開始】
639：¥STNS2"])
397["【Z-ADD】
641：WDHTYY = PRHTYY"]
398["【Z-ADD】
642：WDKKKB = PRKKKB"]
399["【Z-ADD】
643：WDCKKB = I2CKKB"]
402[/"CRUD＜READ＞
【CHAIN】
646：WSU004DP|98|"/]:::clrPatternR
403{"647_1:条件文"}:::clrPattern1
405["【CLEAR】
647_2：CLEAR"]
406(["647_3：ENDIF"])
407[/"【繰返文開始】
Do 文
650：
if 1 < 8"\]:::clrPattern2
408["【Z-ADD】
651：W1SPT = 0"]
409["【Z-ADD】
653：W1SEQ = IX"]
410[["【ｻﾌﾞﾙｰﾁﾝ呼出】
656：¥YSPP"]]:::clrPattern3
411["【MOVEL】
658：*IN90 = '0'"]
412["【SELEC開始】
659：SELEC"]:::clrPattern2
413["【WH文】661：
if IX = 1"]:::clrPattern1
414["【Z-ADD】
662：IY = 1"]
415["【LOKUP】
663：LOKUP||"]
416{"664:条件文"}:::clrPattern1
418["【MULT】
666：W2SPT = SPT,IY * I2K1WT"]
419["【DIV】
667：W1SPT = W2SPT ÷ 100"]
420["【Z-ADD】
668：WDK1HT = W1SPT"]
421["669：ELSE"]
422["【Z-ADD】
670：W1SPT = 0"]
423["【Z-ADD】
671：WDK1HT = 0"]
424(["672：ENDIF"])
425(["WH終了"])
426["【WH文】674：
if IX = 2"]:::clrPattern1
427["【Z-ADD】
675：IY = 1"]
428["【LOKUP】
676：LOKUP||"]
429{"677:条件文"}:::clrPattern1
431["【MULT】
679：W2SPT = SPT,IY * I2K2WT"]
432["【DIV】
680：W1SPT = W2SPT ÷ 100"]
433["【Z-ADD】
681：WDK2HT = W1SPT"]
434["682：ELSE"]
435["【Z-ADD】
683：W1SPT = 0"]
436["【Z-ADD】
684：WDK2HT = 0"]
437(["685：ENDIF"])
438(["WH終了"])
439["【WH文】687：
if IX = 3"]:::clrPattern1
440["【Z-ADD】
688：IY = 1"]
441["【LOKUP】
689：LOKUP||"]
442{"690:条件文"}:::clrPattern1
444["【MULT】
692：W2SPT = SPT,IY * I2K3WT"]
445["【DIV】
693：W1SPT = W2SPT ÷ 100"]
446["【Z-ADD】
694：WDK3HT = W1SPT"]
447["695：ELSE"]
448["【Z-ADD】
696：W1SPT = 0"]
449["【Z-ADD】
697：WDK3HT = 0"]
450(["698：ENDIF"])
451(["WH終了"])
452["【WH文】700：
if IX = 4"]:::clrPattern1
453["【Z-ADD】
701：IY = 1"]
454["【LOKUP】
702：LOKUP||"]
455{"703:条件文"}:::clrPattern1
457["【Z-ADD】
707：W1SPT = SPT,IY"]
458["【Z-ADD】
708：WDK4HT = SPT,IY"]
459["709：ELSE"]
460["【Z-ADD】
710：W1SPT = 0"]
461["【Z-ADD】
711：WDK4HT = 0"]
462(["712：ENDIF"])
463(["WH終了"])
464["【WH文】714：
if IX = 5"]:::clrPattern1
465["【Z-ADD】
715：IY = 1"]
466["【LOKUP】
716：LOKUP||"]
467{"717:条件文"}:::clrPattern1
469["【Z-ADD】
721：W1SPT = SPT,IY"]
470["【Z-ADD】
722：WDK5HT = SPT,IY"]
471["723：ELSE"]
472["【Z-ADD】
724：W1SPT = 0"]
473["【Z-ADD】
725：WDK5HT = 0"]
474(["726：ENDIF"])
475(["WH終了"])
476["【WH文】728：
if IX = 6"]:::clrPattern1
477["【Z-ADD】
729：IY = 1"]
478["【LOKUP】
730：LOKUP||"]
479{"731:条件文"}:::clrPattern1
481["【Z-ADD】
735：W1SPT = SPT,IY"]
482["【Z-ADD】
736：WDK6HT = SPT,IY"]
483["737：ELSE"]
484["【Z-ADD】
738：W1SPT = 0"]
485["【Z-ADD】
739：WDK6HT = 0"]
486(["740：ENDIF"])
487(["WH終了"])
488["【WH文】742：
if IX = 7"]:::clrPattern1
489["【Z-ADD】
743：IY = 1"]
490["【LOKUP】
744：LOKUP||"]
491{"745:条件文"}:::clrPattern1
493["【Z-ADD】
749：W1SPT = SPT,IY"]
494["【Z-ADD】
750：WDK7HT = SPT,IY"]
495["751：ELSE"]
496["【Z-ADD】
752：W1SPT = 0"]
497["【Z-ADD】
753：WDK7HT = 0"]
498(["754：ENDIF"])
499(["WH終了"])
500["【WH文】756：
if IX = 8"]:::clrPattern1
501["【Z-ADD】
757：IY = 1"]
502["【LOKUP】
758：LOKUP||"]
503{"759:条件文"}:::clrPattern1
505["【Z-ADD】
763：W1SPT = SPT,IY"]
506["【Z-ADD】
764：WDK8HT = SPT,IY"]
507["765：ELSE"]
508["【Z-ADD】
766：W1SPT = 0"]
509["【Z-ADD】
767：WDK8HT = 0"]
510(["768：ENDIF"])
511(["WH終了"])
512["【SELECT終了】
769：ENDSL"]:::clrPattern2
513["【ADD】
771：W1SOTN = W1SOTN + W1SPT"]
514[\"【繰返文終了】
773：ENDDO"/]:::clrPattern2
515{"775:条件文"}:::clrPattern1
517["【Z-ADD】
776：WDHTYY = PRHTYY"]
518["【Z-ADD】
777：WDKKKB = PRKKKB"]
519["【Z-ADD】
778：WDCKKB = I2CKKB"]
546[/"CRUD＜CREATE＞
【WRITE】
805：WSU004D||"/]:::clrPatternC
547["806：ELSE"]
548[/"CRUD＜UPDATE＞
【UPDAT】
807：UPDAT"/]:::clrPatternU
549(["808：ENDIF"])
550(["【ｻﾌﾞﾙｰﾁﾝ終了】
810：ENDSR"])
%%ルート設定
396-->397
397-->398
398-->399
399--中略-->402
402-->403
403-->|条件文 真 |405
403-->|条件文 偽 |406
405-->406
406-->407
407-->|ループ開始|408
408-->409
409-->410
410-->411
411-->412
412-->|WH文へ|413
412-->|WH文へ|426
412-->|WH文へ|439
412-->|WH文へ|452
412-->|WH文へ|464
412-->|WH文へ|476
412-->|WH文へ|488
412-->|WH文へ|500
413-->414
414-->415
415-->416
416-->|条件文 真 |418
416-->|条件文 偽 |421
418-->419
419-->420
420-->424
421-->422
422-->423
423-->424
424-->425
425-->512
426-->427
427-->428
428-->429
429-->|条件文 真 |431
429-->|条件文 偽 |434
431-->432
432-->433
433-->437
434-->435
435-->436
436-->437
437-->438
438-->512
439-->440
440-->441
441-->442
442-->|条件文 真 |444
442-->|条件文 偽 |447
444-->445
445-->446
446-->450
447-->448
448-->449
449-->450
450-->451
451-->512
452-->453
453-->454
454-->455
455-->|条件文 真 |457
455-->|条件文 偽 |459
457-->458
458-->462
459-->460
460-->461
461-->462
462-->463
463-->512
464-->465
465-->466
466-->467
467-->|条件文 真 |469
467-->|条件文 偽 |471
469-->470
470-->474
471-->472
472-->473
473-->474
474-->475
475-->512
476-->477
477-->478
478-->479
479-->|条件文 真 |481
479-->|条件文 偽 |483
481-->482
482-->486
483-->484
484-->485
485-->486
486-->487
487-->512
488-->489
489-->490
490-->491
491-->|条件文 真 |493
491-->|条件文 偽 |495
493-->494
494-->498
495-->496
496-->497
497-->498
498-->499
499-->512
500-->501
501-->502
502-->503
503-->|条件文 真 |505
503-->|条件文 偽 |507
505-->506
506-->510
507-->508
508-->509
509-->510
510-->511
511-->512
512-->513
513-->514
514-->|ループ終了|515
514-->|ループ継続| 407
515-->|条件文 真 |517
515-->|条件文 偽 |547
517-->518
518-->519
519--中略-->546
546-->549
547-->548
548-->549
549-->550
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["98真"]
403
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if *IN90 = 1"]
416
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN90 = 1"]
429
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if *IN90 = 1"]
442
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if *IN90 = 1"]
455
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if *IN90 = 1"]
467
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["if *IN90 = 1"]
479
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["if *IN90 = 1"]
491
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["if *IN90 = 1"]
503
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["if *IN98 = 1"]
515
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
551(["【ｻﾌﾞﾙｰﾁﾝ開始】
814：¥STNK1"])
552["【Z-ADD】
816：WDHTYY = PRHTYY"]
553["【Z-ADD】
817：WDKKKB = PRKKKB"]
554["【Z-ADD】
818：WDCKKB = I2CKKB"]
557[/"CRUD＜READ＞
【CHAIN】
821：WSU004DP|98|"/]:::clrPatternR
558{"822_1:条件文"}:::clrPattern1
560["【CLEAR】
822_2：CLEAR"]
561(["822_3：ENDIF"])
562[["【ｻﾌﾞﾙｰﾁﾝ呼出】
824：¥STYSO"]]:::clrPattern3
563[/"【繰返文開始】
Do 文
827：
if 1 < 8"\]:::clrPattern2
564["【Z-ADD】
828：W1KPT = 0"]
565["【Z-ADD】
830：W1SEQ = IX"]
566[["【ｻﾌﾞﾙｰﾁﾝ呼出】
831：¥YSPP"]]:::clrPattern3
567["【MOVEL】
833：*IN90 = '0'"]
568["【SELEC開始】
834：SELEC"]:::clrPattern2
569["【WH文】836：
if IX = 1"]:::clrPattern1
570["【Z-ADD】
837：IY = 1"]
571["【LOKUP】
838：LOKUP||"]
572{"839:条件文"}:::clrPattern1
574["【Z-ADD】
840：W1KPT = KPT,IY"]
575["【Z-ADD】
841：WDKD01 = W1KPT"]
576["842：ELSE"]
577["【Z-ADD】
843：W1KPT = 0"]
578["【Z-ADD】
844：WDKD01 = 0"]
579(["845：ENDIF"])
580(["WH終了"])
581["【WH文】847：
if IX = 2"]:::clrPattern1
582["【Z-ADD】
848：IY = 1"]
583["【LOKUP】
849：LOKUP||"]
584{"850:条件文"}:::clrPattern1
586["【Z-ADD】
851：W1KPT = KPT,IY"]
587["【Z-ADD】
852：WDKD02 = W1KPT"]
588["853：ELSE"]
589["【Z-ADD】
854：W1KPT = 0"]
590["【Z-ADD】
855：WDKD02 = 0"]
591(["856：ENDIF"])
592(["WH終了"])
593["【WH文】872：
if IX = 3"]:::clrPattern1
594["【Z-ADD】
873：IY = 1"]
595["【LOKUP】
874：LOKUP||"]
596{"875:条件文"}:::clrPattern1
598["【Z-ADD】
876：W1KPT = KPT,IY"]
599["【Z-ADD】
877：WDKD03 = W1KPT"]
600["878：ELSE"]
601["【Z-ADD】
879：W1KPT = 0"]
602["【Z-ADD】
880：WDKD03 = 0"]
603(["881：ENDIF"])
604{"884:条件文"}:::clrPattern1
608["【Z-ADD】
886：W1SEQ = 4"]
609[["【ｻﾌﾞﾙｰﾁﾝ呼出】
887：¥YSPP"]]:::clrPattern3
610["【Z-ADD】
888：IY = 1"]
611["【LOKUP】
889：LOKUP||"]
612{"890:条件文"}:::clrPattern1
614["【ADD】
891：W1KPT = W1KPT + KPT,IY"]
615["【Z-ADD】
892：WDKD03 = W1KPT"]
616(["893：ENDIF"])
617(["894：ENDIF"])
618(["WH終了"])
619["【WH文】897：
if IX = 4"]:::clrPattern1
620["【Z-ADD】
898：IY = 1"]
621["【LOKUP】
899：LOKUP||"]
622{"900:条件文"}:::clrPattern1
624["【Z-ADD】
901：W1KPT = KPT,IY"]
625["【Z-ADD】
902：WDKD04 = W1KPT"]
626["903：ELSE"]
627["【Z-ADD】
904：W1KPT = 0"]
628["【Z-ADD】
905：WDKD04 = 0"]
629(["906：ENDIF"])
630(["WH終了"])
631["【WH文】908：
if IX = 5"]:::clrPattern1
632["【Z-ADD】
909：IY = 1"]
633["【LOKUP】
910：LOKUP||"]
634{"911:条件文"}:::clrPattern1
636["【Z-ADD】
912：W1KPT = KPT,IY"]
637["【Z-ADD】
913：WDKD05 = W1KPT"]
638["914：ELSE"]
639["【Z-ADD】
915：W1KPT = 0"]
640["【Z-ADD】
916：WDKD05 = 0"]
641(["917：ENDIF"])
642(["WH終了"])
643["【WH文】919：
if IX = 6"]:::clrPattern1
644["【Z-ADD】
920：IY = 1"]
645["【LOKUP】
921：LOKUP||"]
646{"922:条件文"}:::clrPattern1
648["【Z-ADD】
923：W1KPT = KPT,IY"]
649["【Z-ADD】
924：WDKD06 = W1KPT"]
650["925：ELSE"]
651["【Z-ADD】
926：W1KPT = 0"]
652["【Z-ADD】
927：WDKD06 = 0"]
653(["928：ENDIF"])
654(["WH終了"])
655["【WH文】930：
if IX = 7"]:::clrPattern1
656["【Z-ADD】
931：IY = 1"]
657["【LOKUP】
932：LOKUP||"]
658{"933:条件文"}:::clrPattern1
660["【Z-ADD】
934：W1KPT = KPT,IY"]
661["【Z-ADD】
935：WDKD07 = W1KPT"]
662["936：ELSE"]
663["【Z-ADD】
937：W1KPT = 0"]
664["【Z-ADD】
938：WDKD07 = 0"]
665(["939：ENDIF"])
666(["WH終了"])
667["【WH文】941：
if IX = 8"]:::clrPattern1
668["【Z-ADD】
942：IY = 1"]
669["【LOKUP】
943：LOKUP||"]
670{"944:条件文"}:::clrPattern1
672["【Z-ADD】
945：W1KPT = KPT,IY"]
673["【Z-ADD】
946：WDKD08 = W1KPT"]
674["947：ELSE"]
675["【Z-ADD】
948：W1KPT = 0"]
676["【Z-ADD】
949：WDKD08 = 0"]
677(["950：ENDIF"])
678(["WH終了"])
679["【SELECT終了】
951：ENDSL"]:::clrPattern2
680["【ADD】
953：W1SOTN = W1SOTN + W1KPT"]
681[\"【繰返文終了】
955：ENDDO"/]:::clrPattern2
682{"957:条件文"}:::clrPattern1
684["【Z-ADD】
958：WDHTYY = PRHTYY"]
685["【Z-ADD】
959：WDKKKB = PRKKKB"]
686["【Z-ADD】
960：WDCKKB = I2CKKB"]
713[/"CRUD＜CREATE＞
【WRITE】
987：WSU004D||"/]:::clrPatternC
714["988：ELSE"]
715[/"CRUD＜UPDATE＞
【UPDAT】
989：UPDAT"/]:::clrPatternU
716(["990：ENDIF"])
717(["【ｻﾌﾞﾙｰﾁﾝ終了】
992：ENDSR"])
%%ルート設定
551-->552
552-->553
553-->554
554--中略-->557
557-->558
558-->|条件文 真 |560
558-->|条件文 偽 |561
560-->561
561-->562
562-->563
563-->|ループ開始|564
564-->565
565-->566
566-->567
567-->568
568-->|WH文へ|569
568-->|WH文へ|581
568-->|WH文へ|593
568-->|WH文へ|619
568-->|WH文へ|631
568-->|WH文へ|643
568-->|WH文へ|655
568-->|WH文へ|667
569-->570
570-->571
571-->572
572-->|条件文 真 |574
572-->|条件文 偽 |576
574-->575
575-->579
576-->577
577-->578
578-->579
579-->580
580-->679
581-->582
582-->583
583-->584
584-->|条件文 真 |586
584-->|条件文 偽 |588
586-->587
587-->591
588-->589
589-->590
590-->591
591-->592
592-->679
593-->594
594-->595
595-->596
596-->|条件文 真 |598
596-->|条件文 偽 |600
598-->599
599-->603
600-->601
601-->602
602-->603
603-->604
604-->|条件文 真 |608
604-->|条件文 偽 |617
608-->609
609-->610
610-->611
611-->612
612-->|条件文 真 |614
612-->|条件文 偽 |616
614-->615
615-->616
616-->617
617-->618
618-->679
619-->620
620-->621
621-->622
622-->|条件文 真 |624
622-->|条件文 偽 |626
624-->625
625-->629
626-->627
627-->628
628-->629
629-->630
630-->679
631-->632
632-->633
633-->634
634-->|条件文 真 |636
634-->|条件文 偽 |638
636-->637
637-->641
638-->639
639-->640
640-->641
641-->642
642-->679
643-->644
644-->645
645-->646
646-->|条件文 真 |648
646-->|条件文 偽 |650
648-->649
649-->653
650-->651
651-->652
652-->653
653-->654
654-->679
655-->656
656-->657
657-->658
658-->|条件文 真 |660
658-->|条件文 偽 |662
660-->661
661-->665
662-->663
663-->664
664-->665
665-->666
666-->679
667-->668
668-->669
669-->670
670-->|条件文 真 |672
670-->|条件文 偽 |674
672-->673
673-->677
674-->675
675-->676
676-->677
677-->678
678-->679
679-->680
680-->681
681-->|ループ終了|682
681-->|ループ継続| 563
682-->|条件文 真 |684
682-->|条件文 偽 |714
684-->685
685-->686
686--中略-->713
713-->716
714-->715
715-->716
716-->717
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["98真"]
558
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if *IN90 = 1"]
572
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN90 = 1"]
584
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if *IN90 = 1"]
596
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if KHT,4 != *BLANK& if I2KD04 = *BLANK"]
604
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if *IN90 = 1"]
612
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["if *IN90 = 1"]
622
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["if *IN90 = 1"]
634
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["if *IN90 = 1"]
646
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["if *IN90 = 1"]
658
end
style sg11 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg11["if *IN90 = 1"]
670
end
style sg12 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg12["if *IN98 = 1"]
682
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
718(["【ｻﾌﾞﾙｰﾁﾝ開始】
996：¥SET"])
719["【Z-ADD】
998：IGKKKB = PRKKKB"]
720["【Z-ADD】
999：IGSOCD = I2SOCD"]
721["【Z-ADD】
1000：IGSSCD = I2SSCD"]
725[/"CRUD＜READ＞
【CHAIN】
1004：JIKHG1|90|"/]:::clrPatternR
726{"1005_1:条件文"}:::clrPattern1
728["【CLEAR】
1005_2：CLEAR"]
729(["1005_3：ENDIF"])
730["【Z-ADD】
1006：W1BUCD = I2BUCD"]
731["【Z-ADD】
1008：SASYCD = I2SYCD"]
732["【Z-ADD】
1009：SAFYYM = W1KTYM"]
733["【Z-ADD】
1010：SASICD = *HIVAL"]
734["CRUD＜READ＞
【SETGT】
1011：SETGT||"]:::clrPatternR
735[/"CRUD＜READ＞
【REDPE】
1013：SYUSYALA|91|"/]:::clrPatternR
736[/"【繰返文開始】
DO WHILE 文
1016：
if *IN91 = '0'"\]:::clrPattern2
737{"1017:条件文"}:::clrPattern1
739["【Z-ADD】
1019：SISICD = SASICD"]
740[/"CRUD＜READ＞
【CHAIN】
1020：SYUSKIW|90|"/]:::clrPatternR
741{"1022:条件文"}:::clrPattern1
743["【Z-ADD】
1023：BMBUCD = SISKAN"]
744["【Z-ADD】
1024：BMKTYM = W1KTYM"]
745["CRUD＜READ＞
【SETGT】
1025：SETGT||"]:::clrPatternR
746[/"CRUD＜READ＞
【REDPE】
1026：BUMONP|90|"/]:::clrPatternR
747{"1027:条件文"}:::clrPattern1
749{"1028:条件文"}:::clrPattern1
751["【Z-ADD】
1029：IX = IGSKLV"]
752{"1030:条件文"}:::clrPattern1
754["【Z-ADD】
1031：W1BUCD = SISKAN"]
755(["1033：ENDIF"])
756(["1034：ENDIF"])
757(["1036：ENDIF"])
758(["1037：ENDIF"])
759["【LEAVE】
1038：LEAVE"]
760["1039：ELSE"]
761[/"CRUD＜READ＞
【REDPE】
1040：SYUSYALA|91|"/]:::clrPatternR
762(["1041：ENDIF"])
763[\"【繰返文終了】
1042：ENDDO"/]:::clrPattern2
764["【Z-ADD】
1044：BMBUCD = W1BUCD"]
765["【Z-ADD】
1045：BMKTYM = W1KTYM"]
766["CRUD＜READ＞
【SETGT】
1046：SETGT||"]:::clrPatternR
767[/"CRUD＜READ＞
【REDPE】
1047：BUMONP|90|"/]:::clrPatternR
768{"1048:条件文"}:::clrPattern1
770{"1049:条件文"}:::clrPattern1
772["【Z-ADD】
1050：IX = IGSKLV"]
773["【Z-ADD】
1051：W1CKCD = BLV,IX"]
774["1052：ELSE"]
775["【Z-ADD】
1053：W1CKCD = 0"]
776(["1054：ENDIF"])
777(["1055：ENDIF"])
778["【Z-ADD】
1057：IGKKKB = PRKKKB"]
779["【Z-ADD】
1058：IGSOCD = I2SOCD"]
780["【Z-ADD】
1059：IGSSCD = I2SSCD"]
784[/"CRUD＜READ＞
【CHAIN】
1063：JIKHG1|90|"/]:::clrPatternR
785{"1064:条件文"}:::clrPattern1
787["【Z-ADD】
1065：W1SKLV = IGSKLV"]
788["【Z-ADD】
1066：W1GRP = IGGRP"]
789["1067：ELSE"]
790["【Z-ADD】
1068：W1SKLV = 0"]
791["【Z-ADD】
1069：W1GRP = 0"]
792(["1070：ENDIF"])
793(["【ｻﾌﾞﾙｰﾁﾝ終了】
1072：ENDSR"])
%%ルート設定
718-->719
719-->720
720-->721
721--中略-->725
725-->726
726-->|条件文 真 |728
726-->|条件文 偽 |729
728-->729
729-->730
730-->731
731-->732
732-->733
733-->734
734-->735
735-->736
736-->|ループ開始|737
737-->|条件文 真 |739
737-->|条件文 偽 |760
739-->740
740-->741
741-->|条件文 真 |743
741-->|条件文 偽 |758
743-->744
744-->745
745-->746
746-->747
747-->|条件文 真 |749
747-->|条件文 偽 |757
749-->|条件文 真 |751
749-->|条件文 偽 |756
751-->752
752-->|条件文 真 |754
752-->|条件文 偽 |755
754-->755
755-->756
756-->757
757-->758
758-->759
759-->762
760-->761
761-->762
762-->763
763-->|ループ終了|764
763-->|ループ継続| 736
764-->765
765-->766
766-->767
767-->768
768-->|条件文 真 |770
768-->|条件文 偽 |774
770-->|条件文 真 |772
770-->|条件文 偽 |774
772-->773
773-->777
774-->775
775-->776
776-->777
777-->778
778-->779
779-->780
780--中略-->784
784-->785
785-->|条件文 真 |787
785-->|条件文 偽 |789
787-->788
788-->792
789-->790
790-->791
791-->792
792-->793
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["90真"]
726
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if SADFLG = 0"]
737
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN90 = 0"]
741
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if *IN90 = 0"]
747
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if IGSKLV != *ZERO"]
749
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if BLV,IX = 41000"]
752
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["if *IN90 = 0"]
768
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["if IGSKLV != *ZERO"]
770
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["if *IN90 = 0"]
785
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
794(["【ｻﾌﾞﾙｰﾁﾝ開始】
1076：¥WRTIN"])
795["【Z-ADD】
1078：INHTYY = I2HTYY"]
796["【Z-ADD】
1079：INKKKB = I2KKKB"]
797["【Z-ADD】
1080：INSYCD = I2SYCD"]
798[/"CRUD＜READ＞
【CHAIN】
1081：JIKNYUB|98|"/]:::clrPatternR
799{"1082_1:条件文"}:::clrPattern1
801["【CLEAR】
1082_2：CLEAR"]
802(["1082_3：ENDIF"])
803["【Z-ADD】
1084：INSYCD = I2SYCD"]
804["【Z-ADD】
1085：INHTYY = I2HTYY"]
805["【Z-ADD】
1086：INBUCD = W1BUCD"]
934{"1216:条件文"}:::clrPattern1
938["【MOVEL】
1218：INKSRK = 'B '"]
939["【MOVEL】
1219：INHTRK = 'B '"]
940["【MOVEL】
1220：INSGRK = 'B '"]
943(["1223：ENDIF"])
944[["【ｻﾌﾞﾙｰﾁﾝ呼出】
1225：¥HJNR"]]:::clrPattern3
945["【Z-ADD】
1226：INHJNR = W1HJNR"]
946{"1228_1:条件文"}:::clrPattern1
948[/"CRUD＜UPDATE＞
【UPDAT】
1228_2：UPDAT"/]:::clrPatternU
949(["1228_3：ENDIF"])
950{"1229_1:条件文"}:::clrPattern1
952[/"CRUD＜CREATE＞
【WRITE】
1229_2：JIKNYUB||"/]:::clrPatternC
953(["1229_3：ENDIF"])
954["【Z-ADD】
1231：W1BUCD = 0"]
955["【Z-ADD】
1232：W1CKCD = 0"]
956["【Z-ADD】
1233：W1TAIS = 0"]
958(["【ｻﾌﾞﾙｰﾁﾝ終了】
1236：ENDSR"])
%%ルート設定
794-->795
795-->796
796-->797
797-->798
798-->799
799-->|条件文 真 |801
799-->|条件文 偽 |802
801-->802
802-->803
803-->804
804-->805
805--中略-->934
934-->|条件文 真 |938
934-->|条件文 偽 |943
938-->939
939-->940
940--中略-->943
943-->944
944-->945
945-->946
946-->|条件文 真 |949
946-->|条件文 偽 |948
948-->949
949-->950
950-->|条件文 真 |952
950-->|条件文 偽 |953
952-->953
953-->954
954-->955
955-->956
956--中略-->958
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["98真"]
799
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if INTAIS != *ZERO& if *IN93 != *ON"]
934
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["98真"]
950
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
959(["【ｻﾌﾞﾙｰﾁﾝ開始】
1240：¥KKKA"])
960["【Z-ADD】
1242：IKKKKB = PRKKKB"]
961["【Z-ADD】
1243：IKKTYM = *HIVAL"]
962["CRUD＜READ＞
【SETLL】
1244：JIKKKAP||"]:::clrPatternR
963[/"CRUD＜READ＞
【REDPE】
1245：JIKKKAP|90|"/]:::clrPatternR
964{"1246_1:条件文"}:::clrPattern1
966["【CLEAR】
1246_2：CLEAR"]
967(["1246_3：ENDIF"])
968(["【ｻﾌﾞﾙｰﾁﾝ終了】
1248：ENDSR"])
%%ルート設定
959-->960
960-->961
961-->962
962-->963
963-->964
964-->|条件文 真 |966
964-->|条件文 偽 |967
966-->967
967-->968
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["90真"]
964
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
969(["【ｻﾌﾞﾙｰﾁﾝ開始】
1252：¥YSPP"])
970["【Z-ADD】
1254：IPKKKB = PRKKKB"]
971["【Z-ADD】
1255：IPSOCD = I2SOCD"]
972["【Z-ADD】
1256：IPCKKB = I2CKKB"]
974{"1259:条件文"}:::clrPattern1
976["【Z-ADD】
1260：IPKTYM = W1KTYM"]
977["【Z-ADD】
1261：IPSEQN = 1"]
978["CRUD＜READ＞
【SETLL】
1262：JIKYSPC||"]:::clrPatternR
979[/"CRUD＜READ＞
【READE】
1263：JIKYSPC|91|"/]:::clrPatternR
980{"1264_1:条件文"}:::clrPattern1
982["【Z-ADD】
1264_2：WWKTYM = IPKTYM"]
983(["1264_3：ENDIF"])
984{"1265_1:条件文"}:::clrPattern1
986["【Z-ADD】
1265_2：WWKTYM = 0"]
987(["1265_3：ENDIF"])
988(["1266：ENDIF"])
989["【Z-ADD】
1271：IPSEQN = IX"]
990["【Z-ADD】
1272：IPKTYM = WWKTYM"]
991[/"CRUD＜READ＞
【CHAIN】
1273：JIKYSP|90|"/]:::clrPatternR
992{"1274:条件文"}:::clrPattern1
994["【CLEAR】
1275：CLEAR"]
995["【Z-ADD】
1276：SPT = 0"]
996["【Z-ADD】
1277：SP2 = 0"]
998(["1279：ENDIF"])
999(["【ｻﾌﾞﾙｰﾁﾝ終了】
1281：ENDSR"])
%%ルート設定
969-->970
970-->971
971-->972
972--中略-->974
974-->|条件文 真 |976
974-->|条件文 偽 |988
976-->977
977-->978
978-->979
979-->980
980-->|条件文 真 |983
980-->|条件文 偽 |982
982-->983
983-->984
984-->|条件文 真 |986
984-->|条件文 偽 |987
986-->987
987-->988
988-->989
989-->990
990-->991
991-->992
992-->|条件文 真 |994
992-->|条件文 偽 |998
994-->995
995-->996
996--中略-->998
998-->999
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if IX = 1"]
974
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["91真"]
984
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN90 = 1"]
992
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
1000(["【ｻﾌﾞﾙｰﾁﾝ開始】
1304：¥MANTN"])
1001[/"CRUD＜READ＞
【READ】
1306：JIKPRVP|90|"/]:::clrPatternR
1002{"1307_1:条件文"}:::clrPattern1
1004["【CLEAR】
1307_2：CLEAR"]
1005(["1307_3：ENDIF"])
1006["【Z-ADD】
1309：W1MNTN = PVJEPS"]
1007["【ADD】
1310：W1MNTN = W1MNTN + PVKZPS"]
1008["【ADD】
1311：W1MNTN = W1MNTN + PVTSPG"]
1009(["【ｻﾌﾞﾙｰﾁﾝ終了】
1313：ENDSR"])
%%ルート設定
1000-->1001
1001-->1002
1002-->|条件文 真 |1004
1002-->|条件文 偽 |1005
1004-->1005
1005-->1006
1006-->1007
1007-->1008
1008-->1009
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["90真"]
1002
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
1010(["【ｻﾌﾞﾙｰﾁﾝ開始】
1317：¥HJNR"])
1011[/"CRUD＜READ＞
【CHAIN】
1319：SYAIN|90|"/]:::clrPatternR
1012{"1320:条件文"}:::clrPattern1
1016["【Z-ADD】
1322：IY = P2YBC"]
1017["【Z-ADD】
1323：W1HJNR = YBC,IY"]
1018["1324：ELSE"]
1019["【Z-ADD】
1325：W1HJNR = 0"]
1020(["1326：ENDIF"])
1021(["【ｻﾌﾞﾙｰﾁﾝ終了】
1328：ENDSR"])
%%ルート設定
1010-->1011
1011-->1012
1012-->|条件文 真 |1016
1012-->|条件文 偽 |1018
1016-->1017
1017-->1020
1018-->1019
1019-->1020
1020-->1021
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if *IN90 = 0& if P2YBC != *ZERO"]
1012
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,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;
%%データ項目
1022(["【ｻﾌﾞﾙｰﾁﾝ開始】
1332：¥STYSO"])
1023["【Z-ADD】
1334：IYKKKB = PRKKKB"]
1024["【Z-ADD】
1335：IYSOCD = I2SOCD"]
1025["【Z-ADD】
1336：IYCKKB = I2CKKB"]
1028["CRUD＜READ＞
【SETGT】
1339：SETGT||"]:::clrPatternR
1029[/"CRUD＜READ＞
【REDPE】
1340：JIKYSOP|90|"/]:::clrPatternR
1030{"1341:条件文"}:::clrPattern1
1032["【MOVEL】
1343：SHT,1 = IYSHT1"]
1033["【MOVEL】
1344：SHT,2 = IYSHT2"]
1034["【MOVEL】
1345：SHT,3 = IYSHT3"]
1048["1360：ELSE"]
1049["【MOVEA】
1361：MOVEA"]
1050["【MOVEA】
1362：MOVEA"]
1051(["1363：ENDIF"])
1052(["【ｻﾌﾞﾙｰﾁﾝ終了】
1365：ENDSR"])
%%ルート設定
1022-->1023
1023-->1024
1024-->1025
1025--中略-->1028
1028-->1029
1029-->1030
1030-->|条件文 真 |1032
1030-->|条件文 偽 |1048
1032-->1033
1033-->1034
1034--中略-->1048
1048-->1049
1049-->1050
1050-->1051
1051-->1052
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if *IN90 = 0"]
1030
end