Re: Packed Data in an Alpha Field???

["Emilio Padilla" <vpadilla@xxxxxxxxx>]

Hi Robert, it's going to be a little difficult for you to see this data,
unless you know the exact size of the packed field that's been saved on the
character one.
I think that what you really want to know is who's doing this on your file.

That's really easy to do, just put a journal to the file and wait for the
next time this happened.  The journal is gonna tell you who's doing it, from
what program, etc.

This is what you can do.
Create a journal receiver, CRTJRNRCV
create a journal, CRTJRN
start a journal for your pf , strjrnpf
then wait for the problem to happend
you can monitor with a dspjrn with enttyp (*rcd)
This will show you all the record entrance to your file, with f15 will show
you all you want to know about the source of this record

Emilio



-----Original Message-----
From: Smudski, Jeff <JeffS@MIKEALBERT.com>
To: 'RPG400-L@midrange.com' <RPG400-L@midrange.com>
Date: Monday, March 22, 1999 6:09 PM
Subject: RE: Packed Data in an Alpha Field???


>A couple of basic (read: not pretty!) ways to looks at data in hex mode:
>1. DSPPFM (you were on the right track, but you have to hit F10-Display
>Hexadecimal).
>2. CPYF FROMFILE(filename) TOFILE(*PRINT) OUTFMT(*HEX)  -- this gives you a
>printout of the records in both character and hexadecimal format.
>
>Neither of these gives you fieldnames, so it's difficult to read.  But, the
>info you're looking for is there.
>
>> -----Original Message-----
>> From: Robertson, Scott [SMTP:SRobertson@dpsciences.com]
>> Sent: Monday, March 22, 1999 4:33 PM
>> To: 'RPG400-L@midrange.com'
>> Subject: Packed Data in an Alpha Field???
>>
>> I have a file that seems to have packed data being written to an
>> alphanumeric field.  Is there any way to "view" the data in this field?
>>
>>
>> I've tried viewing the data through DBU, but it just shows the data as
>> little squares...the same as viewing it through DSPPFM.  I've tried
>> creating an RPG program that moves the data from the alpha field to a
>> packed numeric field, but I get a decimal data error.
>>
>> I'm hoping that by viewing the data in this field, that I can figure out
>> what program is actually writing the data to the file.
>>
>> Any suggestions?
>>
>> Scott S. Robertson
>> Information Systems Manager
>> Data Processing Sciences Corp.
>> Srobertson@dpsciences.com
>> http://www.dpsciences.com
>> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
>> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>> * from this list send email to MAJORDOMO@midrange.com and specify       *
>> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>> * be directed to the list owner / operator: david@midrange.com          *
>> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *