Re: COBOL400-L Digest, Vol 7, Issue 6

Send COBOL400-L mailing list submissions to
cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

1. Re: Cobol / CL question (Mike Apice)


----------------------------------------------------------------------

message: 1
date: Wed, 11 Mar 2009 17:24:47 -0700 (PDT)
from: Mike Apice <mapice3284@xxxxxxxxx>
subject: Re: [COBOL400-L] Cobol / CL question

Richard.
?
Thanks This is really great!? I will try it tomorrow.
?
Mike

--- On Tue, 3/10/09, Richard Casey <casey_r@xxxxxxxxxxxxxxxx> wrote:


From: Richard Casey <casey_r@xxxxxxxxxxxxxxxx>
Subject: Re: [COBOL400-L] Cobol / CL question
To: "'COBOL Programming on the iSeries/AS400'" <cobol400-l@xxxxxxxxxxxx>
Date: Tuesday, March 10, 2009, 11:22 PM


Mike,

You call QCMDEXC with two parameters, like so:

CALL 'QCMDEXC' USING CMD CMDLEN.

CMD is the actual command you want to execute (OVRDBF in this case).
CMDLEN is the length of the string in CMD and is defined as PIC 9(10)V9(05)
COMP-3.

As you cycle through your files, you would call QCMDEXC to perform the
OVRDBF. You would then open the file, process it, and close it. You could
then cycle back and call QCMDEXC again.

Here are some quick COBOL excerpts.

In WORKING STORAGE, define:

** MYLIB/MYFILE will contain library and file of desired target
01? MYLIB PIC X(10).
01? MYFILE PIC X(10).

01? CMD.
???05 FILLER PIC X(28)
? ? ? VALUE 'OVRDBF FILE(CBLFILE) TOFILE('.
???05 OVRFILE PIC X(22).
01? CMDLEN PIC 9(10)V9(05) COMP-3 VALUE 50.

In the PROCEDURE DIVISION, use:

MOVE 'desiredlibrary' to MYLIB
MOVE 'desiredfile' TO MYFILE
MOVE SPACES TO OVRFILE
STRING MYLIB '/' MYFILE ')' DELIMITED BY ' ' INTO OVRFILE
CALL 'QCMDEXC' USING CMD CMDLEN.

The CBLFILE in the FILE parameter of the OVRDBF command should be the one
referenced in your SELECT statement in the FILE-CONTROL paragraph.

Using the STRING command to build the rest of the OVRDBF command avoids the
problem of embedded spaces in the command if the library and/or file name is
less than 10 characters.

Hope this helps.

Holler if you have any questions.

Enjoy!
Richard



-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Apice
Sent: Tuesday, March 10, 2009 8:06 PM
To: COBOL Programming on the iSeries/AS400
Subject: Re: [COBOL400-L] Cobol / CL question

Thanks Jhn and Beni.
?
Jon.
?
Could you give a quick example of the QCMDEXC or some more detail.? I need
to do exactly that, cycle thru a number of files.
?
Much appreciated.

--- On Tue, 3/10/09, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:


From: Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>
Subject: Re: [COBOL400-L] Cobol / CL question
To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Date: Tuesday, March 10, 2009, 7:34 PM


Or for that matter use OPEN/CLOSE within the COBOL program and use OVR?
via QCMDEXC if you need to cycle through a series of files.


On 10-Mar-09, at 6:48 PM, Egger J?rg (KIRJ 412) wrote:

OVRDBF is a solution.

OVRDBF FILE(CBLFILE)
? ? ???TOFILE(LIBRARY/DISKFILE)

Use the file name that you have in your select statement instead of?
CBLFILE.
TOFILE is the real file name.

Beni

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx

[mailto:cobol400-l-bounces@xxxxxxxxxxxx

] On Behalf Of Mike Apice
Sent: 10 March 2009 23:32
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] Cobol / CL question

Heh!? Gang.

Is there a way to pass a variable in CL to 400 Cobol for a file name?
that is always different?

I haven't used ovrdbf.? Is that a possibility?

Thanks.

Mike



--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L)?
mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To?
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please?
take a moment to review the archives at

http://archive.midrange.com/cobol400-l

.

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L)?
mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

Jon Paris

www.Partner400.com
www.SystemiDeveloper.com


--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.




? ? ?
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

Internal Virus Database is out of date.
Checked by AVG - www.avg.com
Version: 8.0.233 / Virus Database: 270.10.18/1936 - Release Date: 02/05/09
11:34:00

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.






------------------------------

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



End of COBOL400-L Digest, Vol 7, Issue 6
****************************************