Re: More QCAPCMD API hlep

[Carel Teijgeler <teygeler@xxxxxxx>]

Mike Silvers wrote:

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

Mike,
you should define the last field of the data structure as follows

 Resvd                 12     20    Inz(x'000000000000000000')

'That is 18 zeroes.

I hope tha t solves the problem




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