HP3000-L Archives

October 2008, 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:
donna hofmeister <[log in to unmask]>
Reply To:
Date:
Fri, 24 Oct 2008 11:57:07 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
got examples?         - d

---
Donna Hofmeister
Allegro Consultants, Inc.
408-252-2330


> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
> Behalf Of Eben Yong
> Sent: Friday, October 24, 2008 11:51 AM
> To: [log in to unmask]
> Subject: [HP3000-L] COBOL: text split routine, anyone?
> 
> Hi Folks,
> I have a custom COBOL routine that takes an incoming 2100-byte text
> string,
> and splits it out into 72-byte chunks, with record level splits to
> simulate word
> wrap.  The reason for this is that we have a vendor serving as an
> after-hours
> call center for our business, and they are returning records of
> conversations
> they have with our customers.  The records come, along with other data
> fields, with a 2100-byte text string representing a brief description
> of why the
> customer called and how the call was resolved.  In our enterprise
> HP3000
> application, each 2100 byte text string is uploaded into an IMAGE data
> set in
> separate data records which are limited to 72-byte text strings.  So we
> cut up
> the 2100-byte text into separate 72-byte strings with proper record
> splits to
> simulate word wrap so that when staff look in the HP3000 screen view,
> it is
> easy to read the message.  It works fairly well, but there have been a
> few
> unexpected text parsing errors that have recently required my attention
> (the
> text parsing fails, the program bombs, I research the problem, then
> change,
> recompile, and test the program, etc.).  I was wondering if any COBOL
> hands
> out there have ever tackled such a problem and if so would you be
> able/willing
> to share the source code?  Thanks everyone as always, and have a great
> weekend.
> Eben
> 
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

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

ATOM RSS1 RSS2