7.75.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)