QUIZ PROBLEM

[Arnone, Anthony]

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.