Re: Program design to minimize record locks -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Got it! I appreciate the clarification. It compiles now.

Thanks,

Pete

Scott Klement wrote:

Pete Helgren wrote:

A little wrinkle here:
The compiler seems unhappy with the fact that I have the RENAME

File spec has:

FPMYFILE UF A E K DISK RENAME(FMYFILE:FILE01)
DFileNameDS E ds extname(FILE01)

Did you mean to use LIKEREC?

A data structure defined with EXTNAME has absolutely no relationship with the F-spec. Instead, you tell EXTNAME the external name of a file, and it looks for it on disk to get the fields. Since the argument for EXTNAME is a FILE NAME (not a record format name) and it's looking directly at the file (not at the F-spec) I wonder if you really meant to use LIKEREC?

LIKEREC defines a structure to be like a record format that you've defined on an F-spec. So you could say

DFileNameDs ds likerec(FILE01:*input)

And that would work, because it's argument is the RECORD FORMAT NAME (which is what you renamed) and it's looking at your F-spec rather than directly looking at the file.

This mailing list archive is Copyright 1997-2024 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.