那位大侠在rpgle中使用过链表

pantierui

我想在rpgle中实现C中的链表的如下结构,那位晓得请赐教。

struct SP_NODE
{
  struct SP_NODE *next;
  struct SP_NODE *previous;
  void *element;
};

typedef struct SP_NODE *SP_NODE_ptr;
  
/* The linked list structure. */
struct SP_LINKED_LIST
{
  struct SP_NODE header;
  size_t size;
};

typedef struct SP_LINKED_LIST *SP_LINKED_LIST_ptr;

struct SP_LL_ITERATOR
{
  SP_LINKED_LIST_ptr list;
  SP_NODE_ptr next;
  SP_NODE_ptr lastReturned;
};

insmile

直接用C在400里写，编译成MOUDLE供调用就是

pantierui

在rpgle中要调用service program中的函数，而这个service program是用C/400写的。而程序的接口参数有个链表。

passthru

Ptr，pointer在rpgle与C/400是一样同意使用，都表示数据，或数据串的起始地址，两者可以互通，即rpgle中的*变量，可以作为传参调用C/400；反之一样。

passthru

struct SP_NODE
{
  struct SP_NODE *next;
  struct SP_NODE *previous;
  void *element;
};

typedef struct SP_NODE *SP_NODE_ptr;

在RPGIV中表示应该是这样的：

d SP_NODE               ds               based(SP_NODE_ptr)
d   next                                *
d   previous                         *
d   element                          *

d SP_NODE_ptr    s             *
d next                   s             *
d previous             s             *
d element              s            *

pantierui

struct SP_NODE
{
  struct SP_NODE *next;
  struct SP_NODE *previous;
  void *element;
};

typ ...
passthru 发表于 2010-10-21 11:00

谢谢。