戻る

出力サンプル　―CC04110―（日本語表示版）

元のRPGソースコード

     H*****************************************************************
     H*  COPYRIGHT SEC 1994                                           *
     H*  LICENSED MATERIAL  PROGRAM PROPERTY OF SEC.C                 *
     H*****************************************************************
     H*****************************************************************
     H*               教養趣味情報チェックリスト                    *
     H*****************************************************************
     H*変更履歴                                                     *
     H*99/07 OR 99/08 日付の西暦８桁化                              *
     H*99/09  部署ＣＤ、社員ｺｰﾄﾞキャラクター化   M.SUDA           *
     H* 04/12   DELPHI用修正                                        *
      *---------------------------------------------------------------*
08.08 * 2008/08/28   V000.001   E.MURAKAWA                            *
      *項目名変更　調査年月日→調査日                               *
      *---------------------------------------------------------------*
08.09 * 2008/09/02                                                    *
      *項目名変更社員ｺｰﾄﾞ→社員コード                           *
     H*****************************************************************
     H            Y/                                    1
      *社員教養趣味情報ﾏｽﾀ *
     FCSYINI1PIF  E           K        DISK
      *社員教養趣味情報ﾏｽﾀ *
     FCSYINI2PIF  E           K        DISK
      *社員ﾏｽﾀ *
     FCSYINA1PIF  E           K        DISK
      * ｺﾝﾄﾛ-ﾙ    *
     FCCNTRLP IF  E           K        DISK
06.12 *基本情報セキュリティ*
06.12FCSYINAS IF  E           K        DISK
     FQPRINT  O   F     198            PRINTER
     E                    THD     1   1 28
     I           UDS
     I                                       15  17 HOJNCD
     I                                       41  82 HOJNNM
     I            DS
     I                                        1   60WKTIME
     I                                        1   20TM1
     I                                        3   40TM2
     I                                        5   60TM3
     I            DS
     I                                        1   80HSYMD
     I                                        1   40HSYY
     I                                        5   60HSMM
     I                                        7   80HSDD
     I            DS
     I                                        1   80HEYMD
     I                                        1   40HEYY
     I                                        5   60HEMM
     I                                        7   80HEDD
     I            DS
     I                                        1  150KEYA
     I                                        1   70KEYA1
     I                                        8  150KEYA2
     I            DS
     I                                        1  150KEYB
     I                                        1   70KEYB1
     I                                        8  150KEYB2
      *
      * ﾊﾟﾗﾒｰﾀ *
     C           *ENTRY    PLIST
     C                     PARM           PSYMD   80       開始日
     C                     PARM           PEYMD   80       終了日
99/09C*/////               PARM           PSCD    70       社員ＣＳ
  |  C*/////               PARM           PECD    70       社員ＣＥ
  |  C                     PARM           PSCD    7        社員ＣＳ
99/09C                     PARM           PECD    7        社員ＣＥ
*ADD C                     PARM           #PCNT   40       *PAGE COUNT
*ADD C                     Z-ADD*ZERO     #PCNT            *PAGE COUNT
      *コードチェック
     C           PXCDCK    PLIST                            XCODCTL
     C                     PARM           P@KTM   80
     C                     PARM           P@KOCD  4
     C                     PARM           P@COCD 20
     C                     PARM           P@NMK   10
     C                     PARM           P@CONM 62
     C                     PARM           P@STS
      *漢字カット
     C           PXKNJ     PLIST                            XKNJCUT3
     C                     PARM           P@HONT100
     C                     PARM 22        P@LEN   20
     C*
     C           PXY86     PLIST                            XYMD8TO6
     C                     PARM           P@YM8   80
     C                     PARM           P@GEN   10
     C                     PARM           P@YM6   60
     C                     PARM           P@STS   1
      *
     C           CSKEY     KLIST                            CSYINA1P
     C                     KFLD           E07100
     C                     KFLD           E09300
     C           C1KEY     KLIST                            CSYINI1P
     C                     KFLD           E07100
     C                     KFLD           E40700
     C           C2KEY     KLIST                            CSYINI2P
     C                     KFLD           E07100
     C                     KFLD           E46000
      *****************************************************************
      *                    ＭＡＩＮ
      *****************************************************************
      * 初期処理
     C                     EXSR XINIT
      *
      *
     C           *IN99     DOUEQ'1'
     C           *IN98     ANDEQ'1'
     C                     EXSR #MAIN
     C                     END
     C*
     C                     SETON                     LR
     C                     RETRN
      *
      *****************************************************************
      *                     初　期　処　理
      *****************************************************************
     C           XINIT     BEGSR
      *
     C                     MOVEL*BLANK    LINEW 197
     C                     MOVEL*ALL'_'   LINEW
      *ＴＩＭＥ取出し
     C                     TIME           WKDATE 120
     C                     MOVELWKDATE    WKTIME  60
      *
     C           PSYMD     IFEQ 0
     C                     Z-ADD0         HSYMD
     C                     ELSE
     C                     Z-ADDPSYMD     HSYMD
     C                     END
     C*
     C           PEYMD     IFEQ 99999999
     C                     Z-ADD99999999  HEYMD
     C                     ELSE
     C                     Z-ADDPEYMD     HEYMD
     C                     END
     C*管理ﾏｽﾀ ﾁｪｯｸ *
     C           PEYMD     SETGTCCNTRLP
     C                     READPCCNTRLP                  99
     C   99                MOVEL'＊＊＊'CNCONM
     C*
04/12C*////                Z-ADD1         HCNT    40
04/12C                     Z-ADD0         HCNT    40
04/12C*////                Z-ADD0         LCNT    20
04/12C                     Z-ADD99        LCNT    20
04/12C*////                EXCPTHEAD
     C*  SETLL
99/09C                     MOVELPSCD      E07100
99/09C*/////               Z-ADDPSCD      E07100
     C                     Z-ADD0         E40700
     C           C1KEY     SETLLCSYINI1
     C                     EXSR #READ1
     C*
99/09C                     MOVELPSCD      E07100
99/09C*/////               Z-ADDPSCD      E07100
     C                     Z-ADD0         E46000
     C           C2KEY     SETLLCSYINI2
     C                     EXSR #READ2
     C*
     C                     ENDSR
      *****************************************************************
      *                   ＃ＭＡＩＮ　
      *****************************************************************
     C           #MAIN     BEGSR
     C*
     C           *IN99     IFEQ '0'
     C           *IN98     OREQ '0'
     C*
     C*
     C                     EXSR #CLEAR
     C* ﾏｯﾁﾝｸﾞ
     C           KEYA      IFEQ KEYB
06.12C           *IN77     IFEQ *OFF
06.12C           *IN78     ANDEQ*OFF
     C                     EXSR #SET1
     C                     EXSR #SET2
     C                     EXSR #PRINT
06.12C                     ENDIF
     C                     EXSR #READ1
     C                     EXSR #READ2
     C                     GOTO XEMAIN
     C                     END
     C*
     C           KEYA      IFGT KEYB
06.12C           *IN78     IFEQ *OFF
     C                     EXSR #SET2
     C                     EXSR #PRINT
06.12C                     ENDIF
     C                     EXSR #READ2
     C                     GOTO XEMAIN
     C                     END
     C*
     C           KEYA      IFLT KEYB
06.12C           *IN77     IFEQ *OFF
     C                     EXSR #SET1
     C                     EXSR #PRINT
06.12C                     ENDIF
     C                     EXSR #READ1
     C                     GOTO XEMAIN
     C                     END
     C*
     C                     END
     C*
     C           XEMAIN    TAG
     C                     ENDSR
     C*****************************************************************
     C*          #READ1
     C*****************************************************************
     C           #READ1    BEGSR
     C*
     C                     READ CSYINI1P                 99
     C   99                Z-ADD9999999   KEYA1
     C   99                Z-ADD99999999  KEYA2
99/09C  N99                MOVELE07100    KEYA1
99/09C*/N99///////         Z-ADDE07100    KEYA1
     C  N99                Z-ADDE40700    KEYA2
06.12C           E07100    CHAINCSYINAS              77
     C*
     C                     ENDSR
     C*****************************************************************
     C*          #READ2
     C*****************************************************************
     C           #READ2    BEGSR
     C*
     C                     READ CSYINI2P                 98
     C   98                Z-ADD9999999   KEYB1
     C   98                Z-ADD99999999  KEYB2
99/09C  N98                MOVELE07100    KEYB1
99/09C*/N98///////         Z-ADDE07100    KEYB1
     C  N98                Z-ADDE46000    KEYB2
06.12C           E07100    CHAINCSYINAS              78
     C*
     C                     ENDSR
      *****************************************************************
      *                   ＃ＳＥＴ１
      *****************************************************************
     C           #SET1     BEGSR
     C*  ﾌﾟﾘﾝﾄ  ｺｳﾓｸ   ｾｯﾄ
     C*
99/09C*/////               Z-ADDKEYA1     MSCD
  |  C*/////               Z-ADDKEYA1     E07100
  |  C                     MOVELKEYA1     MSCD
99/09C                     MOVELKEYA1     E07100
     C                     Z-ADDPEYMD     E09300
     C           CSKEY     SETGTCSYINA1
     C           E07100    REDPECSYINA1P                 90
     C  N90                MOVELE00500    MSNM
     C* 得意科目
     C                     MOVELE40200    MKMK
     C                     Z-ADDE40700    P@KTM
     C           E40700    IFEQ 0
     C                     Z-ADD20491231  P@KTM
     C                     END
     C*
     C                     MOVEL'Z402'    P@KOCD
     C                     MOVEL*BLANK    P@COCD
     C                     MOVELE40200    P@COCD
     C                     Z-ADD0         P@NMK
     C                     CALL 'XCODCTL' PXCDCK
      *漢字カット
     C           P@STS     IFEQ *BLANK
     C                     MOVELP@CONM    P@HONT
     C                     CALL 'XKNJCUT3'PXKNJ
     C                     MOVELP@HONT    MKMKN
     C                     END
     C*
     C*調査日
99/08C                     Z-ADDE40700    MYMD
  |  C*/////               Z-ADDE40700    P@YM8
  |  C*/////               CALL 'XYMD8TO6'PXY86
  |  C*/////               Z-ADDP@GEN     MGN
99/08C*/////               Z-ADDP@YM6     MYMD
     C*
     C                     MOVELE40400    MLBL1
     C*
     C  N98                MOVELE40800    WBK1
     C  N99                MOVELE40900    WBK2
     C*
99/09C                     MOVELKEYA1     BLCD1
99/09C*/////               Z-ADDKEYA1     BLCD1
     C                     Z-ADDKEYA2     BLCD2
     C*
     C*
     C* レベル
     C                     MOVE *BLANK    LVNM1  32
     C                     Z-ADDE40700    P@KTM
     C           E40700    IFEQ 0
     C                     Z-ADD20491231  P@KTM
     C                     END
     C*
     C                     MOVEL'Z404'    P@KOCD
     C                     MOVEL*BLANK    P@COCD
     C                     MOVELE40400    P@COCD
     C                     Z-ADD0         P@NMK
     C                     CALL 'XCODCTL' PXCDCK
      *漢字カット
     C           P@STS     IFEQ *BLANK
     C                     MOVELP@CONM    P@HONT
     C                     CALL 'XKNJCUT3'PXKNJ
     C                     MOVELP@HONT    LVNM1
     C                     END
     C*
     C                     ENDSR
      *****************************************************************
      *                   ＃ＳＥＴ２
      *****************************************************************
     C           #SET2     BEGSR
     C*  ﾌﾟﾘﾝﾄ  ｺｳﾓｸ   ｾｯﾄ
99/09C                     MOVEL*BLANK    MSCD
99/09C*/////               Z-ADD0         MSCD
     C                     MOVEL*BLANK    MSNM
     C*
99/09C                     MOVELKEYB1     MSCD
  |  C                     MOVELKEYB1     E07100
  |  C*/////               Z-ADDKEYB1     MSCD
99/09C*/////               Z-ADDKEYB1     E07100
     C                     Z-ADDPEYMD     E09300
     C           CSKEY     SETGTCSYINA1
     C           E07100    REDPECSYINA1P                 90
     C  N90                MOVELE00500    MSNM
     C* 趣味
     C                     MOVELE45200    MSHM
     C                     Z-ADDE46000    P@KTM
     C           E46000    IFEQ 0
     C                     Z-ADD20491231  P@KTM
     C                     END
     C*
     C                     MOVEL'Z452'    P@KOCD
     C                     MOVEL*BLANK    P@COCD
     C                     MOVELE45200    P@COCD
     C                     Z-ADD0         P@NMK
     C                     CALL 'XCODCTL' PXCDCK
      *漢字カット
     C           P@STS     IFEQ *BLANK
     C                     MOVELP@CONM    P@HONT
     C                     CALL 'XKNJCUT3'PXKNJ
     C                     MOVELP@HONT    MSHMN
     C                     END
     C*
     C*調査日
99/08C                     Z-ADD0         MYMD
  |  C                     Z-ADDE46000    MYMD
  |  C*/////               Z-ADD0         MGN
  |  C*/////               Z-ADD0         MYMD
  |  C*/////               Z-ADDE46000    P@YM8
  |  C*/////               CALL 'XYMD8TO6'PXY86
  |  C*/////               Z-ADDP@GEN     MGN
99/08C*/////               Z-ADDP@YM6     MYMD
     C*
     C                     MOVE E45400    MLBL2
     C*
     C                     MOVEL*BLANK    WBK1
     C                     MOVEL*BLANK    WBK2
     C  N98                MOVELE45800    WBK1
     C  N99                MOVELE45900    WBK2
     C*
99/09C                     MOVELKEYB1     BLCD1
99/09C*/////               Z-ADDKEYB1     BLCD1
     C                     Z-ADDKEYB2     BLCD2
     C*
     C* レベル
     C                     MOVE *BLANK    LVNM2  32
     C                     Z-ADDE40700    P@KTM
     C           E40700    IFEQ 0
     C                     Z-ADD20491231  P@KTM
     C                     END
     C*
     C                     MOVEL'Z454'    P@KOCD
     C                     MOVEL*BLANK    P@COCD
     C                     MOVELE45400    P@COCD
     C                     Z-ADD0         P@NMK
     C                     CALL 'XCODCTL' PXCDCK
      *漢字カット
     C           P@STS     IFEQ *BLANK
     C                     MOVELP@CONM    P@HONT
     C                     CALL 'XKNJCUT3'PXKNJ
     C                     MOVELP@HONT    LVNM2
     C                     END
     C*
     C                     ENDSR
     C*****************************************************************
     C*         #PRINT
     C*****************************************************************
     C           #PRINT    BEGSR
     C*
     C           *LIKE     DEFN E07100    BLCD1
     C           *LIKE     DEFN E40700    BLCD2
     C           *LIKE     DEFN E07100    WBLCD1
     C           *LIKE     DEFN E40700    WBLCD2
     C* 対象レコ－ト゛判定
     C           BLCD1     IFGE PSCD
     C           BLCD1     ANDLEPECD
     C           BLCD2     ANDGEPSYMD
     C           BLCD2     ANDLEPEYMD
     C                     ELSE
     C                     GOTO XEPRNT
     C                     END
     C*
     C           LCNT      IFGE 56
     C                     ADD  1         HCNT
     C                     EXCPTHEAD
     C                     EXCPTPSPACE
     C                     Z-ADD1         LCNT
*ADD C                     ADD  1         #PCNT            *PAGE COUNT
     C                     ELSE
     C           BLCD1     IFEQ WBLCD1
     C                     MOVEL*BLANK    MSNM
99/09C                     MOVEL*BLANK    MSCD
99/09C*/////               Z-ADD0         MSCD
     C                     END
     C           BLCD1     IFEQ WBLCD1
     C           BLCD2     ANDEQWBLCD2
99/08C*/////               Z-ADD0         MGN
     C                     Z-ADD0         MYMD
     C                     END
     C                     END
     C*
     C           BLCD1     IFEQ WBLCD1
     C           BLCD2     ANDEQWBLCD2
     C                     ELSE
     C*
     C           BLCD1     IFNE WBLCD1
 **  C           LCNT      ANDNE1
     C                     EXCPTLINE
     C                     ADD  1         LCNT
     C                     END
     C*
     C                     Z-ADD0         MSEQ    10
99/09C                     MOVELBLCD1     WBLCD1
99/09C*/////               Z-ADDBLCD1     WBLCD1
     C                     Z-ADDBLCD2     WBLCD2
     C                     END
     C*
     C                     ADD  1         MSEQ
     C                     Z-ADDMSEQ      MSEQ1   10
     C                     Z-ADDMSEQ      MSEQ2   10
     C   99                Z-ADD0         MSEQ1
     C   98                Z-ADD0         MSEQ2
     C*備考
     C           MSEQ      IFEQ 1
     C                     MOVELWBK1      MBK
     C                     END
     C           MSEQ      IFEQ 2
     C                     MOVELWBK2      MBK
     C                     END
      *データなしの場合ブランク出力*
     C                     SETOF                     50
      *取得日*
     C           MYMD      IFEQ *ZERO
     C                     SETON                         50
     C                     ENDIF
     C*
     C                     EXCPTMESAI
      *
     C                     MOVE *BLANK    LVNM1
     C                     MOVE *BLANK    LVNM2
      *
     C                     ADD  1         LCNT
     C*
     C           XEPRNT    TAG
     C                     ENDSR
     C*****************************************************************
     C*         #CLEAR
     C*****************************************************************
     C           #CLEAR    BEGSR
     C*
     C           *LIKE     DEFN E07100    MSCD
     C           *LIKE     DEFN E40200    MKMK
     C           *LIKE     DEFN E40400    MLBL1
     C           *LIKE     DEFN E45200    MSHM
     C           *LIKE     DEFN E45400    MLBL2
     C           *LIKE     DEFN E40800    MBK
     C           *LIKE     DEFN E40800    WBK1
     C           *LIKE     DEFN E40800    WBK2
99/09C                     MOVEL*BLANK    MSCD
99/09C*/////               Z-ADD0         MSCD
     C                     MOVEL*BLANK    MSNM   22
99/08C*/////               Z-ADD0         MGN     10
     C                     Z-ADD0         MYMD    80
     C                     MOVEL*BLANK    MKMK
     C                     MOVEL*BLANK    MKMKN  22
     C                     MOVEL*BLANK    MLBL1
     C                     MOVEL*BLANK    MSHM
     C                     MOVEL*BLANK    MSHMN  22
     C                     MOVEL*BLANK    MLBL2
     C                     MOVEL*BLANK    MBK
     C                     MOVEL*BLANK    WBK1
     C                     MOVEL*BLANK    WBK2
     C*
     C                     ENDSR
      *****************************************************************
      *                   ＰＲＩＮＴ
      *****************************************************************
     OQPRINT  E   02           HEAD
     O                         HOJNCD     3
     O                         CNCONM    46
     O        E   03           HEAD
     O                         THD,1   + 65
     O                                  170 '日付'
     O                         UDATE    179 '  /  /  '
     O                         HCNT  2  189
     O                                  195 '頁'
      *
     O        E   04           HEAD
     O                                   73 '（自）'
     O                         HSYY      77
     O                                   81 '年'
     O                         HSMM      83
     O                                   87 '月'
     O                         HSDD      89
     O                                  101 '日～（至）'
     O                         HEYY     105
     O                                  109 '年'
     O                         HEMM     111
     O                                  115 '月'
     O                         HEDD     117
     O                                  121 '日'
     O                                  164 '( CC04110 )'
     O                                  170 '時刻'
     O                         TM1      173
     O                                  174 ':'
     O                         TM2      176
     O                                  177 ':'
     O                         TM3      179
      *
     O        E   0607         HEAD
     O*///08.09//////////////////////////11 '社員ｺｰﾄﾞ'
08.09O                                   12 '社員コード'
     O                                   20 '氏　名'
     O*///08.08//////////////////////////46 '調査年月日'
08.08O                                   46 '調査日  '
     O                                   59 '得意科目'
     O*///08.09//////////////////////////75 'ﾚﾍﾞﾙ'
08.09O                                   77 'レベル'
     O                                  104 '趣味・スポ－ツ'
     O*///08.09/////////////////////////115 'ﾚﾍﾞﾙ'
08.09O                                  117 'レベル'
     O                                  135 '備　　考'
      *
     O        E  1             MESAI
99/09O                         MSCD       8
99/09O*/////                   MSCD  4    8
     O                         MSNM      32
99/08O*/////          N50      MGN   4   36
     O                N50      MYMD      43
     O                         MSEQ1 4   47
     O                                   48 '.'
     O                         MKMK      54
     O                         MKMKN     76
     O                         MLBL1     72
     O                         LVNM1    105
     O                         MSEQ2 4   90
     O                                   91 '.'
     O                         MSHM      97
     O                         MSHMN    119
     O                         MLBL2    112
     O                         LVNM2    145
     O                         MBK      168
     O*
     O        E  1             PSPACE
     O                                   22 '  '
     O        E  1             LINE
     O                         LINEW    197
**
教養趣味情報チェックリスト

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

C演算仕様書 サブルーチン以外

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize':'15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
s([演算　開始])-->
1["60行目:
パラメータリスト：*ENTRYを定義する"]
2["61行目:
パラメータ：PSYMDを定義する"]
3["62行目:
パラメータ：PEYMDを定義する"]
4["65行目:
パラメータ：PSCDを定義する"]
5["66行目:
パラメータ：PECDを定義する"]
6["67行目:
パラメータ：#PCNTを定義する"]
7["68行目:【Z-ADD】
*ZEROを#PCNTにゼロ加算する"]
8["70行目:
パラメータリスト：PXCDCKを定義する"]
9["71行目:
パラメータ：P@KTMを定義する"]
10["72行目:
パラメータ：P@KOCDを定義する"]
11["73行目:
パラメータ：P@COCDを定義する"]
12["74行目:
パラメータ：P@NMKを定義する"]
13["75行目:
パラメータ：P@CONMを定義する"]
14["76行目:
パラメータ：P@STSを定義する"]
15["78行目:
パラメータリスト：PXKNJを定義する"]
16["79行目:
パラメータ：P@HONTを定義する"]
17["80行目:
パラメータ：P@LENを定義する"]
18["82行目:
パラメータリスト：PXY86を定義する"]
19["83行目:
パラメータ：P@YM8を定義する"]
20["84行目:
パラメータ：P@GENを定義する"]
21["85行目:
パラメータ：P@YM6を定義する"]
22["86行目:
パラメータ：P@STSを定義する"]
23["88行目:
キーリスト：CSKEYを定義する"]
24["89行目:
キー：E07100を定義する"]
25["90行目:
キー：E09300を定義する"]
26["91行目:
キーリスト：C1KEYを定義する"]
27["92行目:
キー：E07100を定義する"]
28["93行目:
キー：E40700を定義する"]
29["94行目:
キーリスト：C2KEYを定義する"]
30["95行目:
キー：E07100を定義する"]
31["96行目:
キー：E46000を定義する"]
32[["101行目:【EXSR】
XINITサブルーチンを実行する"]]:::clrPattern3
33[/"104行目:【DOUEQ】
標識99が'1'と等しくなるまで
および標識98が'1'と等しくなるまで
の条件でループをする"\]:::clrPattern2
35[["106行目:【EXSR】
#MAINサブルーチンを実行する"]]:::clrPattern3
36[\"107行目:
ループを終了する"/]:::clrPattern2
37["109行目:【SETON】
標識[LR]をオンにセットする"]
38["110行目:【RETRN】
呼出し元へ戻る"]

%%ルート設定
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-->|ループ開始|35

35-->36
36-->|ループ終了|37
36-->|ループ継続| 33
37-->38
38["110行目:【RETRN】
呼出し元へ戻る"]

C演算仕様書 サブルーチン：XINIT

%%{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;

%%データ項目
39(["115行目:
XINITサブルーチンを開始する"])
40["117行目:【MOVEL】
*BLANKの値をLINEWに左詰めで移動する"]
41["118行目:【MOVEL】
'*ALL'_'の値をLINEWに左詰めで移動する"]
42["120行目:【TIME】
現在時刻をWKDATEに格納する"]
43["121行目:【MOVEL】
WKDATEの値をWKTIMEに左詰めで移動する"]
44{"123行目:【IFEQ】
PSYMDが0と等しいか"}:::clrPattern1
46["124行目:【Z-ADD】
0をHSYMDにゼロ加算する"]
47(["125行目:
ELSE"])
48["126行目:【Z-ADD】
PSYMDをHSYMDにゼロ加算する"]
49(["127行目:
条件文を終了する"])
50{"129行目:【IFEQ】
PEYMDが99999999と等しいか"}:::clrPattern1
52["130行目:【Z-ADD】
99999999をHEYMDにゼロ加算する"]
53(["131行目:
ELSE"])
54["132行目:【Z-ADD】
PEYMDをHEYMDにゼロ加算する"]
55(["133行目:
条件文を終了する"])
56["135行目:【SETGT】
CCNTRLPファイルに対してPEYMDキーリストを使用して
設定より大きい操作を実行する"]:::clrPatternR
57[/"136行目:【READP】
CCNTRLPファイルから前方にレコードを読み込む
読み込めなかった場合、標識 [99] をオンにセットする。"/]:::clrPatternR
58{"137_1行目:【99】
標識[99]はオンか"}:::clrPattern4
60["137_2行目:【MOVEL】
＊＊＊'CNCONの値をMに左詰めで移動する"]
61(["137_3行目:
条件文を終了する"])
62["140行目:【Z-ADD】
0をHCNTにゼロ加算する"]
63["142行目:【Z-ADD】
99をLCNTにゼロ加算する"]
64["145行目:【MOVEL】
PSCDの値をE07100に左詰めで移動する"]
65["147行目:【Z-ADD】
0をE40700にゼロ加算する"]
66["148行目:【SETLL】
CSYINI1ファイルに対してC1KEYを用いて位置設定する"]:::clrPatternR
67[["149行目:【EXSR】
#READ1サブルーチンを実行する"]]:::clrPattern3
68["151行目:【MOVEL】
PSCDの値をE07100に左詰めで移動する"]
69["153行目:【Z-ADD】
0をE46000にゼロ加算する"]
70["154行目:【SETLL】
CSYINI2ファイルに対してC2KEYを用いて位置設定する"]:::clrPatternR
71[["155行目:【EXSR】
#READ2サブルーチンを実行する"]]:::clrPattern3
72(["157行目:
XINITサブルーチンを終了する"])

%%ルート設定
39-->40
40-->41
41-->42
42-->43
43-->44
44-->|条件文　真　|46
44-->|条件文　偽　|47
46-->49
47-->48
48-->49
49-->50
50-->|条件文　真　|52
50-->|条件文　偽　|53
52-->55
53-->54
54-->55
55-->56
56-->57
57-->58
58-->|条件文　真　|60
58-->|条件文　偽　|61
60-->61
61-->62
62-->63
63-->64
64-->65
65-->66
66-->67
67-->68
68-->69
69-->70
70-->71
71-->72
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S56 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
    subgraph S56[" "]
        56
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S57 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
    subgraph S57[" "]
        57
    end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S66 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Read＞"]
    subgraph S66[" "]
        66
    end
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
style S70 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["CRUD＜Read＞"]
    subgraph S70[" "]
        70
    end
end

C演算仕様書 サブルーチン：#MAIN

%%{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;

%%データ項目
73(["161行目:
#MAINサブルーチンを開始する"])
74{"163行目:【IFEQ】
標識99が'0'と等しいか
または、標識98が'0'と等しいか"}:::clrPattern1
78[["167行目:【EXSR】
#CLEARサブルーチンを実行する"]]:::clrPattern3
79{"169行目:【IFEQ】
KEYAがKEYBと等しいか"}:::clrPattern1
81{"170行目:【IFEQ】
標識77が*オフか
および標識78が*オフか"}:::clrPattern1
85[["172行目:【EXSR】
#SET1サブルーチンを実行する"]]:::clrPattern3
86[["173行目:【EXSR】
#SET2サブルーチンを実行する"]]:::clrPattern3
87[["174行目:【EXSR】
#PRINTサブルーチンを実行する"]]:::clrPattern3
88(["175行目:
条件文を終了する"])
89[["176行目:【EXSR】
#READ1サブルーチンを実行する"]]:::clrPattern3
90[["177行目:【EXSR】
#READ2サブルーチンを実行する"]]:::clrPattern3
91["178行目:【GOTO】
XEMAINラベルにジャンプする"]
92(["179行目:
条件文を終了する"])
93{"181行目:【IFGT】
KEYAがKEYBより大きいか"}:::clrPattern1
95{"182行目:【IFEQ】
標識78が*オフか"}:::clrPattern1
97[["183行目:【EXSR】
#SET2サブルーチンを実行する"]]:::clrPattern3
98[["184行目:【EXSR】
#PRINTサブルーチンを実行する"]]:::clrPattern3
99(["185行目:
条件文を終了する"])
100[["186行目:【EXSR】
#READ2サブルーチンを実行する"]]:::clrPattern3
101["187行目:【GOTO】
XEMAINラベルにジャンプする"]
102(["188行目:
条件文を終了する"])
103{"190行目:【IFLT】
KEYAがKEYBより小さいか"}:::clrPattern1
105{"191行目:【IFEQ】
標識77が*オフか"}:::clrPattern1
107[["192行目:【EXSR】
#SET1サブルーチンを実行する"]]:::clrPattern3
108[["193行目:【EXSR】
#PRINTサブルーチンを実行する"]]:::clrPattern3
109(["194行目:
条件文を終了する"])
110[["195行目:【EXSR】
#READ1サブルーチンを実行する"]]:::clrPattern3
111["196行目:【GOTO】
XEMAINラベルにジャンプする"]
112(["197行目:
条件文を終了する"])
113(["199行目:
条件文を終了する"])
114["201行目:【TAG】
ラベル【XEMAIN】"]
115(["202行目:
#MAINサブルーチンを終了する"])

%%ルート設定
73-->74
74-->|条件文　真　|78
74-->|条件文　偽　|113
78-->79
79-->|条件文　真　|81
79-->|条件文　偽　|92
81-->|条件文　真　|85
81-->|条件文　偽　|88
85-->86
86-->87
87-->88
88-->89
89-->90
90-->91
91-->114
92-->93
93-->|条件文　真　|95
93-->|条件文　偽　|102
95-->|条件文　真　|97
95-->|条件文　偽　|99
97-->98
98-->99
99-->100
100-->101
101-->114
102-->103
103-->|条件文　真　|105
103-->|条件文　偽　|112
105-->|条件文　真　|107
105-->|条件文　偽　|109
107-->108
108-->109
109-->110
110-->111
111-->114
112-->113
113-->114
114-->115

C演算仕様書 サブルーチン：#READ1

%%{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;

%%データ項目
116(["206行目:
#READ1サブルーチンを開始する"])
117[/"208行目:【READ】
CSYINI1Pファイルからレコードを読み込む
読み込めなかった場合、標識 [99] をオンにセットする。"/]:::clrPatternR
118{"209_1行目:【99】
標識[99]はオンか"}:::clrPattern4
120["209_2行目:【Z-ADD】
9999999をKEYA1にゼロ加算する"]
121(["209_3行目:
条件文を終了する"])
122{"210_1行目:【99】
標識[99]はオンか"}:::clrPattern4
124["210_2行目:【Z-ADD】
99999999をKEYA2にゼロ加算する"]
125(["210_3行目:
条件文を終了する"])
126{"211_1行目:【N99】
標識[99]はオフか"}:::clrPattern4
128["211_2行目:【MOVEL】
E07100の値をKEYA1に左詰めで移動する"]
129(["211_3行目:
条件文を終了する"])
130{"213_1行目:【N99】
標識[99]はオフか"}:::clrPattern4
132["213_2行目:【Z-ADD】
E40700をKEYA2にゼロ加算する"]
133(["213_3行目:
条件文を終了する"])
134[/"214行目:【CHAIN】
CSYINASファイルでE07100をキーとしてCHAIN操
作する
読み込めなかった場合、標識 [77] をオンにセットする。"/]:::clrPatternR
135(["216行目:
#READ1サブルーチンを終了する"])

%%ルート設定
116-->117
117-->118
118-->|条件文　真　|120
118-->|条件文　偽　|121
120-->121
121-->122
122-->|条件文　真　|124
122-->|条件文　偽　|125
124-->125
125-->126
126-->|条件文　偽　|129
126-->|条件文　真　|128
128-->129
129-->130
130-->|条件文　偽　|133
130-->|条件文　真　|132
132-->133
133-->134
134-->135
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S117 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
    subgraph S117[" "]
        117
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S134 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
    subgraph S134[" "]
        134
    end
end

C演算仕様書 サブルーチン：#READ2

%%{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;

%%データ項目
136(["220行目:
#READ2サブルーチンを開始する"])
137[/"222行目:【READ】
CSYINI2Pファイルからレコードを読み込む
読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR
138{"223_1行目:【98】
標識[98]はオンか"}:::clrPattern4
140["223_2行目:【Z-ADD】
9999999をKEYB1にゼロ加算する"]
141(["223_3行目:
条件文を終了する"])
142{"224_1行目:【98】
標識[98]はオンか"}:::clrPattern4
144["224_2行目:【Z-ADD】
99999999をKEYB2にゼロ加算する"]
145(["224_3行目:
条件文を終了する"])
146{"225_1行目:【N98】
標識[98]はオフか"}:::clrPattern4
148["225_2行目:【MOVEL】
E07100の値をKEYB1に左詰めで移動する"]
149(["225_3行目:
条件文を終了する"])
150{"227_1行目:【N98】
標識[98]はオフか"}:::clrPattern4
152["227_2行目:【Z-ADD】
E46000をKEYB2にゼロ加算する"]
153(["227_3行目:
条件文を終了する"])
154[/"228行目:【CHAIN】
CSYINASファイルでE07100をキーとしてCHAIN操
作する
読み込めなかった場合、標識 [78] をオンにセットする。"/]:::clrPatternR
155(["230行目:
#READ2サブルーチンを終了する"])

%%ルート設定
136-->137
137-->138
138-->|条件文　真　|140
138-->|条件文　偽　|141
140-->141
141-->142
142-->|条件文　真　|144
142-->|条件文　偽　|145
144-->145
145-->146
146-->|条件文　偽　|149
146-->|条件文　真　|148
148-->149
149-->150
150-->|条件文　偽　|153
150-->|条件文　真　|152
152-->153
153-->154
154-->155
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S137 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
    subgraph S137[" "]
        137
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S154 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
    subgraph S154[" "]
        154
    end
end

C演算仕様書 サブルーチン：#SET1

%%{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;

%%データ項目
156(["234行目:
#SET1サブルーチンを開始する"])
157["239行目:【MOVEL】
KEYA1の値をMSCDに左詰めで移動する"]
158["240行目:【MOVEL】
KEYA1の値をE07100に左詰めで移動する"]
159["241行目:【Z-ADD】
PEYMDをE09300にゼロ加算する"]
160["242行目:【SETGT】
CSYINA1ファイルに対してCSKEYキーリストを使用して
設定より大きい操作を実行する"]:::clrPatternR
161[/"243行目:【REDPE】
E07100をキーとしてCSYINA1PファイルでREDPE
（逆順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
162{"244_1行目:【N90】
標識[90]はオフか"}:::clrPattern4
164["244_2行目:【MOVEL】
E00500の値をMSNMに左詰めで移動する"]
165(["244_3行目:
条件文を終了する"])
166["246行目:【MOVEL】
E40200の値をMKMKに左詰めで移動する"]
167["247行目:【Z-ADD】
E40700をP@KTMにゼロ加算する"]
168{"248行目:【IFEQ】
E40700が0と等しいか"}:::clrPattern1
170["249行目:【Z-ADD】
20491231をP@KTMにゼロ加算する"]
171(["250行目:
条件文を終了する"])
172["252行目:【MOVEL】
'Z402'の値をP@KOCDに左詰めで移動する"]
173["253行目:【MOVEL】
*BLANKの値をP@COCDに左詰めで移動する"]
174["254行目:【MOVEL】
E40200の値をP@COCDに左詰めで移動する"]
175["255行目:【Z-ADD】
0をP@NMKにゼロ加算する"]
176[["256行目:【CALL】
'XCODCTL'プログラムを呼び出す"]]:::clrPattern3
177{"258行目:【IFEQ】
P@STSが*BLANKと等しいか"}:::clrPattern1
179["259行目:【MOVEL】
P@CONMの値をP@HONTに左詰めで移動する"]
180[["260行目:【CALL】
'XKNJCUT3'プログラムを呼び出す"]]:::clrPattern3
181["261行目:【MOVEL】
P@HONTの値をMKMKNに左詰めで移動する"]
182(["262行目:
条件文を終了する"])
183["265行目:【Z-ADD】
E40700をMYMDにゼロ加算する"]
184["271行目:【MOVEL】
E40400の値をMLBL1に左詰めで移動する"]
185{"273_1行目:【N98】
標識[98]はオフか"}:::clrPattern4
187["273_2行目:【MOVEL】
E40800の値をWBK1に左詰めで移動する"]
188(["273_3行目:
条件文を終了する"])
189{"274_1行目:【N99】
標識[99]はオフか"}:::clrPattern4
191["274_2行目:【MOVEL】
E40900の値をWBK2に左詰めで移動する"]
192(["274_3行目:
条件文を終了する"])
193["276行目:【MOVEL】
KEYA1の値をBLCD1に左詰めで移動する"]
194["278行目:【Z-ADD】
KEYA2をBLCD2にゼロ加算する"]
195["282行目:【MOVE】
*BLANKからLVNM1に移動する"]
196["283行目:【Z-ADD】
E40700をP@KTMにゼロ加算する"]
197{"284行目:【IFEQ】
E40700が0と等しいか"}:::clrPattern1
199["285行目:【Z-ADD】
20491231をP@KTMにゼロ加算する"]
200(["286行目:
条件文を終了する"])
201["288行目:【MOVEL】
'Z404'の値をP@KOCDに左詰めで移動する"]
202["289行目:【MOVEL】
*BLANKの値をP@COCDに左詰めで移動する"]
203["290行目:【MOVEL】
E40400の値をP@COCDに左詰めで移動する"]
204["291行目:【Z-ADD】
0をP@NMKにゼロ加算する"]
205[["292行目:【CALL】
'XCODCTL'プログラムを呼び出す"]]:::clrPattern3
206{"294行目:【IFEQ】
P@STSが*BLANKと等しいか"}:::clrPattern1
208["295行目:【MOVEL】
P@CONMの値をP@HONTに左詰めで移動する"]
209[["296行目:【CALL】
'XKNJCUT3'プログラムを呼び出す"]]:::clrPattern3
210["297行目:【MOVEL】
P@HONTの値をLVNM1に左詰めで移動する"]
211(["298行目:
条件文を終了する"])
212(["300行目:
#SET1サブルーチンを終了する"])

%%ルート設定
156-->157
157-->158
158-->159
159-->160
160-->161
161-->162
162-->|条件文　偽　|165
162-->|条件文　真　|164
164-->165
165-->166
166-->167
167-->168
168-->|条件文　真　|170
168-->|条件文　偽　|171
170-->171
171-->172
172-->173
173-->174
174-->175
175-->176
176-->177
177-->|条件文　真　|179
177-->|条件文　偽　|182
179-->180
180-->181
181-->182
182-->183
183-->184
184-->185
185-->|条件文　偽　|188
185-->|条件文　真　|187
187-->188
188-->189
189-->|条件文　偽　|192
189-->|条件文　真　|191
191-->192
192-->193
193-->194
194-->195
195-->196
196-->197
197-->|条件文　真　|199
197-->|条件文　偽　|200
199-->200
200-->201
201-->202
202-->203
203-->204
204-->205
205-->206
206-->|条件文　真　|208
206-->|条件文　偽　|211
208-->209
209-->210
210-->211
211-->212
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S160 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
    subgraph S160[" "]
        160
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S161 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
    subgraph S161[" "]
        161
    end
end

C演算仕様書 サブルーチン：#SET2

%%{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;

%%データ項目
213(["304行目:
#SET2サブルーチンを開始する"])
214["306行目:【MOVEL】
*BLANKの値をMSCDに左詰めで移動する"]
215["308行目:【MOVEL】
*BLANKの値をMSNMに左詰めで移動する"]
216["310行目:【MOVEL】
KEYB1の値をMSCDに左詰めで移動する"]
217["311行目:【MOVEL】
KEYB1の値をE07100に左詰めで移動する"]
218["314行目:【Z-ADD】
PEYMDをE09300にゼロ加算する"]
219["315行目:【SETGT】
CSYINA1ファイルに対してCSKEYキーリストを使用して
設定より大きい操作を実行する"]:::clrPatternR
220[/"316行目:【REDPE】
E07100をキーとしてCSYINA1PファイルでREDPE
（逆順読み込み）実行する
読み込めなかった場合、標識 [90] をオンにセットする。"/]:::clrPatternR
221{"317_1行目:【N90】
標識[90]はオフか"}:::clrPattern4
223["317_2行目:【MOVEL】
E00500の値をMSNMに左詰めで移動する"]
224(["317_3行目:
条件文を終了する"])
225["319行目:【MOVEL】
E45200の値をMSHMに左詰めで移動する"]
226["320行目:【Z-ADD】
E46000をP@KTMにゼロ加算する"]
227{"321行目:【IFEQ】
E46000が0と等しいか"}:::clrPattern1
229["322行目:【Z-ADD】
20491231をP@KTMにゼロ加算する"]
230(["323行目:
条件文を終了する"])
231["325行目:【MOVEL】
'Z452'の値をP@KOCDに左詰めで移動する"]
232["326行目:【MOVEL】
*BLANKの値をP@COCDに左詰めで移動する"]
233["327行目:【MOVEL】
E45200の値をP@COCDに左詰めで移動する"]
234["328行目:【Z-ADD】
0をP@NMKにゼロ加算する"]
235[["329行目:【CALL】
'XCODCTL'プログラムを呼び出す"]]:::clrPattern3
236{"331行目:【IFEQ】
P@STSが*BLANKと等しいか"}:::clrPattern1
238["332行目:【MOVEL】
P@CONMの値をP@HONTに左詰めで移動する"]
239[["333行目:【CALL】
'XKNJCUT3'プログラムを呼び出す"]]:::clrPattern3
240["334行目:【MOVEL】
P@HONTの値をMSHMNに左詰めで移動する"]
241(["335行目:
条件文を終了する"])
242["338行目:【Z-ADD】
0をMYMDにゼロ加算する"]
243["339行目:【Z-ADD】
E46000をMYMDにゼロ加算する"]
244["347行目:【MOVE】
E45400からMLBL2に移動する"]
245["349行目:【MOVEL】
*BLANKの値をWBK1に左詰めで移動する"]
246["350行目:【MOVEL】
*BLANKの値をWBK2に左詰めで移動する"]
247{"351_1行目:【N98】
標識[98]はオフか"}:::clrPattern4
249["351_2行目:【MOVEL】
E45800の値をWBK1に左詰めで移動する"]
250(["351_3行目:
条件文を終了する"])
251{"352_1行目:【N99】
標識[99]はオフか"}:::clrPattern4
253["352_2行目:【MOVEL】
E45900の値をWBK2に左詰めで移動する"]
254(["352_3行目:
条件文を終了する"])
255["354行目:【MOVEL】
KEYB1の値をBLCD1に左詰めで移動する"]
256["356行目:【Z-ADD】
KEYB2をBLCD2にゼロ加算する"]
257["359行目:【MOVE】
*BLANKからLVNM2に移動する"]
258["360行目:【Z-ADD】
E40700をP@KTMにゼロ加算する"]
259{"361行目:【IFEQ】
E40700が0と等しいか"}:::clrPattern1
261["362行目:【Z-ADD】
20491231をP@KTMにゼロ加算する"]
262(["363行目:
条件文を終了する"])
263["365行目:【MOVEL】
'Z454'の値をP@KOCDに左詰めで移動する"]
264["366行目:【MOVEL】
*BLANKの値をP@COCDに左詰めで移動する"]
265["367行目:【MOVEL】
E45400の値をP@COCDに左詰めで移動する"]
266["368行目:【Z-ADD】
0をP@NMKにゼロ加算する"]
267[["369行目:【CALL】
'XCODCTL'プログラムを呼び出す"]]:::clrPattern3
268{"371行目:【IFEQ】
P@STSが*BLANKと等しいか"}:::clrPattern1
270["372行目:【MOVEL】
P@CONMの値をP@HONTに左詰めで移動する"]
271[["373行目:【CALL】
'XKNJCUT3'プログラムを呼び出す"]]:::clrPattern3
272["374行目:【MOVEL】
P@HONTの値をLVNM2に左詰めで移動する"]
273(["375行目:
条件文を終了する"])
274(["377行目:
#SET2サブルーチンを終了する"])

%%ルート設定
213-->214
214-->215
215-->216
216-->217
217-->218
218-->219
219-->220
220-->221
221-->|条件文　偽　|224
221-->|条件文　真　|223
223-->224
224-->225
225-->226
226-->227
227-->|条件文　真　|229
227-->|条件文　偽　|230
229-->230
230-->231
231-->232
232-->233
233-->234
234-->235
235-->236
236-->|条件文　真　|238
236-->|条件文　偽　|241
238-->239
239-->240
240-->241
241-->242
242-->243
243-->244
244-->245
245-->246
246-->247
247-->|条件文　偽　|250
247-->|条件文　真　|249
249-->250
250-->251
251-->|条件文　偽　|254
251-->|条件文　真　|253
253-->254
254-->255
255-->256
256-->257
257-->258
258-->259
259-->|条件文　真　|261
259-->|条件文　偽　|262
261-->262
262-->263
263-->264
264-->265
265-->266
266-->267
267-->268
268-->|条件文　真　|270
268-->|条件文　偽　|273
270-->271
271-->272
272-->273
273-->274
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S219 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
    subgraph S219[" "]
        219
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S220 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
    subgraph S220[" "]
        220
    end
end

C演算仕様書 サブルーチン：#PRINT

%%{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;

%%データ項目
275(["381行目:
#PRINTサブルーチンを開始する"])
276["383行目:【DEFN】
E07100をBLCD1と同じ型定義する"]
277["384行目:【DEFN】
E40700をBLCD2と同じ型定義する"]
278["385行目:【DEFN】
E07100をWBLCD1と同じ型定義する"]
279["386行目:【DEFN】
E40700をWBLCD2と同じ型定義する"]
280{"388行目:【IFGE】
BLCD1がPSCD以上か
およびBLCD1がPECD以下か
およびBLCD2がPSYMD以上か
およびBLCD2がPEYMD以下か"}:::clrPattern1
288(["392行目:
ELSE"])
289["393行目:【GOTO】
XEPRNTラベルにジャンプする"]
290(["394行目:
条件文を終了する"])
291{"396行目:【IFGE】
LCNTが56以上か"}:::clrPattern1
293["397行目:【ADD】
HCNTに1を加算する"]
294[/"398行目:【EXCPT】
HEADを例外出力する"/]:::clrPatternCU
295[/"399行目:【EXCPT】
PSPACEを例外出力する"/]:::clrPatternCU
296["400行目:【Z-ADD】
1をLCNTにゼロ加算する"]
297["401行目:【ADD】
#PCNTに1を加算する"]
298(["402行目:
ELSE"])
299{"403行目:【IFEQ】
BLCD1がWBLCD1と等しいか"}:::clrPattern1
301["404行目:【MOVEL】
*BLANKの値をMSNMに左詰めで移動する"]
302["405行目:【MOVEL】
*BLANKの値をMSCDに左詰めで移動する"]
303(["407行目:
条件文を終了する"])
304{"408行目:【IFEQ】
BLCD1がWBLCD1と等しいか
およびBLCD2がWBLCD2と等しいか"}:::clrPattern1
308["411行目:【Z-ADD】
0をMYMDにゼロ加算する"]
309(["412行目:
条件文を終了する"])
310(["413行目:
条件文を終了する"])
311{"415行目:【IFEQ】
BLCD1がWBLCD1と等しいか
およびBLCD2がWBLCD2と等しいか"}:::clrPattern1
315(["417行目:
ELSE"])
316{"419行目:【IFNE】
BLCD1がWBLCD1と等しくないか
およびLCNTが1と等しくないか"}:::clrPattern1
320[/"421行目:【EXCPT】
LINEを例外出力する"/]:::clrPatternCU
321["422行目:【ADD】
LCNTに1を加算する"]
322(["423行目:
条件文を終了する"])
323["425行目:【Z-ADD】
0をMSEQにゼロ加算する"]
324["426行目:【MOVEL】
BLCD1の値をWBLCD1に左詰めで移動する"]
325["428行目:【Z-ADD】
BLCD2をWBLCD2にゼロ加算する"]
326(["429行目:
条件文を終了する"])
327["431行目:【ADD】
MSEQに1を加算する"]
328["432行目:【Z-ADD】
MSEQをMSEQ1にゼロ加算する"]
329["433行目:【Z-ADD】
MSEQをMSEQ2にゼロ加算する"]
330{"434_1行目:【99】
標識[99]はオンか"}:::clrPattern4
332["434_2行目:【Z-ADD】
0をMSEQ1にゼロ加算する"]
333(["434_3行目:
条件文を終了する"])
334{"435_1行目:【98】
標識[98]はオンか"}:::clrPattern4
336["435_2行目:【Z-ADD】
0をMSEQ2にゼロ加算する"]
337(["435_3行目:
条件文を終了する"])
338{"437行目:【IFEQ】
MSEQが1と等しいか"}:::clrPattern1
340["438行目:【MOVEL】
WBK1の値をMBKに左詰めで移動する"]
341(["439行目:
条件文を終了する"])
342{"440行目:【IFEQ】
MSEQが2と等しいか"}:::clrPattern1
344["441行目:【MOVEL】
WBK2の値をMBKに左詰めで移動する"]
345(["442行目:
条件文を終了する"])
346["444行目:【SETOF】
標識[50]をオフにセットする"]
347{"446行目:【IFEQ】
MYMDが*ZEROと等しいか"}:::clrPattern1
349["447行目:【SETON】
標識[50]をオンにセットする"]
350(["448行目:
条件文を終了する"])
351[/"450行目:【EXCPT】
MESAIを例外出力する"/]:::clrPatternCU
352["452行目:【MOVE】
*BLANKからLVNM1に移動する"]
353["453行目:【MOVE】
*BLANKからLVNM2に移動する"]
354["455行目:【ADD】
LCNTに1を加算する"]
355["457行目:【TAG】
ラベル【XEPRNT】"]
356(["458行目:
#PRINTサブルーチンを終了する"])

%%ルート設定
275-->276
276-->277
277-->278
278-->279
279-->280
280-->|条件文　真　|290
280-->|条件文　偽　|288
288-->289
289-->355
290-->291
291-->|条件文　真　|293
291-->|条件文　偽　|298
293-->294
294-->295
295-->296
296-->297
297-->310
298-->299
299-->|条件文　真　|301
299-->|条件文　偽　|303
301-->302
302-->303
303-->304
304-->|条件文　真　|308
304-->|条件文　偽　|309
308-->309
309-->310
310-->311
311-->|条件文　真　|326
311-->|条件文　偽　|315
315-->316
316-->|条件文　真　|320
316-->|条件文　偽　|322
320-->321
321-->322
322-->323
323-->324
324-->325
325-->326
326-->327
327-->328
328-->329
329-->330
330-->|条件文　真　|332
330-->|条件文　偽　|333
332-->333
333-->334
334-->|条件文　真　|336
334-->|条件文　偽　|337
336-->337
337-->338
338-->|条件文　真　|340
338-->|条件文　偽　|341
340-->341
341-->342
342-->|条件文　真　|344
342-->|条件文　偽　|345
344-->345
345-->346
346-->347
347-->|条件文　真　|349
347-->|条件文　偽　|350
349-->350
350-->351
351-->352
352-->353
353-->354
354-->355
355-->356
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S294 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Create＞and＜Update＞"]
    subgraph S294[" "]
        294
    end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S295 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Create＞and＜Update＞"]
    subgraph S295[" "]
        295
    end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S320 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Create＞and＜Update＞"]
    subgraph S320[" "]
        320
    end
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
style S351 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["CRUD＜Create＞and＜Update＞"]
    subgraph S351[" "]
        351
    end
end

C演算仕様書 サブルーチン：#CLEAR

%%{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;

%%データ項目
357(["462行目:
#CLEARサブルーチンを開始する"])
358["464行目:【DEFN】
E07100をMSCDと同じ型定義する"]
359["465行目:【DEFN】
E40200をMKMKと同じ型定義する"]
360["466行目:【DEFN】
E40400をMLBL1と同じ型定義する"]
361["467行目:【DEFN】
E45200をMSHMと同じ型定義する"]
362["468行目:【DEFN】
E45400をMLBL2と同じ型定義する"]
363["469行目:【DEFN】
E40800をMBKと同じ型定義する"]
364["470行目:【DEFN】
E40800をWBK1と同じ型定義する"]
365["471行目:【DEFN】
E40800をWBK2と同じ型定義する"]
366["472行目:【MOVEL】
*BLANKの値をMSCDに左詰めで移動する"]
367["474行目:【MOVEL】
*BLANKの値をMSNMに左詰めで移動する"]
368["476行目:【Z-ADD】
0をMYMDにゼロ加算する"]
369["477行目:【MOVEL】
*BLANKの値をMKMKに左詰めで移動する"]
370["478行目:【MOVEL】
*BLANKの値をMKMKNに左詰めで移動する"]
371["479行目:【MOVEL】
*BLANKの値をMLBL1に左詰めで移動する"]
372["480行目:【MOVEL】
*BLANKの値をMSHMに左詰めで移動する"]
373["481行目:【MOVEL】
*BLANKの値をMSHMNに左詰めで移動する"]
374["482行目:【MOVEL】
*BLANKの値をMLBL2に左詰めで移動する"]
375["483行目:【MOVEL】
*BLANKの値をMBKに左詰めで移動する"]
376["484行目:【MOVEL】
*BLANKの値をWBK1に左詰めで移動する"]
377["485行目:【MOVEL】
*BLANKの値をWBK2に左詰めで移動する"]
378(["487行目:
#CLEARサブルーチンを終了する"])

%%ルート設定
357-->358
358-->359
359-->360
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