PHD Arrays
EDISR@detroitedison.com
EDISR@detroitedison.com
20 May 98 18:01:33 -0400
--=_ORCL_767986_0_0
Content-Transfer-Encoding:quoted-printable
Content-Type:text/plain; charset="iso-8859-1"
Mark
Try this in the record items definition:
MODE:F ACTION: ITEM Screen
----------------------------------------------------------------------------=
---
Record DUMMY1 Length 468 Status OK=
---------------------------------------------------T------------------------=
---
Item Usage Type Size Dec|Datatype Size Occ Indx
Off
01 WOS_TARGET N 4 |ZONED-U 4 1
0
02 REQUIREMENTS C 38 |CHARACTER 38 12
4
03 .MTH_OF_REQUIREMENTS N 2 |ZONED-U 2 1
4
04 .QTY_LAST_YEAR_CURR_=BB C 1 |CHARACTER 1 1 =
6
05 .QTY_LAST_YEAR_CURR N 6 |ZONED-U 6 1
7
06 .QTY_PROJECTED_CURR N 6 |ZONED-U 6 1
13
07 .QTY_LAST_YEAR_NEW_F=BB C 1 |CHARACTER 1 1 =
19
08 .QTY_LAST_YEAR_NEW N 6 |ZONED-U 6 1
20
09 .QTY_LAST_YEAR_TOTAL N 8 |ZONED-U 8 1
26
10 .QTY_PROJECTED_TOTAL N 8 |ZONED-U 8 1
34
11 MTD_USAGE_LY_CURR N 8 |ZONED-U 8 1 =
460
12 |
13 |
14 |
15 |
Robert Edis (Blue)
Technical Consultant
Michigan, USA
(VAX/VMS, ORACLE Rdb, PowerHouse 4GL)
--=_ORCL_767986_0_0
Content-Type:message/rfc822
Date: 20 May 98 17:29:28
From:"Stewart, Mark" <MStewart@VICTORIA.COM>
To:"'Powerh-l'" <powerh-l>
Subject:PHD Arrays
Return-Path:<powerh-l-owner@lists.swau.edu>
Received:by mail.detroitedison.com with ESMTP id RAA10009; Wed, 20 May 1998 17:38:16 -0400 (EDT)
Received:by dte.detroitedison.com with ESMTP id RAA29884; Wed, 20 May 1998 17:38:15 -0400 (EDT)
Received:from localhost (bin@localhost) by sphere.swau.edu (8.8.3/8.8.3) with SMTP id QAA10759; Wed, 20 May 1998 16:37:07 -0500
Received:by sphere.swau.edu (bulk_mailer v1.9); Wed, 20 May 1998 16:37:04 -0500
Received:(from daemon@localhost) by sphere.swau.edu (8.8.3/8.8.3) id QAA10740 for powerh-l-outgoing; Wed, 20 May 1998 16:37:03 -0500
Received:from vssmail.victoria.com ([208.135.10.241]) by sphere.swau.edu (8.8.3/8.8.3) with ESMTP id QAA10667 for <powerh-l@lists.swau.edu>; Wed, 20 May 1998 16:36:58 -0500
Received:by VSSMAIL with Internet Mail Service (5.0.1460.8) id <K7PQPMNV>; Wed, 20 May 1998 17:29:30 -0400
Message-ID:<534DE8F0290DD1118DBC00805F15A04C0193B224@VSSMAIL>
Sender:owner-powerh-l@sphere.swau.edu
MIME-Version: 1.0
Content-Type:text/plain; charset="iso-8859-1"
Content-Transfer-Encoding:quoted-printable
I have Cobol program that creates the following data structure which has an
OCCURS 12 TIMES. How would I mirror this in the PowerHouse dictionary? I
would to access the same datafile the the COBOL application does. Is
PowerHouse able to mirror arrays in the dictionary?
05 WOS_TARGET PIC 9(4).
05 REQUIREMENTS OCCURS 12 TIMES.
10 MTH_OF_REQUIREMENTS PIC 9(2).
10 QTY_LAST_YEAR_CURR_FLAG PIC X.
10 QTY_LAST_YEAR_CURR PIC 9(6).
10 QTY_PROJECTED_CURR PIC 9(6).
10 QTY_LAST_YEAR_NEW_FLAG PIC X.
10 QTY_LAST_YEAR_NEW PIC 9(6).
10 QTY_LAST_YEAR_TOTAL PIC 9(8).
10 QTY_PROJECTED_TOTAL PIC 9(8).
05 MTD_USAGE_LY_CURR PIC 9(8).
Mark Stewart
CTG Consultant
Victoria's Secret Stores
OpenVMS Alpha V7.1-1H1
Oracle Rdb V7.0-1
PH 4GL 7.10.F4
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.
--=_ORCL_767986_0_0--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.