|
midrange.com
Remove REF(RECNOTES). Then try to compile it.
HTH,
Frank
"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>@midrange.com on
11/19/2004 04:06:23 PM
Please respond to RPG programming on the AS400 / iSeries
<rpg400-l@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
To: RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:
Subject: Re: Stupid question
I added the following CTL record to it but I am still getting the same
error:
0004.00 A R RECCTL SFLCTL(RECSFL)
0005.00 A SFLPAG(15)
0006.00 A SFLSIZ(80)
0007.00 A 50 SFLCLR
0008.00 A N50 SFLDSPCTL
0009.00 A N50 SFLDSP
fkany@xxxxxxxxxxxxxxxxxx wrote ..
>
>
> Where's the SFLCTL(RECSFL) record?
>
>
>
>
>
> "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>@midrange.com on
> 11/19/2004 03:49:40 PM
>
> Please respond to RPG programming on the AS400 / iSeries
> <rpg400-l@xxxxxxxxxxxx>
>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>
>
> To: RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
> cc:
>
> Subject: Stupid question
>
>
> I am trying to create a subfile DDS
>
> A very simple one at that?.displays ONE FRIGGIN FIELD:
>
> Here is the DDS code:
>
> FMT DP
>
.....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
>
> *************** Beginning of data
>
***************************************************************************************
> 0001.00 A REF(RECNOTES)
> 041119
> 0002.00 A R RECSFL SFL
> 041119
> 0003.00 A NOTES 75A 4 1
> 041119
> ****************** End of data
>
******************************************************************************************
>
>
> When I compile I get the following error message:
>
> 200 R RECSFL SFL
> 300 NOTES 75A O 4 1
> 75 1 1
> * CPD5238 30* * * * 1 E NMessageF. .E.X.P:A NNo valid
recordRfound
> in source.
> 5722SS1 V5R2M0 020719 Data Description
> DPALMES/RECNOTESSF 11/19/04 16:45:32 Page 3
> Message Summary
> Total Informational Warning Error
> Severe
> (0-9) (10-19) (20-29)
> (30-99)
> 1 0 0 0
> 1
>
>
>
> I have no idea what I have wrong.
>
> Suggestions?
>
> Douglas
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
