[ Image Removed |../../index.htm#lansa/point_e.htm]
現在地:

...

7.98.3 POINT の使用例

例1：ファイルCUSTMSTに対するI例1：ファイルCUSTMSTに対するI/O要求をライブラリTESTDATAに向けます。 POINT FILE

   POINT FILE(CUSTMST)

...

 TO_LIBRARY(TESTDATA)

...

...
または 
   DEFINE FIELD(#LIBRARY)
...
 TYPE(*CHAR)
...
 LENGTH(10)
...

   CHANGE FIELD(#LIBRARY)
...
 TO('TESTDATA')
...

   POINT  FILE(CUSTMST)
...
 TO_LIBRARY(#LIBRARY)
...

 例2：ファイルGLTRANSに対するI例2：ファイルGLTRANSに対するI/O要求を、現在のワークステーションと同じ名前のメンバーに向けます。 
 POINT FILEO要求を、現在のワークステーションと同じ名前のメンバーに向けます。 
   POINT FILE(GLTRANS)
...
 TO_MEMBER(*JOB)
...
...
または 
   DEFINE FIELD(#MEMBER)
...
 TYPE(*DEC)
...
 LENGTH(2)
...
 DECIMALS(0)
...

   CHANGE FIELD(#MEMBER)
...
 TO(*JOB)
...

   POINT  FILE(GLTRANS)
...
  TO_MEMBER(#MEMBER)
...

 例3：ファイルGLTRANSに対するI例3：ファイルGLTRANSに対するI/O要求を、"M"と現在のジョブ番号を連結した名前のメンバーに向けます。 
 DEFINE FIELDと現在のジョブ番号を連結した名前のメンバーに向けます。 
   DEFINE FIELD(#MEMBER)
...
 TYPE(*CHAR)
...
 LENGTH(10)
...

   USE    BUILTIN(CONCAT)
...
 WITH_ARGS('M'
...
 *JOBNBR)
...
 TO_GET(#MEMBER)
...

   POINT  FILE(GLTRANS)
...
 TO_MEMBER(#MEMBER)
...