QUIZ PROBLEM

[Mike Palandri]

Hi,

I don't think you can write to a subfile and report to disc or screen in
the same pass, and the last section of included code does both a REP SUMM
followed by a REP.   Since adding "SUMM" to "REPORT" just throws away
screen output, the second REP replaces the REP SUMM with a list of
different items.  Without the SUMM, they would be normally written to the
subfile and report file VG401RPT.   Because the items on the REP
statement are different than those in the REP SUMM statement, Quiz is
likely trying to overwrite an existing VG401K subfile with items you
intended to report to VG401RPT.

Hope that all makes sense.
]
Short version:
If you want to both create the VG401K subfile and also print a dump of
the file to VG401RPT, you'll probably need to take two passes.


At 11:08 AM 09/22/1999 -0400, Arnone, Anthony wrote:
>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.
>

Mike