RE: Extname and Prefix

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

That worked Hans, thanks.

Seems kinda messy.  Isn't there a way to just say "I want this file
qualified" and allow a different qualification within the QUALIFIED keyword
if necessary?  I couldn't find QUALIFIED on the F spec in V5R2 documentation
so maybe that is coming out in V5R3. . . ??  For example:

FLiblPF    IF   E           K DISK    Qualified  - default would be
Qualified(*File)

or 

FLiblPF    IF   E           K DISK    Qualified('LIBL.')

or

FLiblPF    IF   E           K DISK    Qualified(*RcrdFmt)



Aaron Bartell

-----Original Message-----
From: Hans Boldt [mailto:boldt@xxxxxxxxxx]
Sent: Monday, August 25, 2003 9:18 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Extname and Prefix



There are two problems. The following program fixes both:

----------------------------------------------------------------
FLiblPF    IF   E           K DISK    Prefix('LBL.')
D Lbl           E DS                  Qualified ExtName(LiblPF)
  /Free
     *InLR = *On;
  /End-Free
----------------------------------------------------------------

That is, first, if a literal, the PREFIX parm must be upper-case. 
Second, the data structure has the same name as the record.

Cheers! Hans