Re: Printer file not supported in EXTNAME?

["Bob P. Roche" <BRoche@xxxxxxxxxxxxxxxxx>]

Does the print file JEFFPRT exist on your system. The EXTNAME is only used 
at runtime.



rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/05/2008 03:00 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Printer file not supported in EXTNAME?






Can't seem to compile this program with a printer file in the EXTNAME in 
the data structure

                R JEFFR
                  FIELD1         5A        1
                  FIELD2         5A       10 


     FJEFFPRT   O    E             PRINTER PREFIX('JEFFOUT.')
     D*  jeffout     E DS                  EXTNAME(JEFFPRT) QUALIFIED
     D JEFFOUT         DS                  QUALIFIED
     D  FIELD1                        5A
     D  FIELD2                        5A
      /FREE
       jeffout.field1='bubba';
       jeffout.field2='billy';
       write jeffr;
       *inlr=*on;
       return;
      /end-free 

When I try, I get
RNS9308: Compilation stopped. Severity 30 errors found in program.
     FJEFFPRT   O    E             PRINTER PREFIX('JEFFOUT.')
RNF7030: The name or indicator JEFFOUT... is not defined.
     D   jeffout     E DS                  EXTNAME(JEFFPRT) QUALIFIED
RNF7030: The name or indicator JEFFOUT... is not defined.
RNF3530: Data structure JEFFOUT has no valid subfields. 
     D*JEFFOUT         DS                  QUALIFIED
     D* FIELD1                        5A
     D* FIELD2                        5A
      /FREE
RNF7503: Expression contains an operand that is not defined.
RNF7030: The name or indicator FIELD1 is not defined.
       jeffout.field1='bubba';
RNF7503: Expression contains an operand that is not defined.
RNF7030: The name or indicator FIELD2 is not defined.
       jeffout.field2='billy';
       write jeffr;
       *inlr=*on;
       return;
      /end-free 
Rob Berendt