Add Library List Entry

AddLiblE

The AddLiblE procedure adds one or more library names to the user portion of the job's library list.

number-of-libraries-added  AddLiblE(
  InLibl        2750A  Const Varying 
  szPosLib        10A  Const Options(*NOPASS) 
  nPosAfter        1N  Const Options(*NOPASS)
)

Parameters

InLibl

[ input VChar(2750) const ]  A list of one or more library names to add to the user-portion of the job's library list. If more than one library name is specified, each library name must be separated by one or more blanks.

szPosLib [ optional ] DFT(*FIRST)

[ input VChar(10) const ]  An optional name of a positional library. This library name is used along with the nPos parameter to determine the placement of the new library or libraries being added to the library list.

nPosAfter [ optional ] DFT(*OFF)

[ input Indy const ]  If specified, controls the placement of the library name(s) specified on the InLibl parameter.

• *OFF or '0' = Position the new library name(s) before the library name specified on the szPosLib parameter.
• *ON or '1'  = Position the new library name(s) after the library name specified on the szPosLib parameter.

Return Value

If the function succeeds, the library name(s) specified on the InLibl parameter are added to the library list and the total number of library names on the list is returned.

If the function fails, the return value is -1.

Remarks

The use of this function is similar to the ADDLIBLE CL command.

Example

      /INCLUDE QCPYSRC,LIBL

     C                   CallP       AddLible('XTOOLS')