|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<svg xmlns="http://www.w3.org/2000/svg" width="2060" height="8874" viewBox="0 0 2060 8874">
|
|
<title>DAIMNT3J Job Flow</title>
|
|
<defs>
|
|
<pattern id="grid" width="20" height="20" patternUnits="userSpaceOnUse"><path d="M20,0 H0 V20" fill="none" stroke="#e9edf2" stroke-width="1"/></pattern>
|
|
<marker id="arr" viewBox="0 0 10 10" refX="10" refY="5" markerWidth="8" markerHeight="8" markerUnits="userSpaceOnUse" orient="auto"><path d="M0,0 L10,5 L0,10 z" fill="#222"/></marker>
|
|
</defs>
|
|
<style>
|
|
.jp{font-family:Meiryo,'Yu Gothic','MS PGothic',sans-serif}
|
|
.mono{font-family:Consolas,'MS Gothic',monospace}
|
|
.formtitle{font-size:22px;fill:#111}
|
|
.formval{font-size:13px;fill:#111}
|
|
.formlbl{font-size:11px;fill:#111}
|
|
.th{font-size:12.5px;font-weight:bold;fill:#111}
|
|
.td{font-size:12.5px;fill:#111}
|
|
.legtitle{font-size:15px;font-weight:bold;fill:#111}
|
|
.dsn{font-size:11px;fill:#111}
|
|
.worklbl{font-size:10px;font-weight:bold;fill:#4b5563}
|
|
.fdesc{font-size:11px;fill:#1e3a8a}
|
|
.connno{font-size:11px;font-weight:bold;fill:#111}
|
|
.xref{font-size:10.5px;font-weight:bold;fill:#b91c1c}
|
|
.ddn{font-size:10.5px;fill:#111;paint-order:stroke;stroke:#fff;stroke-width:4px;stroke-linejoin:round}
|
|
.boxno{font-size:16px;fill:#111}
|
|
.boxname{font-size:14px;font-weight:bold;fill:#111}
|
|
.boxdesc{font-size:11.5px;fill:#111}
|
|
.band{font-size:13.5px;font-weight:bold;fill:#312e81}
|
|
.notec{font-size:12px;fill:#555}
|
|
.panhead{font-size:13px;font-weight:bold;fill:#111}
|
|
.pantext{font-size:12.5px;fill:#111}
|
|
.pannote{font-size:11.5px;fill:#1d4ed8}
|
|
.jcl{font-size:10.5px;fill:#374151}
|
|
.stamp{font-size:14px;font-weight:bold;fill:#dc2626}
|
|
.panpol{font-size:12.5px;font-weight:bold;fill:#dc2626}
|
|
.panrem{font-size:12.5px;fill:#92400e}
|
|
.dl{stroke:#222;stroke-width:1.2;fill:none}
|
|
.carry{stroke:#b91c1c;stroke-width:1.6}
|
|
</style>
|
|
<rect x='0' y='0' width='2060' height='8874' fill='#ffffff'/>
|
|
<rect x='20' y='442' width='1400' height='8412' fill='url(#grid)'/>
|
|
<rect x='20' y='20' width='2020' height='68' fill='#ffffff' stroke='#111' stroke-width='1.4'/>
|
|
<text x='120' y='61' class='jp formtitle' text-anchor='middle'>JOBFLOW</text>
|
|
<path d='M220,20 V88 M220,54 H550 M280,54 V88 M466,20 V54' stroke='#111' stroke-width='1'/>
|
|
<text x='228' y='42' class='jp formval' text-anchor='start'></text>
|
|
<text x='508' y='42' class='jp formlbl' text-anchor='middle'>システム</text>
|
|
<text x='250' y='76' class='jp formlbl' text-anchor='middle'>略称</text>
|
|
<text x='415' y='76' class='mono formval' text-anchor='middle'></text>
|
|
<path d='M550,20 V88 M550,54 H910 M610,54 V88 M826,20 V54' stroke='#111' stroke-width='1'/>
|
|
<text x='558' y='42' class='jp formval' text-anchor='start'></text>
|
|
<text x='868' y='42' class='jp formlbl' text-anchor='middle'>サブシステム</text>
|
|
<text x='580' y='76' class='jp formlbl' text-anchor='middle'>略称</text>
|
|
<text x='760' y='76' class='mono formval' text-anchor='middle'></text>
|
|
<path d='M910,20 V88 M910,54 H1330 M970,54 V88 M1246,20 V54' stroke='#111' stroke-width='1'/>
|
|
<text x='918' y='42' class='jp formval' text-anchor='start'></text>
|
|
<text x='1288' y='42' class='jp formlbl' text-anchor='middle'>プロセス</text>
|
|
<text x='940' y='76' class='jp formlbl' text-anchor='middle'>略称</text>
|
|
<text x='1150' y='76' class='mono formval' text-anchor='middle'></text>
|
|
<path d='M1330,20 V88 M1330,54 H1690 M1390,54 V88 M1606,20 V54' stroke='#111' stroke-width='1'/>
|
|
<text x='1338' y='42' class='jp formval' text-anchor='start'>管理台帳再作成・エコデリバーDB2ロード</text>
|
|
<text x='1648' y='42' class='jp formlbl' text-anchor='middle'>ジョブ</text>
|
|
<text x='1360' y='76' class='jp formlbl' text-anchor='middle'>略称</text>
|
|
<text x='1540' y='76' class='mono formval' text-anchor='middle'>DAIMNT3J</text>
|
|
<path d='M1690,20 V88 M1690,54 H2040 M1780,20 V88' stroke='#111' stroke-width='1'/>
|
|
<text x='1735' y='42' class='jp formlbl' text-anchor='middle'>作成者</text>
|
|
<text x='1910' y='42' class='jp formval' text-anchor='middle'></text>
|
|
<text x='1735' y='76' class='jp formlbl' text-anchor='middle'>作成日</text>
|
|
<text x='1910' y='76' class='mono formval' text-anchor='middle'>2026/10/26</text>
|
|
<rect x='20' y='108' width='130' height='26' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='108' width='780' height='26' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='126' class='jp th' text-anchor='start'>ジョブ名</text>
|
|
<text x='162' y='126' class='jp td' text-anchor='start'>DAIMNT3J(25ステップ)</text>
|
|
<rect x='20' y='134' width='130' height='62' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='134' width='780' height='62' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='152' class='jp th' text-anchor='start'>処理概要</text>
|
|
<text x='162' y='152' class='jp td' text-anchor='start'>1. 管理台帳マスターの再作成(STEP1~18):顧客マスター群 → 店所・住所情報付加 → VK47.KANBASED.DTMASTER を削除・再定義して全件ロード</text>
|
|
<text x='162' y='170' class='jp td' text-anchor='start'>2. POSメート請求額エラーリストの出力(STEP19)</text>
|
|
<text x='162' y='188' class='jp td' text-anchor='start'>3. エコデリバーアップロードデータの作成と DB2 ロード(STEP20~25):RECDLDB.RECDLTS へ LOAD → 表スペース起動 → RUNSTATS</text>
|
|
<rect x='20' y='196' width='130' height='26' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='196' width='780' height='26' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='214' class='jp th' text-anchor='start'>JOBパラメータ</text>
|
|
<text x='162' y='214' class='jp td' text-anchor='start'>CLASS=B, MSGCLASS=Q, MSGLEVEL=(1,1), REGION=6144K, COND=(9,LT)</text>
|
|
<rect x='20' y='222' width='130' height='26' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='222' width='780' height='26' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='240' class='jp th' text-anchor='start'>JOBLIB</text>
|
|
<text x='162' y='240' class='jp td' text-anchor='start'>ENT.BATCHA.LOD</text>
|
|
<rect x='20' y='248' width='130' height='26' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='248' width='780' height='26' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='266' class='jp th' text-anchor='start'>主な更新対象</text>
|
|
<text x='162' y='266' class='jp td' text-anchor='start'>VSAM:VK47.KANBASED.DTMASTER(管理台帳)/DB2:RECDLDB.RECDLTS</text>
|
|
<rect x='20' y='274' width='130' height='26' fill='#e5e7eb' stroke='#6b7280'/>
|
|
<rect x='150' y='274' width='780' height='26' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='30' y='292' class='jp th' text-anchor='start'>参考資料</text>
|
|
<text x='162' y='292' class='jp td' text-anchor='start'>DAIMNT3J_JOB仕様書.md、各PGM仕様書(KS41000P/KS41010P/KS41020P/KS41030P/KS60350P/ND53500P_仕様書.md)</text>
|
|
<rect x='960' y='108' width='1080' height='304' fill='#ffffff' stroke='#6b7280'/>
|
|
<text x='1500' y='132' class='jp legtitle' text-anchor='middle'>凡例</text>
|
|
<rect x='990' y='154' width='90' height='30' fill='#fff' stroke='#111' stroke-width='1.4'/><path d='M1008,154 V184 M1008,169 H1080' stroke='#111'/>
|
|
<text x='1095' y='174' class='jp td' text-anchor='start'>:処理(ステップ番号/プログラム名/処理内容)</text>
|
|
<path d='M990,202 L990,222 A45,6 0 0 0 1080,222 L1080,202 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='1035' cy='202' rx='45' ry='6' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='1095' y='218' class='jp td' text-anchor='start'>:ディスクファイル(マスター・保存ファイル)</text>
|
|
<path d='M990,246 L990,266 A45,6 0 0 0 1080,266 L1080,246 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='1035' cy='246' rx='45' ry='6' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='1035' y='264' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='1095' y='262' class='jp td' text-anchor='start'>:ディスクファイル(ワーク)</text>
|
|
<path d='M990,290 L990,310 A45,6 0 0 0 1080,310 L1080,290 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='1035' cy='290' rx='45' ry='6' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='1095' y='306' class='jp td' text-anchor='start'>:ディスクファイル(ライブラリ・制御文・パラメータ)</text>
|
|
<path d='M990,328 H1080 V353 Q1057.5,341 1035,353 Q1012.5,365 990,353 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1095' y='350' class='jp td' text-anchor='start'>:帳票(SYSOUT=空欄は SYSOUT=*)</text>
|
|
<path d='M990,378 L990,398 A45,6 0 0 0 1080,398 L1080,378 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='1035' cy='378' rx='45' ry='6' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='1095' y='394' class='jp td' text-anchor='start'>:DB2 表/表スペース(設計書より)</text>
|
|
<polygon points='1553,156 1577,156 1577,173 1565,182 1553,173' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='1565' y='171' class='mono connno' text-anchor='middle'>7</text>
|
|
<text x='1625' y='174' class='jp td' text-anchor='start'>:結合子(ファイル番号。同じ番号は同じデータ)</text>
|
|
<path d='M1520,214 H1608' class='dl' marker-end='url(#arr)'/>
|
|
<text x='1625' y='218' class='jp td' text-anchor='start'>:データの流れ</text>
|
|
<text x='1565' y='256' class='mono xref' text-anchor='middle'>←STEP3 / →STEP5,8</text>
|
|
<text x='1625' y='262' class='jp td' text-anchor='start'>:データの作成元ステップ/利用先ステップ</text>
|
|
<path d='M1565,282 V302 L1600,316' class='dl carry' marker-end='url(#arr)'/>
|
|
<text x='1625' y='306' class='jp td' text-anchor='start'>:前ステップの出力をそのまま入力</text>
|
|
<rect x='20' y='442' width='2020' height='28' fill='#e0e7ff' stroke='#4338ca' stroke-width='1'/>
|
|
<text x='34' y='461' class='jp band' text-anchor='start'>① 管理台帳マスターの再作成(STEP1~18)</text>
|
|
<path d='M229,520 L229,568 A81,8 0 0 0 391,568 L391,520 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='310' cy='520' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='310' y='548' class='mono dsn' text-anchor='middle'>ENT.BATCHA.LOD</text>
|
|
<text x='310' y='565' class='jp fdesc' text-anchor='middle'>ロードライブラリ</text>
|
|
<polygon points='381,496 405,496 405,513 393,522 381,513' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='393' y='511' class='mono connno' text-anchor='middle'>1</text>
|
|
<path d='M429,520 L429,568 A81,8 0 0 0 591,568 L591,520 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='520' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='510' y='548' class='mono dsn' text-anchor='middle'>VKAD.VCUBASED.DTMASTER</text>
|
|
<text x='510' y='565' class='jp fdesc' text-anchor='middle'>顧客基本情報</text>
|
|
<polygon points='581,496 605,496 605,513 593,522 581,513' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='511' class='mono connno' text-anchor='middle'>2</text>
|
|
<path d='M629,520 L629,568 A81,8 0 0 0 791,568 L791,520 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='520' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='710' y='548' class='mono dsn' text-anchor='middle'>VKAD.VCUUCCMA.DTMASTER</text>
|
|
<text x='710' y='565' class='jp fdesc' text-anchor='middle'>運賃契約基本情報</text>
|
|
<polygon points='781,496 805,496 805,513 793,522 781,513' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='511' class='mono connno' text-anchor='middle'>3</text>
|
|
<path d='M829,520 L829,568 A81,8 0 0 0 991,568 L991,520 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='520' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='910' y='548' class='mono dsn' text-anchor='middle'>VKAD.VCUITKYA.DTMASTER</text>
|
|
<text x='910' y='565' class='jp fdesc' text-anchor='middle'>委託料情報(1)</text>
|
|
<polygon points='981,496 1005,496 1005,513 993,522 981,513' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='511' class='mono connno' text-anchor='middle'>4</text>
|
|
<path d='M310,576 L671,640' class='dl' marker-end='url(#arr)'/>
|
|
<text x='316' y='590' class='mono ddn' text-anchor='start'>STEPLIB</text>
|
|
<path d='M510,576 L697,640' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='590' class='mono ddn' text-anchor='start'>VKCUSTM</text>
|
|
<path d='M710,576 L723,640' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='590' class='mono ddn' text-anchor='start'>VKCUNK1</text>
|
|
<path d='M910,576 L749,640' class='dl' marker-end='url(#arr)'/>
|
|
<text x='904' y='590' class='mono ddn' text-anchor='end'>VKCUIT1</text>
|
|
<rect x='580' y='640' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,640 V700 M620,670 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='676' class='jp boxno' text-anchor='middle'>1</text>
|
|
<text x='730' y='661' class='mono boxname' text-anchor='middle'>KS41000P</text>
|
|
<text x='730' y='691' class='jp boxdesc' text-anchor='middle'>管理台帳</text>
|
|
<path d='M684,700 L510,764' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='758' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,764 H591 V807 Q550.5,795 510,807 Q469.5,819 429,807 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M710,700 L710,764' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='758' class='mono ddn' text-anchor='start'>SYSUDUMP</text>
|
|
<path d='M629,764 H791 V807 Q750.5,795 710,807 Q669.5,819 629,807 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M736,700 L910,764' class='dl' marker-end='url(#arr)'/>
|
|
<text x='916' y='758' class='mono ddn' text-anchor='start'>SQKANMS</text>
|
|
<path d='M829,772 L829,820 A81,8 0 0 0 991,820 L991,772 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='772' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='910' y='777' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='910' y='800' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0010</text>
|
|
<text x='910' y='817' class='jp fdesc' text-anchor='middle'>管理台帳ワーク</text>
|
|
<polygon points='981,816 1005,816 1005,833 993,842 981,833' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='831' class='mono connno' text-anchor='middle'>5</text>
|
|
<text x='902' y='844' class='mono xref' text-anchor='end'>→STEP2</text>
|
|
<text x='1436' y='504' class='jp panhead' text-anchor='start'><STEP-1></text>
|
|
<text x='1436' y='522' class='jp pantext' text-anchor='start'>[KS41000P] 管理台帳</text>
|
|
<text x='1448' y='539' class='jp pannote' text-anchor='start'>顧客マスター3種から管理台帳ワークを作成</text>
|
|
<text x='1436' y='563' class='mono jcl' xml:space='preserve'>//KS41000P EXEC PGM=KS41000P</text>
|
|
<text x='1436' y='576.5' class='mono jcl' xml:space='preserve'>//STEPLIB DD DSN=ENT.BATCHA.LOD,DISP=SHR</text>
|
|
<text x='1436' y='590' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='603.5' class='mono jcl' xml:space='preserve'>//SYSUDUMP DD SYSOUT=*</text>
|
|
<text x='1436' y='617' class='mono jcl' xml:space='preserve'>//VKCUSTM DD DSN=VKAD.VCUBASED.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='630.5' class='mono jcl' xml:space='preserve'>//VKCUNK1 DD DSN=VKAD.VCUUCCMA.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='644' class='mono jcl' xml:space='preserve'>//VKCUIT1 DD DSN=VKAD.VCUITKYA.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='657.5' class='mono jcl' xml:space='preserve'>//SQKANMS DD DSN=TEMP.DAIBAT00.WORK0010,</text>
|
|
<text x='1436' y='671' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='684.5' class='mono jcl' xml:space='preserve'>// DCB=(RECFM=VB,LRECL=1504,BLKSIZE=6300),</text>
|
|
<text x='1436' y='698' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE),</text>
|
|
<text x='1436' y='711.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='725' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<path d='M1420,858 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M910,828 V870 L710,934' class='dl carry' marker-end='url(#arr)'/>
|
|
<text x='904' y='884' class='mono ddn' text-anchor='end'>SORTIN</text>
|
|
<rect x='580' y='934' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,934 V994 M620,964 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='970' class='jp boxno' text-anchor='middle'>2</text>
|
|
<text x='730' y='955' class='mono boxname' text-anchor='middle'>SORT (USORTL)</text>
|
|
<text x='730' y='985' class='jp boxdesc' text-anchor='middle'>分類</text>
|
|
<path d='M697,994 L510,1058' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='1052' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,1058 H591 V1101 Q550.5,1089 510,1101 Q469.5,1113 429,1101 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,994 L710,1058' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='1052' class='mono ddn' text-anchor='start'>SORTOUT</text>
|
|
<path d='M629,1066 L629,1114 A81,8 0 0 0 791,1114 L791,1066 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='1066' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='1071' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='1094' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0020</text>
|
|
<text x='710' y='1111' class='jp fdesc' text-anchor='middle'>管理台帳(請求書出力店所順)</text>
|
|
<polygon points='781,1110 805,1110 805,1127 793,1136 781,1127' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='1125' class='mono connno' text-anchor='middle'>6</text>
|
|
<text x='702' y='1138' class='mono xref' text-anchor='end'>→STEP4</text>
|
|
<text x='1436' y='888' class='jp panhead' text-anchor='start'><STEP-2></text>
|
|
<text x='1436' y='906' class='jp pantext' text-anchor='start'>[SORT] 分類 (USORTL)</text>
|
|
<text x='1448' y='923' class='jp pannote' text-anchor='start'>SORT FIELDS=(251,4,CH,A)</text>
|
|
<text x='1448' y='939' class='jp pannote' text-anchor='start'>(請求書出力店所コート゛ KASFHATN 順)</text>
|
|
<text x='1436' y='963' class='mono jcl' xml:space='preserve'>//SORT EXEC USORTL</text>
|
|
<text x='1436' y='976.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='990' class='mono jcl' xml:space='preserve'>//SORTIN DD DSN=TEMP.DAIBAT00.WORK0010,</text>
|
|
<text x='1436' y='1003.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='1017' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='1030.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='1044' class='mono jcl' xml:space='preserve'>//SORTOUT DD DSN=TEMP.DAIBAT00.WORK0020,</text>
|
|
<text x='1436' y='1057.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='1071' class='mono jcl' xml:space='preserve'>// DCB=*.SORTIN,</text>
|
|
<text x='1436' y='1084.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE),</text>
|
|
<text x='1436' y='1098' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='1111.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='1125' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='1138.5' class='mono jcl' xml:space='preserve'> SORT FIELDS=(251,4,CH,A)</text>
|
|
<text x='1436' y='1152' class='mono jcl' xml:space='preserve'> END</text>
|
|
<text x='1436' y='1165.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,1185 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='1211' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,1211 V1271 M620,1241 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='1247' class='jp boxno' text-anchor='middle'>3</text>
|
|
<text x='730' y='1232' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='1262' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,1271 L710,1335' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='1329' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,1335 H791 V1378 Q750.5,1366 710,1378 Q669.5,1390 629,1378 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='1215' class='jp panhead' text-anchor='start'><STEP-3></text>
|
|
<text x='1436' y='1233' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='1250' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='1266' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0010</text>
|
|
<text x='1436' y='1290' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='1303.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='1317' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='1330.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='1344' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0010,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,1429 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M429,1475 L429,1523 A81,8 0 0 0 591,1523 L591,1475 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='1475' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='510' y='1503' class='mono dsn' text-anchor='middle'>DSN.SDSNLOAD</text>
|
|
<text x='510' y='1520' class='jp fdesc' text-anchor='middle'>DB2 ロードライブラリ</text>
|
|
<polygon points='581,1451 605,1451 605,1468 593,1477 581,1468' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='1466' class='mono connno' text-anchor='middle'>7</text>
|
|
<text x='710' y='1457' class='mono xref' text-anchor='middle'>←STEP2</text>
|
|
<path d='M629,1475 L629,1523 A81,8 0 0 0 791,1523 L791,1475 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='1475' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='1480' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='1503' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0020</text>
|
|
<text x='710' y='1520' class='jp fdesc' text-anchor='middle'>管理台帳(請求書出力店所順)</text>
|
|
<polygon points='781,1451 805,1451 805,1468 793,1477 781,1468' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='1466' class='mono connno' text-anchor='middle'>6</text>
|
|
<path d='M829,1475 L829,1523 A81,8 0 0 0 991,1523 L991,1475 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='1475' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='910' y='1503' class='mono dsn' text-anchor='middle'>RDTENS</text>
|
|
<text x='910' y='1520' class='jp fdesc' text-anchor='middle'>店所基本情報(DB2)</text>
|
|
<polygon points='981,1451 1005,1451 1005,1468 993,1477 981,1468' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='1466' class='mono connno' text-anchor='middle'>9</text>
|
|
<path d='M510,1531 L684,1595' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='1545' class='mono ddn' text-anchor='start'>STEPLIB</text>
|
|
<path d='M710,1531 L710,1595' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='1545' class='mono ddn' text-anchor='start'>SQKANMS</text>
|
|
<path d='M910,1531 L736,1595' class='dl' marker-end='url(#arr)'/>
|
|
<text x='904' y='1545' class='mono ddn' text-anchor='end'>(SQL)</text>
|
|
<rect x='580' y='1595' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,1595 V1655 M620,1625 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='1631' class='jp boxno' text-anchor='middle'>4</text>
|
|
<text x='730' y='1616' class='mono boxname' text-anchor='middle'>KS41010P</text>
|
|
<text x='730' y='1646' class='jp boxdesc' text-anchor='middle'>店所情報付加(DB2)</text>
|
|
<path d='M697,1655 L510,1719' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='1713' class='mono ddn' text-anchor='end'>SYSTSPRT</text>
|
|
<path d='M429,1719 H591 V1762 Q550.5,1750 510,1762 Q469.5,1774 429,1762 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,1655 L710,1719' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='1713' class='mono ddn' text-anchor='start'>SQSTENM</text>
|
|
<path d='M629,1727 L629,1775 A81,8 0 0 0 791,1775 L791,1727 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='1727' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='1732' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='1755' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0030</text>
|
|
<text x='710' y='1772' class='jp fdesc' text-anchor='middle'>店所情報付加後</text>
|
|
<polygon points='781,1771 805,1771 805,1788 793,1797 781,1788' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='1786' class='mono connno' text-anchor='middle'>8</text>
|
|
<text x='702' y='1799' class='mono xref' text-anchor='end'>→STEP6</text>
|
|
<text x='1436' y='1459' class='jp panhead' text-anchor='start'><STEP-4></text>
|
|
<text x='1436' y='1477' class='jp pantext' text-anchor='start'>[KS41010P] 店所情報付加(DB2)</text>
|
|
<text x='1448' y='1494' class='jp pannote' text-anchor='start'>IKJEFT01 → RUN PROGRAM(KS41010P) PLAN(KS41010P)</text>
|
|
<text x='1448' y='1510' class='jp pannote' text-anchor='start'>DB2 SYSTEM(DSNH)/RDTENS を1行検索</text>
|
|
<text x='1436' y='1534' class='mono jcl' xml:space='preserve'>//KS41010P EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(9,LT)</text>
|
|
<text x='1436' y='1547.5' class='mono jcl' xml:space='preserve'>//STEPLIB DD DSN=DSN.SDSNLOAD,DISP=SHR</text>
|
|
<text x='1436' y='1561' class='mono jcl' xml:space='preserve'>//SYSTSPRT DD SYSOUT=*</text>
|
|
<text x='1436' y='1574.5' class='mono jcl' xml:space='preserve'>//SQKANMS DD DSN=TEMP.DAIBAT00.WORK0020,</text>
|
|
<text x='1436' y='1588' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='1601.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='1615' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='1628.5' class='mono jcl' xml:space='preserve'>//SQSTENM DD DSN=TEMP.DAIBAT00.WORK0030,</text>
|
|
<text x='1436' y='1642' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='1655.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='1669' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30,</text>
|
|
<text x='1436' y='1682.5' class='mono jcl' xml:space='preserve'>// DCB=(RECFM=VB,LRECL=1504,BLKSIZE=6300),</text>
|
|
<text x='1436' y='1696' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE)</text>
|
|
<text x='1436' y='1709.5' class='mono jcl' xml:space='preserve'>//SYSTSIN DD *</text>
|
|
<text x='1436' y='1723' class='mono jcl' xml:space='preserve'> DSN SYSTEM(DSNH)</text>
|
|
<text x='1436' y='1736.5' class='mono jcl' xml:space='preserve'> RUN PROGRAM(KS41010P) PLAN(KS41010P) LIB('ENT.BATCHA.LOD')</text>
|
|
<text x='1436' y='1750' class='mono jcl' xml:space='preserve'>END</text>
|
|
<text x='1436' y='1763.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,1813 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='1839' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,1839 V1899 M620,1869 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='1875' class='jp boxno' text-anchor='middle'>5</text>
|
|
<text x='730' y='1860' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='1890' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,1899 L710,1963' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='1957' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,1963 H791 V2006 Q750.5,1994 710,2006 Q669.5,2018 629,2006 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='1843' class='jp panhead' text-anchor='start'><STEP-5></text>
|
|
<text x='1436' y='1861' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='1878' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='1894' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0020</text>
|
|
<text x='1436' y='1918' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='1931.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='1945' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='1958.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='1972' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0020,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,2057 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='710' y='2085' class='mono xref' text-anchor='middle'>←STEP4</text>
|
|
<path d='M629,2103 L629,2151 A81,8 0 0 0 791,2151 L791,2103 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='2103' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='2108' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='2131' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0030</text>
|
|
<text x='710' y='2148' class='jp fdesc' text-anchor='middle'>店所情報付加後</text>
|
|
<polygon points='781,2079 805,2079 805,2096 793,2105 781,2096' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='2094' class='mono connno' text-anchor='middle'>8</text>
|
|
<path d='M710,2159 L710,2223' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='2173' class='mono ddn' text-anchor='start'>SORTIN</text>
|
|
<rect x='580' y='2223' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,2223 V2283 M620,2253 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='2259' class='jp boxno' text-anchor='middle'>6</text>
|
|
<text x='730' y='2244' class='mono boxname' text-anchor='middle'>SORT (USORT)</text>
|
|
<text x='730' y='2274' class='jp boxdesc' text-anchor='middle'>分類</text>
|
|
<path d='M697,2283 L510,2347' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='2341' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,2347 H591 V2390 Q550.5,2378 510,2390 Q469.5,2402 429,2390 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,2283 L710,2347' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='2341' class='mono ddn' text-anchor='start'>SORTOUT</text>
|
|
<path d='M629,2355 L629,2403 A81,8 0 0 0 791,2403 L791,2355 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='2355' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='2360' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='2383' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0040</text>
|
|
<text x='710' y='2400' class='jp fdesc' text-anchor='middle'>管理台帳(顧客所在地順)</text>
|
|
<polygon points='781,2399 805,2399 805,2416 793,2425 781,2416' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='2414' class='mono connno' text-anchor='middle'>10</text>
|
|
<text x='702' y='2427' class='mono xref' text-anchor='end'>→STEP8</text>
|
|
<text x='1436' y='2087' class='jp panhead' text-anchor='start'><STEP-6></text>
|
|
<text x='1436' y='2105' class='jp pantext' text-anchor='start'>[SORT] 分類 (USORT)</text>
|
|
<text x='1448' y='2122' class='jp pannote' text-anchor='start'>SORT FIELDS=(13,11,CH,A)</text>
|
|
<text x='1448' y='2138' class='jp pannote' text-anchor='start'>(顧客所在地コード(11桁)KAADKSCD 順)</text>
|
|
<text x='1436' y='2162' class='mono jcl' xml:space='preserve'>//SORT EXEC USORT</text>
|
|
<text x='1436' y='2175.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='2189' class='mono jcl' xml:space='preserve'>//SORTIN DD DSN=TEMP.DAIBAT00.WORK0030,</text>
|
|
<text x='1436' y='2202.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='2216' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='2229.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='2243' class='mono jcl' xml:space='preserve'>//SORTOUT DD DSN=TEMP.DAIBAT00.WORK0040,</text>
|
|
<text x='1436' y='2256.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='2270' class='mono jcl' xml:space='preserve'>// DCB=*.SORTIN,</text>
|
|
<text x='1436' y='2283.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE),</text>
|
|
<text x='1436' y='2297' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='2310.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='2324' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='2337.5' class='mono jcl' xml:space='preserve'> SORT FIELDS=(13,11,CH,A)</text>
|
|
<text x='1436' y='2351' class='mono jcl' xml:space='preserve'> END</text>
|
|
<text x='1436' y='2364.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,2441 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='2467' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,2467 V2527 M620,2497 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='2503' class='jp boxno' text-anchor='middle'>7</text>
|
|
<text x='730' y='2488' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='2518' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,2527 L710,2591' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='2585' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,2591 H791 V2634 Q750.5,2622 710,2634 Q669.5,2646 629,2634 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='2471' class='jp panhead' text-anchor='start'><STEP-7></text>
|
|
<text x='1436' y='2489' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='2506' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='2522' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0030</text>
|
|
<text x='1436' y='2546' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='2559.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='2573' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='2586.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='2600' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0030,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,2685 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M429,2731 L429,2779 A81,8 0 0 0 591,2779 L591,2731 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='2731' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='510' y='2759' class='mono dsn' text-anchor='middle'>DSN.SDSNLOAD</text>
|
|
<text x='510' y='2776' class='jp fdesc' text-anchor='middle'>DB2 ロードライブラリ</text>
|
|
<polygon points='581,2707 605,2707 605,2724 593,2733 581,2724' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='2722' class='mono connno' text-anchor='middle'>7</text>
|
|
<text x='710' y='2713' class='mono xref' text-anchor='middle'>←STEP6</text>
|
|
<path d='M629,2731 L629,2779 A81,8 0 0 0 791,2779 L791,2731 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='2731' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='2736' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='2759' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0040</text>
|
|
<text x='710' y='2776' class='jp fdesc' text-anchor='middle'>管理台帳(顧客所在地順)</text>
|
|
<polygon points='781,2707 805,2707 805,2724 793,2733 781,2724' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='2722' class='mono connno' text-anchor='middle'>10</text>
|
|
<path d='M829,2731 L829,2779 A81,8 0 0 0 991,2779 L991,2731 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='2731' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='910' y='2759' class='mono dsn' text-anchor='middle'>RDADRN</text>
|
|
<text x='910' y='2776' class='jp fdesc' text-anchor='middle'>住所DB2(RDADRN)</text>
|
|
<polygon points='981,2707 1005,2707 1005,2724 993,2733 981,2724' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='2722' class='mono connno' text-anchor='middle'>12</text>
|
|
<path d='M510,2787 L684,2851' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='2801' class='mono ddn' text-anchor='start'>STEPLIB</text>
|
|
<path d='M710,2787 L710,2851' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='2801' class='mono ddn' text-anchor='start'>SQSTENM</text>
|
|
<path d='M910,2787 L736,2851' class='dl' marker-end='url(#arr)'/>
|
|
<text x='904' y='2801' class='mono ddn' text-anchor='end'>(SQL)</text>
|
|
<rect x='580' y='2851' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,2851 V2911 M620,2881 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='2887' class='jp boxno' text-anchor='middle'>8</text>
|
|
<text x='730' y='2872' class='mono boxname' text-anchor='middle'>KS41020P</text>
|
|
<text x='730' y='2902' class='jp boxdesc' text-anchor='middle'>住所情報付加(DB2)</text>
|
|
<path d='M671,2911 L310,2975' class='dl' marker-end='url(#arr)'/>
|
|
<text x='304' y='2969' class='mono ddn' text-anchor='end'>SYSTSPRT</text>
|
|
<path d='M229,2975 H391 V3018 Q350.5,3006 310,3018 Q269.5,3030 229,3018 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M697,2911 L510,2975' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='2969' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,2975 H591 V3018 Q550.5,3006 510,3018 Q469.5,3030 429,3018 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,2911 L710,2975' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='2969' class='mono ddn' text-anchor='start'>SQADRNM</text>
|
|
<path d='M629,2983 L629,3031 A81,8 0 0 0 791,3031 L791,2983 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='2983' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='2988' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='3011' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0050</text>
|
|
<text x='710' y='3028' class='jp fdesc' text-anchor='middle'>住所情報付加後</text>
|
|
<polygon points='781,3027 805,3027 805,3044 793,3053 781,3044' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='3042' class='mono connno' text-anchor='middle'>11</text>
|
|
<text x='702' y='3055' class='mono xref' text-anchor='end'>→STEP10</text>
|
|
<path d='M749,2911 L910,2975' class='dl' marker-end='url(#arr)'/>
|
|
<text x='916' y='2969' class='mono ddn' text-anchor='start'>SYSUDUMP</text>
|
|
<path d='M829,2975 H991 V3018 Q950.5,3006 910,3018 Q869.5,3030 829,3018 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='2715' class='jp panhead' text-anchor='start'><STEP-8></text>
|
|
<text x='1436' y='2733' class='jp pantext' text-anchor='start'>[KS41020P] 住所情報付加(DB2)</text>
|
|
<text x='1448' y='2750' class='jp pannote' text-anchor='start'>IKJEFT01 → RUN PROGRAM(KS41020P) PLAN(KS41020P)</text>
|
|
<text x='1448' y='2766' class='jp pannote' text-anchor='start'>DB2 SYSTEM(DSNH)/RDADRN を1行検索</text>
|
|
<text x='1448' y='2782' class='jp pannote' text-anchor='start'>SYSPRINT が二重定義(2つ目は無効)</text>
|
|
<text x='1448' y='2798' class='jp pannote' text-anchor='start'>DFSVSAMP(バッファプール定義)あり</text>
|
|
<text x='1436' y='2822' class='mono jcl' xml:space='preserve'>//KS41020P EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(9,LT)</text>
|
|
<text x='1436' y='2835.5' class='mono jcl' xml:space='preserve'>//STEPLIB DD DSN=DSN.SDSNLOAD,DISP=SHR</text>
|
|
<text x='1436' y='2849' class='mono jcl' xml:space='preserve'>//SYSTSPRT DD SYSOUT=*</text>
|
|
<text x='1436' y='2862.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='2876' class='mono jcl' xml:space='preserve'>//SQSTENM DD DSN=TEMP.DAIBAT00.WORK0040,</text>
|
|
<text x='1436' y='2889.5' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='2903' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='2916.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='2930' class='mono jcl' xml:space='preserve'>//SQADRNM DD DSN=TEMP.DAIBAT00.WORK0050,</text>
|
|
<text x='1436' y='2943.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='2957' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='2970.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30,</text>
|
|
<text x='1436' y='2984' class='mono jcl' xml:space='preserve'>// DCB=(RECFM=VB,LRECL=1504,BLKSIZE=6300),</text>
|
|
<text x='1436' y='2997.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE)</text>
|
|
<text x='1436' y='3011' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='3024.5' class='mono jcl' xml:space='preserve'>//SYSUDUMP DD SYSOUT=*</text>
|
|
<text x='1436' y='3038' class='mono jcl' xml:space='preserve'>//DFSVSAMP DD *</text>
|
|
<text x='1436' y='3051.5' class='mono jcl' xml:space='preserve'>8192,10</text>
|
|
<text x='1436' y='3065' class='mono jcl' xml:space='preserve'>4096,10</text>
|
|
<text x='1436' y='3078.5' class='mono jcl' xml:space='preserve'>2048,10</text>
|
|
<text x='1436' y='3092' class='mono jcl' xml:space='preserve'>//SYSTSIN DD *</text>
|
|
<text x='1436' y='3105.5' class='mono jcl' xml:space='preserve'> DSN SYSTEM(DSNH)</text>
|
|
<text x='1436' y='3119' class='mono jcl' xml:space='preserve'> RUN PROGRAM(KS41020P) PLAN(KS41020P) LIB('ENT.BATCHA.LOD')</text>
|
|
<text x='1436' y='3132.5' class='mono jcl' xml:space='preserve'>END</text>
|
|
<path d='M1420,3152 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='3178' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,3178 V3238 M620,3208 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='3214' class='jp boxno' text-anchor='middle'>9</text>
|
|
<text x='730' y='3199' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='3229' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,3238 L710,3302' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='3296' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,3302 H791 V3345 Q750.5,3333 710,3345 Q669.5,3357 629,3345 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='3182' class='jp panhead' text-anchor='start'><STEP-9></text>
|
|
<text x='1436' y='3200' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='3217' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='3233' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0040</text>
|
|
<text x='1436' y='3257' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='3270.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='3284' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='3297.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='3311' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0040,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,3396 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='710' y='3424' class='mono xref' text-anchor='middle'>←STEP8</text>
|
|
<path d='M629,3442 L629,3490 A81,8 0 0 0 791,3490 L791,3442 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='3442' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='3447' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='3470' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0050</text>
|
|
<text x='710' y='3487' class='jp fdesc' text-anchor='middle'>住所情報付加後</text>
|
|
<polygon points='781,3418 805,3418 805,3435 793,3444 781,3435' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='3433' class='mono connno' text-anchor='middle'>11</text>
|
|
<path d='M710,3498 L710,3562' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='3512' class='mono ddn' text-anchor='start'>SORTIN</text>
|
|
<rect x='580' y='3562' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,3562 V3622 M620,3592 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='3598' class='jp boxno' text-anchor='middle'>10</text>
|
|
<text x='730' y='3583' class='mono boxname' text-anchor='middle'>SORT (USORT)</text>
|
|
<text x='730' y='3613' class='jp boxdesc' text-anchor='middle'>分類</text>
|
|
<path d='M697,3622 L510,3686' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='3680' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,3686 H591 V3729 Q550.5,3717 510,3729 Q469.5,3741 429,3729 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,3622 L710,3686' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='3680' class='mono ddn' text-anchor='start'>SORTOUT</text>
|
|
<path d='M629,3694 L629,3742 A81,8 0 0 0 791,3742 L791,3694 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='3694' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='3699' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='3722' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0060</text>
|
|
<text x='710' y='3739' class='jp fdesc' text-anchor='middle'>管理台帳(請求先所在地順)</text>
|
|
<polygon points='781,3738 805,3738 805,3755 793,3764 781,3755' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='3753' class='mono connno' text-anchor='middle'>13</text>
|
|
<text x='702' y='3766' class='mono xref' text-anchor='end'>→STEP12</text>
|
|
<text x='1436' y='3426' class='jp panhead' text-anchor='start'><STEP-10></text>
|
|
<text x='1436' y='3444' class='jp pantext' text-anchor='start'>[SORT] 分類 (USORT)</text>
|
|
<text x='1448' y='3461' class='jp pannote' text-anchor='start'>SORT FIELDS=(334,11,CH,A)</text>
|
|
<text x='1448' y='3477' class='jp pannote' text-anchor='start'>(請求先所在地コード(11桁)KASFAD11 順)</text>
|
|
<text x='1436' y='3501' class='mono jcl' xml:space='preserve'>//SORT EXEC USORT</text>
|
|
<text x='1436' y='3514.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='3528' class='mono jcl' xml:space='preserve'>//SORTIN DD DSN=TEMP.DAIBAT00.WORK0050,</text>
|
|
<text x='1436' y='3541.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='3555' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='3568.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='3582' class='mono jcl' xml:space='preserve'>//SORTOUT DD DSN=TEMP.DAIBAT00.WORK0060,</text>
|
|
<text x='1436' y='3595.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='3609' class='mono jcl' xml:space='preserve'>// DCB=*.SORTIN,</text>
|
|
<text x='1436' y='3622.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE),</text>
|
|
<text x='1436' y='3636' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='3649.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='3663' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='3676.5' class='mono jcl' xml:space='preserve'> SORT FIELDS=(334,11,CH,A)</text>
|
|
<text x='1436' y='3690' class='mono jcl' xml:space='preserve'> END</text>
|
|
<text x='1436' y='3703.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,3780 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='3806' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,3806 V3866 M620,3836 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='3842' class='jp boxno' text-anchor='middle'>11</text>
|
|
<text x='730' y='3827' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='3857' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,3866 L710,3930' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='3924' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,3930 H791 V3973 Q750.5,3961 710,3973 Q669.5,3985 629,3973 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='3810' class='jp panhead' text-anchor='start'><STEP-11></text>
|
|
<text x='1436' y='3828' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='3845' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='3861' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0050</text>
|
|
<text x='1436' y='3885' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='3898.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='3912' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='3925.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='3939' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0050,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,4024 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M429,4070 L429,4118 A81,8 0 0 0 591,4118 L591,4070 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='4070' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='510' y='4098' class='mono dsn' text-anchor='middle'>DSN.SDSNLOAD</text>
|
|
<text x='510' y='4115' class='jp fdesc' text-anchor='middle'>DB2 ロードライブラリ</text>
|
|
<polygon points='581,4046 605,4046 605,4063 593,4072 581,4063' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='4061' class='mono connno' text-anchor='middle'>7</text>
|
|
<text x='710' y='4052' class='mono xref' text-anchor='middle'>←STEP10</text>
|
|
<path d='M629,4070 L629,4118 A81,8 0 0 0 791,4118 L791,4070 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='4070' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='4075' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='4098' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0060</text>
|
|
<text x='710' y='4115' class='jp fdesc' text-anchor='middle'>管理台帳(請求先所在地順)</text>
|
|
<polygon points='781,4046 805,4046 805,4063 793,4072 781,4063' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='4061' class='mono connno' text-anchor='middle'>13</text>
|
|
<path d='M829,4070 L829,4118 A81,8 0 0 0 991,4118 L991,4070 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='4070' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='910' y='4098' class='mono dsn' text-anchor='middle'>RDADRN</text>
|
|
<text x='910' y='4115' class='jp fdesc' text-anchor='middle'>住所DB2(RDADRN)</text>
|
|
<polygon points='981,4046 1005,4046 1005,4063 993,4072 981,4063' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='4061' class='mono connno' text-anchor='middle'>12</text>
|
|
<path d='M510,4126 L684,4190' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='4140' class='mono ddn' text-anchor='start'>STEPLIB</text>
|
|
<path d='M710,4126 L710,4190' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='4140' class='mono ddn' text-anchor='start'>SQSTENM</text>
|
|
<path d='M910,4126 L736,4190' class='dl' marker-end='url(#arr)'/>
|
|
<text x='904' y='4140' class='mono ddn' text-anchor='end'>(SQL)</text>
|
|
<rect x='580' y='4190' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,4190 V4250 M620,4220 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='4226' class='jp boxno' text-anchor='middle'>12</text>
|
|
<text x='730' y='4211' class='mono boxname' text-anchor='middle'>KS41030P</text>
|
|
<text x='730' y='4241' class='jp boxdesc' text-anchor='middle'>請求先住所付加(DB2)</text>
|
|
<path d='M671,4250 L310,4314' class='dl' marker-end='url(#arr)'/>
|
|
<text x='304' y='4308' class='mono ddn' text-anchor='end'>SYSTSPRT</text>
|
|
<path d='M229,4314 H391 V4357 Q350.5,4345 310,4357 Q269.5,4369 229,4357 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M697,4250 L510,4314' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='4308' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,4314 H591 V4357 Q550.5,4345 510,4357 Q469.5,4369 429,4357 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,4250 L710,4314' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='4308' class='mono ddn' text-anchor='start'>SQADRNM</text>
|
|
<path d='M629,4322 L629,4370 A81,8 0 0 0 791,4370 L791,4322 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='4322' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='4327' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='4350' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0070</text>
|
|
<text x='710' y='4367' class='jp fdesc' text-anchor='middle'>請求先住所付加後</text>
|
|
<polygon points='781,4366 805,4366 805,4383 793,4392 781,4383' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='4381' class='mono connno' text-anchor='middle'>14</text>
|
|
<text x='702' y='4394' class='mono xref' text-anchor='end'>→STEP14</text>
|
|
<path d='M749,4250 L910,4314' class='dl' marker-end='url(#arr)'/>
|
|
<text x='916' y='4308' class='mono ddn' text-anchor='start'>SYSUDUMP</text>
|
|
<path d='M829,4314 H991 V4357 Q950.5,4345 910,4357 Q869.5,4369 829,4357 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='4054' class='jp panhead' text-anchor='start'><STEP-12></text>
|
|
<text x='1436' y='4072' class='jp pantext' text-anchor='start'>[KS41030P] 請求先住所付加(DB2)</text>
|
|
<text x='1448' y='4089' class='jp pannote' text-anchor='start'>IKJEFT01 → RUN PROGRAM(KS41030P) PLAN(KS41030P)</text>
|
|
<text x='1448' y='4105' class='jp pannote' text-anchor='start'>JCLコメントは「住所情報付加」(STEP8と同一)</text>
|
|
<text x='1448' y='4121' class='jp pannote' text-anchor='start'>SYSPRINT が二重定義(2つ目は無効)</text>
|
|
<text x='1436' y='4145' class='mono jcl' xml:space='preserve'>//KS41030P EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(9,LT)</text>
|
|
<text x='1436' y='4158.5' class='mono jcl' xml:space='preserve'>//STEPLIB DD DSN=DSN.SDSNLOAD,DISP=SHR</text>
|
|
<text x='1436' y='4172' class='mono jcl' xml:space='preserve'>//SYSTSPRT DD SYSOUT=*</text>
|
|
<text x='1436' y='4185.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='4199' class='mono jcl' xml:space='preserve'>//SQSTENM DD DSN=TEMP.DAIBAT00.WORK0060,</text>
|
|
<text x='1436' y='4212.5' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='4226' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='4239.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='4253' class='mono jcl' xml:space='preserve'>//SQADRNM DD DSN=TEMP.DAIBAT00.WORK0070,</text>
|
|
<text x='1436' y='4266.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='4280' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='4293.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30,</text>
|
|
<text x='1436' y='4307' class='mono jcl' xml:space='preserve'>// DCB=(RECFM=VB,LRECL=1504,BLKSIZE=6300),</text>
|
|
<text x='1436' y='4320.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE)</text>
|
|
<text x='1436' y='4334' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='4347.5' class='mono jcl' xml:space='preserve'>//SYSUDUMP DD SYSOUT=*</text>
|
|
<text x='1436' y='4361' class='mono jcl' xml:space='preserve'>//DFSVSAMP DD *</text>
|
|
<text x='1436' y='4374.5' class='mono jcl' xml:space='preserve'>8192,10</text>
|
|
<text x='1436' y='4388' class='mono jcl' xml:space='preserve'>4096,10</text>
|
|
<text x='1436' y='4401.5' class='mono jcl' xml:space='preserve'>2048,10</text>
|
|
<text x='1436' y='4415' class='mono jcl' xml:space='preserve'>//SYSTSIN DD *</text>
|
|
<text x='1436' y='4428.5' class='mono jcl' xml:space='preserve'> DSN SYSTEM(DSNH)</text>
|
|
<text x='1436' y='4442' class='mono jcl' xml:space='preserve'> RUN PROGRAM(KS41030P) PLAN(KS41030P) LIB('ENT.BATCHA.LOD')</text>
|
|
<text x='1436' y='4455.5' class='mono jcl' xml:space='preserve'>END</text>
|
|
<path d='M1420,4475 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='4501' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,4501 V4561 M620,4531 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='4537' class='jp boxno' text-anchor='middle'>13</text>
|
|
<text x='730' y='4522' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='4552' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,4561 L710,4625' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='4619' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,4625 H791 V4668 Q750.5,4656 710,4668 Q669.5,4680 629,4668 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='4505' class='jp panhead' text-anchor='start'><STEP-13></text>
|
|
<text x='1436' y='4523' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='4540' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='4556' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0060</text>
|
|
<text x='1436' y='4580' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='4593.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='4607' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='4620.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='4634' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0060,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,4719 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='710' y='4747' class='mono xref' text-anchor='middle'>←STEP12</text>
|
|
<path d='M629,4765 L629,4813 A81,8 0 0 0 791,4813 L791,4765 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='4765' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='4770' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='4793' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0070</text>
|
|
<text x='710' y='4810' class='jp fdesc' text-anchor='middle'>請求先住所付加後</text>
|
|
<polygon points='781,4741 805,4741 805,4758 793,4767 781,4758' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='4756' class='mono connno' text-anchor='middle'>14</text>
|
|
<path d='M710,4821 L710,4885' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='4835' class='mono ddn' text-anchor='start'>SORTIN</text>
|
|
<rect x='580' y='4885' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,4885 V4945 M620,4915 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='4921' class='jp boxno' text-anchor='middle'>14</text>
|
|
<text x='730' y='4906' class='mono boxname' text-anchor='middle'>SORT (USORT)</text>
|
|
<text x='730' y='4936' class='jp boxdesc' text-anchor='middle'>分類</text>
|
|
<path d='M697,4945 L510,5009' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='5003' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,5009 H591 V5052 Q550.5,5040 510,5052 Q469.5,5064 429,5052 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,4945 L710,5009' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='5003' class='mono ddn' text-anchor='start'>SORTOUT</text>
|
|
<path d='M629,5017 L629,5065 A81,8 0 0 0 791,5065 L791,5017 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='5017' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='5022' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='5045' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0080</text>
|
|
<text x='710' y='5062' class='jp fdesc' text-anchor='middle'>管理台帳(登録顧客コード順)</text>
|
|
<polygon points='781,5061 805,5061 805,5078 793,5087 781,5078' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='5076' class='mono connno' text-anchor='middle'>15</text>
|
|
<text x='702' y='5089' class='mono xref' text-anchor='end'>→STEP17</text>
|
|
<text x='1436' y='4749' class='jp panhead' text-anchor='start'><STEP-14></text>
|
|
<text x='1436' y='4767' class='jp pantext' text-anchor='start'>[SORT] 分類 (USORT)</text>
|
|
<text x='1448' y='4784' class='jp pannote' text-anchor='start'>SORT FIELDS=(5,7,CH,A)</text>
|
|
<text x='1448' y='4800' class='jp pannote' text-anchor='start'>(KSDS キー KEYS(7 0) の順)</text>
|
|
<text x='1436' y='4824' class='mono jcl' xml:space='preserve'>//SORT EXEC USORT</text>
|
|
<text x='1436' y='4837.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='4851' class='mono jcl' xml:space='preserve'>//SORTIN DD DSN=TEMP.DAIBAT00.WORK0070,</text>
|
|
<text x='1436' y='4864.5' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='4878' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='4891.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='4905' class='mono jcl' xml:space='preserve'>//SORTOUT DD DSN=TEMP.DAIBAT00.WORK0080,</text>
|
|
<text x='1436' y='4918.5' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='4932' class='mono jcl' xml:space='preserve'>// DCB=*.SORTIN,</text>
|
|
<text x='1436' y='4945.5' class='mono jcl' xml:space='preserve'>// SPACE=(6300,(10000,3000),RLSE),</text>
|
|
<text x='1436' y='4959' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='4972.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='4986' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='4999.5' class='mono jcl' xml:space='preserve'> SORT FIELDS=(5,7,CH,A)</text>
|
|
<text x='1436' y='5013' class='mono jcl' xml:space='preserve'> END</text>
|
|
<text x='1436' y='5026.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,5103 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='5129' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,5129 V5189 M620,5159 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='5165' class='jp boxno' text-anchor='middle'>15</text>
|
|
<text x='730' y='5150' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='5180' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,5189 L710,5253' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='5247' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,5253 H791 V5296 Q750.5,5284 710,5296 Q669.5,5308 629,5296 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='5133' class='jp panhead' text-anchor='start'><STEP-15></text>
|
|
<text x='1436' y='5151' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='5168' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='5184' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0070</text>
|
|
<text x='1436' y='5208' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='5221.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='5235' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='5248.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='5262' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0070,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,5347 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='5373' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,5373 V5433 M620,5403 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='5409' class='jp boxno' text-anchor='middle'>16</text>
|
|
<text x='730' y='5394' class='mono boxname' text-anchor='middle'>IDCAMS</text>
|
|
<text x='730' y='5424' class='jp boxdesc' text-anchor='middle'>管理台帳 削除・再定義</text>
|
|
<path d='M697,5433 L510,5497' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='5491' class='mono ddn' text-anchor='end'>VKKANMS</text>
|
|
<path d='M429,5505 L429,5553 A81,8 0 0 0 591,5553 L591,5505 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='5505' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='510' y='5533' class='mono dsn' text-anchor='middle'>VK47.KANBASED.DTMASTER</text>
|
|
<text x='510' y='5550' class='jp fdesc' text-anchor='middle'>管理台帳(空で再定義)</text>
|
|
<polygon points='581,5549 605,5549 605,5566 593,5575 581,5566' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='5564' class='mono connno' text-anchor='middle'>16</text>
|
|
<path d='M723,5433 L710,5497' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='5491' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,5497 H791 V5540 Q750.5,5528 710,5540 Q669.5,5552 629,5540 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='5377' class='jp panhead' text-anchor='start'><STEP-16></text>
|
|
<text x='1436' y='5395' class='jp pantext' text-anchor='start'>[DELDEF] 管理台帳 削除・再定義</text>
|
|
<text x='1448' y='5412' class='jp pannote' text-anchor='start'>DELETE … CL PURGE / DEFINE CLUSTER</text>
|
|
<text x='1448' y='5428' class='jp pannote' text-anchor='start'>INDEXED KEYS(7 0) RECSZ(1200 1500)</text>
|
|
<text x='1448' y='5444' class='jp pannote' text-anchor='start'>VOL(DASD47) CYL(140 10) SHR(2) SPEED</text>
|
|
<text x='1436' y='5468' class='mono jcl' xml:space='preserve'>//DELDEF EXEC PGM=IDCAMS</text>
|
|
<text x='1436' y='5481.5' class='mono jcl' xml:space='preserve'>//VKKANMS DD DSN=VK47.KANBASED.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='5495' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='5508.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='5522' class='mono jcl' xml:space='preserve'> DELETE VK47.KANBASED.DTMASTER CL PURGE -</text>
|
|
<text x='1436' y='5535.5' class='mono jcl' xml:space='preserve'> FILE(VKKANMS)</text>
|
|
<text x='1436' y='5549' class='mono jcl' xml:space='preserve'> DEFINE CLUSTER -</text>
|
|
<text x='1436' y='5562.5' class='mono jcl' xml:space='preserve'> (NAME(VK47.KANBASED.DTMASTER) -</text>
|
|
<text x='1436' y='5576' class='mono jcl' xml:space='preserve'> VOL(DASD47) -</text>
|
|
<text x='1436' y='5589.5' class='mono jcl' xml:space='preserve'> SHR(2) -</text>
|
|
<text x='1436' y='5603' class='mono jcl' xml:space='preserve'> SPEED -</text>
|
|
<text x='1436' y='5616.5' class='mono jcl' xml:space='preserve'> INDEXED -</text>
|
|
<text x='1436' y='5630' class='mono jcl' xml:space='preserve'> KEYS(7 0) -</text>
|
|
<text x='1436' y='5643.5' class='mono jcl' xml:space='preserve'> CYL(140 10) -</text>
|
|
<text x='1436' y='5657' class='mono jcl' xml:space='preserve'> RECSZ(1200 1500))-</text>
|
|
<text x='1436' y='5670.5' class='mono jcl' xml:space='preserve'> DATA -</text>
|
|
<text x='1436' y='5684' class='mono jcl' xml:space='preserve'> (NAME(VK47.KANBASED.DTMASTER.DATA) -</text>
|
|
<text x='1436' y='5697.5' class='mono jcl' xml:space='preserve'> CISZ(12288)) -</text>
|
|
<text x='1436' y='5711' class='mono jcl' xml:space='preserve'> INDEX -</text>
|
|
<text x='1436' y='5724.5' class='mono jcl' xml:space='preserve'> (NAME(VK47.KANBASED.DTMASTER.INDEX) -</text>
|
|
<text x='1436' y='5738' class='mono jcl' xml:space='preserve'> CISZ(1024)) -</text>
|
|
<text x='1436' y='5751.5' class='mono jcl' xml:space='preserve'> CAT -</text>
|
|
<text x='1436' y='5765' class='mono jcl' xml:space='preserve'> (UCAT.VK47);</text>
|
|
<text x='1436' y='5778.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,5798 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='710' y='5826' class='mono xref' text-anchor='middle'>←STEP14</text>
|
|
<path d='M629,5844 L629,5892 A81,8 0 0 0 791,5892 L791,5844 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='5844' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='710' y='5849' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='710' y='5872' class='mono dsn' text-anchor='middle'>TEMP.DAIBAT00.WORK0080</text>
|
|
<text x='710' y='5889' class='jp fdesc' text-anchor='middle'>管理台帳(登録顧客コード順)</text>
|
|
<polygon points='781,5820 805,5820 805,5837 793,5846 781,5837' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='5835' class='mono connno' text-anchor='middle'>15</text>
|
|
<path d='M710,5900 L710,5964' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='5914' class='mono ddn' text-anchor='start'>INPUT</text>
|
|
<rect x='580' y='5964' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,5964 V6024 M620,5994 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='6000' class='jp boxno' text-anchor='middle'>17</text>
|
|
<text x='730' y='5985' class='mono boxname' text-anchor='middle'>IDCAMS</text>
|
|
<text x='730' y='6015' class='jp boxdesc' text-anchor='middle'>管理台帳ロード(REPRO)</text>
|
|
<path d='M697,6024 L510,6088' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='6082' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,6088 H591 V6131 Q550.5,6119 510,6131 Q469.5,6143 429,6131 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,6024 L710,6088' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='6082' class='mono ddn' text-anchor='start'>OUTPUT</text>
|
|
<path d='M629,6096 L629,6144 A81,8 0 0 0 791,6144 L791,6096 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='6096' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='710' y='6124' class='mono dsn' text-anchor='middle'>VK47.KANBASED.DTMASTER</text>
|
|
<text x='710' y='6141' class='jp fdesc' text-anchor='middle'>管理台帳(KSDS)</text>
|
|
<polygon points='781,6140 805,6140 805,6157 793,6166 781,6157' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='6155' class='mono connno' text-anchor='middle'>16</text>
|
|
<text x='702' y='6168' class='mono xref' text-anchor='end'>→STEP19,21</text>
|
|
<text x='1436' y='5828' class='jp panhead' text-anchor='start'><STEP-17></text>
|
|
<text x='1436' y='5846' class='jp pantext' text-anchor='start'>[IDCAMS] 管理台帳ロード(REPRO)</text>
|
|
<text x='1448' y='5863' class='jp pannote' text-anchor='start'>REPRO INFILE(INPUT) OUTFILE(OUTPUT)</text>
|
|
<text x='1448' y='5879' class='jp pannote' text-anchor='start'>※OUTPUT は DISP=SHR だが書込み先</text>
|
|
<text x='1436' y='5903' class='mono jcl' xml:space='preserve'>//IDCAMS EXEC PGM=IDCAMS</text>
|
|
<text x='1436' y='5916.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='5930' class='mono jcl' xml:space='preserve'>//INPUT DD DSN=TEMP.DAIBAT00.WORK0080,</text>
|
|
<text x='1436' y='5943.5' class='mono jcl' xml:space='preserve'>// DISP=SHR,</text>
|
|
<text x='1436' y='5957' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,</text>
|
|
<text x='1436' y='5970.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD30</text>
|
|
<text x='1436' y='5984' class='mono jcl' xml:space='preserve'>//OUTPUT DD DSN=VK47.KANBASED.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='5997.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='6011' class='mono jcl' xml:space='preserve'> REPRO INFILE(INPUT) OUTFILE(OUTPUT)</text>
|
|
<text x='1436' y='6024.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,6182 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='6208' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,6208 V6268 M620,6238 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='6244' class='jp boxno' text-anchor='middle'>18</text>
|
|
<text x='730' y='6229' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='6259' class='jp boxdesc' text-anchor='middle'>ワークエリアの削除</text>
|
|
<path d='M710,6268 L710,6332' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='6326' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,6332 H791 V6375 Q750.5,6363 710,6375 Q669.5,6387 629,6375 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='6212' class='jp panhead' text-anchor='start'><STEP-18></text>
|
|
<text x='1436' y='6230' class='jp pantext' text-anchor='start'>[DELETE] ワークエリアの削除</text>
|
|
<text x='1448' y='6247' class='jp pannote' text-anchor='start'>SCRATCH(DASD30)</text>
|
|
<text x='1448' y='6263' class='jp pannote' text-anchor='start'>TEMP.DAIBAT00.WORK0080</text>
|
|
<text x='1436' y='6287' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='6300.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='6314' class='mono jcl' xml:space='preserve'>//DASD30 DD UNIT=SYSDA,VOL=SER=DASD30,DISP=SHR</text>
|
|
<text x='1436' y='6327.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='6341' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DAIBAT00.WORK0080,VOL=SYSDA=DASD30</text>
|
|
<path d='M1420,6426 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='20' y='6438' width='2020' height='28' fill='#e0e7ff' stroke='#4338ca' stroke-width='1'/>
|
|
<text x='34' y='6457' class='jp band' text-anchor='start'>② POSメート請求額エラーリスト(STEP19)</text>
|
|
<path d='M429,6516 L429,6564 A81,8 0 0 0 591,6564 L591,6516 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='6516' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='510' y='6544' class='mono dsn' text-anchor='middle'>VK32.SSPOSFAX.DTMASTER</text>
|
|
<text x='510' y='6561' class='jp fdesc' text-anchor='middle'>POSメート・FAXサービス</text>
|
|
<polygon points='581,6492 605,6492 605,6509 593,6518 581,6509' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='6507' class='mono connno' text-anchor='middle'>17</text>
|
|
<text x='710' y='6498' class='mono xref' text-anchor='middle'>←STEP17</text>
|
|
<path d='M629,6516 L629,6564 A81,8 0 0 0 791,6564 L791,6516 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='6516' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='710' y='6544' class='mono dsn' text-anchor='middle'>VK47.KANBASED.DTMASTER</text>
|
|
<text x='710' y='6561' class='jp fdesc' text-anchor='middle'>管理台帳(KSDS)</text>
|
|
<polygon points='781,6492 805,6492 805,6509 793,6518 781,6509' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='6507' class='mono connno' text-anchor='middle'>16</text>
|
|
<path d='M510,6572 L697,6636' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='6586' class='mono ddn' text-anchor='start'>INFILE</text>
|
|
<path d='M710,6572 L723,6636' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='6586' class='mono ddn' text-anchor='start'>VKKANMS</text>
|
|
<rect x='580' y='6636' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,6636 V6696 M620,6666 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='6672' class='jp boxno' text-anchor='middle'>19</text>
|
|
<text x='730' y='6657' class='mono boxname' text-anchor='middle'>KS60350P</text>
|
|
<text x='730' y='6687' class='jp boxdesc' text-anchor='middle'>請求額エラーリスト</text>
|
|
<path d='M684,6696 L510,6760' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='6754' class='mono ddn' text-anchor='end'>SYSPRINT</text>
|
|
<path d='M429,6760 H591 V6803 Q550.5,6791 510,6803 Q469.5,6815 429,6803 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M710,6696 L710,6760' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='6754' class='mono ddn' text-anchor='start'>SYSDBOUT</text>
|
|
<path d='M629,6760 H791 V6803 Q750.5,6791 710,6803 Q669.5,6815 629,6803 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M736,6696 L910,6760' class='dl' marker-end='url(#arr)'/>
|
|
<text x='916' y='6754' class='mono ddn' text-anchor='start'>OUTFILE</text>
|
|
<path d='M829,6760 H991 V6803 Q950.5,6791 910,6803 Q869.5,6815 829,6803 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='910' y='6782' class='mono dsn' text-anchor='middle'>SYSOUT=I</text>
|
|
<text x='910' y='6797' class='jp fdesc' text-anchor='middle'>アンマッチリスト</text>
|
|
<text x='1436' y='6500' class='jp panhead' text-anchor='start'><STEP-19></text>
|
|
<text x='1436' y='6518' class='jp pantext' text-anchor='start'>[KS60350P] 請求額エラーリスト</text>
|
|
<text x='1448' y='6535' class='jp pannote' text-anchor='start'>POSメート・FAXサービスと管理台帳を突合せ</text>
|
|
<text x='1448' y='6551' class='jp pannote' text-anchor='start'>OUTFILE:SYSOUT=I(FA/165)</text>
|
|
<text x='1436' y='6575' class='mono jcl' xml:space='preserve'>//KS60350P EXEC PGM=KS60350P</text>
|
|
<text x='1436' y='6588.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='6602' class='mono jcl' xml:space='preserve'>//SYSDBOUT DD SYSOUT=*</text>
|
|
<text x='1436' y='6615.5' class='mono jcl' xml:space='preserve'>//INFILE DD DSN=VK32.SSPOSFAX.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='6629' class='mono jcl' xml:space='preserve'>//VKKANMS DD DSN=VK47.KANBASED.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='6642.5' class='mono jcl' xml:space='preserve'>//OUTFILE DD DCB=(RECFM=FA,LRECL=165),SYSOUT=I</text>
|
|
<path d='M1420,6854 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='20' y='6866' width='2020' height='28' fill='#e0e7ff' stroke='#4338ca' stroke-width='1'/>
|
|
<text x='34' y='6885' class='jp band' text-anchor='start'>③ エコデリバーアップロードデータ作成・DB2ロード(STEP20~25)</text>
|
|
<rect x='580' y='6924' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,6924 V6984 M620,6954 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='6960' class='jp boxno' text-anchor='middle'>20</text>
|
|
<text x='730' y='6945' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='6975' class='jp boxdesc' text-anchor='middle'>出力ファイル事前削除</text>
|
|
<path d='M710,6984 L710,7048' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='7042' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,7048 H791 V7091 Q750.5,7079 710,7091 Q669.5,7103 629,7091 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='6928' class='jp panhead' text-anchor='start'><STEP-20></text>
|
|
<text x='1436' y='6946' class='jp pantext' text-anchor='start'>[DELETE] 出力ファイル事前削除</text>
|
|
<text x='1448' y='6963' class='jp pannote' text-anchor='start'>SCRATCH(DASD36)</text>
|
|
<text x='1448' y='6979' class='jp pannote' text-anchor='start'>SEAD.ND53500J.WORK0010</text>
|
|
<text x='1448' y='6995' class='jp pannote' text-anchor='start'>(JCLコメントはSTEP19と同一)</text>
|
|
<text x='1436' y='7019' class='mono jcl' xml:space='preserve'>//DELETE EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='7032.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='7046' class='mono jcl' xml:space='preserve'>//DASD36 DD UNIT=SYSDA,VOL=SER=DASD36,DISP=SHR</text>
|
|
<text x='1436' y='7059.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='7073' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=SEAD.ND53500J.WORK0010,VOL=SYSDA=DASD36</text>
|
|
<text x='1436' y='7086.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,7142 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M429,7188 L429,7236 A81,8 0 0 0 591,7236 L591,7188 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='7188' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='510' y='7216' class='mono dsn' text-anchor='middle'>BACK.MASTMENT.DCUSTOM</text>
|
|
<text x='510' y='7233' class='jp fdesc' text-anchor='middle'>顧客名前マスター更新データ</text>
|
|
<polygon points='581,7164 605,7164 605,7181 593,7190 581,7181' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='7179' class='mono connno' text-anchor='middle'>19</text>
|
|
<text x='710' y='7170' class='mono xref' text-anchor='middle'>←STEP17</text>
|
|
<path d='M629,7188 L629,7236 A81,8 0 0 0 791,7236 L791,7188 Z' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='7188' rx='81' ry='8' fill='#dbeafe' stroke='#1e3a8a' stroke-width='1.2'/>
|
|
<text x='710' y='7216' class='mono dsn' text-anchor='middle'>VK47.KANBASED.DTMASTER</text>
|
|
<text x='710' y='7233' class='jp fdesc' text-anchor='middle'>管理台帳(KSDS)</text>
|
|
<polygon points='781,7164 805,7164 805,7181 793,7190 781,7181' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='7179' class='mono connno' text-anchor='middle'>16</text>
|
|
<path d='M829,7188 L829,7236 A81,8 0 0 0 991,7236 L991,7188 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='910' cy='7188' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='910' y='7216' class='mono dsn' text-anchor='middle'>ADG.ALTLIB(SEQTRYTN)</text>
|
|
<text x='910' y='7233' class='jp fdesc' text-anchor='middle'>対象店所パラメータ</text>
|
|
<polygon points='981,7164 1005,7164 1005,7181 993,7190 981,7181' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='993' y='7179' class='mono connno' text-anchor='middle'>20</text>
|
|
<path d='M510,7244 L684,7308' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='7258' class='mono ddn' text-anchor='start'>INFILE</text>
|
|
<path d='M710,7244 L710,7308' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='7258' class='mono ddn' text-anchor='start'>VKKANBS</text>
|
|
<path d='M910,7244 L736,7308' class='dl' marker-end='url(#arr)'/>
|
|
<text x='904' y='7258' class='mono ddn' text-anchor='end'>INCARD</text>
|
|
<rect x='580' y='7308' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,7308 V7368 M620,7338 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='7344' class='jp boxno' text-anchor='middle'>21</text>
|
|
<text x='730' y='7329' class='mono boxname' text-anchor='middle'>ND53500P</text>
|
|
<text x='730' y='7359' class='jp boxdesc' text-anchor='middle'>エコデリバーUPデータ作成</text>
|
|
<path d='M697,7368 L510,7432' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='7426' class='mono ddn' text-anchor='end'>OUTFILE</text>
|
|
<path d='M429,7440 L429,7488 A81,8 0 0 0 591,7488 L591,7440 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='7440' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='510' y='7445' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='510' y='7468' class='mono dsn' text-anchor='middle'>SEAD.ND53500J.WORK0010</text>
|
|
<text x='510' y='7485' class='jp fdesc' text-anchor='middle'>エコデリバー顧客UPデータ (DASD36)</text>
|
|
<polygon points='581,7484 605,7484 605,7501 593,7510 581,7501' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='7499' class='mono connno' text-anchor='middle'>18</text>
|
|
<text x='502' y='7512' class='mono xref' text-anchor='end'>→STEP23</text>
|
|
<path d='M723,7368 L710,7432' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='7426' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,7432 H791 V7475 Q750.5,7463 710,7475 Q669.5,7487 629,7475 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='7172' class='jp panhead' text-anchor='start'><STEP-21></text>
|
|
<text x='1436' y='7190' class='jp pantext' text-anchor='start'>[ND53500P] エコデリバーUPデータ作成</text>
|
|
<text x='1448' y='7207' class='jp pannote' text-anchor='start'>対象店所(INCARD)の顧客を管理台帳で補完</text>
|
|
<text x='1448' y='7223' class='jp pannote' text-anchor='start'>SYSIN DD * は空</text>
|
|
<text x='1436' y='7247' class='mono jcl' xml:space='preserve'>//ND53500P EXEC PGM=ND53500P</text>
|
|
<text x='1436' y='7260.5' class='mono jcl' xml:space='preserve'>//OUTFILE DD DSN=SEAD.ND53500J.WORK0010,DISP=(NEW,KEEP,DELETE),</text>
|
|
<text x='1436' y='7274' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,VOL=SER=DASD36,</text>
|
|
<text x='1436' y='7287.5' class='mono jcl' xml:space='preserve'>// DCB=(RECFM=FB,LRECL=236,BLKSIZE=2360),</text>
|
|
<text x='1436' y='7301' class='mono jcl' xml:space='preserve'>// SPACE=(2360,(1000,100),RLSE)</text>
|
|
<text x='1436' y='7314.5' class='mono jcl' xml:space='preserve'>//INFILE DD DSN=BACK.MASTMENT.DCUSTOM,DISP=SHR,</text>
|
|
<text x='1436' y='7328' class='mono jcl' xml:space='preserve'>// UNIT=SYSDA,VOL=SER=DASD36</text>
|
|
<text x='1436' y='7341.5' class='mono jcl' xml:space='preserve'>//VKKANBS DD DSN=VK47.KANBASED.DTMASTER,DISP=SHR</text>
|
|
<text x='1436' y='7355' class='mono jcl' xml:space='preserve'>//INCARD DD DSN=ADG.ALTLIB(SEQTRYTN),DISP=SHR</text>
|
|
<text x='1436' y='7368.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='7382' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='7395.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,7526 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<rect x='580' y='7552' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,7552 V7612 M620,7582 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='7588' class='jp boxno' text-anchor='middle'>22</text>
|
|
<text x='730' y='7573' class='mono boxname' text-anchor='middle'>IEHPROGM</text>
|
|
<text x='730' y='7603' class='jp boxdesc' text-anchor='middle'>廃棄ファイル事前削除</text>
|
|
<path d='M710,7612 L710,7676' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='7670' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,7676 H791 V7719 Q750.5,7707 710,7719 Q669.5,7731 629,7719 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='7556' class='jp panhead' text-anchor='start'><STEP-22></text>
|
|
<text x='1436' y='7574' class='jp pantext' text-anchor='start'>[STEP0] 廃棄ファイル事前削除</text>
|
|
<text x='1448' y='7591' class='jp pannote' text-anchor='start'>SCRATCH(DASD80)</text>
|
|
<text x='1448' y='7607' class='jp pannote' text-anchor='start'>TEMP.DB2ECDL.DISCARD ,PURGE</text>
|
|
<text x='1436' y='7631' class='mono jcl' xml:space='preserve'>//STEP0 EXEC PGM=IEHPROGM</text>
|
|
<text x='1436' y='7644.5' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='7658' class='mono jcl' xml:space='preserve'>//DASD80 DD DISP=SHR,UNIT=SYSDA,VOL=SER=DASD80</text>
|
|
<text x='1436' y='7671.5' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='7685' class='mono jcl' xml:space='preserve'> SCRATCH DSNAME=TEMP.DB2ECDL.DISCARD,VOL=SYSDA=DASD80,PURGE</text>
|
|
<text x='1436' y='7698.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,7770 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='510' y='7798' class='mono xref' text-anchor='middle'>←STEP21</text>
|
|
<path d='M429,7816 L429,7864 A81,8 0 0 0 591,7864 L591,7816 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='7816' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='510' y='7821' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='510' y='7844' class='mono dsn' text-anchor='middle'>SEAD.ND53500J.WORK0010</text>
|
|
<text x='510' y='7861' class='jp fdesc' text-anchor='middle'>エコデリバー顧客UPデータ (DASD36)</text>
|
|
<polygon points='581,7792 605,7792 605,7809 593,7818 581,7809' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='7807' class='mono connno' text-anchor='middle'>18</text>
|
|
<path d='M629,7816 L629,7864 A81,8 0 0 0 791,7864 L791,7816 Z' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='7816' rx='81' ry='8' fill='#dcfce7' stroke='#166534' stroke-width='1.2'/>
|
|
<text x='710' y='7844' class='mono dsn' text-anchor='middle'>ADG.DB2TBL.SRC(RDECDLLD)</text>
|
|
<text x='710' y='7861' class='jp fdesc' text-anchor='middle'>LOAD 制御文</text>
|
|
<polygon points='781,7792 805,7792 805,7809 793,7818 781,7809' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='7807' class='mono connno' text-anchor='middle'>22</text>
|
|
<path d='M510,7872 L697,7936' class='dl' marker-end='url(#arr)'/>
|
|
<text x='516' y='7886' class='mono ddn' text-anchor='start'>SYSREC</text>
|
|
<path d='M710,7872 L723,7936' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='7886' class='mono ddn' text-anchor='start'>SYSIN</text>
|
|
<rect x='580' y='7936' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,7936 V7996 M620,7966 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='7972' class='jp boxno' text-anchor='middle'>23</text>
|
|
<text x='730' y='7957' class='mono boxname' text-anchor='middle'>DSNUPROC</text>
|
|
<text x='730' y='7987' class='jp boxdesc' text-anchor='middle'>DB2 LOAD</text>
|
|
<path d='M697,7996 L510,8060' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='8054' class='mono ddn' text-anchor='end'>SYSDISC</text>
|
|
<path d='M429,8068 L429,8116 A81,8 0 0 0 591,8116 L591,8068 Z' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<ellipse cx='510' cy='8068' rx='81' ry='8' fill='#f3f4f6' stroke='#4b5563' stroke-width='1.2'/>
|
|
<text x='510' y='8073' class='mono worklbl' text-anchor='middle'>WORK</text>
|
|
<text x='510' y='8096' class='mono dsn' text-anchor='middle'>TEMP.DB2ECDL.DISCARD</text>
|
|
<text x='510' y='8113' class='jp fdesc' text-anchor='middle'>LOAD 廃棄レコード (DASD80)</text>
|
|
<polygon points='581,8112 605,8112 605,8129 593,8138 581,8129' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='593' y='8127' class='mono connno' text-anchor='middle'>21</text>
|
|
<path d='M723,7996 L710,8060' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='8054' class='mono ddn' text-anchor='start'>(LOAD)</text>
|
|
<path d='M629,8068 L629,8116 A81,8 0 0 0 791,8116 L791,8068 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='8068' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='710' y='8096' class='mono dsn' text-anchor='middle'>RECDLDB.RECDLTS</text>
|
|
<text x='710' y='8113' class='jp fdesc' text-anchor='middle'>エコデリバーアップロードDB</text>
|
|
<polygon points='781,8112 805,8112 805,8129 793,8138 781,8129' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='8127' class='mono connno' text-anchor='middle'>23</text>
|
|
<text x='702' y='8140' class='mono xref' text-anchor='end'>→STEP24,25</text>
|
|
<text x='1436' y='7800' class='jp panhead' text-anchor='start'><STEP-23></text>
|
|
<text x='1436' y='7818' class='jp pantext' text-anchor='start'>[LOAD] DB2 LOAD</text>
|
|
<text x='1448' y='7835' class='jp pannote' text-anchor='start'>PARM='DSNH,DAIMNT3J'</text>
|
|
<text x='1448' y='7851' class='jp pannote' text-anchor='start'>LOAD 先は制御文 RDECDLLD に記述</text>
|
|
<text x='1448' y='7867' class='jp pannote' text-anchor='start'>(出力レイアウト RDECDL。表名は制御文で要確認)</text>
|
|
<text x='1448' y='7883' class='jp pannote' text-anchor='start'>SORTWK01~04・SYSUT1 等は一時ワーク</text>
|
|
<text x='1436' y='7907' class='mono jcl' xml:space='preserve'>//LOAD EXEC DSNUPROC,PARM='DSNH,DAIMNT3J'</text>
|
|
<text x='1436' y='7920.5' class='mono jcl' xml:space='preserve'>//SYSREC DD DSN=SEAD.ND53500J.WORK0010,DISP=SHR,</text>
|
|
<text x='1436' y='7934' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD36,UNIT=SYSDA</text>
|
|
<text x='1436' y='7947.5' class='mono jcl' xml:space='preserve'>//SYSDISC DD DSN=TEMP.DB2ECDL.DISCARD,</text>
|
|
<text x='1436' y='7961' class='mono jcl' xml:space='preserve'>// DISP=(NEW,KEEP,DELETE),SPACE=(CYL,(10,5),RLSE),</text>
|
|
<text x='1436' y='7974.5' class='mono jcl' xml:space='preserve'>// VOL=SER=DASD80,UNIT=SYSDA</text>
|
|
<text x='1436' y='7988' class='mono jcl' xml:space='preserve'>//SORTWK01 DD UNIT=SYSDA,SPACE=(40000,(2000,2000),,,ROUND)</text>
|
|
<text x='1436' y='8001.5' class='mono jcl' xml:space='preserve'>//SORTWK02 DD UNIT=SYSDA,SPACE=(40000,(2000,2000),,,ROUND)</text>
|
|
<text x='1436' y='8015' class='mono jcl' xml:space='preserve'>//SORTWK03 DD UNIT=SYSDA,SPACE=(40000,(2000,2000),,,ROUND)</text>
|
|
<text x='1436' y='8028.5' class='mono jcl' xml:space='preserve'>//SORTWK04 DD UNIT=SYSDA,SPACE=(40000,(2000,2000),,,ROUND)</text>
|
|
<text x='1436' y='8042' class='mono jcl' xml:space='preserve'>//SORTOUT DD UNIT=SYSDA,SPACE=(40000,(2000,2000),,,ROUND)</text>
|
|
<text x='1436' y='8055.5' class='mono jcl' xml:space='preserve'>//SYSUT1 DD UNIT=SYSDA,SPACE=(40000,(500,500),,,ROUND)</text>
|
|
<text x='1436' y='8069' class='mono jcl' xml:space='preserve'>//SYSERR DD UNIT=SYSDA,SPACE=(40000,(500,500),,,ROUND)</text>
|
|
<text x='1436' y='8082.5' class='mono jcl' xml:space='preserve'>//SYSMAP DD UNIT=SYSDA,SPACE=(40000,(500,500),,,ROUND)</text>
|
|
<text x='1436' y='8096' class='mono jcl' xml:space='preserve'>//SYSIN DD DSN=ADG.DB2TBL.SRC(RDECDLLD),DISP=SHR</text>
|
|
<path d='M1420,8154 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M710,8124 V8166 L710,8230' class='dl carry' marker-end='url(#arr)'/>
|
|
<text x='716' y='8180' class='mono ddn' text-anchor='start'>(-STA)</text>
|
|
<rect x='580' y='8230' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,8230 V8290 M620,8260 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='8266' class='jp boxno' text-anchor='middle'>24</text>
|
|
<text x='730' y='8251' class='mono boxname' text-anchor='middle'>IKJEFT01</text>
|
|
<text x='730' y='8281' class='jp boxdesc' text-anchor='middle'>表スペース強制起動</text>
|
|
<path d='M684,8290 L510,8354' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='8348' class='mono ddn' text-anchor='end'>SYSTSPRT</text>
|
|
<path d='M429,8354 H591 V8397 Q550.5,8385 510,8397 Q469.5,8409 429,8397 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M710,8290 L710,8354' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='8348' class='mono ddn' text-anchor='start'>SYSPRINT</text>
|
|
<path d='M629,8354 H791 V8397 Q750.5,8385 710,8397 Q669.5,8409 629,8397 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M736,8290 L910,8354' class='dl' marker-end='url(#arr)'/>
|
|
<text x='916' y='8348' class='mono ddn' text-anchor='start'>SYSUDUMP</text>
|
|
<path d='M829,8354 H991 V8397 Q950.5,8385 910,8397 Q869.5,8409 829,8397 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<text x='1436' y='8184' class='jp panhead' text-anchor='start'><STEP-24></text>
|
|
<text x='1436' y='8202' class='jp pantext' text-anchor='start'>[DSNTIAS] 表スペース強制起動</text>
|
|
<text x='1448' y='8219' class='jp pannote' text-anchor='start'>-DIS DB(RECDLDB)</text>
|
|
<text x='1448' y='8235' class='jp pannote' text-anchor='start'>-STA DB(RECDLDB) SPACENAM(RECDLTS) ACC(FORCE)</text>
|
|
<text x='1448' y='8251' class='jp pannote' text-anchor='start'>-DIS DB(RECDLDB)</text>
|
|
<text x='1436' y='8275' class='mono jcl' xml:space='preserve'>//DSNTIAS EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(9,LT)</text>
|
|
<text x='1436' y='8288.5' class='mono jcl' xml:space='preserve'>//SYSTSPRT DD SYSOUT=*</text>
|
|
<text x='1436' y='8302' class='mono jcl' xml:space='preserve'>//SYSPRINT DD SYSOUT=*</text>
|
|
<text x='1436' y='8315.5' class='mono jcl' xml:space='preserve'>//SYSUDUMP DD SYSOUT=*</text>
|
|
<text x='1436' y='8329' class='mono jcl' xml:space='preserve'>//SYSTSIN DD *</text>
|
|
<text x='1436' y='8342.5' class='mono jcl' xml:space='preserve'> DSN SYSTEM(DSNH)</text>
|
|
<text x='1436' y='8356' class='mono jcl' xml:space='preserve'> -DIS DB(RECDLDB)</text>
|
|
<text x='1436' y='8369.5' class='mono jcl' xml:space='preserve'> -STA DB(RECDLDB) SPACENAM(RECDLTS) ACC(FORCE)</text>
|
|
<text x='1436' y='8383' class='mono jcl' xml:space='preserve'> -DIS DB(RECDLDB)</text>
|
|
<text x='1436' y='8396.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,8448 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<text x='710' y='8476' class='mono xref' text-anchor='middle'>←STEP23</text>
|
|
<path d='M629,8494 L629,8542 A81,8 0 0 0 791,8542 L791,8494 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='8494' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='710' y='8522' class='mono dsn' text-anchor='middle'>RECDLDB.RECDLTS</text>
|
|
<text x='710' y='8539' class='jp fdesc' text-anchor='middle'>DB2表スペース</text>
|
|
<polygon points='781,8470 805,8470 805,8487 793,8496 781,8487' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='8485' class='mono connno' text-anchor='middle'>23</text>
|
|
<path d='M710,8550 L710,8614' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='8564' class='mono ddn' text-anchor='start'>(RUNSTATS)</text>
|
|
<rect x='580' y='8614' width='260' height='60' fill='#ffffff' stroke='#111' stroke-width='1.6'/>
|
|
<path d='M620,8614 V8674 M620,8644 H840' stroke='#111' stroke-width='1'/>
|
|
<text x='600' y='8650' class='jp boxno' text-anchor='middle'>25</text>
|
|
<text x='730' y='8635' class='mono boxname' text-anchor='middle'>DSNUPROC</text>
|
|
<text x='730' y='8665' class='jp boxdesc' text-anchor='middle'>RUNSTATS</text>
|
|
<path d='M697,8674 L510,8738' class='dl' marker-end='url(#arr)'/>
|
|
<text x='504' y='8732' class='mono ddn' text-anchor='end'>DSNTRACE</text>
|
|
<path d='M429,8738 H591 V8781 Q550.5,8769 510,8781 Q469.5,8793 429,8781 Z' fill='#fef9e7' stroke='#92400e' stroke-width='1.2'/>
|
|
<path d='M723,8674 L710,8738' class='dl' marker-end='url(#arr)'/>
|
|
<text x='716' y='8732' class='mono ddn' text-anchor='start'>(UPDATE ALL)</text>
|
|
<path d='M629,8746 L629,8794 A81,8 0 0 0 791,8794 L791,8746 Z' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<ellipse cx='710' cy='8746' rx='81' ry='8' fill='#ede9fe' stroke='#5b21b6' stroke-width='1.2'/>
|
|
<text x='710' y='8774' class='mono dsn' text-anchor='middle'>DB2 CATALOG</text>
|
|
<text x='710' y='8791' class='jp fdesc' text-anchor='middle'>統計情報</text>
|
|
<polygon points='781,8790 805,8790 805,8807 793,8816 781,8807' fill='#ffffff' stroke='#111' stroke-width='1.2'/>
|
|
<text x='793' y='8805' class='mono connno' text-anchor='middle'>24</text>
|
|
<text x='1436' y='8478' class='jp panhead' text-anchor='start'><STEP-25></text>
|
|
<text x='1436' y='8496' class='jp pantext' text-anchor='start'>[RUNST] RUNSTATS</text>
|
|
<text x='1448' y='8513' class='jp pannote' text-anchor='start'>RUNSTATS TABLESPACE RECDLDB.RECDLTS</text>
|
|
<text x='1448' y='8529' class='jp pannote' text-anchor='start'>INDEX(ALL) REPORT YES UPDATE ALL</text>
|
|
<text x='1436' y='8553' class='mono jcl' xml:space='preserve'>//RUNST EXEC DSNUPROC,PARM='DSNH,DAIMNT3J'</text>
|
|
<text x='1436' y='8566.5' class='mono jcl' xml:space='preserve'>//DSNTRACE DD SYSOUT=*</text>
|
|
<text x='1436' y='8580' class='mono jcl' xml:space='preserve'>//SYSUT1 DD UNIT=SYSDA,SPACE=(4000,(50,50),,,ROUND)</text>
|
|
<text x='1436' y='8593.5' class='mono jcl' xml:space='preserve'>//SYSREC DD UNIT=SYSDA,SPACE=(4000,(200,200),,,ROUND)</text>
|
|
<text x='1436' y='8607' class='mono jcl' xml:space='preserve'>//SYSIN DD *</text>
|
|
<text x='1436' y='8620.5' class='mono jcl' xml:space='preserve'></text>
|
|
<text x='1436' y='8634' class='mono jcl' xml:space='preserve'> RUNSTATS TABLESPACE RECDLDB.RECDLTS</text>
|
|
<text x='1436' y='8647.5' class='mono jcl' xml:space='preserve'> INDEX (ALL)</text>
|
|
<text x='1436' y='8661' class='mono jcl' xml:space='preserve'> REPORT YES</text>
|
|
<text x='1436' y='8674.5' class='mono jcl' xml:space='preserve'> UPDATE ALL</text>
|
|
<text x='1436' y='8688' class='mono jcl' xml:space='preserve'></text>
|
|
<text x='1436' y='8701.5' class='mono jcl' xml:space='preserve'>/*</text>
|
|
<path d='M1420,8832 H2040' stroke='#cbd5e1' stroke-width='1'/>
|
|
<path d='M1420,442 V8854' stroke='#111' stroke-width='1.2'/>
|
|
</svg>
|