asdbget issues.

[Brock Henry <bhenry@xxxxxxxxxxxxxxxxxxxx>]

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>
*************************************************************************
Brock Henry - brockh@ozemail.com.au (H) - bhenry@shorelink.nsw.gov.au (W)

A simple man comes home and asks "What's for dinner?", a complex man comes 
home and wonders about the universe, an enlightened man comes home and asks 
"What's for dinner?"
************************************************************************* 
+---
| 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
+---