Odd length records..... ARGHHH
Thanks a bunch it works like a charm....

-----Original Message-----
From: John Johnson [mailto:[log in to unmask]]
Sent: November 8, 1999 10:59 AM
To: Brian Stephens
Cc: [log in to unmask]
Subject: Re: Powerhouse /QDESIGN Question....


Hey Brian,

  That is an erroneous message given by Powerhouse.   Add a filler of length
1
after
the year end field and that should solve the problem.

  Good luck!



Brian Stephens wrote:

> Maybe this would be better on a Powerhouse list but I'm not on one of
> those....
> So heres the question...
> I have a native mode KSAM (KSAMXL) file. It's a Powerhouse subfile with a
> single key which I created with QUIZ or QTP ( I don't remember which)...
>
> It's a calendar control file which I'm going to use to control my JCL a
> login script defines variables which the JCL will use to determine what it
> should do (WeekDay, Weekend, Monthend, Qtrend Etc...)
>
> However I digress... I was intending to use QDESIGN to modify the file if
> need be but I have included the ksam file data, The screen output, The
> program and the file layout from quiz....
>
> It's a simple program but it's been about 5 years since I've even looked
at
> QUICK/QDESIGN...Give me a QTP or QUIZ program and I have no problems....
But
> I don't even know where to start with this....
>
> Can anybody tell me what I'm doing wrong....
>
> DATE-CYMD MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY SUNDAY WEEKEND
> MONTHEND QTREND YEAREND
>
>  Date        M       T        W        T       F       S       S       W
> M       Q       Y
>  19991020                     X
>  19991021                              X
>  19991022                                      X
>  19991023                                              X               X
>  19991024                                                      X
>  19991025    X
>  19991026            X
>  19991027                     X
>  19991028                              X
>  19991029                                      X
>  19991030                                              X               X
> X
>  19991031                                                      X
>  19991101    X
>  19991102            X
>  19991103                     X
>  19991104                              X
>  19991105                                      X
>  19991106                                              X               X
>
> MODE:F ACTION:
> 01 DATE-CYMD
> 02 MONDAY
> 03 TUESDAY
> 04 WEDNESDAY
> 05 THURSDAY
> 06 FRIDAY
> 07 SATURDAY
> 08 SUNDAY
> 09 WEEKEND
> 10 MONTHEND
> 11 QTREND
> 12 YEAREND
>
> Data access error. (CALENDAR*01)
> THE FILE MUST BE LOCKED BEFORE ISSUING THIS INTRINSIC  (FSERR 179)
>
> Press RETURN to continue.
>
> screen cal1
> file *Calendar.ci primary
> FIELD DATE-CYMD OF CALENDAR REQUIRED NOCHANGE
> FIELD MONDAY OF CALENDAR
> FIELD TUESDAY OF CALENDAR
> FIELD WEDNESDAY OF CALENDAR
> FIELD THURSDAY OF CALENDAR
> FIELD FRIDAY OF CALENDAR
> FIELD SATURDAY OF CALENDAR
> FIELD SUNDAY OF CALENDAR
> FIELD WEEKEND OF CALENDAR
> FIELD MONTHEND OF CALENDAR
> FIELD QTREND OF CALENDAR
> FIELD YEAREND OF CALENDAR
> build
>
> > access *calendar
> > show items
>
>                                              INPUT OUTPUT
> CALENDAR                                TYPE SCALE SCALE  DEC PICTURE
> * DATE-CYMD                             CHAR                  X(8)
>   MONDAY                                CHAR                  X(1)
>   TUESDAY                               CHAR                  X(1)
>   WEDNESDAY                             CHAR                  X(1)
>   THURSDAY                              CHAR                  X(1)
>   FRIDAY                                CHAR                  X(1)
>   SATURDAY                              CHAR                  X(1)
>   SUNDAY                                CHAR                  X(1)
>   WEEKEND                               CHAR                  X(1)
>   MONTHEND                              CHAR                  X(1)
>   QTREND                                CHAR                  X(1)
>   YEAREND                               CHAR                  X(1)
>
> Thanks
>
> BW "Bear" Stephens, Department S491, IS Customer Service (NBOSS Support),
> Nortel Networks Brampton
> ESN 456-1157- External (705) 431-9601 Email [log in to unmask]
> Pager (705) 720-8613  <> page by e-mail [log in to unmask]  by web
> www.paging.mobility.com   pager number is bws
> Outside of a dog, a book is a man's best friend. Inside a dog it's too
dark
> to read.  G. Marx