QUIZ PROBLEM

[Johan Koelewijn]

Hi Anthony,

I think you should give your subfile a name :
set subfile name subpay at payroll-key

Johan.
-----Oorspronkelijk bericht-----
Van: Arnone, Anthony <aarnone@grey.com>
Aan: 'POWERH-L@LISTS.SWAU.EDU' <POWERH-L@lists.swau.edu>
Datum: woensdag 22 september 1999 17:15
Onderwerp: 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.