操作
機能 #3989
未完了BV10080_設計_他社直卸し中継渡し入力（委託票）
開始日:
期日:
進捗率:
100%
予定工数:
実開始日:
2025-12-09
ＤＤ名:
INCLUDE:
DSN:
バグ区分:
QA分析:
方針（第一貨物）:
実終了日:
ツールのバージョン:
ToolVer.1.2026.0518.0
AsIsSource行:
6632
進捗計画:
設計・開発者:
42
画面ID:
MPBV800
機能区分:
入力
機能ID:
BV10080
レビュー指摘区分:
検査完了日:
検査依頼日:
説明
BV0190
ファイル
| MPBV800.jpg (89.1 KB) MPBV800.jpg | |||
| clipboard-202608181639-4pvsv.png (293 KB) clipboard-202608181639-4pvsv.png |
渡邉 拓英 さんが2ヶ月前に更新 · 編集済み
メモ：TSに書き込み
DO ;
TSSBOKKN = 1 ; /*送り状件数*/
TSBSOKNO (0001) = IMX1D (YCNT) ; /*送り状ＮＯ*/
TSBSJYOK (0001) = SENTOKFG(YCNT) ; /*状況区分 */
IF WK_TEI (YCNT) = 'O' /* ｾﾝﾀｰ照会区分*/
THEN TSBSCKBN (0001) = 0 ; /* 不要 */
ELSE TSBSCKBN (0001) = 1 ; /* 要 */
IF COMM_ITEM_PRFLG = '1'
THEN COMM_ITEM_PRFLG = '3' ;
ELSE COMM_ITEM_PRFLG = '2' ;
TSQ_ID_W = EIBTRMID || 'PR02' ;
EXEC CICS WRITEQ TS
QUEUE (TSQ_ID_W)
FROM (TSBSPRLG) ;
END ;
新では→LSS1050でデータ書き込む（BS12700Pなどを内包）
操作