Adding 0000000100 to Date COBOL program

6 views
Skip to first unread message

vbose

unread,
Nov 30, 2009, 1:19:04 PM11/30/09
to legstar-user
I have attached the DateService.xsd file for your perusal. After the
execution of the program, the expected result should be
2009-11-3011.41.332009-11-30-11.41.33.878498 but what I received is
00000001002009-11-3011.41.332009-11-30-11.41.33.878498.

I would really appreciate if someone could help me find out the root
cause of the prepending 0000000100 to the actual value.

Fady Moussallam

unread,
Dec 1, 2009, 8:06:14 AM12/1/09
to legsta...@googlegroups.com
Hello,

I can't see the attachment. Would you mind reposting it?

It would also be helpful to see the original COBOL data descriptions
in case something went wrong in the COBOL to Xsd translation.

Fady
> --
>
> You received this message because you are subscribed to the Google Groups "legstar-user" group.
> To post to this group, send email to legsta...@googlegroups.com.
> To unsubscribe from this group, send email to legstar-user...@googlegroups.com.
> For more options, visit this group at http://groups.google.com/group/legstar-user?hl=en.
>
>
>

vbose

unread,
Dec 5, 2009, 11:35:38 AM12/5/09
to legstar-user
Hi Fady,

I think I figured it out why the response was spitting 0000000100 in
front of the actual value.

01 AZRF003B-REPLY-MSG.

05 DCI-ERROR-CODE PIC 9(04).
05 DCI-ROW-COUNT PIC 9
(04).
05 DCI-MORE-ROWS-FLAG PIC 9(02).
05 REPLY-
DATA.
10 RPD-SYS-DATE PIC X
(10).
10 RPD-SYS-TIME PIC X
(08).
10 RPD-SYS-DATETIME PIC X(26).

Actuall the value that was prepended is from DCI-ERROR-CODE , DCI-ROW-
COUNT and DCI-MORE-ROWS-FLAG.

Thanks for your time.

Vigil

On Dec 1, 8:06 am, Fady Moussallam <fady.moussal...@gmail.com> wrote:
> Hello,
>
> I can't see the attachment. Would you mind reposting it?
>
> It would also be helpful to see the original COBOL data descriptions
> in case something went wrong in the COBOL to Xsd translation.
>
> Fady
>
Reply all
Reply to author
Forward
0 new messages