元の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:#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["174行目:
パラメータリスト：*ENTRYを定義する"]
2["175行目:
パラメータ：PRHTYYを定義する"]
3["176行目:
パラメータ：PRKKKBを定義する"]
4["181行目:
キーリスト：K¥I2を定義する"]
5["182行目:
キー：I2HTYYを定義する"]
6["183行目:
キー：I2KKKBを定義する"]
7["184行目:
キー：I2CKKBを定義する"]
8["185行目:
キー：I2BUCDを定義する"]
9["186行目:
キー：I2SYCDを定義する"]
10["187行目:
キーリスト：K¥I2Bを定義する"]
11["188行目:
キー：I2HTYYを定義する"]
12["189行目:
キー：I2KKKBを定義する"]
13["191行目:
キーリスト：K¥INBを定義する"]
14["192行目:
キー：INHTYYを定義する"]
15["193行目:
キー：INKKKBを定義する"]
16["194行目:
キー：INSYCDを定義する"]
17["195行目:
キーリスト：K¥INBBを定義する"]
18["196行目:
キー：INHTYYを定義する"]
19["197行目:
キー：INKKKBを定義する"]
20["199行目:
キーリスト：K¥IKを定義する"]
21["200行目:
キー：IKKKKBを定義する"]
22["201行目:
キー：IKKTYMを定義する"]
23["203行目:
キーリスト：K¥IAを定義する"]
24["204行目:
キー：IAKKKBを定義する"]
25["205行目:
キー：IAHTYYを定義する"]
26["206行目:
キー：IASOCDを定義する"]
27["207行目:
キー：IAHTCDを定義する"]
28["208行目:
キー：IACKKBを定義する"]
29["209行目:
キーリスト：K¥IABを定義する"]
30["210行目:
キー：IAKKKBを定義する"]
31["211行目:
キー：IAHTYYを定義する"]
32["213行目:
キーリスト：K¥IPを定義する"]
33["214行目:
キー：IPKKKBを定義する"]
34["215行目:
キー：IPSOCDを定義する"]
35["216行目:
キー：IPCKKBを定義する"]
36["217行目:
キー：IPSSCDを定義する"]
37["218行目:
キー：IPSEQNを定義する"]
38["219行目:
キー：IPKTYMを定義する"]
39["220行目:
キーリスト：K¥IPBを定義する"]
40["221行目:
キー：IPKKKBを定義する"]
41["222行目:
キー：IPSOCDを定義する"]
42["223行目:
キー：IPCKKBを定義する"]
43["224行目:
キー：IPSSCDを定義する"]
44["225行目:
キー：IPSEQNを定義する"]
45["226行目:
キーリスト：K¥IPC1を定義する"]
46["227行目:
キー：IPKKKBを定義する"]
47["228行目:
キー：IPSOCDを定義する"]
48["229行目:
キー：IPCKKBを定義する"]
49["230行目:
キー：IPSSCDを定義する"]
50["231行目:
キー：IPKTYMを定義する"]
51["232行目:
キーリスト：K¥IPC2を定義する"]
52["233行目:
キー：IPKKKBを定義する"]
53["234行目:
キー：IPSOCDを定義する"]
54["235行目:
キー：IPCKKBを定義する"]
55["236行目:
キー：IPSSCDを定義する"]
56["252行目:
キーリスト：K#IYを定義する"]
57["253行目:
キー：IYKKKBを定義する"]
58["254行目:
キー：IYSOCDを定義する"]
59["255行目:
キー：IYCKKBを定義する"]
60["256行目:
キー：IYSSCDを定義する"]
61["257行目:
キー：IYKTYMを定義する"]
62["258行目:
キーリスト：K#IY2を定義する"]
63["259行目:
キー：IYKKKBを定義する"]
64["260行目:
キー：IYSOCDを定義する"]
65["261行目:
キー：IYCKKBを定義する"]
66["262行目:
キー：IYSSCDを定義する"]
67["264行目:
キーリスト：K¥IGを定義する"]
68["265行目:
キー：IGKKKBを定義する"]
69["266行目:
キー：IGSOCDを定義する"]
70["267行目:
キー：IGSSCDを定義する"]
71["268行目:
キー：IGCKCDを定義する"]
72["269行目:
キー：IGYGPCを定義する"]
73["270行目:
キー：IGCKKBを定義する"]
74["272行目:
キーリスト：K¥SAを定義する"]
75["273行目:
キー：SASYCDを定義する"]
76["274行目:
キー：SAFYYMを定義する"]
77["275行目:
キー：SASICDを定義する"]
78["277行目:
キーリスト：K¥SA2を定義する"]
79["278行目:
キー：SASYCDを定義する"]
80["279行目:
キー：SAFYYMを定義する"]
81["281行目:
キーリスト：K¥BMを定義する"]
82["282行目:
キー：BMBUCDを定義する"]
83["283行目:
キー：BMKTYMを定義する"]
84["285行目:
キーリスト：K¥WDを定義する"]
85["286行目:
キー：WDHTYYを定義する"]
86["287行目:
キー：WDKKKBを定義する"]
87["288行目:
キー：WDCKKBを定義する"]
88["289行目:
キー：WDBUCDを定義する"]
89["290行目:
キー：WDSYCDを定義する"]
90["291行目:
キーリスト：K¥WDBを定義する"]
91["292行目:
キー：WDHTYYを定義する"]
92["293行目:
キー：WDKKKBを定義する"]
93[["297行目:【EXSR】
¥INITサブルーチンを実行する"]]:::clrPattern3
94[["298行目:【EXSR】
¥MAINサブルーチンを実行する"]]:::clrPattern3
95[["299行目:【EXSR】
¥ENDサブルーチンを実行する"]]:::clrPattern3
%%ルート設定
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-->16
16-->17
17-->18
18-->19
19-->20
20-->21
21-->22
22-->23
23-->24
24-->25
25-->26
26-->27
27-->28
28-->29
29-->30
30-->31
31-->32
32-->33
33-->34
34-->35
35-->36
36-->37
37-->38
38-->39
39-->40
40-->41
41-->42
42-->43
43-->44
44-->45
45-->46
46-->47
47-->48
48-->49
49-->50
50-->51
51-->52
52-->53
53-->54
54-->55
55-->56
56-->57
57-->58
58-->59
59-->60
60-->61
61-->62
62-->63
63-->64
64-->65
65-->66
66-->67
67-->68
68-->69
69-->70
70-->71
71-->72
72-->73
73-->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-->88
88-->89
89-->90
90-->91
91-->92
92-->93
93-->94
94-->95
95-->X6(["プログラムを終了する"])
%%{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;
%%データ項目
96(["303行目:
¥INITサブルーチンを開始する"])
97["305行目:【Z-ADD】
*ZEROをIXにゼロ加算する"]
98["306行目:【Z-ADD】
*ZEROをIYにゼロ加算する"]
99["307行目:【Z-ADD】
*ZEROをIZにゼロ加算する"]
100["308行目:【Z-ADD】
*ZEROをW1SSCDにゼロ加算する"]
101["309行目:【Z-ADD】
*ZEROをW1BUCDにゼロ加算する"]
102["310行目:【Z-ADD】
*ZEROをW1CKCDにゼロ加算する"]
103["311行目:【Z-ADD】
*ZEROをW1KTYMにゼロ加算する"]
104["312行目:【Z-ADD】
*ZEROをW1TAISにゼロ加算する"]
105["313行目:【Z-ADD】
*ZEROをW1SEQにゼロ加算する"]
106["314行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
107["315行目:【Z-ADD】
*ZEROをW2SPTにゼロ加算する"]
108["316行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
109["317行目:【Z-ADD】
*ZEROをW1SOTNにゼロ加算する"]
110["318行目:【Z-ADD】
*ZEROをW1MNTNにゼロ加算する"]
111["319行目:【MOVEL】
*BLANKの値をW1SNIDに左詰めで移動する"]
112["320行目:【Z-ADD】
*ZEROをW1SKLVにゼロ加算する"]
113["321行目:【Z-ADD】
*ZEROをW1GRPにゼロ加算する"]
114["322行目:【Z-ADD】
*ZEROをW1HJNRにゼロ加算する"]
115["325行目:【MOVEL】
*BLANKの値をHT1に左詰めで移動する"]
116["326行目:【Z-ADD】
*ZEROをSPTにゼロ加算する"]
117["327行目:【Z-ADD】
*ZEROをSP2にゼロ加算する"]
118["328行目:【Z-ADD】
*ZEROをKPTにゼロ加算する"]
119["329行目:【MOVEL】
*BLANKの値をNIDに左詰めで移動する"]
120["330行目:【Z-ADD】
*ZEROをBLVにゼロ加算する"]
121[["332行目:【EXSR】
¥KKKAサブルーチンを実行する"]]:::clrPattern3
122[["334行目:【EXSR】
¥MANTNサブルーチンを実行する"]]:::clrPattern3
123["336行目:【MULT】
PRHTYYと100を乗算、積をW1KTYMに代入する"]
124["337行目:【ADD】
W1KTYMにIKMTSYを加算する"]
125["338行目:【Z-ADD】
W1KTYMをDSKTYMにゼロ加算する"]
126["341行目:【Z-ADD】
PRHTYYをINHTYYにゼロ加算する"]
127["342行目:【Z-ADD】
PRKKKBをINKKKBにゼロ加算する"]
128["343行目:【Z-ADD】
*LOVALをINSYCDにゼロ加算する"]
129["344行目:【SETLL】
JIKNYULBファイルに対してK¥INBを用いて位置設定す
る"]:::clrPatternR
130[/"345行目:【READE】
JIKNYULBファイルに対して、K¥INBBを用いてREA
DE（等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
131[/"346行目:【DOWEQ】
標識90が*OFFである間は
の条件でループをする"\]:::clrPattern2
132{"347行目:【IFEQ】
INTKKBが*BLANKと等しいか"}:::clrPattern1
134[/"348行目:【DELET】
JIKNYUBファイルから現在のレコードを削除する"/]:::clrPatternD
135(["349行目:
ELSE"])
136[/"350行目:【UNLCK】
JIKNYULBファイルのレコードをアンロックする"/]
137(["351行目:
条件文を終了する"])
138[/"352行目:【READE】
JIKNYULBファイルに対して、K¥INBBを用いてREA
DE（等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
139[\"353行目:
ループを終了する"/]:::clrPattern2
140["355行目:【Z-ADD】
PRKKKBをIAKKKBにゼロ加算する"]
141["356行目:【Z-ADD】
PRHTYYをIAHTYYにゼロ加算する"]
142["357行目:【Z-ADD】
*LOVALをIASOCDにゼロ加算する"]
143["358行目:【Z-ADD】
*LOVALをIAHTCDにゼロ加算する"]
144["359行目:【Z-ADD】
*LOVALをIACKKBにゼロ加算する"]
145["360行目:【SETLL】
JIKAMAPファイルに対してK¥IAを用いて位置設定する"]:::clrPatternR
146[/"361行目:【READE】
JIKAMAPファイルに対して、K¥IABを用いてREADE
（等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
147[/"362行目:【DOWEQ】
標識90が*OFFである間は
の条件でループをする"\]:::clrPattern2
148[/"363行目:【DELET】
JIKAMAファイルから現在のレコードを削除する"/]:::clrPatternD
149[/"364行目:【READE】
JIKAMAファイルに対して、K¥IABを用いてREADE（
等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
150[\"365行目:
ループを終了する"/]:::clrPattern2
151["367行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
152["368行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
153["369行目:【Z-ADD】
*LOVALをWDCKKBにゼロ加算する"]
154["370行目:【Z-ADD】
*LOVALをWDBUCDにゼロ加算する"]
155["371行目:【Z-ADD】
*LOVALをWDSYCDにゼロ加算する"]
156["372行目:【SETLL】
WSU004Dファイルに対してK¥WDを用いて位置設定する"]:::clrPatternR
157[/"373行目:【READE】
WSU004Dファイルに対して、K¥WDBを用いてREADE
（等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
158[/"374行目:【DOWEQ】
標識90が*OFFである間は
の条件でループをする"\]:::clrPattern2
159[/"375行目:【DELET】
WSU004Dファイルから現在のレコードを削除する"/]:::clrPatternD
160[/"376行目:【READE】
WSU004Dファイルに対して、K¥WDBを用いてREADE
（等価読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
161[\"377行目:
ループを終了する"/]:::clrPattern2
162[/"379行目:【READ】
JIKPRWPファイルからレコードを読み込む
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
163{"380_1行目:【90】
標識[90]はオンか"}:::clrPattern4
165["380_2行目:【Z-ADD】
*ZEROをSSCにゼロ加算する"]
166(["380_3行目:
条件文を終了する"])
167[/"382行目:【READ】
JIKPR2Pファイルからレコードを読み込む
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
168{"383_1行目:【90】
標識[90]はオンか"}:::clrPattern4
170["383_2行目:【CLEAR】
JIKPR2データ構造を初期化する"]
171(["383_3行目:
条件文を終了する"])
172(["385行目:
¥INITサブルーチンを終了する"])
%%ルート設定
96-->97
97-->98
98-->99
99-->100
100-->101
101-->102
102-->103
103-->104
104-->105
105-->106
106-->107
107-->108
108-->109
109-->110
110-->111
111-->112
112-->113
113-->114
114-->115
115-->116
116-->117
117-->118
118-->119
119-->120
120-->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-->143
143-->144
144-->145
145-->146
146-->147
147-->|ループ開始|148
148-->149
149-->150
150-->|ループ終了|151
150-->|ループ継続| 147
151-->152
152-->153
153-->154
154-->155
155-->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;
style S129 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S129[" "]
129
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S130 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S130[" "]
130
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S134 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Delete＞"]
subgraph S134[" "]
134
end
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
style S138 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["CRUD＜Read＞"]
subgraph S138[" "]
138
end
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
style S145 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["CRUD＜Read＞"]
subgraph S145[" "]
145
end
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
style S146 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["CRUD＜Read＞"]
subgraph S146[" "]
146
end
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
style S148 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["CRUD＜Delete＞"]
subgraph S148[" "]
148
end
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
style S149 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["CRUD＜Read＞"]
subgraph S149[" "]
149
end
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
style S156 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["CRUD＜Read＞"]
subgraph S156[" "]
156
end
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
style S157 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["CRUD＜Read＞"]
subgraph S157[" "]
157
end
end
style sg11 color:red,fill-opacity:0, stroke-opacity:0;
style S159 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg11["CRUD＜Delete＞"]
subgraph S159[" "]
159
end
end
style sg12 color:red,fill-opacity:0, stroke-opacity:0;
style S160 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg12["CRUD＜Read＞"]
subgraph S160[" "]
160
end
end
style sg13 color:red,fill-opacity:0, stroke-opacity:0;
style S162 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg13["CRUD＜Read＞"]
subgraph S162[" "]
162
end
end
style sg14 color:red,fill-opacity:0, stroke-opacity:0;
style S167 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg14["CRUD＜Read＞"]
subgraph S167[" "]
167
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;
%%データ項目
173(["389行目:
¥MAINサブルーチンを開始する"])
174["391行目:【Z-ADD】
PRHTYYをI2HTYYにゼロ加算する"]
175["392行目:【Z-ADD】
PRKKKBをI2KKKBにゼロ加算する"]
176["393行目:【Z-ADD】
*LOVALをI2CKKBにゼロ加算する"]
177["394行目:【Z-ADD】
*LOVALをI2BUCDにゼロ加算する"]
178["395行目:【Z-ADD】
*LOVALをI2SYCDにゼロ加算する"]
179["396行目:【SETLL】
JIKINP2ファイルに対してK¥I2を用いて位置設定する"]:::clrPatternR
180[/"397行目:【READE】
JIKINP2ファイルに対して、K¥I2Bを用いてREADE
（等価読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
181[/"398行目:【DOWEQ】
標識91が*OFFである間は
の条件でループをする"\]:::clrPattern2
182["400行目:【MOVEL】
'0'の値を標識93に左詰めで移動する"]
183["401行目:【Z-ADD】
1をIXにゼロ加算する"]
184["402行目:【LOKUP】
SSC,IXでI2SSCDを検索する
結果を標識 [93] にセットする"]
185{"403行目:【IFEQ】
標識93が*オンか"}:::clrPattern1
187["404行目:【Z-ADD】
102をW1SSCDにゼロ加算する"]
188(["405行目:
ELSE"])
189["406行目:【Z-ADD】
I2SSCDをW1SSCDにゼロ加算する"]
190(["407行目:
条件文を終了する"])
191[["409行目:【EXSR】
¥TAISサブルーチンを実行する"]]:::clrPattern3
192["410行目:【Z-ADD】
PPTAISをW1TAISにゼロ加算する"]
193[["412行目:【EXSR】
¥SETサブルーチンを実行する"]]:::clrPattern3
194["414行目:
選択処理を開始する"]:::clrPattern2
195["415行目:【WHEQ】
I2CKKBが1と等しいか"]:::clrPattern1
196[["416行目:【EXSR】
¥STNS1サブルーチンを実行する"]]:::clrPattern3
197[["417行目:【EXSR】
¥STNK1サブルーチンを実行する"]]:::clrPattern3
198(["WH文の終了"])
199["418行目:【WHEQ】
I2CKKBが0と等しいか"]:::clrPattern1
200[["419行目:【EXSR】
¥STNS2サブルーチンを実行する"]]:::clrPattern3
201[["420行目:【EXSR】
¥STNK1サブルーチンを実行する"]]:::clrPattern3
202(["WH文の終了"])
203["421行目:
選択処理を終了する"]:::clrPattern2
204[["423行目:【EXSR】
¥WRTINサブルーチンを実行する"]]:::clrPattern3
205[/"425行目:【READE】
JIKINP2ファイルに対して、K¥I2Bを用いてREADE
（等価読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
206[\"426行目:
ループを終了する"/]:::clrPattern2
207(["428行目:
¥MAINサブルーチンを終了する"])
%%ルート設定
173-->174
174-->175
175-->176
176-->177
177-->178
178-->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;
style S179 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S179[" "]
179
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S180 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S180[" "]
180
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S205 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Read＞"]
subgraph S205[" "]
205
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;
%%データ項目
208(["432行目:
¥ENDサブルーチンを開始する"])
209["433行目:【SETON】
標識[LR]をオンにセットする"]
210["434行目:【RETRN】
呼出し元へ戻る"]
211(["435行目:
¥ENDサブルーチンを終了する"])
%%ルート設定
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:#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;
%%データ項目
212(["439行目:
¥TAISサブルーチンを開始する"])
213["441行目:【MOVEL】
PRHTYYの値をPPHTYYに左詰めで移動する"]
214["442行目:【MOVEL】
PRKKKBの値をPPKKKBに左詰めで移動する"]
215["443行目:【MOVEL】
I2SYCDの値をPPSYCDに左詰めで移動する"]
216["444行目:【MOVEL】
*ZEROの値をPPTAISに左詰めで移動する"]
217[["445行目:【CALL】
'SU004104'プログラムを呼び出す"]]:::clrPattern3
218["446行目:
パラメータ：PPHTYYを定義する"]
219["447行目:
パラメータ：PPKKKBを定義する"]
220["448行目:
パラメータ：PPSYCDを定義する"]
221["449行目:
パラメータ：PPTAISを定義する"]
222(["452行目:
¥TAISサブルーチンを終了する"])
%%ルート設定
212-->213
213-->214
214-->215
215-->216
216-->217
217-->218
218-->219
219-->220
220-->221
221-->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:#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;
%%データ項目
223(["456行目:
¥STNS1サブルーチンを開始する"])
224["458行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
225["459行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
226["460行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
227["461行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
228["462行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
229[/"463行目:【CHAIN】
WSU004DPファイルでK¥WDをキーとしてCHAIN操作
する
読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR
230{"464_1行目:【98】
標識[98]はオンか"}:::clrPattern4
232["464_2行目:【CLEAR】
WSU004Dデータ構造を初期化する"]
233(["464_3行目:
条件文を終了する"])
234[/"467行目:【DO】
開始値 1から限界値 8
の条件でループをする"\]:::clrPattern2
235["468行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
236["470行目:【Z-ADD】
IXをW1SEQにゼロ加算する"]
237[["471行目:【EXSR】
¥YSPPサブルーチンを実行する"]]:::clrPattern3
238["473行目:【MOVEL】
'0'の値を標識90に左詰めで移動する"]
239["474行目:
選択処理を開始する"]:::clrPattern2
240["476行目:【WHEQ】
IXが1と等しいか"]:::clrPattern1
241["477行目:【Z-ADD】
1をIYにゼロ加算する"]
242["478行目:【LOKUP】
HT1,IYでI2C1HTを検索する"]
243{"479行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
245["480行目:【MULT】
SPT,IYとI2WAT1を乗算、積をW2SPTに代入する"]
246["481行目:【DIV】
W2SPTを100で除算、商をW1SPTに代入する"]
247["482行目:【Z-ADD】
W1SPTをWDC1HTにゼロ加算する"]
248(["483行目:
ELSE"])
249["484行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
250["485行目:【Z-ADD】
*ZEROをWDC1HTにゼロ加算する"]
251(["486行目:
条件文を終了する"])
252(["WH文の終了"])
253["488行目:【WHEQ】
IXが2と等しいか"]:::clrPattern1
254["489行目:【Z-ADD】
1をIYにゼロ加算する"]
255["490行目:【LOKUP】
HT1,IYでI2C2HTを検索する"]
256{"491行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
258["492行目:【MULT】
SPT,IYとI2WAT2を乗算、積をW2SPTに代入する"]
259["493行目:【DIV】
W2SPTを100で除算、商をW1SPTに代入する"]
260["494行目:【Z-ADD】
W1SPTをWDC2HTにゼロ加算する"]
261(["495行目:
ELSE"])
262["496行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
263["497行目:【Z-ADD】
*ZEROをWDC2HTにゼロ加算する"]
264(["498行目:
条件文を終了する"])
265(["WH文の終了"])
266["500行目:【WHEQ】
IXが3と等しいか"]:::clrPattern1
267["501行目:【Z-ADD】
1をIYにゼロ加算する"]
268["502行目:【LOKUP】
HT1,IYでI2C3HTを検索する"]
269{"503行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
271["504行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
272["505行目:【Z-ADD】
W1SPTをWDC3HTにゼロ加算する"]
273(["506行目:
ELSE"])
274["507行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
275["508行目:【Z-ADD】
*ZEROをWDC3HTにゼロ加算する"]
276(["509行目:
条件文を終了する"])
277(["WH文の終了"])
278["511行目:【WHEQ】
IXが4と等しいか"]:::clrPattern1
279["512行目:【Z-ADD】
1をIYにゼロ加算する"]
280["513行目:【LOKUP】
HT1,IYでI2C4HTを検索する"]
281{"514行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
283["515行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
284["516行目:【Z-ADD】
W1SPTをWDC4HTにゼロ加算する"]
285(["517行目:
ELSE"])
286["518行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
287["519行目:【Z-ADD】
*ZEROをWDC4HTにゼロ加算する"]
288(["520行目:
条件文を終了する"])
289(["WH文の終了"])
290["522行目:【WHEQ】
IXが5と等しいか"]:::clrPattern1
291["523行目:【Z-ADD】
1をIYにゼロ加算する"]
292["524行目:【LOKUP】
HT1,IYでI2C5HTを検索する"]
293{"525行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
295["526行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
296["527行目:【Z-ADD】
W1SPTをWDC5HTにゼロ加算する"]
297(["528行目:
ELSE"])
298["529行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
299["530行目:【Z-ADD】
*ZEROをWDC5HTにゼロ加算する"]
300(["531行目:
条件文を終了する"])
301["533行目:【MOVEL】
'0'の値を標識90に左詰めで移動する"]
302["534行目:【Z-ADD】
1をIYにゼロ加算する"]
303["535行目:【LOKUP】
HT1,IYで'S'を検索する"]
304{"536行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
306{"538行目:【IFNE】
W1MNTNが*ZEROと等しくないか"}:::clrPattern1
308["539行目:【DIV】
I2C5P1をW1MNTNで除算、商をW2SPTに代入する"]
309(["540行目:
ELSE"])
310["541行目:【Z-ADD】
*ZEROをW2SPTにゼロ加算する"]
311(["542行目:
条件文を終了する"])
312["543行目:【MULT】
W2SPTとSPT,IYを乗算、積をW1SPTに代入する"]
313["544行目:【Z-ADD】
W1SPTをWDC5PTにゼロ加算する"]
314(["545行目:
ELSE"])
315["546行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
316["547行目:【Z-ADD】
*ZEROをWDC5PTにゼロ加算する"]
317(["548行目:
条件文を終了する"])
318(["WH文の終了"])
319["550行目:【WHEQ】
IXが6と等しいか"]:::clrPattern1
320["551行目:【Z-ADD】
1をIYにゼロ加算する"]
321["552行目:【LOKUP】
HT1,IYでI2C6HTを検索する"]
322{"553行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
324["554行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
325["555行目:【Z-ADD】
W1SPTをWDC6HTにゼロ加算する"]
326(["556行目:
ELSE"])
327["557行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
328["558行目:【Z-ADD】
*ZEROをWDC6HTにゼロ加算する"]
329(["559行目:
条件文を終了する"])
330(["WH文の終了"])
331["561行目:【WHEQ】
IXが7と等しいか"]:::clrPattern1
332["562行目:【Z-ADD】
1をIYにゼロ加算する"]
333["563行目:【LOKUP】
HT1,IYでI2C7HTを検索する"]
334{"564行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
336["565行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
337["566行目:【Z-ADD】
W1SPTをWDC7HTにゼロ加算する"]
338(["567行目:
ELSE"])
339["568行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
340["569行目:【Z-ADD】
*ZEROをWDC7HTにゼロ加算する"]
341(["570行目:
条件文を終了する"])
342(["WH文の終了"])
343["572行目:【WHEQ】
IXが8と等しいか"]:::clrPattern1
344["573行目:【Z-ADD】
1をIYにゼロ加算する"]
345["574行目:【LOKUP】
HT1,IYでI2C8HTを検索する"]
346{"575行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
348["576行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
349["577行目:【Z-ADD】
W1SPTをWDC8HTにゼロ加算する"]
350(["578行目:
ELSE"])
351["579行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
352["580行目:【Z-ADD】
*ZEROをWDC8HTにゼロ加算する"]
353(["581行目:
条件文を終了する"])
354(["WH文の終了"])
355["582行目:
選択処理を終了する"]:::clrPattern2
356["584行目:【ADD】
W1SOTNにW1SPTを加算する"]
357[\"586行目:
ループを終了する"/]:::clrPattern2
358{"588行目:【IFEQ】
標識98が*オンか"}:::clrPattern1
360["589行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
361["590行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
362["591行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
363["592行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
364["593行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
365["594行目:【Z-ADD】
I2YKCDをWDYKCDにゼロ加算する"]
366["595行目:【Z-ADD】
I2SOCDをWDSOCDにゼロ加算する"]
367["596行目:【Z-ADD】
I2SSCDをWDSSCDにゼロ加算する"]
368["597行目:【Z-ADD】
I2WAT1をWDWAT1にゼロ加算する"]
369["598行目:【Z-ADD】
I2WAT2をWDWAT2にゼロ加算する"]
370["599行目:【Z-ADD】
*ZEROをWDC5R1にゼロ加算する"]
371["600行目:【Z-ADD】
*ZEROをWDC5R2にゼロ加算する"]
372["601行目:【MOVEL】
I2C5KKの値をWDC5KKに左詰めで移動する"]
373["602行目:【Z-ADD】
I2C5P1をWDC5P1にゼロ加算する"]
374["603行目:【Z-ADD】
I2C5P2をWDC5P2にゼロ加算する"]
375["614行目:【MOVEL】
*BLANKの値をWDK1NIに左詰めで移動する"]
376["615行目:【Z-ADD】
*ZEROをWDK1WTにゼロ加算する"]
377["616行目:【MOVEL】
*BLANKの値をWDK2NIに左詰めで移動する"]
378["617行目:【Z-ADD】
*ZEROをWDK2WTにゼロ加算する"]
379["618行目:【MOVEL】
*BLANKの値をWDK3NIに左詰めで移動する"]
380["619行目:【Z-ADD】
*ZEROをWDK3WTにゼロ加算する"]
381["620行目:【MOVEL】
*BLANKの値をWDK4NIに左詰めで移動する"]
382["621行目:【Z-ADD】
*ZEROをWDK4WTにゼロ加算する"]
383["622行目:【MOVEL】
*BLANKの値をWDK5NIに左詰めで移動する"]
384["623行目:【Z-ADD】
*ZEROをWDK5WTにゼロ加算する"]
385["624行目:【MOVEL】
*BLANKの値をWDK6NIに左詰めで移動する"]
386["625行目:【Z-ADD】
*ZEROをWDK6WTにゼロ加算する"]
387["626行目:【MOVEL】
*BLANKの値をWDK7NIに左詰めで移動する"]
388["627行目:【Z-ADD】
*ZEROをWDK7WTにゼロ加算する"]
389["628行目:【MOVEL】
*BLANKの値をWDK8NIに左詰めで移動する"]
390["629行目:【Z-ADD】
*ZEROをWDK8WTにゼロ加算する"]
391[/"630行目:【WRITE】
WSU004Dに新しいレコードを追加する"/]:::clrPatternC
392(["631行目:
ELSE"])
393[/"632行目:【UPDAT】
WSU004Dファイル更新する"/]:::clrPatternU
394(["633行目:
条件文を終了する"])
395(["635行目:
¥STNS1サブルーチンを終了する"])
%%ルート設定
223-->224
224-->225
225-->226
226-->227
227-->228
228-->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-->|条件文 偽 |314
306-->|条件文 真 |308
306-->|条件文 偽 |309
308-->311
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-->363
363-->364
364-->365
365-->366
366-->367
367-->368
368-->369
369-->370
370-->371
371-->372
372-->373
373-->374
374-->375
375-->376
376-->377
377-->378
378-->379
379-->380
380-->381
381-->382
382-->383
383-->384
384-->385
385-->386
386-->387
387-->388
388-->389
389-->390
390-->391
391-->394
392-->393
393-->394
394-->395
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S229 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S229[" "]
229
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S391 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Create＞"]
subgraph S391[" "]
391
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S393 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Update＞"]
subgraph S393[" "]
393
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;
%%データ項目
396(["639行目:
¥STNS2サブルーチンを開始する"])
397["641行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
398["642行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
399["643行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
400["644行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
401["645行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
402[/"646行目:【CHAIN】
WSU004DPファイルでK¥WDをキーとしてCHAIN操作
する
読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR
403{"647_1行目:【98】
標識[98]はオンか"}:::clrPattern4
405["647_2行目:【CLEAR】
WSU004Dデータ構造を初期化する"]
406(["647_3行目:
条件文を終了する"])
407[/"650行目:【DO】
開始値 1から限界値 8
の条件でループをする"\]:::clrPattern2
408["651行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
409["653行目:【Z-ADD】
IXをW1SEQにゼロ加算する"]
410[["656行目:【EXSR】
¥YSPPサブルーチンを実行する"]]:::clrPattern3
411["658行目:【MOVEL】
'0'の値を標識90に左詰めで移動する"]
412["659行目:
選択処理を開始する"]:::clrPattern2
413["661行目:【WHEQ】
IXが1と等しいか"]:::clrPattern1
414["662行目:【Z-ADD】
1をIYにゼロ加算する"]
415["663行目:【LOKUP】
HT1,IYでI2K1HTを検索する"]
416{"664行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
418["666行目:【MULT】
SPT,IYとI2K1WTを乗算、積をW2SPTに代入する"]
419["667行目:【DIV】
W2SPTを100で除算、商をW1SPTに代入する"]
420["668行目:【Z-ADD】
W1SPTをWDK1HTにゼロ加算する"]
421(["669行目:
ELSE"])
422["670行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
423["671行目:【Z-ADD】
*ZEROをWDK1HTにゼロ加算する"]
424(["672行目:
条件文を終了する"])
425(["WH文の終了"])
426["674行目:【WHEQ】
IXが2と等しいか"]:::clrPattern1
427["675行目:【Z-ADD】
1をIYにゼロ加算する"]
428["676行目:【LOKUP】
HT1,IYでI2K2HTを検索する"]
429{"677行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
431["679行目:【MULT】
SPT,IYとI2K2WTを乗算、積をW2SPTに代入する"]
432["680行目:【DIV】
W2SPTを100で除算、商をW1SPTに代入する"]
433["681行目:【Z-ADD】
W1SPTをWDK2HTにゼロ加算する"]
434(["682行目:
ELSE"])
435["683行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
436["684行目:【Z-ADD】
*ZEROをWDK2HTにゼロ加算する"]
437(["685行目:
条件文を終了する"])
438(["WH文の終了"])
439["687行目:【WHEQ】
IXが3と等しいか"]:::clrPattern1
440["688行目:【Z-ADD】
1をIYにゼロ加算する"]
441["689行目:【LOKUP】
HT1,IYでI2K3HTを検索する"]
442{"690行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
444["692行目:【MULT】
SPT,IYとI2K3WTを乗算、積をW2SPTに代入する"]
445["693行目:【DIV】
W2SPTを100で除算、商をW1SPTに代入する"]
446["694行目:【Z-ADD】
W1SPTをWDK3HTにゼロ加算する"]
447(["695行目:
ELSE"])
448["696行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
449["697行目:【Z-ADD】
*ZEROをWDK3HTにゼロ加算する"]
450(["698行目:
条件文を終了する"])
451(["WH文の終了"])
452["700行目:【WHEQ】
IXが4と等しいか"]:::clrPattern1
453["701行目:【Z-ADD】
1をIYにゼロ加算する"]
454["702行目:【LOKUP】
HT1,IYでI2K4HTを検索する"]
455{"703行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
457["707行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
458["708行目:【Z-ADD】
SPT,IYをWDK4HTにゼロ加算する"]
459(["709行目:
ELSE"])
460["710行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
461["711行目:【Z-ADD】
*ZEROをWDK4HTにゼロ加算する"]
462(["712行目:
条件文を終了する"])
463(["WH文の終了"])
464["714行目:【WHEQ】
IXが5と等しいか"]:::clrPattern1
465["715行目:【Z-ADD】
1をIYにゼロ加算する"]
466["716行目:【LOKUP】
HT1,IYでI2K5HTを検索する"]
467{"717行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
469["721行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
470["722行目:【Z-ADD】
SPT,IYをWDK5HTにゼロ加算する"]
471(["723行目:
ELSE"])
472["724行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
473["725行目:【Z-ADD】
*ZEROをWDK5HTにゼロ加算する"]
474(["726行目:
条件文を終了する"])
475(["WH文の終了"])
476["728行目:【WHEQ】
IXが6と等しいか"]:::clrPattern1
477["729行目:【Z-ADD】
1をIYにゼロ加算する"]
478["730行目:【LOKUP】
HT1,IYでI2K6HTを検索する"]
479{"731行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
481["735行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
482["736行目:【Z-ADD】
SPT,IYをWDK6HTにゼロ加算する"]
483(["737行目:
ELSE"])
484["738行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
485["739行目:【Z-ADD】
*ZEROをWDK6HTにゼロ加算する"]
486(["740行目:
条件文を終了する"])
487(["WH文の終了"])
488["742行目:【WHEQ】
IXが7と等しいか"]:::clrPattern1
489["743行目:【Z-ADD】
1をIYにゼロ加算する"]
490["744行目:【LOKUP】
HT1,IYでI2K7HTを検索する"]
491{"745行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
493["749行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
494["750行目:【Z-ADD】
SPT,IYをWDK7HTにゼロ加算する"]
495(["751行目:
ELSE"])
496["752行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
497["753行目:【Z-ADD】
*ZEROをWDK7HTにゼロ加算する"]
498(["754行目:
条件文を終了する"])
499(["WH文の終了"])
500["756行目:【WHEQ】
IXが8と等しいか"]:::clrPattern1
501["757行目:【Z-ADD】
1をIYにゼロ加算する"]
502["758行目:【LOKUP】
HT1,IYでI2K8HTを検索する"]
503{"759行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
505["763行目:【Z-ADD】
SPT,IYをW1SPTにゼロ加算する"]
506["764行目:【Z-ADD】
SPT,IYをWDK8HTにゼロ加算する"]
507(["765行目:
ELSE"])
508["766行目:【Z-ADD】
*ZEROをW1SPTにゼロ加算する"]
509["767行目:【Z-ADD】
*ZEROをWDK8HTにゼロ加算する"]
510(["768行目:
条件文を終了する"])
511(["WH文の終了"])
512["769行目:
選択処理を終了する"]:::clrPattern2
513["771行目:【ADD】
W1SOTNにW1SPTを加算する"]
514[\"773行目:
ループを終了する"/]:::clrPattern2
515{"775行目:【IFEQ】
標識98が*オンか"}:::clrPattern1
517["776行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
518["777行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
519["778行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
520["779行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
521["780行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
522["781行目:【Z-ADD】
I2YKCDをWDYKCDにゼロ加算する"]
523["782行目:【Z-ADD】
I2SOCDをWDSOCDにゼロ加算する"]
524["783行目:【Z-ADD】
I2SSCDをWDSSCDにゼロ加算する"]
525["784行目:【Z-ADD】
I2WAT1をWDWAT1にゼロ加算する"]
526["785行目:【Z-ADD】
I2WAT2をWDWAT2にゼロ加算する"]
527["786行目:【Z-ADD】
*ZEROをWDC5R1にゼロ加算する"]
528["787行目:【Z-ADD】
*ZEROをWDC5R2にゼロ加算する"]
529["788行目:【MOVEL】
I2C5KKの値をWDC5KKに左詰めで移動する"]
530["789行目:【MOVEL】
I2K1NIの値をWDK1NIに左詰めで移動する"]
531["790行目:【Z-ADD】
I2K1WTをWDK1WTにゼロ加算する"]
532["791行目:【MOVEL】
I2K2NIの値をWDK2NIに左詰めで移動する"]
533["792行目:【Z-ADD】
I2K2WTをWDK2WTにゼロ加算する"]
534["793行目:【MOVEL】
I2K3NIの値をWDK3NIに左詰めで移動する"]
535["794行目:【Z-ADD】
I2K3WTをWDK3WTにゼロ加算する"]
536["795行目:【MOVEL】
I2K4NIの値をWDK4NIに左詰めで移動する"]
537["796行目:【Z-ADD】
I2K4WTをWDK4WTにゼロ加算する"]
538["797行目:【MOVEL】
I2K5NIの値をWDK5NIに左詰めで移動する"]
539["798行目:【Z-ADD】
I2K5WTをWDK5WTにゼロ加算する"]
540["799行目:【MOVEL】
I2K6NIの値をWDK6NIに左詰めで移動する"]
541["800行目:【Z-ADD】
I2K6WTをWDK6WTにゼロ加算する"]
542["801行目:【MOVEL】
I2K7NIの値をWDK7NIに左詰めで移動する"]
543["802行目:【Z-ADD】
I2K7WTをWDK7WTにゼロ加算する"]
544["803行目:【MOVEL】
I2K8NIの値をWDK8NIに左詰めで移動する"]
545["804行目:【Z-ADD】
I2K8WTをWDK8WTにゼロ加算する"]
546[/"805行目:【WRITE】
WSU004Dに新しいレコードを追加する"/]:::clrPatternC
547(["806行目:
ELSE"])
548[/"807行目:【UPDAT】
WSU004Dファイル更新する"/]:::clrPatternU
549(["808行目:
条件文を終了する"])
550(["810行目:
¥STNS2サブルーチンを終了する"])
%%ルート設定
396-->397
397-->398
398-->399
399-->400
400-->401
401-->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-->520
520-->521
521-->522
522-->523
523-->524
524-->525
525-->526
526-->527
527-->528
528-->529
529-->530
530-->531
531-->532
532-->533
533-->534
534-->535
535-->536
536-->537
537-->538
538-->539
539-->540
540-->541
541-->542
542-->543
543-->544
544-->545
545-->546
546-->549
547-->548
548-->549
549-->550
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S402 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S402[" "]
402
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S546 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Create＞"]
subgraph S546[" "]
546
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S548 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Update＞"]
subgraph S548[" "]
548
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;
%%データ項目
551(["814行目:
¥STNK1サブルーチンを開始する"])
552["816行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
553["817行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
554["818行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
555["819行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
556["820行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
557[/"821行目:【CHAIN】
WSU004DPファイルでK¥WDをキーとしてCHAIN操作
する
読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR
558{"822_1行目:【98】
標識[98]はオンか"}:::clrPattern4
560["822_2行目:【CLEAR】
WSU004Dデータ構造を初期化する"]
561(["822_3行目:
条件文を終了する"])
562[["824行目:【EXSR】
¥STYSOサブルーチンを実行する"]]:::clrPattern3
563[/"827行目:【DO】
開始値 1から限界値 8
の条件でループをする"\]:::clrPattern2
564["828行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
565["830行目:【Z-ADD】
IXをW1SEQにゼロ加算する"]
566[["831行目:【EXSR】
¥YSPPサブルーチンを実行する"]]:::clrPattern3
567["833行目:【MOVEL】
'0'の値を標識90に左詰めで移動する"]
568["834行目:
選択処理を開始する"]:::clrPattern2
569["836行目:【WHEQ】
IXが1と等しいか"]:::clrPattern1
570["837行目:【Z-ADD】
1をIYにゼロ加算する"]
571["838行目:【LOKUP】
HT1,IYでI2KD01を検索する"]
572{"839行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
574["840行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
575["841行目:【Z-ADD】
W1KPTをWDKD01にゼロ加算する"]
576(["842行目:
ELSE"])
577["843行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
578["844行目:【Z-ADD】
*ZEROをWDKD01にゼロ加算する"]
579(["845行目:
条件文を終了する"])
580(["WH文の終了"])
581["847行目:【WHEQ】
IXが2と等しいか"]:::clrPattern1
582["848行目:【Z-ADD】
1をIYにゼロ加算する"]
583["849行目:【LOKUP】
HT1,IYでI2KD02を検索する"]
584{"850行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
586["851行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
587["852行目:【Z-ADD】
W1KPTをWDKD02にゼロ加算する"]
588(["853行目:
ELSE"])
589["854行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
590["855行目:【Z-ADD】
*ZEROをWDKD02にゼロ加算する"]
591(["856行目:
条件文を終了する"])
592(["WH文の終了"])
593["872行目:【WHEQ】
IXが3と等しいか"]:::clrPattern1
594["873行目:【Z-ADD】
1をIYにゼロ加算する"]
595["874行目:【LOKUP】
HT1,IYでI2KD03を検索する"]
596{"875行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
598["876行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
599["877行目:【Z-ADD】
W1KPTをWDKD03にゼロ加算する"]
600(["878行目:
ELSE"])
601["879行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
602["880行目:【Z-ADD】
*ZEROをWDKD03にゼロ加算する"]
603(["881行目:
条件文を終了する"])
604{"884行目:【IFNE】
KHT,4が*BLANKと等しくないか
およびI2KD04が*BLANKと等しい
か"}:::clrPattern1
608["886行目:【Z-ADD】
4をW1SEQにゼロ加算する"]
609[["887行目:【EXSR】
¥YSPPサブルーチンを実行する"]]:::clrPattern3
610["888行目:【Z-ADD】
1をIYにゼロ加算する"]
611["889行目:【LOKUP】
HT1,IYでI2KD03を検索する"]
612{"890行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
614["891行目:【ADD】
W1KPTにKPT,IYを加算する"]
615["892行目:【Z-ADD】
W1KPTをWDKD03にゼロ加算する"]
616(["893行目:
条件文を終了する"])
617(["894行目:
条件文を終了する"])
618(["WH文の終了"])
619["897行目:【WHEQ】
IXが4と等しいか"]:::clrPattern1
620["898行目:【Z-ADD】
1をIYにゼロ加算する"]
621["899行目:【LOKUP】
HT1,IYでI2KD04を検索する"]
622{"900行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
624["901行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
625["902行目:【Z-ADD】
W1KPTをWDKD04にゼロ加算する"]
626(["903行目:
ELSE"])
627["904行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
628["905行目:【Z-ADD】
*ZEROをWDKD04にゼロ加算する"]
629(["906行目:
条件文を終了する"])
630(["WH文の終了"])
631["908行目:【WHEQ】
IXが5と等しいか"]:::clrPattern1
632["909行目:【Z-ADD】
1をIYにゼロ加算する"]
633["910行目:【LOKUP】
HT1,IYでI2KD05を検索する"]
634{"911行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
636["912行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
637["913行目:【Z-ADD】
W1KPTをWDKD05にゼロ加算する"]
638(["914行目:
ELSE"])
639["915行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
640["916行目:【Z-ADD】
*ZEROをWDKD05にゼロ加算する"]
641(["917行目:
条件文を終了する"])
642(["WH文の終了"])
643["919行目:【WHEQ】
IXが6と等しいか"]:::clrPattern1
644["920行目:【Z-ADD】
1をIYにゼロ加算する"]
645["921行目:【LOKUP】
HT1,IYでI2KD06を検索する"]
646{"922行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
648["923行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
649["924行目:【Z-ADD】
W1KPTをWDKD06にゼロ加算する"]
650(["925行目:
ELSE"])
651["926行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
652["927行目:【Z-ADD】
*ZEROをWDKD06にゼロ加算する"]
653(["928行目:
条件文を終了する"])
654(["WH文の終了"])
655["930行目:【WHEQ】
IXが7と等しいか"]:::clrPattern1
656["931行目:【Z-ADD】
1をIYにゼロ加算する"]
657["932行目:【LOKUP】
HT1,IYでI2KD07を検索する"]
658{"933行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
660["934行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
661["935行目:【Z-ADD】
W1KPTをWDKD07にゼロ加算する"]
662(["936行目:
ELSE"])
663["937行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
664["938行目:【Z-ADD】
*ZEROをWDKD07にゼロ加算する"]
665(["939行目:
条件文を終了する"])
666(["WH文の終了"])
667["941行目:【WHEQ】
IXが8と等しいか"]:::clrPattern1
668["942行目:【Z-ADD】
1をIYにゼロ加算する"]
669["943行目:【LOKUP】
HT1,IYでI2KD08を検索する"]
670{"944行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
672["945行目:【Z-ADD】
KPT,IYをW1KPTにゼロ加算する"]
673["946行目:【Z-ADD】
W1KPTをWDKD08にゼロ加算する"]
674(["947行目:
ELSE"])
675["948行目:【Z-ADD】
*ZEROをW1KPTにゼロ加算する"]
676["949行目:【Z-ADD】
*ZEROをWDKD08にゼロ加算する"]
677(["950行目:
条件文を終了する"])
678(["WH文の終了"])
679["951行目:
選択処理を終了する"]:::clrPattern2
680["953行目:【ADD】
W1SOTNにW1KPTを加算する"]
681[\"955行目:
ループを終了する"/]:::clrPattern2
682{"957行目:【IFEQ】
標識98が*オンか"}:::clrPattern1
684["958行目:【Z-ADD】
PRHTYYをWDHTYYにゼロ加算する"]
685["959行目:【Z-ADD】
PRKKKBをWDKKKBにゼロ加算する"]
686["960行目:【Z-ADD】
I2CKKBをWDCKKBにゼロ加算する"]
687["961行目:【Z-ADD】
W1BUCDをWDBUCDにゼロ加算する"]
688["962行目:【Z-ADD】
I2SYCDをWDSYCDにゼロ加算する"]
689["963行目:【Z-ADD】
I2YKCDをWDYKCDにゼロ加算する"]
690["964行目:【Z-ADD】
I2SOCDをWDSOCDにゼロ加算する"]
691["965行目:【Z-ADD】
I2SSCDをWDSSCDにゼロ加算する"]
692["966行目:【Z-ADD】
I2WAT1をWDWAT1にゼロ加算する"]
693["967行目:【Z-ADD】
I2WAT2をWDWAT2にゼロ加算する"]
694["968行目:【Z-ADD】
*ZEROをWDC5R1にゼロ加算する"]
695["969行目:【Z-ADD】
*ZEROをWDC5R2にゼロ加算する"]
696["970行目:【MOVEL】
I2C5KKの値をWDC5KKに左詰めで移動する"]
697["971行目:【MOVEL】
I2K1NIの値をWDK1NIに左詰めで移動する"]
698["972行目:【Z-ADD】
I2K1WTをWDK1WTにゼロ加算する"]
699["973行目:【MOVEL】
I2K2NIの値をWDK2NIに左詰めで移動する"]
700["974行目:【Z-ADD】
I2K2WTをWDK2WTにゼロ加算する"]
701["975行目:【MOVEL】
I2K3NIの値をWDK3NIに左詰めで移動する"]
702["976行目:【Z-ADD】
I2K3WTをWDK3WTにゼロ加算する"]
703["977行目:【MOVEL】
I2K4NIの値をWDK4NIに左詰めで移動する"]
704["978行目:【Z-ADD】
I2K4WTをWDK4WTにゼロ加算する"]
705["979行目:【MOVEL】
I2K5NIの値をWDK5NIに左詰めで移動する"]
706["980行目:【Z-ADD】
I2K5WTをWDK5WTにゼロ加算する"]
707["981行目:【MOVEL】
I2K6NIの値をWDK6NIに左詰めで移動する"]
708["982行目:【Z-ADD】
I2K6WTをWDK6WTにゼロ加算する"]
709["983行目:【MOVEL】
I2K7NIの値をWDK7NIに左詰めで移動する"]
710["984行目:【Z-ADD】
I2K7WTをWDK7WTにゼロ加算する"]
711["985行目:【MOVEL】
I2K8NIの値をWDK8NIに左詰めで移動する"]
712["986行目:【Z-ADD】
I2K8WTをWDK8WTにゼロ加算する"]
713[/"987行目:【WRITE】
WSU004Dに新しいレコードを追加する"/]:::clrPatternC
714(["988行目:
ELSE"])
715[/"989行目:【UPDAT】
WSU004Dファイル更新する"/]:::clrPatternU
716(["990行目:
条件文を終了する"])
717(["992行目:
¥STNK1サブルーチンを終了する"])
%%ルート設定
551-->552
552-->553
553-->554
554-->555
555-->556
556-->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-->687
687-->688
688-->689
689-->690
690-->691
691-->692
692-->693
693-->694
694-->695
695-->696
696-->697
697-->698
698-->699
699-->700
700-->701
701-->702
702-->703
703-->704
704-->705
705-->706
706-->707
707-->708
708-->709
709-->710
710-->711
711-->712
712-->713
713-->716
714-->715
715-->716
716-->717
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S557 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S557[" "]
557
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S713 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Create＞"]
subgraph S713[" "]
713
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S715 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Update＞"]
subgraph S715[" "]
715
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;
%%データ項目
718(["996行目:
¥SETサブルーチンを開始する"])
719["998行目:【Z-ADD】
PRKKKBをIGKKKBにゼロ加算する"]
720["999行目:【Z-ADD】
I2SOCDをIGSOCDにゼロ加算する"]
721["1000行目:【Z-ADD】
I2SSCDをIGSSCDにゼロ加算する"]
722["1001行目:【Z-ADD】
*ZEROをIGCKCDにゼロ加算する"]
723["1002行目:【Z-ADD】
*ZEROをIGYGPCにゼロ加算する"]
724["1003行目:【Z-ADD】
*ZEROをIGCKKBにゼロ加算する"]
725[/"1004行目:【CHAIN】
JIKHG1ファイルでK¥IGをキーとしてCHAIN操作する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
726{"1005_1行目:【90】
標識[90]はオンか"}:::clrPattern4
728["1005_2行目:【CLEAR】
JIKHG1データ構造を初期化する"]
729(["1005_3行目:
条件文を終了する"])
730["1006行目:【Z-ADD】
I2BUCDをW1BUCDにゼロ加算する"]
731["1008行目:【Z-ADD】
I2SYCDをSASYCDにゼロ加算する"]
732["1009行目:【Z-ADD】
W1KTYMをSAFYYMにゼロ加算する"]
733["1010行目:【Z-ADD】
*HIVALをSASICDにゼロ加算する"]
734["1011行目:【SETGT】
SYUSYALAファイルに対してK¥SAキーリストを使用して
設定より大きい操作を実行する"]:::clrPatternR
735[/"1013行目:【REDPE】
I2SYCDをキーとしてSYUSYALAファイルでREDPE
（逆順読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
736[/"1016行目:【DOWEQ】
標識91が'0'である間は
の条件でループをする"\]:::clrPattern2
737{"1017行目:【IFEQ】
SADFLGが0と等しいか"}:::clrPattern1
739["1019行目:【Z-ADD】
SASICDをSISICDにゼロ加算する"]
740[/"1020行目:【CHAIN】
SYUSKIWファイルでSASICDをキーとしてCHAIN操
作する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
741{"1022行目:【IFEQ】
標識90が*オフか"}:::clrPattern1
743["1023行目:【Z-ADD】
SISKANをBMBUCDにゼロ加算する"]
744["1024行目:【Z-ADD】
W1KTYMをBMKTYMにゼロ加算する"]
745["1025行目:【SETGT】
BUMONPファイルに対してK¥BMキーリストを使用して設定
より大きい操作を実行する"]:::clrPatternR
746[/"1026行目:【REDPE】
BMBUCDをキーとしてBUMONPファイルでREDPE（逆
順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
747{"1027行目:【IFEQ】
標識90が*オフか"}:::clrPattern1
749{"1028行目:【IFNE】
IGSKLVが*ZEROと等しくないか"}:::clrPattern1
751["1029行目:【Z-ADD】
IGSKLVをIXにゼロ加算する"]
752{"1030行目:【IFEQ】
BLV,IXが41000と等しいか"}:::clrPattern1
754["1031行目:【Z-ADD】
SISKANをW1BUCDにゼロ加算する"]
755(["1033行目:
条件文を終了する"])
756(["1034行目:
条件文を終了する"])
757(["1036行目:
条件文を終了する"])
758(["1037行目:
条件文を終了する"])
759["1038行目:
ループから抜け出す"]
760(["1039行目:
ELSE"])
761[/"1040行目:【REDPE】
K¥SA2をキーとしてSYUSYALAファイルでREDPE（
逆順読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
762(["1041行目:
条件文を終了する"])
763[\"1042行目:
ループを終了する"/]:::clrPattern2
764["1044行目:【Z-ADD】
W1BUCDをBMBUCDにゼロ加算する"]
765["1045行目:【Z-ADD】
W1KTYMをBMKTYMにゼロ加算する"]
766["1046行目:【SETGT】
BUMONPファイルに対してK¥BMキーリストを使用して設定
より大きい操作を実行する"]:::clrPatternR
767[/"1047行目:【REDPE】
W1BUCDをキーとしてBUMONPファイルでREDPE（逆
順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
768{"1048行目:【IFEQ】
標識90が*オフか"}:::clrPattern1
770{"1049行目:【IFNE】
IGSKLVが*ZEROと等しくないか"}:::clrPattern1
772["1050行目:【Z-ADD】
IGSKLVをIXにゼロ加算する"]
773["1051行目:【Z-ADD】
BLV,IXをW1CKCDにゼロ加算する"]
774(["1052行目:
ELSE"])
775["1053行目:【Z-ADD】
*ZEROをW1CKCDにゼロ加算する"]
776(["1054行目:
条件文を終了する"])
777(["1055行目:
条件文を終了する"])
778["1057行目:【Z-ADD】
PRKKKBをIGKKKBにゼロ加算する"]
779["1058行目:【Z-ADD】
I2SOCDをIGSOCDにゼロ加算する"]
780["1059行目:【Z-ADD】
I2SSCDをIGSSCDにゼロ加算する"]
781["1060行目:【Z-ADD】
W1CKCDをIGCKCDにゼロ加算する"]
782["1061行目:【Z-ADD】
I2YKCDをIGYGPCにゼロ加算する"]
783["1062行目:【Z-ADD】
I2CKKBをIGCKKBにゼロ加算する"]
784[/"1063行目:【CHAIN】
JIKHG1ファイルでK¥IGをキーとしてCHAIN操作する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
785{"1064行目:【IFEQ】
標識90が*オフか"}:::clrPattern1
787["1065行目:【Z-ADD】
IGSKLVをW1SKLVにゼロ加算する"]
788["1066行目:【Z-ADD】
IGGRPをW1GRPにゼロ加算する"]
789(["1067行目:
ELSE"])
790["1068行目:【Z-ADD】
*ZEROをW1SKLVにゼロ加算する"]
791["1069行目:【Z-ADD】
*ZEROをW1GRPにゼロ加算する"]
792(["1070行目:
条件文を終了する"])
793(["1072行目:
¥SETサブルーチンを終了する"])
%%ルート設定
718-->719
719-->720
720-->721
721-->722
722-->723
723-->724
724-->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-->|条件文 偽 |777
770-->|条件文 真 |772
770-->|条件文 偽 |774
772-->773
773-->776
774-->775
775-->776
776-->777
777-->778
778-->779
779-->780
780-->781
781-->782
782-->783
783-->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;
style S725 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S725[" "]
725
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S734 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S734[" "]
734
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S735 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Read＞"]
subgraph S735[" "]
735
end
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
style S740 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["CRUD＜Read＞"]
subgraph S740[" "]
740
end
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
style S745 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["CRUD＜Read＞"]
subgraph S745[" "]
745
end
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
style S746 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["CRUD＜Read＞"]
subgraph S746[" "]
746
end
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
style S761 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["CRUD＜Read＞"]
subgraph S761[" "]
761
end
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
style S766 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["CRUD＜Read＞"]
subgraph S766[" "]
766
end
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
style S767 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["CRUD＜Read＞"]
subgraph S767[" "]
767
end
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
style S784 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["CRUD＜Read＞"]
subgraph S784[" "]
784
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;
%%データ項目
794(["1076行目:
¥WRTINサブルーチンを開始する"])
795["1078行目:【Z-ADD】
I2HTYYをINHTYYにゼロ加算する"]
796["1079行目:【Z-ADD】
I2KKKBをINKKKBにゼロ加算する"]
797["1080行目:【Z-ADD】
I2SYCDをINSYCDにゼロ加算する"]
798[/"1081行目:【CHAIN】
JIKNYUBファイルでK¥INBをキーとしてCHAIN操作
する
読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR
799{"1082_1行目:【98】
標識[98]はオンか"}:::clrPattern4
801["1082_2行目:【CLEAR】
JIKNYUBデータ構造を初期化する"]
802(["1082_3行目:
条件文を終了する"])
803["1084行目:【Z-ADD】
I2SYCDをINSYCDにゼロ加算する"]
804["1085行目:【Z-ADD】
I2HTYYをINHTYYにゼロ加算する"]
805["1086行目:【Z-ADD】
W1BUCDをINBUCDにゼロ加算する"]
806["1087行目:【Z-ADD】
I2KKKBをINKKKBにゼロ加算する"]
807["1088行目:【Z-ADD】
I2CKKBをINCKKBにゼロ加算する"]
808["1089行目:【Z-ADD】
I2YKCDをINYKCDにゼロ加算する"]
809["1090行目:【Z-ADD】
I2SOCDをINSOCDにゼロ加算する"]
810["1091行目:【Z-ADD】
I2SSCDをINSSCDにゼロ加算する"]
811["1092行目:【Z-ADD】
W1SOTNをINKSSTにゼロ加算する"]
812["1093行目:【Z-ADD】
*ZEROをINSYSTにゼロ加算する"]
813["1094行目:【Z-ADD】
*ZEROをINSUSTにゼロ加算する"]
814["1095行目:【Z-ADD】
*ZEROをINWISTにゼロ加算する"]
815["1096行目:【Z-ADD】
*ZEROをINSOSTにゼロ加算する"]
816["1097行目:【MOVEL】
*BLANKの値をINKSRKに左詰めで移動する"]
817["1098行目:【MOVEL】
*BLANKの値をINHTRKに左詰めで移動する"]
818["1099行目:【MOVEL】
*BLANKの値をINTNRKに左詰めで移動する"]
819["1100行目:【MOVEL】
*BLANKの値をINJIRKに左詰めで移動する"]
820["1101行目:【MOVEL】
*BLANKの値をINKTRKに左詰めで移動する"]
821["1102行目:【MOVEL】
*BLANKの値をINHT01に左詰めで移動する"]
822["1103行目:【MOVEL】
*BLANKの値をINHT02に左詰めで移動する"]
823["1104行目:【MOVEL】
*BLANKの値をINHT03に左詰めで移動する"]
824["1105行目:【MOVEL】
*BLANKの値をINHT04に左詰めで移動する"]
825["1106行目:【MOVEL】
*BLANKの値をINHT05に左詰めで移動する"]
826["1107行目:【MOVEL】
*BLANKの値をINHT06に左詰めで移動する"]
827["1108行目:【MOVEL】
*BLANKの値をINHT07に左詰めで移動する"]
828["1109行目:【MOVEL】
*BLANKの値をINHT08に左詰めで移動する"]
829["1110行目:【MOVEL】
*BLANKの値をINHT09に左詰めで移動する"]
830["1111行目:【MOVEL】
*BLANKの値をINHT10に左詰めで移動する"]
831["1112行目:【MOVEL】
*BLANKの値をINHT11に左詰めで移動する"]
832["1113行目:【MOVEL】
*BLANKの値をINHT12に左詰めで移動する"]
833["1114行目:【MOVEL】
*BLANKの値をINHT13に左詰めで移動する"]
834["1115行目:【MOVEL】
*BLANKの値をINHT14に左詰めで移動する"]
835["1116行目:【MOVEL】
*BLANKの値をINHT15に左詰めで移動する"]
836["1117行目:【MOVEL】
*BLANKの値をINHT16に左詰めで移動する"]
837["1118行目:【MOVEL】
*BLANKの値をINHT17に左詰めで移動する"]
838["1119行目:【MOVEL】
*BLANKの値をINHT18に左詰めで移動する"]
839["1120行目:【MOVEL】
*BLANKの値をINHT19に左詰めで移動する"]
840["1121行目:【MOVEL】
*BLANKの値をINHT20に左詰めで移動する"]
841["1122行目:【MOVEL】
*BLANKの値をINHT21に左詰めで移動する"]
842["1123行目:【MOVEL】
*BLANKの値をINHT22に左詰めで移動する"]
843["1124行目:【MOVEL】
*BLANKの値をINHT23に左詰めで移動する"]
844["1125行目:【MOVEL】
*BLANKの値をINHT24に左詰めで移動する"]
845["1126行目:【MOVEL】
*BLANKの値をINHT25に左詰めで移動する"]
846["1127行目:【Z-ADD】
1をINUPDTにゼロ加算する"]
847["1128行目:【Z-ADD】
*ZEROをINCKCDにゼロ加算する"]
848["1129行目:【Z-ADD】
IGGRPをINGRPにゼロ加算する"]
849["1130行目:【Z-ADD】
IGSKLVをINSKLVにゼロ加算する"]
850["1131行目:【Z-ADD】
*ZEROをINCKC2にゼロ加算する"]
851["1132行目:【Z-ADD】
*ZEROをINGRP2にゼロ加算する"]
852["1133行目:【Z-ADD】
*ZEROをINSKL2にゼロ加算する"]
853["1134行目:【Z-ADD】
*ZEROをINTOU¥にゼロ加算する"]
854["1135行目:【Z-ADD】
*ZEROをINZEN¥にゼロ加算する"]
855["1136行目:【MOVEL】
*BLANKの値をINKZRKに左詰めで移動する"]
856["1137行目:【MOVEL】
*BLANKの値をINKORKに左詰めで移動する"]
857["1138行目:【MOVEL】
*BLANKの値をINSGRKに左詰めで移動する"]
858["1139行目:【Z-ADD】
*ZEROをINKZPTにゼロ加算する"]
859["1140行目:【Z-ADD】
*ZEROをINKOPTにゼロ加算する"]
860["1141行目:【Z-ADD】
*ZEROをINSGPTにゼロ加算する"]
861["1142行目:【Z-ADD】
W1TAISをINTAISにゼロ加算する"]
862["1143行目:【Z-ADD】
*ZEROをINYGPCにゼロ加算する"]
863["1144行目:【MOVEL】
*BLANKの値をINSYRKに左詰めで移動する"]
864["1145行目:【Z-ADD】
*ZEROをINNKCDにゼロ加算する"]
865["1146行目:【Z-ADD】
*ZEROをINNGKYにゼロ加算する"]
866["1147行目:【Z-ADD】
*ZEROをINNTCDにゼロ加算する"]
867["1148行目:【Z-ADD】
*ZEROをINNGRNにゼロ加算する"]
868["1149行目:【Z-ADD】
*ZEROをINNSOCにゼロ加算する"]
869["1150行目:【Z-ADD】
*ZEROをINNSCDにゼロ加算する"]
870["1151行目:【Z-ADD】
I2WAT1をINWAT1にゼロ加算する"]
871["1152行目:【Z-ADD】
I2WAT2をINWAT2にゼロ加算する"]
872["1153行目:【MOVEL】
I2C1HTの値をINC1HTに左詰めで移動する"]
873["1154行目:【MOVEL】
I2C2HTの値をINC2HTに左詰めで移動する"]
874["1155行目:【MOVEL】
I2C3HTの値をINC3HTに左詰めで移動する"]
875["1156行目:【MOVEL】
I2C4HTの値をINC4HTに左詰めで移動する"]
876["1157行目:【MOVEL】
I2C5HTの値をINC5HTに左詰めで移動する"]
877["1158行目:【MOVEL】
I2C6HTの値をINC6HTに左詰めで移動する"]
878["1159行目:【MOVEL】
I2C7HTの値をINC7HTに左詰めで移動する"]
879["1160行目:【MOVEL】
I2C8HTの値をINC8HTに左詰めで移動する"]
880["1161行目:【MOVEL】
I2C5R1の値をINC5R1に左詰めで移動する"]
881["1162行目:【MOVEL】
I2C5R2の値をINC5R2に左詰めで移動する"]
882["1163行目:【MOVEL】
I2C5KKの値をINC5KKに左詰めで移動する"]
883["1164行目:【Z-ADD】
I2C5P1をINC5P1にゼロ加算する"]
884["1165行目:【Z-ADD】
I2C5P2をINC5P2にゼロ加算する"]
885["1166行目:【MOVEL】
I2K1NIの値をINK1N1に左詰めで移動する"]
886["1167行目:【Z-ADD】
I2K1WTをINK1WTにゼロ加算する"]
887["1168行目:【MOVEL】
I2K1HTの値をINK1HTに左詰めで移動する"]
888["1169行目:【MOVEL】
I2K2NIの値をINK2N1に左詰めで移動する"]
889["1170行目:【Z-ADD】
I2K2WTをINK2WTにゼロ加算する"]
890["1171行目:【MOVEL】
I2K2HTの値をINK2HTに左詰めで移動する"]
891["1172行目:【MOVEL】
I2K3NIの値をINK3N1に左詰めで移動する"]
892["1173行目:【Z-ADD】
I2K3WTをINK3WTにゼロ加算する"]
893["1174行目:【MOVEL】
I2K3HTの値をINK3HTに左詰めで移動する"]
894["1175行目:【MOVEL】
I2K4NIの値をINK4N1に左詰めで移動する"]
895["1176行目:【Z-ADD】
I2K4WTをINK4WTにゼロ加算する"]
896["1177行目:【MOVEL】
I2K4HTの値をINK4HTに左詰めで移動する"]
897["1178行目:【MOVEL】
I2K5NIの値をINK5N1に左詰めで移動する"]
898["1179行目:【Z-ADD】
I2K5WTをINK5WTにゼロ加算する"]
899["1180行目:【MOVEL】
I2K5HTの値をINK5HTに左詰めで移動する"]
900["1181行目:【MOVEL】
I2K6NIの値をINK6N1に左詰めで移動する"]
901["1182行目:【Z-ADD】
I2K6WTをINK6WTにゼロ加算する"]
902["1183行目:【MOVEL】
I2K6HTの値をINK6HTに左詰めで移動する"]
903["1184行目:【MOVEL】
I2K7NIの値をINK7N1に左詰めで移動する"]
904["1185行目:【Z-ADD】
I2K7WTをINK7WTにゼロ加算する"]
905["1186行目:【MOVEL】
I2K7HTの値をINK7HTに左詰めで移動する"]
906["1187行目:【MOVEL】
I2K8NIの値をINK8N1に左詰めで移動する"]
907["1188行目:【Z-ADD】
I2K8WTをINK8WTにゼロ加算する"]
908["1189行目:【MOVEL】
I2K8HTの値をINK8HTに左詰めで移動する"]
909["1190行目:【MOVEL】
I2KD01の値をINKD01に左詰めで移動する"]
910["1191行目:【MOVEL】
I2KD02の値をINKD02に左詰めで移動する"]
911["1192行目:【MOVEL】
I2KD03の値をINKD03に左詰めで移動する"]
912["1193行目:【MOVEL】
I2KD04の値をINKD04に左詰めで移動する"]
913["1194行目:【MOVEL】
I2KD05の値をINKD05に左詰めで移動する"]
914["1195行目:【MOVEL】
I2KD06の値をINKD06に左詰めで移動する"]
915["1196行目:【MOVEL】
I2KD07の値をINKD07に左詰めで移動する"]
916["1197行目:【MOVEL】
I2KD08の値をINKD08に左詰めで移動する"]
917["1198行目:【MOVEL】
*BLANKの値をINKSR7に左詰めで移動する"]
918["1199行目:【MOVEL】
*BLANKの値をINHTR7に左詰めで移動する"]
919["1200行目:【MOVEL】
*BLANKの値をINTNR7に左詰めで移動する"]
920["1201行目:【MOVEL】
*BLANKの値をINJIR7に左詰めで移動する"]
921["1202行目:【MOVEL】
*BLANKの値をINKTR7に左詰めで移動する"]
922["1203行目:【Z-ADD】
*ZEROをINHTCDにゼロ加算する"]
923["1204行目:【Z-ADD】
*ZEROをINSCPTにゼロ加算する"]
924["1205行目:【Z-ADD】
*ZEROをINAMGPにゼロ加算する"]
925["1206行目:【Z-ADD】
*ZEROをINAMPTにゼロ加算する"]
926["1207行目:【Z-ADD】
*ZEROをINNPSKにゼロ加算する"]
927["1208行目:【Z-ADD】
*ZEROをINNPKGにゼロ加算する"]
928["1209行目:【Z-ADD】
*ZEROをINNPCJにゼロ加算する"]
929["1210行目:【Z-ADD】
*ZEROをINNPCKにゼロ加算する"]
930["1211行目:【MOVEL】
*BLANKの値をINTKKBに左詰めで移動する"]
931["1212行目:【Z-ADD】
*ZEROをINTKDTにゼロ加算する"]
932["1213行目:【Z-ADD】
*ZEROをINNATUにゼロ加算する"]
933["1214行目:【Z-ADD】
*ZEROをINFUYUにゼロ加算する"]
934{"1216行目:【IFNE】
INTAISが*ZEROと等しくないか
および標識93が*ONと等しくないか"}:::clrPattern1
938["1218行目:【MOVEL】
'B 'の値をINKSRKに左詰めで移動する"]
939["1219行目:【MOVEL】
'B 'の値をINHTRKに左詰めで移動する"]
940["1220行目:【MOVEL】
'B 'の値をINSGRKに左詰めで移動する"]
941["1221行目:【MOVEL】
'B 'の値をINKSR7に左詰めで移動する"]
942["1222行目:【MOVEL】
'B 'の値をINHTR7に左詰めで移動する"]
943(["1223行目:
条件文を終了する"])
944[["1225行目:【EXSR】
¥HJNRサブルーチンを実行する"]]:::clrPattern3
945["1226行目:【Z-ADD】
W1HJNRをINHJNRにゼロ加算する"]
946{"1228_1行目:【N98】
標識[98]はオフか"}:::clrPattern4
948[/"1228_2行目:【UPDAT】
JIKNYUBファイル更新する"/]:::clrPatternU
949(["1228_3行目:
条件文を終了する"])
950{"1229_1行目:【98】
標識[98]はオンか"}:::clrPattern4
952[/"1229_2行目:【WRITE】
JIKNYUBに新しいレコードを追加する"/]:::clrPatternC
953(["1229_3行目:
条件文を終了する"])
954["1231行目:【Z-ADD】
*ZEROをW1BUCDにゼロ加算する"]
955["1232行目:【Z-ADD】
*ZEROをW1CKCDにゼロ加算する"]
956["1233行目:【Z-ADD】
*ZEROをW1TAISにゼロ加算する"]
957["1234行目:【Z-ADD】
*ZEROをW1SOTNにゼロ加算する"]
958(["1236行目:
¥WRTINサブルーチンを終了する"])
%%ルート設定
794-->795
795-->796
796-->797
797-->798
798-->799
799-->|条件文 真 |801
799-->|条件文 偽 |802
801-->802
802-->803
803-->804
804-->805
805-->806
806-->807
807-->808
808-->809
809-->810
810-->811
811-->812
812-->813
813-->814
814-->815
815-->816
816-->817
817-->818
818-->819
819-->820
820-->821
821-->822
822-->823
823-->824
824-->825
825-->826
826-->827
827-->828
828-->829
829-->830
830-->831
831-->832
832-->833
833-->834
834-->835
835-->836
836-->837
837-->838
838-->839
839-->840
840-->841
841-->842
842-->843
843-->844
844-->845
845-->846
846-->847
847-->848
848-->849
849-->850
850-->851
851-->852
852-->853
853-->854
854-->855
855-->856
856-->857
857-->858
858-->859
859-->860
860-->861
861-->862
862-->863
863-->864
864-->865
865-->866
866-->867
867-->868
868-->869
869-->870
870-->871
871-->872
872-->873
873-->874
874-->875
875-->876
876-->877
877-->878
878-->879
879-->880
880-->881
881-->882
882-->883
883-->884
884-->885
885-->886
886-->887
887-->888
888-->889
889-->890
890-->891
891-->892
892-->893
893-->894
894-->895
895-->896
896-->897
897-->898
898-->899
899-->900
900-->901
901-->902
902-->903
903-->904
904-->905
905-->906
906-->907
907-->908
908-->909
909-->910
910-->911
911-->912
912-->913
913-->914
914-->915
915-->916
916-->917
917-->918
918-->919
919-->920
920-->921
921-->922
922-->923
923-->924
924-->925
925-->926
926-->927
927-->928
928-->929
929-->930
930-->931
931-->932
932-->933
933-->934
934-->|条件文 真 |938
934-->|条件文 偽 |943
938-->939
939-->940
940-->941
941-->942
942-->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-->957
957-->958
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S798 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S798[" "]
798
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S948 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Update＞"]
subgraph S948[" "]
948
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S952 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Create＞"]
subgraph S952[" "]
952
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;
%%データ項目
959(["1240行目:
¥KKKAサブルーチンを開始する"])
960["1242行目:【Z-ADD】
PRKKKBをIKKKKBにゼロ加算する"]
961["1243行目:【Z-ADD】
*HIVALをIKKTYMにゼロ加算する"]
962["1244行目:【SETLL】
JIKKKAPファイルに対してK¥IKを用いて位置設定する"]:::clrPatternR
963[/"1245行目:【REDPE】
PRKKKBをキーとしてJIKKKAPファイルでREDPE（
逆順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
964{"1246_1行目:【90】
標識[90]はオンか"}:::clrPattern4
966["1246_2行目:【CLEAR】
JIKKKAデータ構造を初期化する"]
967(["1246_3行目:
条件文を終了する"])
968(["1248行目:
¥KKKAサブルーチンを終了する"])
%%ルート設定
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;
style S962 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S962[" "]
962
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S963 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S963[" "]
963
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;
%%データ項目
969(["1252行目:
¥YSPPサブルーチンを開始する"])
970["1254行目:【Z-ADD】
PRKKKBをIPKKKBにゼロ加算する"]
971["1255行目:【Z-ADD】
I2SOCDをIPSOCDにゼロ加算する"]
972["1256行目:【Z-ADD】
I2CKKBをIPCKKBにゼロ加算する"]
973["1257行目:【Z-ADD】
W1SSCDをIPSSCDにゼロ加算する"]
974{"1259行目:【IFEQ】
IXが1と等しいか"}:::clrPattern1
976["1260行目:【Z-ADD】
W1KTYMをIPKTYMにゼロ加算する"]
977["1261行目:【Z-ADD】
1をIPSEQNにゼロ加算する"]
978["1262行目:【SETLL】
JIKYSPCファイルに対してK¥IPC1を用いて位置設定す
る"]:::clrPatternR
979[/"1263行目:【READE】
JIKYSPCファイルに対して、K¥IPC2を用いてREAD
E（等価読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
980{"1264_1行目:【N91】
標識[91]はオフか"}:::clrPattern4
982["1264_2行目:【Z-ADD】
IPKTYMをWWKTYMにゼロ加算する"]
983(["1264_3行目:
条件文を終了する"])
984{"1265_1行目:【91】
標識[91]はオンか"}:::clrPattern4
986["1265_2行目:【Z-ADD】
*ZEROをWWKTYMにゼロ加算する"]
987(["1265_3行目:
条件文を終了する"])
988(["1266行目:
条件文を終了する"])
989["1271行目:【Z-ADD】
IXをIPSEQNにゼロ加算する"]
990["1272行目:【Z-ADD】
WWKTYMをIPKTYMにゼロ加算する"]
991[/"1273行目:【CHAIN】
JIKYSPファイルでK¥IPをキーとしてCHAIN操作する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
992{"1274行目:【IFEQ】
標識90が*オンか"}:::clrPattern1
994["1275行目:【CLEAR】
JIKYSPデータ構造を初期化する"]
995["1276行目:【Z-ADD】
*ZEROをSPTにゼロ加算する"]
996["1277行目:【Z-ADD】
*ZEROをSP2にゼロ加算する"]
997["1278行目:【Z-ADD】
*ZEROをKPTにゼロ加算する"]
998(["1279行目:
条件文を終了する"])
999(["1281行目:
¥YSPPサブルーチンを終了する"])
%%ルート設定
969-->970
970-->971
971-->972
972-->973
973-->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-->997
997-->998
998-->999
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S978 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S978[" "]
978
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S979 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S979[" "]
979
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S991 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Read＞"]
subgraph S991[" "]
991
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;
%%データ項目
1000(["1304行目:
¥MANTNサブルーチンを開始する"])
1001[/"1306行目:【READ】
JIKPRVPファイルからレコードを読み込む
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
1002{"1307_1行目:【90】
標識[90]はオンか"}:::clrPattern4
1004["1307_2行目:【CLEAR】
JIKPRVデータ構造を初期化する"]
1005(["1307_3行目:
条件文を終了する"])
1006["1309行目:【Z-ADD】
PVJEPSをW1MNTNにゼロ加算する"]
1007["1310行目:【ADD】
W1MNTNにPVKZPSを加算する"]
1008["1311行目:【ADD】
W1MNTNにPVTSPGを加算する"]
1009(["1313行目:
¥MANTNサブルーチンを終了する"])
%%ルート設定
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;
style S1001 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S1001[" "]
1001
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;
%%データ項目
1010(["1317行目:
¥HJNRサブルーチンを開始する"])
1011[/"1319行目:【CHAIN】
SYAINファイルでINSYCDをキーとしてCHAIN操作す
る
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
1012{"1320行目:【IFEQ】
標識90が*オフか
およびP2YBCが*ZEROと等しくない
か"}:::clrPattern1
1016["1322行目:【Z-ADD】
P2YBCをIYにゼロ加算する"]
1017["1323行目:【Z-ADD】
YBC,IYをW1HJNRにゼロ加算する"]
1018(["1324行目:
ELSE"])
1019["1325行目:【Z-ADD】
*ZEROをW1HJNRにゼロ加算する"]
1020(["1326行目:
条件文を終了する"])
1021(["1328行目:
¥HJNRサブルーチンを終了する"])
%%ルート設定
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;
style S1011 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S1011[" "]
1011
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;
%%データ項目
1022(["1332行目:
¥STYSOサブルーチンを開始する"])
1023["1334行目:【Z-ADD】
PRKKKBをIYKKKBにゼロ加算する"]
1024["1335行目:【Z-ADD】
I2SOCDをIYSOCDにゼロ加算する"]
1025["1336行目:【Z-ADD】
I2CKKBをIYCKKBにゼロ加算する"]
1026["1337行目:【Z-ADD】
W1SSCDをIYSSCDにゼロ加算する"]
1027["1338行目:【Z-ADD】
W1KTYMをIYKTYMにゼロ加算する"]
1028["1339行目:【SETGT】
JIKYSOPファイルに対してK#IYキーリストを使用して設
定より大きい操作を実行する"]:::clrPatternR
1029[/"1340行目:【REDPE】
K#IY2をキーとしてJIKYSOPファイルでREDPE（逆
順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
1030{"1341行目:【IFEQ】
標識90が*オフか"}:::clrPattern1
1032["1343行目:【MOVEL】
IYSHT1の値をSHT,1に左詰めで移動する"]
1033["1344行目:【MOVEL】
IYSHT2の値をSHT,2に左詰めで移動する"]
1034["1345行目:【MOVEL】
IYSHT3の値をSHT,3に左詰めで移動する"]
1035["1346行目:【MOVEL】
IYSHT4の値をSHT,4に左詰めで移動する"]
1036["1347行目:【MOVEL】
IYSHT5の値をSHT,5に左詰めで移動する"]
1037["1348行目:【MOVEL】
IYSHT6の値をSHT,6に左詰めで移動する"]
1038["1349行目:【MOVEL】
IYSHT7の値をSHT,7に左詰めで移動する"]
1039["1350行目:【MOVEL】
IYSHT8の値をSHT,8に左詰めで移動する"]
1040["1352行目:【MOVEL】
IYKHT1の値をKHT,1に左詰めで移動する"]
1041["1353行目:【MOVEL】
IYKHT2の値をKHT,2に左詰めで移動する"]
1042["1354行目:【MOVEL】
IYKHT3の値をKHT,3に左詰めで移動する"]
1043["1355行目:【MOVEL】
IYKHT4の値をKHT,4に左詰めで移動する"]
1044["1356行目:【MOVEL】
IYKHT5の値をKHT,5に左詰めで移動する"]
1045["1357行目:【MOVEL】
IYKHT6の値をKHT,6に左詰めで移動する"]
1046["1358行目:【MOVEL】
IYKHT7の値をKHT,7に左詰めで移動する"]
1047["1359行目:【MOVEL】
IYKHT8の値をKHT,8に左詰めで移動する"]
1048(["1360行目:
ELSE"])
1049["1361行目:【MOVEA】
配列'*ALL' 'の内容を配列SHTに移動する"]
1050["1362行目:【MOVEA】
配列'*ALL' 'の内容を配列KHTに移動する"]
1051(["1363行目:
条件文を終了する"])
1052(["1365行目:
¥STYSOサブルーチンを終了する"])
%%ルート設定
1022-->1023
1023-->1024
1024-->1025
1025-->1026
1026-->1027
1027-->1028
1028-->1029
1029-->1030
1030-->|条件文 真 |1032
1030-->|条件文 偽 |1048
1032-->1033
1033-->1034
1034-->1035
1035-->1036
1036-->1037
1037-->1038
1038-->1039
1039-->1040
1040-->1041
1041-->1042
1042-->1043
1043-->1044
1044-->1045
1045-->1046
1046-->1047
1047-->1051
1048-->1049
1049-->1050
1050-->1051
1051-->1052
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S1028 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S1028[" "]
1028
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S1029 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S1029[" "]
1029
end
end