QUIZ PROBLEM
Steve.Miller@portionpac.com
Steve.Miller@portionpac.com
Wed, 22 Sep 1999 13:14:34 -0400
I think I've 'accidentally' run into this before. If my memory serves me,
the SET SUB stays in effect until either a CANCEL CLEAR or a new ACCESS
statement, so when your second GO is executed, in addition to writing to the
DEV PRI, Quiz will try to write to the subfile VG401K, but it is of a
different length (per the previous GO), hence the error. Try adding a SET
SUB before the second GO, which should also prevent Quiz from trying to
write to it. Making your report a completely separate step would also
work...probably my preference even if less efficient.
Steve Miller
Portion Pac, Inc
steve@portionpac.com
> -----Original Message-----
> From: Arnone, Anthony [mailto:aarnone@grey.com]
> Sent: Wednesday, September 22, 1999 11:09
> 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.