More QCAPCMD API hlep

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Thanks for the suggestions about the binary fields....they worked.  Now,
surprisingly, there is another error I am having trouble overcoming.  It
deals with the data structure defining the CPOP0100 fields.  They tell me
that this API only support the CPOP0100 format.  I looked at the definition
of the CPOP0100 format and defined a data structure according to the
definition.  I am getting an error about position 12.  The definition tells
me that the reserved field must be hexadecimal 0.  My data structure is as
follows:

 D OptCtlBlock     DS
 D  CmdType                1      4B 0 Inz(0)
 D  DBCSDta                5      5    Inz('0')
 D  Prmptr                 6      6    Inz('0')
 D  Syntax                 7      7    Inz('0')
 D  MsgKey                 8     11    Inz('NCMD')
 D  Resvd                 12     20    Inz(x'0A')

The error I am receiving is as follows:

Message ID . . . . . . :   CPF0008       Severity . . . . . . . :   40
Message type . . . . . :   Escape
Date sent  . . . . . . :   08/11/00      Time sent  . . . . . . :   09:17:56

Message . . . . :   Value in option control block not valid.
Cause . . . . . :   The value specified in position 12 is not valid.  The
  option control block format is CPOP0100.
Recovery  . . . :   Correct the option control block value and try the
request
  again.


Does anyone have any ideas??

Thanks


Mike Silvers

Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http:\\www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
________________________________

+---
| 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
+---