戻る

出力サンプル　－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演算仕様書 サブルーチン：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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
39(["【ｻﾌﾞﾙｰﾁﾝ開始】
115：XINIT"])
40["【MOVEL】
117：LINEW = *BLANK"]
41["【MOVEL】
118：LINEW = '*ALL'_'"]
42["【TIME】
120：TIME"]
43["【MOVEL】
121：WKTIME = WKDATE"]
44{"123:条件文"}:::clrPattern1
46["【Z-ADD】
124：HSYMD = 0"]
47["125：ELSE"]
48["【Z-ADD】
126：HSYMD = PSYMD"]
49(["127：END"])
50{"129:条件文"}:::clrPattern1
52["【Z-ADD】
130：HEYMD = 99999999"]
53["131：ELSE"]
54["【Z-ADD】
132：HEYMD = PEYMD"]
55(["133：END"])
56["CRUD＜READ＞
【SETGT】
135：SETGT||"]:::clrPatternR
57[/"CRUD＜READ＞
【READP】
136：CCNTRLP|99|"/]:::clrPatternR
58{"137_1:条件文"}:::clrPattern1
60["【MOVEL】
137_2：M = ＊＊＊'CNCON"]
61(["137_3：ENDIF"])
62["【Z-ADD】
140：HCNT = 0"]
63["【Z-ADD】
142：LCNT = 99"]
64["【MOVEL】
145：E07100 = PSCD"]
65["【Z-ADD】
147：E40700 = 0"]
66["CRUD＜READ＞
【SETLL】
148：CSYINI1||"]:::clrPatternR
67[["【ｻﾌﾞﾙｰﾁﾝ呼出】
149：#READ1"]]:::clrPattern3
68["【MOVEL】
151：E07100 = PSCD"]
69["【Z-ADD】
153：E46000 = 0"]
70["CRUD＜READ＞
【SETLL】
154：CSYINI2||"]:::clrPatternR
71[["【ｻﾌﾞﾙｰﾁﾝ呼出】
155：#READ2"]]:::clrPattern3
72(["【ｻﾌﾞﾙｰﾁﾝ終了】
157：ENDSR"])

%%ルート設定
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;
subgraph sg1["if PSYMD = 0"]
44
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if PEYMD = 99999999"]
50
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["99真"]
58
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
73(["【ｻﾌﾞﾙｰﾁﾝ開始】
161：#MAIN"])
74{"163:条件文"}:::clrPattern1
78[["【ｻﾌﾞﾙｰﾁﾝ呼出】
167：#CLEAR"]]:::clrPattern3
79{"169:条件文"}:::clrPattern1
81{"170:条件文"}:::clrPattern1
85[["【ｻﾌﾞﾙｰﾁﾝ呼出】
172：#SET1"]]:::clrPattern3
86[["【ｻﾌﾞﾙｰﾁﾝ呼出】
173：#SET2"]]:::clrPattern3
87[["【ｻﾌﾞﾙｰﾁﾝ呼出】
174：#PRINT"]]:::clrPattern3
88(["175：ENDIF"])
89[["【ｻﾌﾞﾙｰﾁﾝ呼出】
176：#READ1"]]:::clrPattern3
90[["【ｻﾌﾞﾙｰﾁﾝ呼出】
177：#READ2"]]:::clrPattern3
91["【制御出力】
178：GOTO|XEMAIN|"]
92(["179：END"])
93{"181:条件文"}:::clrPattern1
95{"182:条件文"}:::clrPattern1
97[["【ｻﾌﾞﾙｰﾁﾝ呼出】
183：#SET2"]]:::clrPattern3
98[["【ｻﾌﾞﾙｰﾁﾝ呼出】
184：#PRINT"]]:::clrPattern3
99(["185：ENDIF"])
100[["【ｻﾌﾞﾙｰﾁﾝ呼出】
186：#READ2"]]:::clrPattern3
101["【制御出力】
187：GOTO|XEMAIN|"]
102(["188：END"])
103{"190:条件文"}:::clrPattern1
105{"191:条件文"}:::clrPattern1
107[["【ｻﾌﾞﾙｰﾁﾝ呼出】
192：#SET1"]]:::clrPattern3
108[["【ｻﾌﾞﾙｰﾁﾝ呼出】
193：#PRINT"]]:::clrPattern3
109(["194：ENDIF"])
110[["【ｻﾌﾞﾙｰﾁﾝ呼出】
195：#READ1"]]:::clrPattern3
111["【制御出力】
196：GOTO|XEMAIN|"]
112(["197：END"])
113(["199：END"])
114["【制御入力】
201：TAG|XEMAIN|"]
115(["【ｻﾌﾞﾙｰﾁﾝ終了】
202：ENDSR"])

%%ルート設定
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
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if *IN99 = '0'if *IN98 = 0'"]
74
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if KEYA = KEYB"]
79
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if *IN77 = 0& if *IN78 = 0"]
81
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if KEYA > KEYB"]
93
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if *IN78 = 0"]
95
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if KEYA < KEYB"]
103
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["if *IN77 = 0"]
105
end

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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
116(["【ｻﾌﾞﾙｰﾁﾝ開始】
206：#READ1"])
117[/"CRUD＜READ＞
【READ】
208：CSYINI1P|99|"/]:::clrPatternR
118{"209_1:条件文"}:::clrPattern1
120["【Z-ADD】
209_2：KEYA1 = 9999999"]
121(["209_3：ENDIF"])
122{"210_1:条件文"}:::clrPattern1
124["【Z-ADD】
210_2：KEYA2 = 99999999"]
125(["210_3：ENDIF"])
126{"211_1:条件文"}:::clrPattern1
128["【MOVEL】
211_2：KEYA1 = E07100"]
129(["211_3：ENDIF"])
130{"213_1:条件文"}:::clrPattern1
132["【Z-ADD】
213_2：KEYA2 = E40700"]
133(["213_3：ENDIF"])
134[/"CRUD＜READ＞
【CHAIN】
214：CSYINAS|77|"/]:::clrPatternR
135(["【ｻﾌﾞﾙｰﾁﾝ終了】
216：ENDSR"])

%%ルート設定
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;
subgraph sg1["99真"]
118
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["99真"]
122
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
136(["【ｻﾌﾞﾙｰﾁﾝ開始】
220：#READ2"])
137[/"CRUD＜READ＞
【READ】
222：CSYINI2P|98|"/]:::clrPatternR
138{"223_1:条件文"}:::clrPattern1
140["【Z-ADD】
223_2：KEYB1 = 9999999"]
141(["223_3：ENDIF"])
142{"224_1:条件文"}:::clrPattern1
144["【Z-ADD】
224_2：KEYB2 = 99999999"]
145(["224_3：ENDIF"])
146{"225_1:条件文"}:::clrPattern1
148["【MOVEL】
225_2：KEYB1 = E07100"]
149(["225_3：ENDIF"])
150{"227_1:条件文"}:::clrPattern1
152["【Z-ADD】
227_2：KEYB2 = E46000"]
153(["227_3：ENDIF"])
154[/"CRUD＜READ＞
【CHAIN】
228：CSYINAS|78|"/]:::clrPatternR
155(["【ｻﾌﾞﾙｰﾁﾝ終了】
230：ENDSR"])

%%ルート設定
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;
subgraph sg1["98真"]
138
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["98真"]
142
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
156(["【ｻﾌﾞﾙｰﾁﾝ開始】
234：#SET1"])
157["【MOVEL】
239：MSCD = KEYA1"]
158["【MOVEL】
240：E07100 = KEYA1"]
159["【Z-ADD】
241：E09300 = PEYMD"]
160["CRUD＜READ＞
【SETGT】
242：SETGT||"]:::clrPatternR
161[/"CRUD＜READ＞
【REDPE】
243：CSYINA1P|90|"/]:::clrPatternR
162{"244_1:条件文"}:::clrPattern1
164["【MOVEL】
244_2：MSNM = E00500"]
165(["244_3：ENDIF"])
166["【MOVEL】
246：MKMK = E40200"]
167["【Z-ADD】
247：P@KTM = E40700"]
168{"248:条件文"}:::clrPattern1
170["【Z-ADD】
249：P@KTM = 20491231"]
171(["250：END"])
172["【MOVEL】
252：P@KOCD = 'Z402'"]
173["【MOVEL】
253：P@COCD = *BLANK"]
174["【MOVEL】
254：P@COCD = E40200"]
176[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
256：XCODCTL' "]]:::clrPattern3
177{"258:条件文"}:::clrPattern1
179["【MOVEL】
259：P@HONT = P@CONM"]
180[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
260：XKNJCUT3'"]]:::clrPattern3
181["【MOVEL】
261：MKMKN = P@HONT"]
182(["262：END"])
183["【Z-ADD】
265：MYMD = E40700"]
184["【MOVEL】
271：MLBL1 = E40400"]
185{"273_1:条件文"}:::clrPattern1
187["【MOVEL】
273_2：WBK1 = E40800"]
188(["273_3：ENDIF"])
189{"274_1:条件文"}:::clrPattern1
191["【MOVEL】
274_2：WBK2 = E40900"]
192(["274_3：ENDIF"])
193["【MOVEL】
276：BLCD1 = KEYA1"]
194["【Z-ADD】
278：BLCD2 = KEYA2"]
195["【MOVE】
282：LVNM1 = *BLANK"]
196["【Z-ADD】
283：P@KTM = E40700"]
197{"284:条件文"}:::clrPattern1
199["【Z-ADD】
285：P@KTM = 20491231"]
200(["286：END"])
201["【MOVEL】
288：P@KOCD = 'Z404'"]
202["【MOVEL】
289：P@COCD = *BLANK"]
203["【MOVEL】
290：P@COCD = E40400"]
205[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
292：XCODCTL' "]]:::clrPattern3
206{"294:条件文"}:::clrPattern1
208["【MOVEL】
295：P@HONT = P@CONM"]
209[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
296：XKNJCUT3'"]]:::clrPattern3
210["【MOVEL】
297：LVNM1 = P@HONT"]
211(["298：END"])
212(["【ｻﾌﾞﾙｰﾁﾝ終了】
300：ENDSR"])

%%ルート設定
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--中略-->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--中略-->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;
subgraph sg1["if E40700 = 0"]
168
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if P@STS = *BLANK"]
177
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if E40700 = 0"]
197
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if P@STS = *BLANK"]
206
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
213(["【ｻﾌﾞﾙｰﾁﾝ開始】
304：#SET2"])
214["【MOVEL】
306：MSCD = *BLANK"]
215["【MOVEL】
308：MSNM = *BLANK"]
216["【MOVEL】
310：MSCD = KEYB1"]
217["【MOVEL】
311：E07100 = KEYB1"]
218["【Z-ADD】
314：E09300 = PEYMD"]
219["CRUD＜READ＞
【SETGT】
315：SETGT||"]:::clrPatternR
220[/"CRUD＜READ＞
【REDPE】
316：CSYINA1P|90|"/]:::clrPatternR
221{"317_1:条件文"}:::clrPattern1
223["【MOVEL】
317_2：MSNM = E00500"]
224(["317_3：ENDIF"])
225["【MOVEL】
319：MSHM = E45200"]
226["【Z-ADD】
320：P@KTM = E46000"]
227{"321:条件文"}:::clrPattern1
229["【Z-ADD】
322：P@KTM = 20491231"]
230(["323：END"])
231["【MOVEL】
325：P@KOCD = 'Z452'"]
232["【MOVEL】
326：P@COCD = *BLANK"]
233["【MOVEL】
327：P@COCD = E45200"]
235[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
329：XCODCTL' "]]:::clrPattern3
236{"331:条件文"}:::clrPattern1
238["【MOVEL】
332：P@HONT = P@CONM"]
239[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
333：XKNJCUT3'"]]:::clrPattern3
240["【MOVEL】
334：MSHMN = P@HONT"]
241(["335：END"])
242["【Z-ADD】
338：MYMD = 0"]
243["【Z-ADD】
339：MYMD = E46000"]
244["【MOVE】
347：MLBL2 = E45400"]
245["【MOVEL】
349：WBK1 = *BLANK"]
246["【MOVEL】
350：WBK2 = *BLANK"]
247{"351_1:条件文"}:::clrPattern1
249["【MOVEL】
351_2：WBK1 = E45800"]
250(["351_3：ENDIF"])
251{"352_1:条件文"}:::clrPattern1
253["【MOVEL】
352_2：WBK2 = E45900"]
254(["352_3：ENDIF"])
255["【MOVEL】
354：BLCD1 = KEYB1"]
256["【Z-ADD】
356：BLCD2 = KEYB2"]
257["【MOVE】
359：LVNM2 = *BLANK"]
258["【Z-ADD】
360：P@KTM = E40700"]
259{"361:条件文"}:::clrPattern1
261["【Z-ADD】
362：P@KTM = 20491231"]
262(["363：END"])
263["【MOVEL】
365：P@KOCD = 'Z454'"]
264["【MOVEL】
366：P@COCD = *BLANK"]
265["【MOVEL】
367：P@COCD = E45400"]
267[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
369：XCODCTL' "]]:::clrPattern3
268{"371:条件文"}:::clrPattern1
270["【MOVEL】
372：P@HONT = P@CONM"]
271[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
373：XKNJCUT3'"]]:::clrPattern3
272["【MOVEL】
374：LVNM2 = P@HONT"]
273(["375：END"])
274(["【ｻﾌﾞﾙｰﾁﾝ終了】
377：ENDSR"])

%%ルート設定
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--中略-->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--中略-->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;
subgraph sg1["if E46000 = 0"]
227
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if P@STS = *BLANK"]
236
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if E40700 = 0"]
259
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if P@STS = *BLANK"]
268
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
275(["【ｻﾌﾞﾙｰﾁﾝ開始】
381：#PRINT"])
276["【変数定義】
383：*LIKE DEFN E07100 BLCD1"]
277["【変数定義】
384：*LIKE DEFN E40700 BLCD2"]
278["【変数定義】
385：*LIKE DEFN E07100 WBLCD1"]
280{"388:条件文"}:::clrPattern1
288["392：ELSE"]
289["【制御出力】
393：GOTO|XEPRNT|"]
290(["394：END"])
291{"396:条件文"}:::clrPattern1
293["【ADD】
397：HCNT = HCNT + 1"]
294[/"CRUD＜CREATE＞
CRUD＜UPDATE＞
【EXCPT】
398：HEAD||"/]:::clrPatternCU
295[/"CRUD＜CREATE＞
CRUD＜UPDATE＞
【EXCPT】
399：PSPACE||"/]:::clrPatternCU
296["【Z-ADD】
400：LCNT = 1"]
297["【ADD】
401：#PCNT = #PCNT + 1"]
298["402：ELSE"]
299{"403:条件文"}:::clrPattern1
301["【MOVEL】
404：MSNM = *BLANK"]
302["【MOVEL】
405：MSCD = *BLANK"]
303(["407：END"])
304{"408:条件文"}:::clrPattern1
308["【Z-ADD】
411：MYMD = 0"]
309(["412：END"])
310(["413：END"])
311{"415:条件文"}:::clrPattern1
315["417：ELSE"]
316{"419:条件文"}:::clrPattern1
320[/"CRUD＜CREATE＞
CRUD＜UPDATE＞
【EXCPT】
421：LINE||"/]:::clrPatternCU
321["【ADD】
422：LCNT = LCNT + 1"]
322(["423：END"])
323["【Z-ADD】
425：MSEQ = 0"]
324["【MOVEL】
426：WBLCD1 = BLCD1"]
325["【Z-ADD】
428：WBLCD2 = BLCD2"]
326(["429：END"])
327["【ADD】
431：MSEQ = MSEQ + 1"]
328["【Z-ADD】
432：MSEQ1 = MSEQ"]
329["【Z-ADD】
433：MSEQ2 = MSEQ"]
330{"434_1:条件文"}:::clrPattern1
332["【Z-ADD】
434_2：MSEQ1 = 0"]
333(["434_3：ENDIF"])
334{"435_1:条件文"}:::clrPattern1
336["【Z-ADD】
435_2：MSEQ2 = 0"]
337(["435_3：ENDIF"])
338{"437:条件文"}:::clrPattern1
340["【MOVEL】
438：MBK = WBK1"]
341(["439：END"])
342{"440:条件文"}:::clrPattern1
344["【MOVEL】
441：MBK = WBK2"]
345(["442：END"])
346["【SETOF】
444：SETOF|50|"]
347{"446:条件文"}:::clrPattern1
349["【SETON】
447：SETON|50|"]
350(["448：ENDIF"])
351[/"CRUD＜CREATE＞
CRUD＜UPDATE＞
【EXCPT】
450：MESAI||"/]:::clrPatternCU
352["【MOVE】
452：LVNM1 = *BLANK"]
353["【MOVE】
453：LVNM2 = *BLANK"]
354["【ADD】
455：LCNT = LCNT + 1"]
355["【制御入力】
457：TAG|XEPRNT|"]
356(["【ｻﾌﾞﾙｰﾁﾝ終了】
458：ENDSR"])

%%ルート設定
275-->276
276-->277
277-->278
278--中略-->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;
subgraph sg1["if BLCD1 >= PSCD& if BLCD1 <= PECD& if BLCD2 >= PSYMD& if BLCD2 <= PEYMD"]
280
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if LCNT >= 56"]
291
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["if BLCD1 = WBLCD1"]
299
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["if BLCD1 = WBLCD1& if BLCD2 = WBLCD2"]
304
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["if BLCD1 = WBLCD1& if BLCD2 = WBLCD2"]
311
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if BLCD1 != WBLCD1& if LCNT != 1"]
316
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["99真"]
330
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["98真"]
334
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["if MSEQ = 1"]
338
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["if MSEQ = 2"]
342
end
style sg11 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg11["if MYMD = *ZERO"]
347
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:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
357(["【ｻﾌﾞﾙｰﾁﾝ開始】
462：#CLEAR"])
358["【変数定義】
464：*LIKE DEFN E07100 MSCD"]
359["【変数定義】
465：*LIKE DEFN E40200 MKMK"]
360["【変数定義】
466：*LIKE DEFN E40400 MLBL1"]
366["【MOVEL】
472：MSCD = *BLANK"]
367["【MOVEL】
474：MSNM = *BLANK"]
368["【Z-ADD】
476：MYMD = 0"]
369["【MOVEL】
477：MKMK = *BLANK"]
370["【MOVEL】
478：MKMKN = *BLANK"]
378(["【ｻﾌﾞﾙｰﾁﾝ終了】
487：ENDSR"])

%%ルート設定
357-->358
358-->359
359-->360
360--中略-->366
366-->367
367-->368
368-->369
369-->370
370--中略-->378