Here
is some sample JCL I used. The perl code was kept in my directory in USS
in the mainframe.
//******************************************************************
//* RUN PERL SCRIPT TO SPLIT OUT REPORT INTO HFS DIRECTORY STRUCTURE
//******************************************************************
//S05 EXEC PGM=BPXBATCH,REGION=6M,
// PARM='SH /u/m39997/perl /u/m39997/splitter -e TEST -
// -i MSTEST.HF374D5.MINICOOL.SORT1'
//STEPLIB DD DSN=SYS1.CEE.SCEERUN,DISP=SHR
//SYSIN DD *
DSN=MSTEST.HF374D5.MQMSGS
/*
//*PATH=/bin:.:/usr/lpp/java/J1.1/bin:/usr/local/bin:/u/m39997/bin
//STDOUT DD PATH='/u/m39997/out',
// PATHOPTS=(OCREAT,OTRUNC,OWRONLY),PATHMODE=SIRWXU
//STDERR DD PATH='/u/m39997/error',
// PATHOPTS=(OCREAT,OTRUNC,OWRONLY),PATHMODE=SIRWXU
//*
//*********************************************************************
//* COPY STDOUT/STDERR TO JESLOG *
//*********************************************************************
//HFSOUT EXEC PGM=IKJEFT01
//OUT DD PATH='/u/m39997/out',PATHOPTS=ORDONLY,PATHDISP=DELETE
//ERR DD PATH='/u/m39997/error',PATHOPTS=ORDONLY,PATHDISP=DELETE
//STDOUT DD SYSOUT=*,DCB=(RECFM=V,LRECL=256)
//STDERR DD SYSOUT=*,DCB=(RECFM=V,LRECL=256)
//SYSTSPRT DD DUMMY
//SYSTSIN DD *
OCOPY INDD(OUT) OUTDD(STDOUT)
OCOPY INDD(ERR) OUTDD(STDERR)
/*
//*---------------------------------------------------------------
//S11A EXEC PGM=WTOABEND,PARM=0016,COND=(0,EQ,S05)
//*---------------------------------------------------------------
//* RUN PERL SCRIPT TO SPLIT OUT REPORT INTO HFS DIRECTORY STRUCTURE
//******************************************************************
//S05 EXEC PGM=BPXBATCH,REGION=6M,
// PARM='SH /u/m39997/perl /u/m39997/splitter -e TEST -
// -i MSTEST.HF374D5.MINICOOL.SORT1'
//STEPLIB DD DSN=SYS1.CEE.SCEERUN,DISP=SHR
//SYSIN DD *
DSN=MSTEST.HF374D5.MQMSGS
/*
//*PATH=/bin:.:/usr/lpp/java/J1.1/bin:/usr/local/bin:/u/m39997/bin
//STDOUT DD PATH='/u/m39997/out',
// PATHOPTS=(OCREAT,OTRUNC,OWRONLY),PATHMODE=SIRWXU
//STDERR DD PATH='/u/m39997/error',
// PATHOPTS=(OCREAT,OTRUNC,OWRONLY),PATHMODE=SIRWXU
//*
//*********************************************************************
//* COPY STDOUT/STDERR TO JESLOG *
//*********************************************************************
//HFSOUT EXEC PGM=IKJEFT01
//OUT DD PATH='/u/m39997/out',PATHOPTS=ORDONLY,PATHDISP=DELETE
//ERR DD PATH='/u/m39997/error',PATHOPTS=ORDONLY,PATHDISP=DELETE
//STDOUT DD SYSOUT=*,DCB=(RECFM=V,LRECL=256)
//STDERR DD SYSOUT=*,DCB=(RECFM=V,LRECL=256)
//SYSTSPRT DD DUMMY
//SYSTSIN DD *
OCOPY INDD(OUT) OUTDD(STDOUT)
OCOPY INDD(ERR) OUTDD(STDERR)
/*
//*---------------------------------------------------------------
//S11A EXEC PGM=WTOABEND,PARM=0016,COND=(0,EQ,S05)
//*---------------------------------------------------------------
From: Krishnan, Prashanth (Cognizant) [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 10, 2005 1:47 AM
To: [email protected]
Subject: Perl on mainframes
Dear
all,
Can anyone
tell me how to execute a perl program in mainframe. I have written a perl
program in a PDS now I need to execute it, could somebody tell me what are steps
involved in executing this perl program. Do I need to have a JCL for this or can
I execute it in TSO region. Please help me out on this.
Regards,
Prashanth K
| This e-mail and any files
transmitted with it are for the sole use of the intended recipient(s) and
may contain confidential and privileged information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. Any unauthorised review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and may be unlawful. Visit us at http://www.cognizant.com |
NOTICE: If received in error, please destroy and notify sender. Sender does not waive confidentiality or privilege, and use is prohibited.
