<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
Hi Paul:<BR> <BR> I have done somerhing similiar for MOE.<BR> <BR> I created a definition for QSHOLIST in the dictionary.<BR> <BR> ELE LINE256 c 256<BR> <BR> FILE QSHO256 <BR> REC QSH0256<BR> ITEM LINE256<BR> <BR>Ran QSHOW<BR> QSHOW<BR> SET REPORT DEVICE disc<BR>
<BR> SHOW ELEMENT DETAIL ALL <BR> EXIT<BR> <BR>PHDFM FDL=QSHO256.FDL<BR> <BR>CREATE FILE QSHO256<BR> <BR>CONVERT/FDL=QSHO256.FDL/PAD=" "/TRUNCATE QSHOLIST.LIS<BR> <BR>QTP <BR>; x , y start of element name and the element name length<BR>
; z, w element data type with size start and length<BR>
; a, b start of description and length<BR>
; These numbers you should be able to get by taking a forms ruler<BR>
; to QSHOLIST. <BR>Access QSHO256<BR> <BR>Temp REC_COUNT <BR>Item REC_COUNT = 1 IF matchpattern ( LINE256 ,' *Element *!& *' )<BR>
else 2 IF matchpattern ( LINE256 ,' *Description *!& *' ) &<BR>
else 3 IF REC_COUNT = 2 and &<BR>
matchpattern ( LINE256 , <A href="mailto:'@!&*'">'@!&*'</A> ) &<BR>
else 4 IF REC_COUNT = 2 and &<BR>
not matchpattern ( LINE256 , <A href="mailto:'@!&*'">'@!&*'</A> ) &<BR>
else 0<BR>
<BR>
TEMP CSV varchar size 2047<BR>
<BR>
Item CSV = LINE256[x;y] + ',' + LINE255 [z;w] + ',' &<BR>
IF 1 = REC_COUNT &<BR>
else TRUNCATE (CSV ) + ' '+ LINE256[a:b] & <BR>
IF 3 = REC_COUNT or 4 = REC_COUNT &<BR>
else ' '<BR>
<BR>
<BR>
Subfile META keep if 4 = REC_COUNT inc CSV<BR>
<BR> <BR> <BR>Regards,<BR>
Peter Bateman<BR> <BR><BR> <BR><BR>
<HR id=stopSpelling>
<BR>
Subject: PDL to CSV<BR>Date: Mon, 2 Mar 2009 09:10:01 -0800<BR>From: Paul.M.Hodson@gov.bc.ca<BR>To: powerh-l@lists.sowder.com<BR><BR><BR>
<STYLE>
.ExternalClass p.EC_MsoNormal, .ExternalClass li.EC_MsoNormal, .ExternalClass div.EC_MsoNormal
{margin-bottom:.0001pt;font-size:11.0pt;font-family:'Calibri','sans-serif';}
.ExternalClass a:link, .ExternalClass span.EC_MsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.EC_MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass span.EC_EmailStyle17
{font-family:'Calibri','sans-serif';color:windowtext;}
.ExternalClass .EC_MsoChpDefault
{;}
@page Section1
{size:612.0pt 792.0pt;}
.ExternalClass div.EC_Section1
{page:Section1;}
</STYLE>
<DIV class=EC_Section1>
<P class=EC_MsoNormal>Hello,</P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>We about 6000 elements in a OpenVMS powerhouse dictionary and would like to list the element with description in an excel spreadsheet. </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>Does anyone have a utility to take PDL( specifically elements) and produce a CSV format? </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>So for example </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>Input </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: r_ansi">Element ACCPAC_SIN_FIRST3 CHARACTER Size 5 &</SPAN></P>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: r_ansi"> Default Item Datatype CHARACTER SIZE 5 &</SPAN></P>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: r_ansi"> Description "First 3 digits of the Social Insurance Number from the " &</SPAN></P>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: r_ansi"> "Accounts Receivable. Separately contained in the AR. " &</SPAN></P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>Output like...</P>
<P class=EC_MsoNormal> </P>
<TABLE class=EC_MsoNormalTable style="MARGIN-LEFT: -0.75pt; WIDTH: 994pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=1325 border=0>
<TBODY>
<TR style="HEIGHT: 15pt">
<TD style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 119pt; PADDING-TOP: 0cm; HEIGHT: 15pt" vAlign=bottom noWrap width=159>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: r_ansi">ACCPAC_SIN_FIRST3 </SPAN></P></TD>
<TD style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 126pt; PADDING-TOP: 0cm; HEIGHT: 15pt" vAlign=bottom noWrap width=168>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: r_ansi">CHARACTER Size 5 </SPAN></P></TD>
<TD style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 749pt; PADDING-TOP: 0cm; HEIGHT: 15pt" vAlign=bottom noWrap width=999>
<P class=EC_MsoNormal><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: r_ansi">First 3 digits of the Social Insurance Number from the Accounts Receivable. Separately contained in the AR. </SPAN></P></TD></TR></TBODY></TABLE>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>Alternative may be access to the metadata structures but I am not sure if that access is available. </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal>Thanks in advanced.</P>
<P class=EC_MsoNormal>Paul</P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal> </P>
<P class=EC_MsoNormal> </P></DIV><br /><hr />Communicate, update and plan on Windows Live Messenger. <a href='http://go.microsoft.com/?linkid=9650731' target='_new'>Get started today.</a></body>
</html>