Re: asdbget issues.

[Sean Porterfield <sporter@xxxxxxxxxxxx>]

It looks to me like you are using version 0.2 of asdget.  I think the code on
CVS will take care of your first problem.  Of course, your other option is to
install the latest tn5250 so you can use the translation maps.

Since I don't have V3R2, I don't have a full answer to your second problem.  But
it looks like your fields might not all be in the same place as on newer
systems.  Try the new CVS code - it may help with this problem too.

export CVSROOT=":pserver:anonymous@cvs.cleveland.lug.net:/tn5250"
cvs login
cvs checkout asdbget

Brock Henry wrote:

> Hello
>
> I have a couple of problems with asdbget.
>
> Firstly when I compile I get
>
> asdbget.c: In function `main':
> asdbget.c:582: `map' undeclared (first use in this function)
> asdbget.c:582: (Each undeclared identifier is reported only once
> asdbget.c:582: for each function it appears in.)
> make: *** [asdbget.o] Error 1
>
> The line in question is   "tn5250_char_map_destroy (map);"
>
> And as it was just at the cleaning up end of the program, I fudged it and
> commented out the line. It now compiles successfully. Ugly, but don't know
> C well enuff to fix properly.
>
> When I run it with the command line "asdbget 10.10.10.10 library/filename"
>
> I get the output listed below. If anyone wants the core just ask and I'll
> send it. :)
>
> my as/400 is v3r2, which may be part of the reason. If anyone has any ideas
> please let me know.
>
> <STARTQUOTE>
> asdbget: while trying to retreive 'DSPFFD FILE(scareldta/bkbfin)
> OUTPUT(*OUTFILE
> ) OUTFILE(QTEMP/FIELDS)':
> Warning: incomplete last record.
> asdbget: while trying to retreive 'DSPFD FILE(scareldta/bkbfin)
> TYPE(*ACCPTH) OU
> TPUT(*OUTFILE) OUTFILE(QTEMP/KEYS)':
> Warning: incomplete last record.
> <?xml version="1.0"?>
> <!DOCTYPE ASDB SYSTEM "/usr/local/share/asdbget/ASDB.dtd">
> <ASDB VERSION="0.9">
>    <LAYOUT RECLEN=130068>
>      <FIELD NAME="KBFIBN" TYPE="B" OFFSET="0" WIDTH="4">
>        Internal Borrower No.
>      </FIELD>
>      <FIELD NAME="TE    0000" TYPE=" " OFFSET="39151" WIDTH="13396">
>        te                                  001TLFREF    S
>      </FIELD>
>      <FIELD NAME="0900002030" TYPE=" " OFFSET="74999" WIDTH="0">
>                              128TLFREF    SCADEVPGM FREF
>      </FIELD>
>      <FIELD NAME="rary Numbe" TYPE="0" OFFSET="-1" WIDTH="0">
>                128TLFREF    SCADEVPGM FREF      SCLIB
>      </FIELD>
>      <FIELD NAME=" " TYPE=" " OFFSET="-1" WIDTH="12">
>        REF    SCADEVPGM FREF      SCLOC     Loc
>      </FIELD>
>      <FIELD NAME=" " TYPE=" " OFFSET="95599" WIDTH="231">
>        GM FREF      BFVAL     Transaction           Value
>      </FIELD>
>      <FIELD NAME="     056TL" TYPE=" " OFFSET="74068" WIDTH="56000">
>        IN        Internal            Item No.
>      </FIELD>
>      <FIELD NAME="    SCADEV" TYPE=" " OFFSET="43412" WIDTH="4">
>        ate
>      </FIELD>
>      <FIELD NAME="FREF" TYPE=" " OFFSET="94499" WIDTH="0">
>                                                 PB
>      </FIELD>
>      <FIELD NAME="B     Item" TYPE="0" OFFSET="3919" WIDTH="0">
>                                   SB3
>      </FIELD>
>      <FIELD NAME=" " TYPE=" " OFFSET="-1" WIDTH="0">
>                     SB3                                 0
>      </FIELD>
>      <FIELD NAME=" " TYPE="0" OFFSET="-1" WIDTH="0">
>        B                                  00000001900 N
>      </FIELD>
>      <FIELD NAME=" " TYPE="" OFFSET="19999" WIDTH="0">
>                             00000001900 N
>      </FIELD>
>      <FIELD NAME=" " TYPE="N" OFFSET="-1" WIDTH="0">
>               00000001900 N
>      </FIELD>
>      <FIELD NAME=" " TYPE=" " OFFSET="-1" WIDTH="0">
>        1900 N                              0000
>      </FIELD>
>      <FIELD NAME=" " TYPE=" " OFFSET="-19001" WIDTH="50000">
>                              0000
>      </FIELD>
>      <FIELD NAME="    000000" TYPE=" " OFFSET="-1" WIDTH="0">
>                0000                              NN
>      </FIELD>
>      <FIELD NAME="0 N" TYPE=" " OFFSET="-1" WIDTH="0">
>                                    NN          000000
>      </FIELD>
>    </LAYOUT>
> unknown type Basdbget: asdbget.c:468: file_data_cb: Assertion `0' failed.
> Aborted (core dumped)
> <ENDQUOTE>

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