× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hmm...

The error says that postion 12 has to be hexadecimal 0.  Yet you are loading 
hexidecimal
0A in postion 12.  That's not a zero.  Have you tried changing the line to:

 D  Resvd                 12     20    Inz(x'0')

0A takes up one byte, which would be postion 12.  If, in fact, you wanted 0 in 
12 and A in
13 I think you could use:

 D  Resvd                 12     20    Inz(x'000A')

Remember, it takes 2 hexidecimal digits to make one byte.

Regards,

Jim Langston

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

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.