
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">


<head>

<meta http-equiv=Content-Type content="text/html; charset=us-ascii">

<meta name=Generator content="Microsoft Word 12 (filtered medium)">

<style>

<!--

 /* Font Definitions */

 @font-face

        {font-family:"Cambria Math";

        panose-1:2 4 5 3 5 4 6 3 2 4;}

@font-face

        {font-family:Calibri;

        panose-1:2 15 5 2 2 2 4 3 2 4;}

@font-face

        {font-family:Tahoma;

        panose-1:2 11 6 4 3 5 4 4 2 4;}

@font-face

        {font-family:r_ansi;

        panose-1:2 11 6 9 2 2 2 2 2 4;}

 /* Style Definitions */

 p.MsoNormal, li.MsoNormal, div.MsoNormal

        {margin:0cm;

        margin-bottom:.0001pt;

        font-size:11.0pt;

        font-family:"Calibri","sans-serif";}

a:link, span.MsoHyperlink

        {mso-style-priority:99;

        color:blue;

        text-decoration:underline;}

a:visited, span.MsoHyperlinkFollowed

        {mso-style-priority:99;

        color:purple;

        text-decoration:underline;}

span.EmailStyle17

        {mso-style-type:personal;

        font-family:"Calibri","sans-serif";

        color:windowtext;}

span.EmailStyle18

        {mso-style-type:personal-reply;

        font-family:"Calibri","sans-serif";

        color:#1F497D;}

.MsoChpDefault

        {mso-style-type:export-only;

        font-size:10.0pt;}

@page Section1

        {size:612.0pt 792.0pt;

        margin:72.0pt 72.0pt 72.0pt 72.0pt;}

div.Section1

        {page:Section1;}

-->

</style>

<!--[if gte mso 9]><xml>

 <o:shapedefaults v:ext="edit" spidmax="1026" />

</xml><![endif]--><!--[if gte mso 9]><xml>

 <o:shapelayout v:ext="edit">

  <o:idmap v:ext="edit" data="1" />

 </o:shapelayout></xml><![endif]-->

</head>


<body lang=EN-CA link=blue vlink=purple>


<div class=Section1>


<p class=MsoNormal><span style='color:#1F497D'>With HELP <b>THANKS ALL </b>. (

Peter B especially)<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>I was able to convert PDL to an

excel spreadsheet. The spreadsheet lists the column name, data type and the

description. <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Input Sample<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Usage&nbsp;&nbsp;

BCENTS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

NUMERIC&nbsp;&nbsp; Size 12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Input Scale&nbsp;

2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Significance

1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Leading Sign

&quot;-&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Picture&nbsp; &quot;

^,^^^,^^^,^^^.^^&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Default Item Datatype

INTEGER SIGNED SIZE

8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp; Description

&quot;BCENTS:&nbsp; BIG CENTS.&nbsp; Use for money values to be

stored&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;with integer accuracy up to 10 billion

dollars.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;And to be stored in the database with NO decimal portion,&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;but stored as integer cents.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;Conversion to dollars to be done at PowerHouse

level&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;using input and output scale, and let = * 100 or /

100.&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;Input scale defaults to

2.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;Default output scale is 1, because it matches the default&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;picture, ie displaying the

cents.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&quot;Output scale defaults to 2 to allow putting in

values&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;without a decimal point and having the cents automatically&nbsp; &quot;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;added.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;This should suit most applications, but if need to

input&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;cents all the time, can override the input scale at screen&nbsp; &quot;

&amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;level, and if need to display dollars only, override

the&nbsp;&nbsp;&nbsp; &quot; &amp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;output scale at screen level.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Output Sample<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>BCENTS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

|NUMERIC&nbsp;&nbsp; Size

12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; |

BCENTS:&nbsp; BIG CENTS.&nbsp; Use for money values to be stored with integer

accuracy up to 10 billion dollars. And to be stored in the database with NO

decimal portion, but stored as integer cents. Conversion to dollars to be done

at PowerHouse level using input and output scale, and let = * 100 or / 100.

Input scale defaults to 2. Default output scale is 1, because it matches the

default picture, ie displaying the cents. Output scale defaults to 2 to allow

putting in values without a decimal point and having the cents automatically

added. This should suit most applications, but if need to input cents all the

time, can override the input scale at screen level, and if need to display

dollars only, override the output scale at screen

level.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Here are the steps:<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>1) create an rms table called

PDL with an item PDL_LINE as follows:<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Record:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp; of

File:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PDL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Organization:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SEQUENTIAL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Type:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

RMS<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Open:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp; Record

Format:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Fixed<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Supersede:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; No<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp; &nbsp;Record

Size:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 80 Bytes<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>-- Record Contents --<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

Item&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

Type&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

Size&nbsp; Occ&nbsp; Offset<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;

PDL_LINE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

CHARACTER&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 80&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

0<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>2) create the fdl<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>$anal/RMS/FDL <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>3) Generate the PDL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>$qshow<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&gt; set lang pdl<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&gt; gen element ALL&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Default device is disc file

QSHOGEN.PDL.<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>The file XXX:QSHOGEN.PDL;

already exists. Cre<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>ate new version?y<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&gt; Exit<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>4) Convert it<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>$convert/fdl=pdl.fdl qshogen.pdl

pdl.dat/pad=&quot; &quot;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>5) Run this QTP program<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>$qtp<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>request element_desc input noli

process noli<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Access PDL<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>select if&nbsp; PDL_LINE[1:6]

&lt;&gt; &quot;&nbsp; Help&quot;&nbsp;&nbsp;&nbsp;&nbsp; and &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

(PDL_LINE[1:5]&nbsp;&nbsp; =

&quot;Usage&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

or &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL_LINE[1:7]&nbsp;&nbsp; =

&quot;Element&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

or &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL_LINE[1:13]&nbsp; = &quot;&nbsp;

Description&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

or &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL_LINE[1:15]&nbsp; =

'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL_LINE[1:20] =

&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;)&nbsp;&nbsp;&nbsp;&nbsp; <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Temp REC_COUNT<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Item&nbsp; REC_COUNT =&nbsp; 1

IF PDL_LINE[1:7]&nbsp;&nbsp; = &quot;Element&quot;

or&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

PDL_LINE[1:5]&nbsp;&nbsp; =

&quot;Usage&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

else&nbsp;&nbsp;&nbsp;&nbsp; 2 IF PDL_LINE[76:1] =

'&quot;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

else&nbsp;&nbsp;&nbsp;&nbsp; 3 IF PDL_LINE[1:20] =

&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>TEMP CSV&nbsp; varchar size 2047<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>define d_CRVAL&nbsp; int*2 = 13<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>define d_LFVAL&nbsp; int*2 = 10<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>define d_CRLF&nbsp;&nbsp; char*2

= char(d_CRVAL)[1:1] + char(d_LFVAL)[1:1]<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Item CSV = PDL_LINE[9:33]&nbsp;

+ '|' + PDL_LINE[42:30] +

'|'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

IF 1 =

REC_COUNT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

else TRUNCATE (CSV ) + ' '+

PDL_LINE[16:60]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

IF 2 = REC_COUNT <o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>Subfile META keep portable if 3

= REC_COUNT&nbsp; inc CSV, D_CRLF<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>go<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>6) Copy the META.PS to the

desktop<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'>7) Open the META.PS from excel noting

it is delimited by a &#8220;|&#8221;<o:p></o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<p class=MsoNormal><span style='color:#1F497D'><o:p>&nbsp;</o:p></span></p>


<div>


<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>


<p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;font-family:

"Tahoma","sans-serif"'>From:</span></b><span lang=EN-US style='font-size:10.0pt;

font-family:"Tahoma","sans-serif"'> Hodson, Paul EDUC:EX <br>

<b>Sent:</b> March-02-09 9:10 AM<br>

<b>To:</b> 'powerh-l@lists.sowder.com'<br>

<b>Subject:</b> PDL to CSV<o:p></o:p></span></p>


</div>


</div>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Hello,<o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>We about 6000 elements in a OpenVMS powerhouse dictionary

and would like to list the element with description in an excel spreadsheet. <o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Does anyone have a utility to take PDL( specifically

elements) and produce a CSV format? &nbsp;<o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>So for example <o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Input <o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;

font-family:r_ansi'>Element

ACCPAC_SIN_FIRST3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

CHARACTER Size 5&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;<o:p></o:p></span></p>


<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;

font-family:r_ansi'>&nbsp; Default Item Datatype CHARACTER SIZE

5&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&amp;<o:p></o:p></span></p>


<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;

font-family:r_ansi'>&nbsp; Description &quot;First 3 digits of the Social

Insurance Number from the&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;<o:p></o:p></span></p>


<p class=MsoNormal><span style='font-size:10.0pt;font-family:r_ansi'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&quot;Accounts Receivable. Separately contained in the

AR.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot; &amp;</span><o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Output like...<o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 width=1325

 style='width:994.0pt;margin-left:-.75pt;border-collapse:collapse'>

 <tr style='height:15.0pt'>

  <td width=159 nowrap valign=bottom style='width:119.0pt;padding:0cm 5.4pt 0cm 5.4pt;

  height:15.0pt'>

  <p class=MsoNormal><span style='font-size:10.0pt;font-family:r_ansi;

  color:black'>ACCPAC_SIN_FIRST3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

  <o:p></o:p></span></p>

  </td>

  <td width=168 nowrap valign=bottom style='width:126.0pt;padding:0cm 5.4pt 0cm 5.4pt;

  height:15.0pt'>

  <p class=MsoNormal><span style='font-size:10.0pt;font-family:r_ansi;

  color:black'>CHARACTER Size

  5&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

  <o:p></o:p></span></p>

  </td>

  <td width=999 nowrap valign=bottom style='width:749.0pt;padding:0cm 5.4pt 0cm 5.4pt;

  height:15.0pt'>

  <p class=MsoNormal><span style='font-size:10.0pt;font-family:r_ansi;

  color:black'>First 3 digits of the Social Insurance Number from the Accounts

  Receivable. Separately contained in the

  AR.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <o:p></o:p></span></p>

  </td>

 </tr>

</table>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Alternative may be access to the metadata structures but I

am not sure if that access is available. <o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal>Thanks in advanced.<o:p></o:p></p>


<p class=MsoNormal>Paul<o:p></o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


<p class=MsoNormal><o:p>&nbsp;</o:p></p>


</div>


</body>


</html>