HP3000-L Archives

September 2001, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Raghavendra Rao <[log in to unmask]>
Reply To:
Raghavendra Rao <[log in to unmask]>
Date:
Tue, 25 Sep 2001 22:17:50 +0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines)
Hi all,

I have a file in which the amount fields are stored as I2 i.e. S9(7)V99 COMP. We are FTPing this file to a client location and unfortunately they are having difficulties in reading these fields. So I thought of converting this field into numeric before sending it and this entire extract process is being done in Suprtool. I have done this in a 2 step process. If there is any better way then please let me know about it.

>FO TESTT001
    File: TESTT001.PUB.PCARTP1     (SD Version B.00.00)
       Entry:                     Offset
          MEMBER#              X12     1
          AMTCHARGE            I2     29
          AMTPAY               I2     33
    Limit: 37164  EOF: 37164  Entry Length: 20  Blocking: 75
>IN TESTT001
>DEF AMTC,1,9,DISPLAY
>DEF AMTP,1,9,DISPLAY
>EXT MEMBER#,AMTC=AMTCHARGE
>EXT AMTP=AMTPAY
>OUT TESTT002,LINK
>XEQ

>FO TESTT002
    File: TESTT002.PUB.PCARTP1     (SD Version B.00.00)
       Entry:                     Offset
          MEMBER#              X12     1
          AMTC                 Z9     37
          AMTP                 Z9     46
    Limit: 37164  EOF: 37164  Entry Length: 30  Blocking: 75
>

When I do a PRINT on both those files, I see junk results in first file, but I am able to see the amounts in 2nd file (without the sign). However if I do a LIST STANDARD then I am able to see both those amount fields in both those files properly.

Thanks and have a great day..
With Best Regards
Raghu. Rao.
--

_______________________________________________
Talk More, Pay Less with Net2Phone Direct(R), up to 1500 minutes free!
http://www.net2phone.com/cgi-bin/link.cgi?143


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2