第一貨物 [Mirror]

メモ：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などを内包）