PDL definition for KSAM file

[Catherine Litten]

I don't know about 8.29d but on other versions of Powerhouse, I usually
declare it an integer, packed, zoned, etc instead of a numeric when using
PDL it may be assuming something that takes up less space a num*6 can fit in
an integer size 4.

********************************************
Catherine Litten (catherine.litten@valleypres.org),
Senior Programmer/Analyst
Valley Presbyterian Hospital (www.valleypres.org)
15107 Vanowen Street
Van Nuys, Ca  91405-4597
Phone (818) 782-6600 x 2140     Fax (818) 902-5202
********************************************
The thoughts, comments, and opinions expressed herein are mine and do not
reflect those of my employer, or anyone else.
********************************************

-----Original Message-----
From: owner-powerh-l@sphere.swau.edu
[mailto:owner-powerh-l@sphere.swau.edu]On Behalf Of Karman, Al
Sent: Wednesday, October 04, 2000 3:03 PM
To: 'powerh-l@utc.raven.edu'
Subject: PDL definition for KSAM file


Hey to the list.....

I recently got Powerhouse 8.29D for my MPE/iX 6.0 pp0 machine, and, after
reviewing the 'documentation', have a ?

I'm trying to define a KSAM file, with a keyfile, identified as

VENDKSM   KSAM     38B  FA       10183      50000   1     1776  1 32
VENDKSMK  KSAMK   128W  FB       20962      20962   1    20976  1 32


I then generate some fabulous PDL code like

> CREATE DICTIONARY TESTDIC
0 Errors  0 Warnings.
>
> ELEMENT VKNAME CHARACTER SIZE 32
> ELEMENT VKNO   NUMERIC   SIZE 6 PICTURE '^^^^^^'
>
>
> FILE VENDKSM   ORGANIZATION INDEXED &
>           KEYFILE VENDKSMK
>
>
> RECORD VKSM
> ITEM   VKNAME
> ITEM   VKNO
>
> INDEX VENDKSM UNIQUE
> SEGMENT VKNAME
> SEGMENT VKNO
> LOAD
0 Errors  0 Warnings.

When running QUIZ, I get

> acc vksm
> sho ite

                                             INPUT OUTPUT
VKSM                                    TYPE SCALE SCALE  DEC PICTURE
* VKNAME                                CHAR                  X(32)
  VKNO                                  NUM     0     0    0  ^^^^^^


> rep all
> go
*E* The actual record length doesn't match the length in the dictionary.
(VKSM)
> e

ANY assistance would be most welcome....I'm running out of hair to pull from
my head!


Al Karman
IT Consultant
US Freightways
akarman@usfreightways.com
773.824.2284
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.