Re: Long field names in DDS

[rob@xxxxxxxxx]

The one commented line was a no go, but this program compiled and worked.

     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 

Printer file definition

                R JEFFR
                  FIELD1         5A        1
                  FIELD2         5A       10 

We're probably going to have to take this to the RPG list if we continue 
though...

Rob Berendt