9.131 LOAD_OTHER_FILE

Note: Built-In Function Rules     Usage Options

Loads the definition of an "OTHER" file.

An edit session must be commenced by using the START_FILE_EDIT Built-In Function, prior to using this Built-In Function.

Arguments

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

N

Req

Maximum number of logical files to load

Default: 5

1

2

0

0

2

L

Opt

Working list to contain the names of logical files to be loaded. Each logical file name must be 10 bytes.

If this argument is provided, then Argument 1 (Maximum number of logical files to load) must be zero.

100

100

 

 

 

Return Values

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

Return code: OK, ER.

In case of "ER" return code, error message(s) are issued automatically.

2

2

 

 

 

Example

A user wants to control the load of an "OTHER" file definition using their own version of the 'Load an "OTHER" file' option. A maximum of 2 logicals to load has been specified in this example.

********** Define arguments and lists

DEFINE     FIELD(#FILNAM) TYPE(*CHAR) LENGTH(10)

DEFINE     FIELD(#LIBNAM) TYPE(*CHAR) LENGTH(10)

DEFINE     FIELD(#MAXLOG) TYPE(*DEC) LENGTH(2) DECIMALS(0)

DEFINE     FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2)

BEGIN_LOOP

********** Request File and library name and maximum number of

********** logicals to load

REQUEST    FIELDS(#FILNAM #LIBNAM #MAXLOG)

**********

USE        BUILTIN(START_FILE_EDIT) WITH_ARGS(#FILNAM #LIBNAM 'DEM') TO_GET(#RETCOD)

USE        BUILTIN(LOAD_OTHER_FILE) WITH_ARGS(2) TO_GET(#RETCOD)

USE        BUILTIN(END_FILE_EDIT) WITH_ARGS('Y') TO_GET(#RETCOD)

********** Submit job to make file operational

USE        BUILTIN(MAKE_FILE_OPERATIONL) WITH_ARGS(#FILNAM #LIBNAM) TO_GET(#RETCOD)

**********

END_LOOP