Cobol calling Shell Script

Here is an example of a custom Cobol program we have which calls a script - obviously, there are several fields set up in the WS portion of the custom program - but I think you get the gist: * string together the absolute pathnames of the perl script * * used to make sure a CRLF ends each message block and the * * output file created by this program. The script will make * * sure the file is formatted properly for healthcare standards. * ********************************************************************* J80615 IF (ICLAWDWS-UNIX) 151461 STRING BI523WS-PERL-COMMAND DELIMITED BY SIZE 151461 BI523WS-SLASH-MARK DELIMITED BY SIZE 151461 ICLAWDWS-LAWDIR-NAME DELIMITED BY SPACE 151461 BI523WS-SLASH-MARK DELIMITED BY SIZE 151461 CASEWS-INPUT-VALUE DELIMITED BY SPACE 151461 BI523WS-SLASH-MARK DELIMITED BY SIZE 151461 "icsrc" DELIMITED BY SIZE 151461 BI523WS-SLASH-MARK DELIMITED BY SIZE 151461 "icperllfcr.pl " DELIMITED BY SIZE 151461 WS-HC-DIR-FILENAME DELIMITED BY " " 151461 INTO BI523WS-PERL-STRING J80615 ELSE J80615 STRING BI523WS-PERL-COMMAND DELIMITED BY SIZE J80615 ICLAWDWS-LAWDIR DELIMITED BY SPACE J80615 BI523WS-BACKSLASH-MARK DELIMITED BY SIZE J80615 CASEWS-INPUT-VALUE DELIMITED BY SPACE J80615 BI523WS-BACKSLASH-MARK DELIMITED BY SIZE J80615 "icsrc" DELIMITED BY SIZE J80615 BI523WS-BACKSLASH-MARK DELIMITED BY SIZE J80615 "icperllfcr.pl " DELIMITED BY SIZE J80615 WS-HC-DIR-FILENAME DELIMITED BY " " J80615 INTO BI523WS-PERL-STRING J80615 END-IF. VER004 MOVE SPACES TO BI523WS-PERL-STRING. VER004 STRING "/opt/app/lsftest/law/target/script/BI523perl" VER004 " " DELIMITED BY SIZE VER004 WS-HC-DIR-FILENAME DELIMITED BY SPACE VER004 " " DELIMITED BY SPACE VER004 WS-NULL-CHAR DELIMITED BY SIZE VER004 INTO BI523WS-PERL-STRING. VER004 VER004 DISPLAY BI523WS-PERL-STRING. 151461 CALL "SYSTEM" USING BI523WS-PERL-STRING.

There are other examples, including some delivered with Lawson itself, such as IMDBB. The key in my experience is don't forget the command string must be null-terminated .

I usually just create a new program. All that's really needed if your script is doing all of the real work is the following: In the WS file 01 GH070WS. 02 WS-CONVERT-SCRIPT PIC X(50). In the PD file 000100****************************************************************** 000200 050-EDIT-PARAMETERS SECTION 10. 000300****************************************************************** 000400 050-START. 000500 000600 050-END. 000700 000800****************************************************************** 000900 100-PROGRAM-CONTROL SECTION 10. 001000****************************************************************** 001100 100-START. 001200 001910 MOVE "D:\LSFPROD\LAW\PROD\SCRIPT\WFSPS.BAT" TO 001920 WS-CONVERT-SCRIPT. 001930 CALL "SYSTEM" USING WS-CONVERT-SCRIPT. 002000 002100 100-END. 002200 002300****************************************************************** 002400 1000-SEL-REPORT SECTION 50. 002500****************************************************************** 002600 1000-START. 005600 012500****************************************************************** 012600 1000-END. 012700****************************************************************** create a .scr file and a .rpt file compile and test.