Subject: | |
From: | |
Reply To: | |
Date: | Mon, 8 Nov 1999 07:59:20 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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
|
|
|