COBOL Question - UNICODE -

-

we looking convert our legacy cobol code ansii unicode have come across problem changing pic x fields pic n , setting nsymbol(national) cause problems when data structures contain redefines or rename statement elementary data items using pic 9 fields.

01 ws-record pic n(26). 01 ws-record-1 redefines ws-record. 02 ws-num pic 9(6). 02 ws-data pic n(20).  move n"123456abcdefghijklm" ws-record.

in above string being moved in utf-16 format, therefore field ws-num corrupt contain x"310032003300" invalid numeric, ws-data contain x"3400350036004100..etc

the question is, when using national (utf-16) data types how can numerics handled correct data after has been redefined.

i can sort of work doing following invalid data in other ws-record.

move 123456 ws-num. move n"abcdefghijklm" ws_data.

the above correct, if examine ws-record see ???abcdefghijklm ??? x"313233343536" in hexi-decimal.

our problem have multiple data records depending on record type identifier, use redefines on many of our linkage items.

has had experience moving legacy ascii unicode?

02 ws-num pic 9(6) usage national.

should work (at least on ibm compilers).


Comments

Post a Comment

Popular posts from this blog

c# - how to write client side events functions for the combobox items -

-
<dx:aspxcombobox id="aspxcombobox2" runat="server" clientidmode="autoid" selectedindex="-1" onselectedindexchanged="aspxcombobox1_selectedindexchanged1" > <clientsideevents selectedindexchanged="function(s, e) { grid.selectrows();}" /> <items> <dx:listedititem text="selecte rows" /> <dx:listedititem text="unselectall" /> </items> </dx:aspxcombobox> i want write event "unselect all" item in combobox. how can this? you'll need write javascript function iterates thru combo-box , marks selected items false. see select/unselect checkbox fields using pure javascript , html sample code msdn:
Read more

exception - Python, pyPdf OCR error: pyPdf.utils.PdfReadError: EOF marker not found -

-
pypdf throws exception: pypdf.utils.pdfreaderror: eof marker not found i don't need fix pypdf, need eof error cause "except" block execute , skip on file, doesn't work. still causes program stop running. background: batch ocr program pdfs python, pypdf, adobe pdf ocr error: unsupported filter /lzwdecode ... saga continues. i got 10,000 pdfs in folder. ocrd, not. can't tell 'em apart. step 1 figure out ones not ocrd , ocr (see other threads details). so i'm using pypdf. exceptions related unrecognized characters , unsupported filters when try read text. guestimated if throws exception, it's got text in , doens't go in list. problem solved, right? so: pypdf import pdffilewriter, pdffilereader import sys, os, pypdf, re path = 'c:\users\homer\documents\my pdfs' filelist = os.listdir(path) has_text_list = [] does_not_have_text_list = [] pdf_name in filelist: pdf_file
Read more