Go to Program Error using microfocus cobol

[Marylander]

I have a program that seems to me it is not opening and running the next program. The Go to Exit-Program should open and run another program in the same directory.

000000 FETCH-A1X.
000000 EXEC SQL CLOSE A1 END-EXEC.
000000* EXEC SQL COMMIT WORK RELEASE END-EXEC.
IDI000 DISPLAY "CHECKPOINT before OUTPUT OUTFILE is closed".
000000 CLOSE OUTFILE.
IDI000 DISPLAY "OUTFILE is closed".
000000* CALL "ORAPRINT" USING FILENAME COPIES.
000000 BATCH-DONE.
000000 EXEC SQL COMMIT WORK RELEASE END-EXEC.
IDI000 SET RPT-EXEC-STS TO TRUE.
IDI000 GO TO EXIT-PROGRAM.
000000* DISPLAY BLANK-SCREEN.
IDI000 COPY "webproc.cpy".
IDI DISPLAY "i39l.pco has completed".



---Start of next program which is located in another file within same directory on Sun box. File is called webproc.cpy.
VOL EXIT-PROGRAM.
VOL MOVE 0 TO LK-HIDDEN-ERROR-FLAG
VOL MOVE SPACE TO LK-HIDDEN-MSG-TEXT
VOL EVALUATE TRUE
VOL WHEN RPT-EXEC-STS
VOL MOVE 9 TO LK-HIDDEN-ERROR-FLAG
VOL MOVE MF-ERROR TO LK-HIDDEN-MSG-TEXT
VOL WHEN ERR-SQLERR
VOL MOVE SQLCODE TO WS-SQLCODE
VOL STRING "SQLERROR: " DELIMITED BY SIZE
VOL WS-SQLCODE DELIMITED BY SIZE
VOL " :" DELIMITED BY SIZE
VOL SQLERRMC DELIMITED BY SIZE
VOL INTO LK-HIDDEN-MSG-TEXT
VOL MOVE 1 TO LK-HIDDEN-ERROR-FLAG
VOL WHEN ERR-OTHER
VOL MOVE 1 TO LK-HIDDEN-ERROR-FLAG
VOL MOVE WS-HIDDEN-MSG-TEXT TO LK-HIDDEN-MSG-TEXT
VOL WHEN OTHER
VOL MOVE 1 TO LK-HIDDEN-ERROR-FLAG
VOL MOVE MF-ERROR TO LK-HIDDEN-MSG-TEXT
VOL END-EVALUATE.
IDI000 EXIT PROGRAM.

 

[PHV]

Which instruction in the EXIT-PROGRAM paragraph is supposed to open and run another program ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[webrabbit]

I think you are confused as to the functions of COPY and GO TO.