HP3000-L Archives

January 2001, Week 2

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:
"Wyman, Alan" <[log in to unmask]>
Reply To:
Wyman, Alan
Date:
Mon, 8 Jan 2001 10:51:47 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (47 lines)
How is the Field defined?  If it is a display field (X or 9) it should work.
You may need some spaces in the line especially between the 2 sets of
parens.

FIELD (11) (3:1)


Alan Wyman
Programming Manager - Information Systems
Alliant Foodservice - Minneapolis
2864 Eagandale Boulevard
Eagan, MN 55121
(651) 683-4253
(651) 683-4438 fax
e-mail: [log in to unmask] <mailto:[log in to unmask]>

        -----Original Message-----
        From:   Kim Borgman [SMTP:[log in to unmask]]
        Sent:   Monday, January 08, 2001 11:34 AM
        To:     [log in to unmask]
        Subject:        [HP3000-L] COBOL QUESTION

        Here is a good one for someone.

        Using cobol to generate a rpt.  Want to test the 11th item in an
array.
        (occurs 42 times).

        But I want to test the 3rd character of that field to see if it is
numeric
        or not.  Normally I would do:  FIELD(3:1), but I have to look at the
array
        now.

        I tried FIELD(11)(3:1).  Error.
        also tried FIELD(11),(3:1).  Error.

        Any advice out there ?

        Yes I can move it to a working storage area and test it there, but I
should
        be able to do it with one command.

        Mr Kim Borgman - IS Mgr
        NWS Corp
        317-636-6092 x1399

ATOM RSS1 RSS2