READ

LANSA Integrator

READ


READコマンドは、現在開いているドキュメントの指定したワークシートのセル範囲を作業リストに読み込む場合に使用されます。各セル値の末尾のブランクは切り詰められます。

READコマンドの前に読み込みモードでOPENコマンドを使用してください。

 

 READ ----------- SHEET ----------- sheet1 ---------------------->

                                    値

 

              >-- R1C1 ------------ 1,1 ------------------------->

                                    n,n

 

              >-- R2C2 ------------ 0,0 ------------------------->

                                    n,n

 

              >-- IGNORE --------- *NONE ------------------------>

                                   *EMPTY

 

              >-- SCALE ----------値------------------------>

 

              >-- NUMBERFORMAT --- *NONE ------------------------|

                                   *DEFAULT

                                   *CLIENT

                                   *USERAGENT

                                   値

 

キーワード

SHEET

特定のシート名を入力できます。シート名を入力しない場合は、省略値sheet1が使用されます。

R1C1

読み込む特定の行および列を入力します。値を指定しない場合、省略値の1,1が使用されます。

R2C2

R2C2キーワード値には、行と列の値に0を使用できます。

読み込み処理を行う特定の最終行および最終列を入力します。値を指定しない場合、省略値の0,0が使用されます。この場合、シートの最後まで読み込みます。

注:現在、R2C2キーワードの列値は無視されます。値を0にするか、指定しません。

IGNORE

省略値*NONEの場合、すべてのエントリーが処理されます。代替オプション*EMPTYの場合、空のエントリーは無視されます。

空のエントリーとは、リスト・エントリーを構成するすべてのセル値が空の文字列値の場合です。

SCALE

このオプションのキーワードは、一般的な数字形式の数値セルで使用される10進法を指定します。省略値は4です。

NUMBERFORMAT

このオプションのキーワードは、小数区切り文字が小数点文字「.」ではない数字文字列を処理します。

詳細については、「NUMBERFORMAT」を参照してください。

RDML

 

USE BUILTIN(JSM_COMMAND) WITH_ARGS('READ SHEET(PARTS) SERVICE_LIST(LINENUM,PARTNUM,PARTDSC,PARTAMT,PARTQTY)') TO_GET(#JSMSTS #JSMMSG #ORDLIST)

 

または

 

USE BUILTIN(JSM_COMMAND) WITH_ARGS('READ SHEET(PARTS) R1C1(10,3) R2C2(20,0) SERVICE_LIST(LINENUM,PARTNUM,PARTDSC,PARTAMT,PARTQTY)') TO_GET(#JSMSTS #JSMMSG #ORDLIST)

 

RDMLX

 

use builtin(jsmx_command) with_args(#jsmhdle 'read sheet(parts)') to_get(#jsmsts #jsmmsg #ordlist)

 

または

 

use builtin(jsmx_command) with_args(#jsmhdle 'read sheet(parts) r1c1(10,3) R2C2(20,0)') to_get(#jsmsts #jsmmsg #ordlist)

 

ILE RPG

 

 * NB:This MUST match the structure xml provided to the JSM Server!

                                                                    
d xllist          ds                  occurs(xlocur)                
d  linenum                       7s 0                               
d  partnum                       7a                                 
d  partdsc                      30a                                 
d  partamt                       9s 2                               
d  partqty                       7s 0                               
                                                                    
d xlocur          c                   const(999)                    
d xlsize          c                   const(%size(xllist))          
d xlcount         s              9p 0 inz(0)                        
 
c                   eval      jsmcmd = 'READ'                        
c                             + ' SHEET(ORDERLINES) R1C1(5,3)'       
c                             + ' SERVICE_STRUCTURE(XL.XLOrderLine)' 
c                             + ' OCCURS(' + %char(xlocur) + ')'     
c                             + ' SIZE('   + %char(xlsize) + ')'     
                                                                     
c                   eval      %occur(xllist) = 1                     
c                   eval      bytelength = xlocur * xlsize           
                                                                     
c                   callp     p_jsmcmdx(jsmcmd:xllist:bytelength:    
c                                       jsmsts:jsmmsg)               
 
c                   if        jsmsts = 'OK'                         
c                   callp     p_jsmbytelngth(bytelength)          
c                   if            (bytelength > 0)                
c                             and (bytelength <= xlocur * xlsize) 
c                   callp     p_jsmbyterecv(xllist)    
c                   eval      xlcount = bytelength / xlsize  
c                   endif                                            
c                   endif