QUIZ PROBLEM

[Hamilton, Allison]

I think that QUIZ is still trying to do the set subfile but your report
statement is different, so the data to the subfile is different.  Try adding
a set nosubfile before the second set of code for the report statement.
Allison Hamilton

> ----------
> From: 	Arnone, Anthony[SMTP:aarnone@grey.com]
> Sent: 	Wednesday, September 22, 1999 11:08 AM
> To: 	'POWERH-L@LISTS.SWAU.EDU'
> Subject: 	QUIZ PROBLEM
> 
> Good morning,
> 
> 	I am trying to create a subfile and a report within one GO, however,
> I kept getting an error.  I then separated them into two separate GO
> statements but keep getting the error.
> 
> Below is a copy of the execution of the quiz process.  Perhaps I'm missing
> something.  If you have any solution to this problem I would appreciatte
> the
> help.(ver. 819 HP3000).
> 
> > USE QMAR3
> > ;Source=QVG401K
> > ;CREATE 401K CONTRIBUTION FILE FOR VANGUARD
> > ; EXCLUDE BR 42 AND 48 IN CONVERT GROUP
> > ; INCLUDE APCO BRANCHES IN SUBS GROUP
> > ;8-3-99 EXCLUDE BRANCH 79
> > DISPLAY "Processing Debit entries.."
> Processing Debit entries..
> > ;Combine detail entries to one, showing net for period
> > ACC *DEDRECSF
> > SOR ON DEDUCT-NO ON PAYROLL-KEY
> > SET SUB AT PAYROLL-KEY
> > REP SUM PAYROLL-KEY SS LAST-NAME FIRST-INIT MID-INIT DEDUCT-NO
> DEDUCT-SEQ
> &
> > DEDUCT-AMT SUB  CHECK-TYPE
> > SET REP LIM 25000
> > SEL IF DEDUCT-NO="17" OR DEDUCT-NO="39"
> > GO
> *W* The temporary subfile QUIZWORK has been deleted.
> 
> Records selected:  1001
> Records sorted:    1001
> Records written:   976
> 
> > ;Process combined file split by deb/cred
> > ; PARTICIPANT CONTRIBUTION DETAIL (T114)
> > ACC *QUIZWORK      LINK ("01      ") TO CONTROL-KEY OF CTRL-MASTER-FPAY
> &
> >   LINK TO RECORD 0 OF *PARM401F
> > ;  LINK TO PAYROLL-MASTER
> > DEF BR NUM*2=NCO(PAYROLL-KEY[3:2])
> > DEF APCO CHA*1="Y" IF BR=46 OR BR=85 OR BR=86 OR BR=88 OR BR=89  &
> >  OR BR=83
> > ;DEF GRP-PARM CHA*4=PARM PROMPT"Enter 'SUBS' for APCO else SPACE: "
> > DEF GRP-FLG CHA*1="Y" IF GRP-PARM=" " AND BR<>42 AND BR<>48 AND BR<>79 &
> >              ELSE "Y" IF GRP-PARM="SUBS" AND (APCO="Y")
> > SEL IF DEDUCT-NO="17" AND DEDUCT-AMT > 0 &
> >   AND GRP-FLG = "Y"
> > DEF TRANS-CODE CHA*3 = "114"
> > DEF SEQ-CODE CHA*2 = "01"
> > DEF PLAN-ID CHA*6 = "092686"
> > DEF FIL3 CHA*3 = " "
> > DEF MBR-ID  CHA*9  = ASC(SS,9)
> > DEF RPT-DATE CHA*6 = ASC(REPORT-DATE,6)
> > DEF FUND# CHA*2 = "**"
> > ; SOURCE   A=(401K)  F=(PROFIT SHARING)
> > DEF SRC CHA*1 = "A"
> > DEF CONTRIB CHA*9 = ASC(DEDUCT-AMT,9) IF DEDUCT-AMT>0
> > ;               ELSE ASC(DEDUCT-AMT*-1,10)
> > DEF FIL24 CHA*24= " "
> > DEF RPT-YR CHA*2 = ASC(REPORT-DATE,6)[1:2]
> > DEF CENTURY-IND CHA*1 = "1" IF RPT-YR GE "00" AND RPT-YR LE "80" &
> >                 ELSE    "0" IF RPT-YR GE "81" AND RPT-YR LE "99"
> > DEF FIL7 CHA*7 = " "
> > SET SUB NAME VG401K KEEP
> > :PURGE VG401K
> > SET REP LIM 10000
> > REP SUM TRANS-CODE SEQ-CODE PLAN-ID FIL3 MBR-ID RPT-DATE RPT-DATE FUND#
> &
> >   SRC CONTRIB FIL24 CENTURY-IND CENTURY-IND FIL7
> > ;PAG HEA "QVG401K" SYSDATE FORMAT MMDDYY "The Vanguard Group 401K" &
> > ; REPORT-DATE KEE COL HEA SKIP 3
> > GO
> 
> Records selected:  917
> Records written:   917
> 
> > ; create dump of file to send to Vanguard
> > PAG HEA "QVG401K" SYSDATE FORMAT MMDDYY "The Vanguard Group 401K" &
> >  REPORT-DATE KEE COL HEA SKIP 3
> > :FILE VG401RPT;DEV=899,1,1
> > SET REP LIM 10000 DEV PRI PRI 1 COPIES 2 NAME VG401RPT
> > REP MBR-ID HEA "SS#" LAST-NAME FIRST-INIT DEDUCT-AMT PIC
> "^^^,^^^,^^^.^^"
> > FIN FOO "TOTAL:" COUNT DEDUCT-AMT SUB PIC"^^^,^^^.^^ " TRA"-"
> > GO
> *E* A file with the same name was found, but the record lengths differ.
> > EXIT
> 
> 		R/S
> 		Anthony
> 
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> This list is closed, thus to post to the list, you must be a subscriber.
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.