RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Retrieve Database File Description (QDBRTVFD) API Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara Withanachchi   


     **-- API Error Data Structure:  -------------------------**
     D ApiError        DS
     D  AeBytPrv                     10i 0 Inz( %Size( ApiError ))
     D  AeBytAvl                     10i 0 Inz
     D  AeExcpId                      7a
     D                                1a
     D  AeExcpDta                   128a
     **
     D FilNam          s             10a   Inz( 'QADBXREF' )
     D FilLib          s             10a   Inz( '*LIBL   ' )
     **
     D RfFilNamQ       s             20a
     D RfFilNamRtnQ    s             20a
     D RfFmtNam        s              8a   Inz( 'FILD0100' )
     D RfFilOvr        s              1a   Inz( '0' )
     D RfFilRcd        s             10a   Inz( '*FIRST' )
     D RfFilSys        s             10a   Inz( '*LCL' )
     D RfFmtTyp        s             10a   Inz( '*EXT' )
     **
     D RfFilInf        Ds          4096
     D  RfFilInfRtn                  10i 0 OverLay( RfFilInf:   1 )
     D  RfFilInfPrv                  10i 0 OverLay( RfFilInf:   5 )
     D                                     Inz( %Size( RfFilInf ))
     D  RfFilRcdLen                   5i 0 OverLay( RfFilInf: 305 )
     D  RfFilJrnInf                  10i 0 OverLay( RfFilInf: 379 )
     **
     D JrnInf          Ds
     D  JiJrnNam                     10a
     D  JiJrnLib                     10a
     D  JiJrnOpt                      1a
     D  JiJrnSts                      1a
     **
     C                   Eval      RfFilNamQ  =  FilNam + FilLib
     **
     C                   Call      'QDBRTVFD'
     C                   Parm                    RfFilInf
     C                   Parm                    RfFilInfPrv
     C                   Parm                    RfFilNamRtnQ
     C                   Parm                    RfFmtNam
     C                   Parm                    RfFilNamQ
     C                   Parm                    RfFilRcd
     C                   Parm                    RfFilOvr
     C                   Parm                    RfFilSys
     C                   Parm                    RfFmtTyp
     C                   Parm                    ApiError
     **
     C                   Eval      JrnInf     =  %Subst( RfFilInf
     C                                                 : RfFilJrnInf + 1
     C                                                 : %Size( JrnInf ))
     **
     C                   Return
     **


User Comments

Please login or register to add comments

<Previous   Next>