quiz ph819c and subfiles

[Kevin O'Sullivan]

Hi all, can anyone help with the following problem :-
1st run of a routine :-

--------------------------------------------------------------------------
:Quiz, Ph819
>
>DEF T-PARMREC-1 CHAR*48 = "NONE"
>DEF T-PARMREC-2A CHAR*26 = &
>         ":FILE MG243R1;DEV=THISLP"
>DEF T-PARMREC-2B CHAR*31 = &
>         "DEFINE CIRC CHAR*8 = 'XXX'"
>DEF TODAYT = DAYS(SYSDATE)
>DEF TODAYM = MOD(TODAYT,7)
>DEF EXTRAD = 5 - TODAYM
>DEF T-PARMREC-3 CHAR*8 = ASCII(DATE(TODAYT + EXTRAD))
>DEF T-PARMREC-4 CHAR*12 = "BBBBBBBBBBB "
>DEF PARAMETER-TEXT CHA*220 = T-PARMREC-1 + T-PARMREC-2A + T-PARMREC-2B &
>                           + T-PARMREC-3 + T-PARMREC-4
>DEF RUN-FLAG CHAR*1 = "1"
>
>SET SUBFILE NAME M243FIL2 KEEP NODICT
>
>REP SUMM PARAMETER-TEXT &
>         RUN-FLAG
>
>SET REP LIM 1
>GO
Records selected:  0
Records written:   1

> E
--------------------------------------------------------------------------

then immediately run again :-

--------------------------------------------------------------------------

:
:Quiz, Ph819
>
>DEF T-PARMREC-1 CHAR*48 = "NONE"
>DEF T-PARMREC-2A CHAR*26 = &
>         ":FILE MG243R1;DEV=THISLP"
>DEF T-PARMREC-2B CHAR*31 = &
>         "DEFINE CIRC CHAR*8 = 'XXX'"
>DEF TODAYT = DAYS(SYSDATE)
>DEF TODAYM = MOD(TODAYT,7)
>DEF EXTRAD = 5 - TODAYM
>DEF T-PARMREC-3 CHAR*8 = ASCII(DATE(TODAYT + EXTRAD))
>DEF T-PARMREC-4 CHAR*12 = "BBBBBBBBBBB "
>DEF PARAMETER-TEXT CHA*220 = T-PARMREC-1 + T-PARMREC-2A + T-PARMREC-2B &
>                           + T-PARMREC-3 + T-PARMREC-4
>DEF RUN-FLAG CHAR*1 = "1"
>
>SET SUBFILE NAME M243FIL2 KEEP NODICT
>
>REP SUMM PARAMETER-TEXT &
>         RUN-FLAG
>
>SET REP LIM 1
>GO
*E* A file with the same name was found, but the record lengths differ.
>
--------------------------------------------------------------------------

Confuscious say, man who first invented confuscious sayings, had bad
grammar.

Kev

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Kevin O'Sullivan                        Cosworth Racing Limited,  -
- Racing Systems & E-mail Administrator   The Octagon,              -
-                                         St James Mill Road,       -
- Racing Systems Department               Northampton, England,     -
- mailto:kevin@cosworth-racing.co.uk      NN5 5RA.                  -
- mailto:kosullivan@cosworth-racing.co.uk Tel: +44 (0) 1604 598488  -
- mailto:sysadmin@cosworth-racing.co.uk   Fax: +44 (0) 1604 598506  -
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The views expressed above are mine entirely and in no way represent
those of my employer.



= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.