Re: QDMRTVFO API won't work - help

[Carel Teijgeler <teygeler@xxxxxxx>]

"Mark A. Manske" wrote:

> Mostly I want this to be part of the code so I know for sure what is
> going on just in case in the future someone calls this program without a C/L
> and inadvertently updates the live database.
>
> D RTRNOVRDATA     S           1024A   INZ
> D LENGTH          S              9B 0 INZ(%SIZE(RTRNOVRDATA))
> D FORMATNAME      S              8A   INZ('OVRL0100')
> D FILENAME        S             10A   INZ('MWPCUSTHST')
>
> DOVRL0100         DS
> D BYTESRETURNED                  9B 0
> D BYTESAVAILABLE                 9B 0
> D FILENAMEUSED                  10A
> D LIBRARYNAME                   10A
> D MEMBERNAME                    10A
> D FINALOVERRIDE                 10A
>
> D ERRORCODE       DS
> D BYTPRV                         9B 0
> D BYTAVA                         9B 0
> D MSGID                          7A
> D ERROR#                         1A
> D MESSAGEDATA                  200A
>
> C                   CALL      'QDMRTVFO'
> C                   PARM                    RTRNOVRDATA
> C                   PARM                    LENGTH
> C                   PARM                    FORMATNAME
> C                   PARM                    FILENAME
> C                   PARM                    ERRORCODE
>
> here are the values after the call
>
>  EVAL ERRORCODE
>  BYTPRV OF ERRORCODE = 077952576.
>  BYTAVA OF ERRORCODE = 000000000.
>  MSGID OF ERRORCODE = '       '
>  ERROR# OF ERRORCODE = ' '
>  MESSAGEDATA OF ERRORCODE =       equals blanks
>
> EVAL OVRL0100
> BYTESRETURNED OF OVRL0100 = 077952576.
> BYTESAVAILABLE OF OVRL0100 = 077952576.
> FILENAMEUSED OF OVRL0100 = '          '
> LIBRARYNAME OF OVRL0100 = '          '
> MEMBERNAME OF OVRL0100 = '          '
> FINALOVERRIDE OF OVRL0100 = '          '
>
> Now I know I am doing something really dumb by not fully understanding how
> to "call" the API's
> But any direction would be much appreciated.
>
> TIA
>
> Mark A. Manske
> [mailto:mmanske@minter-weisman.com]
> Sr. Project Lead
> Minter-Weisman
>

Mark,

I think the parameter FILENAME is wrong.

The API expects a qualified object name with a length of 20 and you only pass 
the
filename which is 10, therefore, the parameters misalign/overlap. The library in
the next 10 characters (from the ERRORCODE parameter) do not exist (being
numeric).

Regards,


Carel Teijgeler


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---