You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

9.141 MAKE_FILE_OPERATIONL

Note: Built-In Function Rules     Usage Options

Submits a job to create or recreate a file plus associated logical files and I/O module.

This is a Specialized Built-In Function for use in a Development Environment only.

Arguments for Visual LANSA

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

File name

1

10



2

A

Req

Library name

1

10



3

A

Opt

Recreate options if file is already created

Byte 1:
Y = rebuild the table and save data
N = do not rebuild the table
Default: Y

Byte 2:
Y = rebuild indexes/views
N = do not rebuild indexes/views
Default: Y

Byte 3:
Y = rebuild OAM
N = do not rebuild OAM
Default: Y

1

3



4

A

Opt

Name of job

Ignored

1

10



5

A

Opt

Name of job description

Ignored

1

21



6

A

Opt

Name of job queue

Ignored

1

21



7

A

Opt

Name of output queue

Ignored

1

21



8

A

Opt

Produce file and I/O module source listings ?

Y = keep source
N = do not keep source

1

1



9

A

Opt

Ignore decimal data error in associated I/O module?

Ignored

1

1



10

A

Opt

Strip debug data options in associated I/O module?

Ignored

1

1



11

A

Opt

User program to call

Ignored

1

21



12

A

Opt

Delete $$ File? (Used for Keep Saved Data)

Y = Keep saved data.

N = Do not keep saved data.

Default: N

1

1



Arguments for LANSA for i

For further information, refer to Create/Recreate a file from its definition screen in Submitting Job to Make File Definition Operational in the LANSA for i User Guide.

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

File name

1

10



2

A

Req

Library name

1

10



3

A

Opt

Recreate options if file is already created

Byte 1:
Y = recreate the table
N = do not recreate the table
Default: Y

Byte 2:
Y = recreate indexes
N = do not recreate indexes
Default: Y

Byte 3:
Y = rebuild OAM
N = do not rebuild OAM
Default: Y

1

3



4

A

Opt

Name of batch job

Default: File name

1

10



5

A

Opt

Name of job description

Default: the job description from the requesting job's attributes.

1

21



6

A

Opt

Name of job queue

Default: the job queue from the requesting job's attributes.

1

21



7

A

Opt

Name of output queue

Default: the output queue from the requesting job's attributes.

1

21



8

A

Opt

Produce file and I/O module source listings ?

Y = produce listings

N = do not produce listings

Default N (do not produce listings)

1

1



9

A

Opt

Ignore decimal data error in associated I/O module?

Y = ignore decimal data errors

N = do not ignore errors

Default: N (do not ignore errors)

1

1



10

A

Opt

Strip debug data options in associated I/O module?

Y = debugging information should be stripped.

N = debugging information should not be stripped.

Default: Y (debugging information should be stripped)

1

1



11

A

Opt

User program to call Default: Blank

1

21



12

A

Opt

Delete $$ File?

Y = $$ version of file should be deleted.

N = $$ version of file should not be deleted.

Default: N ($$ version of file should not be deleted)

1

1



Return Values

No

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

1

A

Req

Return code

OK = successful submission

ER = argument details are invalid or an authority problem has occurred.

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

2

2



Example

A user wants to control the compilation of files and associated logical views and I/O module using their own version of the "Create / Re-Create a File" facility.

FUNCTION  OPTIONS(*DIRECT)

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

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

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

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

BEGIN_LOOP

********** Request File and library name

REQUEST   FIELDS((#FILNAM)(#LIBNAM))

USE       BUILTIN(START_FILE_EDIT) WITH_ARGS(#FILNAM #LIBNAM LAN 'SALES RESULTS' NORMAL) TO_GET(#RETCOD)

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

********** Execute Built-In Function - MAKE_FILE_OPERATIONL

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

********** Check if submission was successful

IF        COND('#RETCOD *EQ ''OK''')

MESSAGE   MSGTXT('Create/recreate of file submitted successful')

CHANGE    FIELD(#FILNAM) TO(*BLANK)

ELSE     

MESSAGE   MSGTXT('Create/recreate submit failed with errors, refer to additional messages')

ENDIF    

END_LOOP 

         

  • No labels