HP3000-L Archives

October 1997, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Reply To:
Date:
Wed, 15 Oct 1997 03:20:13 GMT
Content-Type:
text/plain
Parts/Attachments:
text/plain (56 lines)
I always try to use SUPRTOOL (if you have it) to extractand sort all subsets of
 data rather than QUIZ links and then just use Quiz for the final report.  The
 data selection is usually clearer than multiple complex QUIZ links, and the
 data extraction is always faster.

for example:
!QUIZ
;------------------------------------------------------------
;Create an almost empty Quiz subfile (ARCBOARD)
;------------------------------------------------------------
ACCESS ARC-DETL
SET REPORT LIMIT 1
REPORT SUMMARY &
ARC-SSN ARC-GRADE ARC-COURSE ARC-LASTTRAN
SET SUBFILE NAME ARCBOARD SIZE 1000000
GO
EXIT
!RUN SUPRTOOL.PUB.ROBELLE
{------------------------------------------------}
{Fill the ARCBOARD subfile with     }
{data from ARC-DETL                        }
{------------------------------------------------}
BA DBASE,5,READPASS
GET ARC-DETL
IF (ARC-COMPONENT="2" AND( ARC-GRADE>="E5" AND ARC-GRADE<="E8") AND
 ARC-COURSE[3],4="00" AND ARC-LASTTRAN[1],1 ="Z")
EXTRACT &  ARC-SSN,ARC-GRADE,ARC-COURSE,ARC-LASTTRAN
PURGE ARCBOARD
OUT ARCBOARD,ERASE
XEQ
{------------------------------------------------}
{Append to the ARCBOARD subfile}
{with data from STUD-CRS-DETL-H}
{------------------------------------------------}
GET STUD-CRS-DETL-H
 IF (COMPONENT="2" AND (GRADE>="E5" AND & GRADE<="E8") AND COURSE[3],4="00" AND
 & LASTTRAN[1],1 ="Z")
EXT SSN, GRADE,COURSE,LASTTRAN
OUT ARCBOARD,APPEND
XEQ
IN ARCBOARD
DEFINE SUPR-SSN,1,9
SORT SUPR-SSN
O = I
EXIT
!QUIZ
ACCESS *ARCBOARD LINK TO STUD-INFO-DETL
... Quiz statements to do final reporting

This makes several assumptions, but the general methodology should work.

p.s. You may also want to surround your SELECT statement with parenthesis where
 apropriate.

Charlie Fontaine      NYLCare Health Plans

ATOM RSS1 RSS2