Subject: | |
From: | |
Reply To: | |
Date: | Fri, 5 Nov 1999 15:56:57 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
The group is R,W,A,L,X,S:Any And the user (me) has AM capability... I can do
anything I want to the file with QTP but QUICK does like the file... I tried
messing around with the LOCK parameter in the screen statement... But had no
luck....
-----Original Message-----
From: Pickering, John (NORBORD) [mailto:[log in to unmask]]
Sent: November 5, 1999 3:28 PM
To: 'Brian Stephens'; [log in to unmask]
Subject: RE: Powerhouse /QDESIGN Question....
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
|
|
|