PIDX00.cbl

*>      $ SET SOURCEFORMAT "FREE"
*>------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID.  PIDX00.
*>------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

REPOSITORY.
    FUNCTION ALL INTRINSIC.

INPUT-OUTPUT SECTION.

*>------------------------------------------------
DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.

*>------------------------------------------------
PROCEDURE DIVISION.
Begin SECTION.

call "system" using "./PIDX00.sh >>PIDX00.log &2>>PIDX00.err"
goback.

END PROGRAM PIDX00.