PACKAGE_FIRST

Returns the header information for the first package in the package list.

Syntax

CALL PACKAGE_FIRST(pkgListId, packageId, numEntries, desc, dateTime, nameValue, channel, rc<, properties, propValue1, ...propValueN>);

pkgListId

Numeric, output.
Identifies the list of retrieved packages.

packageId

Numeric, output.
Identifies the retrieved package.

numEntries

Numeric, output.
Returns the number of entries in the package.

desc

Character, output.
Returns a description of the package.

dateTime

Numeric, output.
Returns the date and time that the package was published, in GMT format.

nameValue

Character, output.
Returns the name/value pairs assigned to the package. Name/value pairs are site-specific; they are used for the purpose of filtering.

channel

Character, output.
Returns the name of a channel to which the package was published.

rc

Numeric, output.
Receives a return code.

properties

Character, input.
Identifies a comma-separated list of optional property names to be returned from the package. Valid property names are as follows:

• ABSTRACT
• EXPIRATION_DATETIME

propValue1, ...propValueN

Character/numeric, output.
Returns one value for each specified property. The order of the values matches the order of the property names in the properties parameter. Valid property values are defined as follows:

ABSTRACT

Character string variable.
If specified, is returned to the ABSTRACT variable.

EXPIRATION_DATETIME

Numeric variable.
The package expiration date/time stamp is returned to the EXPIRATION_DATETIME variable. The date/time stamp is in GMT format.

Examples

The following example opens the JSMITH queue and retrieves the descriptive header information for all packages, then returns the header information for the first package.

   plist=0;
   qname = "MQSERIES://LOCAL:JSMITH";
   rc=0;
   total=0;
   nameValue='';
   CALL RETRIEVE_PACKAGE(plist, "FROM_QUEUE", 
      qname, total, rc);

   packageId = 0;
   desc='';
   num=0;
   dt=0;
   nv='';
   ch='';
   rc=0; 
   CALL PACKAGE_FIRST(plist, packageId, 
      num, desc, dt, nv, ch, rc);

The following example demonstrates the use of properties.

   plist=0;
   qname = "MQSERIES://LOCAL:JSMITH";
   rc=0;
   total=0;
   nameValue='';
   CALL RETRIEVE_PACKAGE(list, "FROM_QUEUE", 
      qname, total, rc);

   packageId = 0;
   desc='';
   num=0;
   exp=0;
   abstract='';
   dt=0;
   nv='';
   ch='';
   rc=0; 
   props='ABSTRACT, EXPIRATION_DATETIME';
   CALL PACKAGE_FIRST(plist, packageId, num, desc, 
      dt, nv, ch, rc, props, abstract, exp);