|
midrange.com
Here's how it was resolved;
PGM PARM(&INCHAR)
DCL &INCHAR *CHAR 4
CPYF FROMFILE(TESTCL/C03LETAP) +
TOFILE(ZPGMR97/C03LETAP) MBROPT(*REPLACE) +
INCCHAR(*RCD 1 *CT &INCHAR)
ENDPGM
-----Original Message-----
From: Michael_Schutte@xxxxxxxxxxxx
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Fri, 10 Mar 2006 13:20:31 -0500
Subject: Re: CPYF CLP Question
Well, I did give you an option that would work. Did you give that a try?
Michael Schutte
Work 614-492-7419
email michael_schutte@xxxxxxxxxxxx
fbocch2595@xxxxxx
m
Sent by: To
midrange-l-bounce midrange-l@xxxxxxxxxxxx
s@xxxxxxxxxxxx cc
Subject
03/10/2006 01:07 Re: CPYF CLP Question
PM
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
Sorry about the red but CC01 is the only value that will change. It's the
value element of the INCCHAR field. Simon said it's not possible.
-----Original Message-----
From: Michael_Schutte@xxxxxxxxxxxx
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Fri, 10 Mar 2006 08:39:34 -0500
Subject: Re: CPYF CLP Question
Please update.. did you get an answer you were looking for.
Michael Schutte
Work 614-492-7419
email michael_schutte@xxxxxxxxxxxx
fbocch2595@xxxxxx
m
Sent by: To
midrange-l-bounce midrange-l@xxxxxxxxxxxx
s+michael_schutte cc
=bobevans.com@mid
range.com Subject
CPYF CLP Question
03/09/2006 04:29
PM
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
Hi, does anyone have copies of a pgm that I could use that would allow me
to pass the INCHAR variable so that I could run the cpyf command in a
certain way?
An example of the command is;
CPYF FROMFILE(fromlib/file1) TOFILE(tolib/file1) MBROPT(*REPLACE)
INCCHAR(*RCD 1 *EQ 'CC01')
The item in red is the only thing that will change. I want a command to
prompt and allow a change to just the part of INCCHAR which contains the
VALUE.
Does anyone have some code examples that I can use?
Thanks, Frank
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
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.
