Re: CCSID problem? -- MIDRANGE-L

Charles

I know that you are correct but I wanted an instant result with minmal
effort so that I could test the XML in a publishing package. I have now got
the XML and will try importing it to a publishing package. I will then
implement writing a stream file - I know that it isn't difficult - but my
first priority is to check my XML.

Many thanks

Rob

On 10 May 2016 at 14:04, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

This is a bad idea.

A stream file isn't that hard to write to.

Take a look at Scott's presentations...
http://www.scottklement.com/presentations/#RPGIFS

Charles

On Tue, May 10, 2016 at 6:55 AM, Rob Dixon <robertsdixon@xxxxxxxxx> wrote:

Joep

Many thanks, but it will no doubt take me a little time to implement a
stream file and I need to get some XML output more urgently, so I would
like to find a PF solution as soon as possible.

Rob Dixon

<

https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail

Virus-free.
www.avast.com
<

https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail

<#DDB4FAA8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On 10 May 2016 at 10:59, Joep Beckeringh <joep.beckeringh@xxxxxxxxxx>
wrote:

Rob,

If you are planning to use stream files anyway, I wouldn't worry about

the

idiosyncrasies of CPYTOSTMF. Just open a stream file with CCSID 1208

and

conversion will be handled automatically.

Joep Beckeringh
Pantheon Automatisering B.V.

Op 10-5-2016 om 10:55 schreef Rob Dixon:

My product ERROS produces quite sophisticated typeset printed output,

but I

decided that I needed to be able to use a publishing package for more
refined printed results, so added a facility to ERROS to generate XML
(after reading Scott Klement's excellent "XML from RPG .." page on his
website). This has been fairly simple to implement (so far), and if,

in

Client Access, I use wrklnk and open an XML file created by ERROS, I

get

Browse : /tmp/indexa.xml
Record : 1 of 77 by 18 Column :

1

Control :

....+....1....+....2....+....3....+....4....+....5....+....6....+....7....

************Beginning of data**************
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<STIPPLE>
<items_in_catalogue>
Adm.l Rodney #39414,</items_in_catalogue>
<method_of_engraving> stipple,</method_of_engraving>
<engraver> Peltro William Tomkins,</engraver>
<Chapter_in_which_contained> Heroes,</Chapter_in_which_contained>
<impression_details> RSD P # 1205</impression_details>
<items_in_catalogue>
The Age of Innocence #38064,</items_in_catalogue>
<method_of_engraving> stipple,</method_of_engraving>
<engraver> Joseph Grozer,</engraver>
<Chapter_in_which_contained> Subject

Prints,</Chapter_in_which_contained>

<impression_details> RSD P # 1180</impression_details>
<items_in_catalogue>
etc...

but if I map a network file (using the same Windows PC), and open

exactly

the same file, using wordpad, I get rubbish -

Lo§”“@¥…™¢‰–•~ ñKð @…•ƒ–„‰•‡~ ¤£†`ø @¢£ •„ “–•…~ ¨…¢
on%LâãÉ××ÓÅn%L‰£…”¢m‰•mƒ £
“–‡¤…n%LÂnLÉnÁ„”K“@Ù–„•…¨LaÉnLaÂn@{óùôñôkLa‰£…”¢m‰•mƒ
£ “–‡¤…n%L”…£ˆ–„m–†m…•‡

Although I will change over to using the IFS directly, at this stage I

am

using a physical file to store the XML and the command CPYTOSTMF to

put

it

in the IFS. Scott's website page suggests using the value
STMFCODPAG(1208)
with this command. However, if I do this, I get

CPDA097 CCSID conversion not supported.
Cause . . . . . : The coded character set identifier (CCSID)
conversion
between codepage 1208 specified by the STMFCODPAG parameter and the
CCSID
285 specified by the DBFCCSID parameter is not supported to do all
necessary

conversions.

Recovery . . . : Set a different codepage or CCSID value and submit
the
command
again.

The value for the DBFCCISD parameter was *FILE The code page of my
program
described PF is 65535 which was created using CRTPF. 285 (UK English)

is

the code page for my job. The help text for DBFCCSID says

The database file CCSID is used, unless it is 65535.
If the database file CCSID is 65535, and the file is
not a program-described file, an error condition is
created. If the database file CCSID is 65535, and the
file is a program-described file, the default job
CCSID is used.

I imagine that my problem is simply that I did not use code page 1208

and

the stream file therefore has the coded character set ID 285.

I am using V5R1.

Can someone please suggest a solution? I am really stuck!

Many thanks

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
Rob Dixon

www.erros.co.uk
www.boarstall.com
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.