7.98.3 POINT Examples

Example 1: Point file CUSTMST to library TESTDATA:

   POINT FILE(CUSTMST) TO_LIBRARY(TESTDATA)

or 

   DEFINE FIELD(#LIBRARY) TYPE(*CHAR) LENGTH(10)
   CHANGE FIELD(#LIBRARY) TO('TESTDATA')
   POINT  FILE(CUSTMST) TO_LIBRARY(#LIBRARY)

Example 2: Point file GLTRANS to a member with the same name as the current workstation:

   POINT FILE(GLTRANS) TO_MEMBER(*JOB)

or

   DEFINE FIELD(#MEMBER) TYPE(*DEC) LENGTH(2) DECIMALS(0)
   CHANGE FIELD(#MEMBER) TO(*JOB)
   POINT  FILE(GLTRANS)  TO_MEMBER(#MEMBER)

Example 3: Point file GLTRANS to a member with a name made up of an "M" concatenated with the current job number:

   DEFINE FIELD(#MEMBER) TYPE(*CHAR) LENGTH(10)
   USE    BUILTIN(CONCAT) WITH_ARGS('M' *JOBNBR) TO_GET(#MEMBER)
   POINT  FILE(GLTRANS) TO_MEMBER(#MEMBER)