retrieve service program list of procedures -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Thanks a lot for your help Rick and Adam,
Now it works fine here's my draft code for info ;

D APIUsrSpc S 20 Inz( 'MODL0100 MYDEV ' )
D PgmLAPI S 10 Inz( 'QBNLMODI' )
D PgmLFmt S 8 Inz( 'MODL0100' )
D pUserSpace S *
D genericHeader DS based(pUserSpace)
D headerOffset 117 120i 0
D headerSize 121 124i 0
D listOffset 125 128i 0
D listSize 129 132i 0
D numEntries 133 136i 0
D entrySize 137 140i 0

D DS based(pEntry)
D ApiSizeOfEntry 10i 0
D ApiModule 10a
D ApiModuleLib 10a
D ApiSymbolType 1a
D ApiReserved2 3a
D ApiOffSetExpSy 10i 0
D ApiLengthExpSy 10i 0
D ApiArgOptr 10a

D ApiProc s 128a based( papiproc )
D ApiProc2 s 128a Varying
/free
CrtUsrSpc( APIUsrSpc );

l APINam = PgmLAPI;
APILstFmt = PgmLFmt;

/END-FREE

C Call APINam
C Parm APIUsrSpc
C Parm APILstFmt
C Parm Obj
C Parm APIErr

* Get a pointer to the user space containing the list
C call 'QUSPTRUS'
C parm ApiUsrSpc
C parm pUserSpace

/free

pEntry = pUserSpace + listOffset;

For Index = 1 To NumEntries;

papiproc = pUserSpace + ApiOffsetexpsy;
ApiProc2 = *Blank;
apiproc2 = %Subst(apiproc : 1 : apilengthexpsy );

pEntry = pentry + ApiSizeOfEntry;

EndFor;

/end-free
Best regards,
Manuel

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.