AW: Unsiged Binary to Text

View Only

Back to discussions

Expand all | Collapse all

AW: Unsiged Binary to Text

1. AW: Unsiged Binary to Text

0 Recommend
ca.portal.admin
Posted Feb 09, 2010 04:22 AM

Reply Reply Privately
HI
=20
Add a Sort Jobstep using the 'copy' function. There you have the = possiblity to convert data into the desired format.=20
=20
Best regards,
JP
=20
PS: I had to do that for Datacom -> SAP Oracle conversion.

________________________________

Von: CADRE-L CA-Datacom/DB Database Discussion Forum im Auftrag von = David Van Staden
Gesendet: Di 09.02.2010 09:34
An: CADRE-L@listserv.albany.edu
Betreff: Unsiged Binary to Text

This is a multipart message in MIME format.

--=3D_alternative 002F1589422576C5_=3D

Morning ,

My users have extracted their data from a Datacom database into a flat file. The date field is defined as a U B 9.
They want to use the extract to write it away to another flat file , = this time displaying the binary date field as a text field.

Can someone help ?
Thanks
Dave
**********************************************************************
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager.
**********************************************************************

--=3D_alternative 002F1589422576C5_=3D

 Morning , My users have extracted their = data from a Datacom database into a flat file. The date field is = defined as a U B 9. They want to use the extract to = write it away to another flat file , this time displaying the binary date = field as a text field. Can someone help ? Thanks Dave
**********************************************************************
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager.
**********************************************************************

--=3D_alternative 002F1589422576C5_=3D-- =========================================================================
Date: Tue, 16 Feb 2010 11:04:36 +0200
Reply-To: CADRE-L CA-Datacom/DB Database Discussion Forum
<CADRE-L@LISTSERV.ALBANY.EDU>
Sender: CADRE-L CA-Datacom/DB Database Discussion Forum
<CADRE-L@LISTSERV.ALBANY.EDU>
From: David Van Staden <david.vanstaden@SITA.CO.ZA>
Subject: XML conversion on CICS cobol Program.
MIME-Version: 1.0

This is a multipart message in MIME format.

--=_alternative 0031DB90422576CC_=

Hi there ,

Our users are trying to use the COBOL parse statement and it is not working.
Does anyone know how this coding works ? We have played with different options but to no avail.

CODING:

01 WS-GET-PATIENT PIC X(100).
01 WS-GET-PATIENT-LENGTH COMPUTATIONAL PIC 999.
01 WS-XML-CONTENTS PIC X(100).
01 WS-PATIENT-ID PIC X(15).

ZE-XML-TEXT.
-----------

XML PARSE WS-GET-PATIENT PROCESSING PROCEDURE ZEA-XML-CONV
ON EXCEPTION
DISPLAY 'XML BOMBED!!!'
NOT ON EXCEPTION
DISPLAY 'XML SUCCESFULL!!!'
END-XML
DISPLAY 'END OF XML PARSE!!!!!!!!'

GOBACK.

ZEA-XML-CONV.
------------

DISPLAY 'WS-GET-PATIENT: ' WS-GET-PATIENT
DISPLAY 'XML-EVENT: ' XML-EVENT
DISPLAY 'XML-TEXT : ' XML-TEXT
DISPLAY 'XML-NTEXT : ' XML-NTEXT
DISPLAY 'XML-CODE : ' XML-CODE

SELECT EVERY ACTION
WHEN XML-EVENT = 'START-OF-DOCUMENT'
DISPLAY 'START XML-EVENT DOC'
WHEN XML-EVENT = 'START-OF-ELEMENT'
DISPLAY 'START XML-EVENT ELEMENT PATIENT'
MOVE XML-TEXT TO WS-XML-CONTENTS
WHEN XML-EVENT = 'CONTENT-CHARACTERS'
DISPLAY 'START XML-EVENT CONTENT-CHARACTERS'
SELECT EVERY ACTION
WHEN WS-XML-CONTENTS = 'XM-PAT-ID'
MOVE WS-XML-CONTENTS TO WS-PATIENT-ID
DISPLAY 'WS-PATIENT-ID: ' WS-PATIENT-ID
ENDSELECT
WHEN XML-EVENT = 'END-OF-ELEMENT'
DISPLAY 'START XML-EVENT CONTENT-CHARACTERS'
WHEN XML-EVENT = 'END-OF-DOCUMENT'
DISPLAY 'END XML-EVENT DOC'
WHEN XML-EVENT = 'EXCEPTION'
COMPUTE WS-GET-PATIENT-LENGTH =
FUNCTION LENGTH (XML-TEXT)
DISPLAY 'EXCEPTION :' WS-GET-PATIENT-LENGTH
WHEN NONE
DISPLAY 'OTHER XML-EVENT:' XML-EVENT
ENDSELECT

DISPLAY 'END OF SELECT'

OUTPUT:

AS ABOVE:

WS-GET-PATIENT: <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
XML-EVENT: START-OF-DOCUMENT
XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
XML-NTEXT :
XML-CODE : 0000000000
START XML-EVENT DOC
WS-GET-PATIENT: <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></PATIENT>
XML-EVENT: START-OF-ELEMENT
XML-TEXT : XM-PATIENT
XML-NTEXT :
XML-CODE : 0000000000
START XML-EVENT ELEMENT PATIENT
END OF SELECT

It seems like it reads in the select for the first 2 options and then ends.

WITHOUT SELECT STATEMENT. That is : ONLY DISPLAYS:

XML-EVENT: START-OF-DOCUMENT
XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
XML-NTEXT :
XML-CODE : 0000000000
XML-EVENT: START-OF-ELEMENT
XML-TEXT : XM-PATIENT
XML-NTEXT :
XML-CODE : 0000000000
XML-EVENT: START-OF-ELEMENT
XML-TEXT : XM-PAT-ID
XML-NTEXT :
XML-CODE : 0000000000
XML-EVENT: CONTENT-CHARACTERS
XML-TEXT : 10000016DA
XML-NTEXT :
XML-CODE : 0000000000
XML-EVENT: END-OF-ELEMENT
XML-TEXT : XM-PATIENT
XML-NTEXT :
XML-CODE : 0000000000
XML-EVENT: EXCEPTION
XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
XML-NTEXT :
XML-CODE : 0000000001
XML BOMBED!!!
END OF XML PARSE!!!!!!!!

It seems like on the displays, it reaches the end of the xml parse and tries to start the process again.

**********************************************************************
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager.
**********************************************************************

--=_alternative 0031DB90422576CC_=

 Hi there , Our users are trying to use the COBOL parse statement and it is not working. Does anyone know how this coding works ? We have played with different options but to no avail. CODING:
 
 01 WS-GET-PATIENT PIC X(100). 01 WS-GET-PATIENT-LENGTH COMPUTATIONAL PIC 999.

 01 WS-XML-CONTENTS PIC X(100). 01 WS-PATIENT-ID PIC X(15). ZE-XML-TEXT. ----------- XML PARSE WS-GET-PATIENT PROCESSING PROCEDURE ZEA-XML-CONV ON EXCEPTION DISPLAY 'XML BOMBED!!!' NOT ON EXCEPTION DISPLAY 'XML SUCCESFULL!!!' END-XML DISPLAY 'END OF XML PARSE!!!!!!!!' GOBACK. ZEA-XML-CONV. ------------ DISPLAY 'WS-GET-PATIENT:
' WS-GET-PATIENT DISPLAY 'XML-EVENT:
' XML-EVENT DISPLAY 'XML-TEXT
: ' XML-TEXT DISPLAY 'XML-NTEXT
: ' XML-NTEXT DISPLAY 'XML-CODE
: ' XML-CODE SELECT EVERY ACTION WHEN XML-EVENT = 'START-OF-DOCUMENT' DISPLAY 'START XML-EVENT DOC' WHEN XML-EVENT = 'START-OF-ELEMENT' DISPLAY 'START XML-EVENT ELEMENT PATIENT' MOVE XML-TEXT TO WS-XML-CONTENTS WHEN XML-EVENT = 'CONTENT-CHARACTERS' DISPLAY 'START XML-EVENT CONTENT-CHARACTERS' SELECT EVERY ACTION WHEN WS-XML-CONTENTS = 'XM-PAT-ID' MOVE WS-XML-CONTENTS TO WS-PATIENT-ID DISPLAY 'WS-PATIENT-ID: ' WS-PATIENT-ID ENDSELECT WHEN XML-EVENT = 'END-OF-ELEMENT' DISPLAY 'START XML-EVENT CONTENT-CHARACTERS' WHEN XML-EVENT = 'END-OF-DOCUMENT' DISPLAY 'END XML-EVENT DOC' WHEN XML-EVENT = 'EXCEPTION' COMPUTE WS-GET-PATIENT-LENGTH = FUNCTION LENGTH (XML-TEXT) DISPLAY 'EXCEPTION :' WS-GET-PATIENT-LENGTH WHEN NONE DISPLAY 'OTHER XML-EVENT:' XML-EVENT ENDSELECT DISPLAY 'END OF SELECT' OUTPUT: AS ABOVE: WS-GET-PATIENT: <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
 XML-EVENT: START-OF-DOCUMENT XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
 XML-NTEXT : XML-CODE : 0000000000 START XML-EVENT DOC WS-GET-PATIENT: <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></PATIENT>
 XML-EVENT: START-OF-ELEMENT XML-TEXT : XM-PATIENT XML-NTEXT : XML-CODE : 0000000000 START XML-EVENT ELEMENT PATIENT END OF SELECT It seems like it reads in the select for the first 2 options and then ends. WITHOUT SELECT STATEMENT. That is
: ONLY DISPLAYS: XML-EVENT: START-OF-DOCUMENT XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
 XML-NTEXT : XML-CODE : 0000000000 XML-EVENT: START-OF-ELEMENT XML-TEXT : XM-PATIENT XML-NTEXT : XML-CODE : 0000000000 XML-EVENT: START-OF-ELEMENT XML-TEXT : XM-PAT-ID XML-NTEXT : XML-CODE : 0000000000 XML-EVENT: CONTENT-CHARACTERS XML-TEXT : 10000016DA XML-NTEXT : XML-CODE : 0000000000 XML-EVENT: END-OF-ELEMENT XML-TEXT : XM-PATIENT XML-NTEXT : XML-CODE : 0000000000 XML-EVENT: EXCEPTION XML-TEXT : <XM-PATIENT><XM-PAT-ID>10000016DA</XM-PAT-ID></XM-PATIENT>
 XML-NTEXT : XML-CODE : 0000000001 XML BOMBED!!! END OF XML PARSE!!!!!!!! It seems like on the displays, it reaches the end of the xml parse and tries to start the process again. 
**********************************************************************
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager.
**********************************************************************

--=_alternative 0031DB90422576CC_=

Datacom

AW: Unsiged Binary to Text

1. AW: Unsiged Binary to Text