Re: Error in EXTFILE

Here is the compiler log:

5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 1
Command . . . . . . . . . . . . : CRTBNDRPG
Issued by . . . . . . . . . . : IN4321
Program . . . . . . . . . . . . : EXTFILE
Library . . . . . . . . . . . : MANISHS
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : EXTFILE
Source File . . . . . . . . . . : QRPGSRC
Library . . . . . . . . . . . : MANISHS
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . : extfile
Last Change . . . . . . . . . . : 09/12/08 12:43:54
Generation severity level . . . : 10
Default activation group . . . . : *YES
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL
*SHOWCPY
*EXPDDS *EXT *NOSHOWSKP
*NOSRCSTMT
*DEBUGIO *NOEVENTF
Debugging views . . . . . . . . : *STMT
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace program . . . . . . . . : *NO
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *CURRENT
Allow null values . . . . . . . : *NO
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 2
Line <---------------------- Source Specifications
----------------------------><---- Comments ----> Do Page Change Src Seq
Number
....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10
Num Line Date Id Number
S o u r c e L i s t i n g
1 FFILE IF E DISK
EXTFILE(NAME)
081209 000100
2 F
USROPN
081208 000102

*--------------------------------------------------------------------------------------------*
* RPG name External
name *
* File name. . . . . . . . . : FILE
MANISHS/FILE *
* Record format(s) . . . . . : AAAA
AAAA *

*--------------------------------------------------------------------------------------------*

3=IAAAA
1000001

*--------------------------------------------------------------------------------------------*
1
* RPG record format . . . . :
AAAA
* 1
* External format . . . . . : AAAA :
MANISHS/FILE *
1

*--------------------------------------------------------------------------------------------*
1
4=I A 1 10
NAME
1000002
5 C OPEN
FILE
081208 000106
6 C READ
REC
081208 000107
7 C FIRSTNAME
DSPLY
081208 000108
8 C CLOSE
FILE
081208 000120
9 C SETON
LR---- 081208 000121
* * * * * E N D O F S O U R C E * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 3
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
Msg id Sv Number Seq Message text
*RNF7066 00 1 000100 Record-Format AAAA not used for input or output.
*RNF7030 30 7 000108 The name or indicator FIRSTNAME is not defined.
*RNF7030 30 6 000107 The name or indicator REC is not defined.
*RNF7086 00 1 000100 RPG handles blocking for file FILE. INFDS is
updated only
when blocks of data are transferred.
* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E
S S A G E S * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 4
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
FILE DISK 1D 5 8
AAAA 1D 3
Global Field References:
Field Attributes References (D=Defined
M=Modified)
*RNF7030 FIRSTNAME **UNDEF** 7
NAME A(10) 1 4D
*RNF7030 REC **UNDEF** 6
Indicator References:
Indicator References (D=Defined
M=Modified)
LR 9D
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 5
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
No references in the source.
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * *
* *
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 6
M e s s a g e S u m m a r y
Msg id Sv Number Message text
*RNF7066 00 1 Record-Format name of Externally-Described file is not
used.
*RNF7086 00 1 RPG handles blocking for the file. INFDS is updated only
when
blocks of data are transferred.
*RNF7030 30 2 The name or indicator is not defined.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG
MANISHS/EXTFILE GECMAS02 09/12/08 12:43:55 Page 7
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 2
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 2
--------------------------------- -------
Total . . . . . . . . . . . . . : 4
Source Totals:
Records . . . . . . . . . . . . : 9
Specifications . . . . . . . . : 9
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 0
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Compilation stopped. Severity 30 errors found in program.
* * * * * E N D O F C O M P I L A T I O N * * * * *



On Tue, Dec 9, 2008 at 1:43 PM, Chamara Withanachchi <chamaraw@xxxxxxxxxx>wrote:

Remove the quotes and compile.


Regards,

Chamara Withanachchi
Owner of www.rpgiv.info

WWW.RPGIV.INFO
Mob: +971 50 5698644
Tel: +971 6 5595887
chamaraw@xxxxxxxxxx
www.rpgiv.info



Sent from my BlackBerry(R) wireless device

-----Original Message-----
From: "manish soni" <pesfunk@xxxxxxxxx>

Date: Tue, 9 Dec 2008 11:29:15
To: RPG programming on the IBM i / System i<rpg400-l@xxxxxxxxxxxx>
Subject: Error in EXTFILE


Dear All,

I am trying to make a simple program out of EXTFILE and EXTMBR concept.
However, my system never identifies the file and gives me "The name or
indicator is not defined." Errors. I have setup the library list correctly
which contains the PF.

Program:
FFILE IF E DISK EXTFILE('NAME')
F EXTMBR('NAME')
F USROPN
C OPEN FILE
C READ REC
C FIRSTNAME DSPLY
C CLOSE FILE
C SETON LR

PF: NAME
R REC
FIRSTNAME 10A

Any idea where am I going wrong here ?

Regards and Thanks
Manish
--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.

--
Regards
Manish Soni