Optionally, you can put your Perl script in a HFS/ZFS and invoke it from a Unix Services shell just like you would do on a Unix/Windows environment.
John Goodyear
ATS Benchmarking Team
Gaithersburg, MD.
| "Schwartz, Peter \(IT\)"
<[EMAIL PROTECTED]>
03/10/2005 09:13 AM |
|
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)
//*---------------------------------------------------------------
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.
