IBM Mainframe Forum

Hi there!
I'm trying to insert a number 100.00 S9(13)V9(2) comp-3n in a txt file.
I have the record:
01 RECORD.
03 REC-TYPE PIC S9(2).
03 REC-TYPE10.
05 FILI PIC X(5).
05 CON PIC X(12).
03 REC-TYPE20 REDEFINES REC-TYPE10
05 CAUS PIC X(5).
05 IMP PIC S9(13)V9(2) COMP-3.
05 FILLER PIC (4).

When I make a physical .txt file on a hard disk, (to open it and read it), just to work with some examples, how do I need to write down the comp-3 value?
If CAUS has the value A (4blanks), IMP has the value 100,00, and filler are 4 spaces. In any way that I tried compiling it, I receive for imp the values like +303030303....
Thanks.

If you want the variable IMP to be in a readable format use editted variables. Refer this.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3lr10/5.3.11.9.1?ACTION=MATCHES&REQUEST=ZZ&TYPE=FUZZY&SHELF=&DT=20020920180651&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT

veronikaluv wrote:in a txt file.

Huh? What platform are you trying to do this on?

Hello,

I'm trying to insert a number 100.00 S9(13)V9(2) comp-3n in a txt file.

COMP-3 (packed-decimal) is not valid in a "text file".

You can create a text file or you can create a file with packed-decimal data, but they will not be the same file.

If you explain the requirement, we can probably offer suggestions on how to proceed.

If just trying to get IMP equal to 100.00:
MOVE 100.00 TO IMP.
05 IMP PIC S9(13)V9(2) COMP-3 VALUE 100.00.

values like +303030303....

BTW, that looks like a hex display of unpacked ASCII zeros......