×
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.
This line (54-57 in the text file) appears to contain RPG-style comments and
will not compile. CL is not column-oriented.
What I saw in the text file:
Line 54:
CPYF FROMFILE(GPL/ROOTCDSDAT) TOFILE(RWXFPF) +
Line 55:
MBROPT(*REPLACE) FMTOPT(*NOCHK)
ROOTCDSDAT is created thru
CRTPF
FILE(&LIB/ROOTCDIDAT) RCDLEN(771) +
Line 56:
SIZE(*NOMAX) WAITFILE(*CLS) +
Line 57:
WAITRCD(*NOMAX) LVLCHK(*NO)) in
previous
pgm
Note that the words "ROOTCDSDAT is created thru FILE..." and "... in
previous pgm" will be considered part of the CPYF command and generate
syntax errors.
I think the code should look like this, assuming everything from "ROOTCDSDAT
is created ... in previous pgm" is a comment.
CPYF FROMFILE(GPL/ROOTCDSDAT) TOFILE(RWXFPF) +
MBROPT(*REPLACE)
FMTOPT(*NOCHK) /* ROOTCDSDAT is created thru CRTPF +
FILE(&LIB/ROOTCDIDAT) RCDLEN(771) +
SIZE(*NOMAX) WAITFILE(*CLS) +
WAITRCD(*NOMAX) LVLCHK(*NO)) in previous +
pgm */
HTH,
Loyd
PS, also no need to quote the entire thread when responding.
On Tue, Apr 27, 2010 at 11:54 AM, Sneha Verma <snehaverma001@xxxxxxxx>wrote:
Sorry Eric.I made a mistake while pasting the code.
I am attaching the entire code again for your refrence.
I talked to the user and he mentioned that the same code works fine on
other partitions but fails to work on the current partition.
Is there anything from the system point which I need to compare on the 2
partitions.
Regards
Sneha
midrange.com
