Brian

Quick will need to lock the file. Does the group in which the file resides
allow lock access to the user attempting to run the screen?

John Pickering
Toronto

> -----Original Message-----
> From: Brian Stephens [SMTP:[log in to unmask]]
> Sent: Friday, November 05, 1999 2:33 PM
> To:   [log in to unmask]
> Subject:      Powerhouse /QDESIGN Question....
>
> 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