× 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.



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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.