analista de sistemas
Publicado por castro osvaldo (1 intervención) el 16/08/2007 16:54:54
como hago desde cobol wow llamar un programa, como PhotoEd, Execl, o un programa .BAT.
Valora esta pregunta
0
IDENTIFICATION DIVISION.
PROGRAM-ID. CallBat.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COMMAND-TO-EXECUTE PIC X(100).
01 RETURN-CODE PIC S9(4) COMP.
PROCEDURE DIVISION.
MOVE 'C:\ruta\al\archivo.bat' TO COMMAND-TO-EXECUTE
CALL 'BPXBATCH' USING COMMAND-TO-EXECUTE
RETURN-CODE.
IF RETURN-CODE = 0 THEN
DISPLAY 'Programa .BAT ejecutado exitosamente.'
ELSE
DISPLAY 'Error al ejecutar el programa .BAT.'
END-IF
.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. CallExcel.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COMMAND-TO-EXECUTE PIC X(100).
01 RETURN-CODE PIC S9(4) COMP.
PROCEDURE DIVISION.
MOVE 'excel.exe' TO COMMAND-TO-EXECUTE
CALL 'BPXBATCH' USING COMMAND-TO-EXECUTE
RETURN-CODE.
IF RETURN-CODE = 0 THEN
DISPLAY 'Excel ejecutado exitosamente.'
ELSE
DISPLAY 'Error al ejecutar Excel.'
END-IF
.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. CallPhotoEd.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COMMAND-TO-EXECUTE PIC X(100).
01 RETURN-CODE PIC S9(4) COMP.
PROCEDURE DIVISION.
MOVE 'photoed.exe' TO COMMAND-TO-EXECUTE
CALL 'BPXBATCH' USING COMMAND-TO-EXECUTE
RETURN-CODE.
IF RETURN-CODE = 0 THEN
DISPLAY 'PhotoEd ejecutado exitosamente.'
ELSE
DISPLAY 'Error al ejecutar PhotoEd.'
END-IF
.
STOP RUN.