running shell script in a cobol program

[chisox]

for example:
if I needed to execute 'cp filea filea.bak' in a COBOL
program what would be needed to do this.


Thankyou [sig][/sig]

 

[butler]

Try this:

WORKING-STORAGE SECTION.
01 MY-RUN-COMMAND.
10 FILLER PIC X(3) VALUE "cp ".
10 MY-FROM-FILENAME PIC X(30).
10 FILLER PIC X VALUE " ".
10 MY-TO-FILENAME PIC X(30).
10 FILLER PIC X VALUE X"00".

PROCEDURE DIVISION.
MOVE "filea" TO MY-FROM-FILENAME.
MOVE "filea.bak" TO MY-TO-FILENAME.
CALL "SYSTEM" USING MY-RUN-COMMAND.

Good luck!
bill




[sig][/sig]

 

[Guest_imported]

Hi !

Is this for copying one file from another? I could not follow the question.

Akondeti
[sig][/sig]

 

[Glen]

You should also check the return code

call "SYSTEM" USING MY-RUN-COMMAND RETURNING FOO

Then test the return code from the call to make sure things worked. [sig]<p> Glen Colbert<br><a href=mailto: gcolbert@RAG_American.com> gcolbert@RAG_American.com</a><br><a href= > </a><br> [/sig]