4 6 2 Working Lists

4.6.2 Working Lists

A function that receives a working list would be called with a parameter list similar to this:

Working list received: PSLSKL   Working list elements: SKILCODE A(4) SKILDESC A(20) COMMENT A(40)

 

In RPG/400

      CALL   FUNNAME

      PARM              DC@IDS

      PARM              DC@EDS

      PARM              PR@IDS

      PARM              PSLSKL

      PARM              PSLNUM

      PARM              PSLPOS

In Control Language

CALL PGM(FUNNAME) +

PARM(&DC@IDS &DC@EDS &PR@IDS &PSLSKL +

&PSLNUM &PSLPOS)

where:

FUNNAME Is the function object name DC@IDS System information A(1024) DC@EDS Extra System information A(2500) PR@IDS Process Information A(5000) PSLSKL Passed working list (Note 1) n * A(64) Note 2 PSLNUM Number of entries in list (Note 1) P(7,0) PSLPOS Position in list (Note 1) P(7,0)

 

Note 1: The 'Passed working list' parameters are repeated for each passed working list.

Note 2: The PSLSKL parameter is defined as the aggregate length of all fields in the working list. The size of the PSLSKL parameter of this field will be 64 bytes. In RPG terms this field is a multiple occurrence data structure where each of the fields are sub-fields of PSLSKL.

The 'n' occurrences is the number of entries in the working list that have been passed.