QUIZ PROBLEM

[Ravenscroft, Wanda L]

Hi Anthony,

This is the error message you usually get when you've created a subfile and
then you've modified the Quiz program to add or remove the fields you're
putting in the subfile.  If you delete or rename all the subfiles and
subfile dictionaries (.SF and .SFD) this Quiz creates and then run it again,
you should be okay.  You may also want to add a SET NOSUBFILE command in the
last portion of your quiz where your sending your report to the printer.

Hope this helps.

Wanda Ravenscroft
Program Analyst
Eveready Battery Co.
RDB 6.2-13, OpenVMS 7.1, PH 7.10F1




-----Original Message-----
From: Arnone, Anthony [mailto:aarnone@grey.com]
Sent: Wednesday, September 22, 1999 10:09 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.