QUIZ PROBLEM

[Marcinik, Roger]

Allison, Chris and Wanda all correctly pointed out the problem.

One way of detecting these things is to do a SHOW STATUS (before the EXIT)
after the last GO.
Before the SET NOSUBFILE is added, the result is:
SHIFT:             UPSHIFT
SPACE:
LOCK:
NOPRINT:
STACKSIZE:         400
STATISTICS:
VERIFY DELETE:
VERIFY ERRORS:
NOWAIT:
WARNINGS:
SUBFILE:
  NAME:            VG401K
  NOAPPEND:
  KEEP:
  DICTIONARY:
OMNIDEX API:       INACTIVE

which clearly shows that the subfile VG401K is still SET and of course the
REP statements are different which causes the "record lengths" to "differ".

After the SET NOSUBFILE is added, the result is:
SHIFT:             UPSHIFT
SPACE:
LOCK:
NOPRINT:
STACKSIZE:         400
STATISTICS:
VERIFY DELETE:
VERIFY ERRORS:
NOWAIT:
WARNINGS:
NOSUBFILE:
OMNIDEX API:       INACTIVE

and the error goes away.

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