Problem

[jajonowak]

hallo AleX

1. den befehl rtvmbrd benutzen
2. das api qusrmbrd mit dem format mbrd0200

lg
hans-joachim

[TARASIK]

Hallo,
vielleicht hilft auch noch dieses Beispiel:

API *-*QUSRMBRD
*****Posted by:*Jamie Flanary **Contact

The QUSRMBRD (Retrieve Member Description) API returns descriptive
information about a member in a file.





D szMsgText S 255A
** Tells the APIs how long the buffers are that are being used.
D nBufLen S 10I 0
** The structure returned by the QusRMBRD API.
D szMbrd0100 DS INZ
D nBytesRtn 10I 0
D nBytesAval 10I 0
D szFileName 10A
D szLibName 10A
D szMbrName 10A
D szFileAttr 10A
D szSrcType 10A
D dtCrtDate 13A
D dtLstChg 13A
D szMbrText 50A
D bIsSource 1A
D RmtFile 1A
D LglPhyFile 1A
D ODPSharing 1A
D filler2 2A
D RecCount 10I 0
D DltRecCnt 10I 0
D DataSpaceSz 10I 0
D AccpthSz 10I 0
D NbrBasedOnMbr 10I 0

**----------------------------------------------------------------
** Input Parameters for the program.
**----------------------------------------------------------------
** Source file name
D szSrcFile S 10A
D szSrcLib S 10A
D szSrcMbr S 10A

**----------------------------------------------------------------
** Input Parameters to the QUSRMBRD API
**----------------------------------------------------------------
** Format to be returned
D szFmt S 8A Inz('MBRD0200')
** Qualified source file and library name
D szQualName S 20A
** Whether or not to ignore overrides (0=Ignore, 1 = Apply)
D bOvr S 1A Inz('0')

**----------------------------------------------------------------
** Call this program with 3 parameters:
** Parm(QRPGLESRC myLibr ORDENTRY)
** srcfile srclib srcmbr
**----------------------------------------------------------------
C *ENTRY PLIST
C Parm szSrcFile
C Parm szSrcLib
C Parm szSrcMbr


**----------------------------------------------------------------
** Call QusRMBRD to retrieve the specified source member's
**----------------------------------------------------------------
C Eval szQualName = szSrcFile + szSrcLib
C Eval nBufLen = %size(szMbrD0100)

**----------------------------------------------------------------
C Call(E) 'QUSRMBRD'
C Parm szMbrD0100
C Parm nBufLen
C Parm szFmt
C Parm szQualName
C Parm szSrcMbr
C Parm bOvr

**----------------------------------------------------------------
** If RTFMBRD failed, we tell the FTP client that it failed.
**----------------------------------------------------------------
C if %Error
C Eval szMsgText = 'RTVMBRD Failed'

C endif



C return

[_AleX_]

Hmmm....

Also mit APIs kenn ich mich net so aus. Aer trotzdem danke. Ich werde mal weitertesten.

[Fuerchau]

Dann ruf aus dem RPG ein CLP auf dass wiederum den RTVMBRD verwendet.

[TARASIK]

Hallo AleX,
hier ein CL Beispielprogramm:

CL program using RTVMBRD:

PGM *(&LIB &FILE &MBR)

/* GET NUMBER OF RECORDS IN A FILE MEMBER */
/* IF NO MEMBER IS SPECIFIED **FIRST IS USED */
/* IF RETRIEVE FAILS -000000001 IS RETURNED IN &RCDS */


DCL **&LIB ***CHAR 10
DCL **&FILE **CHAR 10
DCL **&MBR ***CHAR 10
DCL **&RCDS **CHAR 10
DCL **&RCDSN *DEC (10 0)

IF (&MBR *EQ ' ') (CHGVAR &MBR '*FIRST ')

RTVMBRD ***FILE(&LIB/&FILE) MBR(&MBR) NBRCURRCD(&RCDSN)
MONMSG ***(CPF3000 CPF9800) EXEC(CHGVAR &RCDSN -1)

CHGVAR *&RCDS *&RCDSN

ENDPGM