On Tue, 7 Oct 2014 10:28:05 -0500, John McKown wrote:
>
>and it worked fine. I also did a
>PRINT INDATASET('SYS1.MACLIB(READ)') DUMP
>
>and that worked OK too. What did you try?
>
//OMVSPRT2 JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
// SET Q=''''
// SET TMPDIR=&Q/tmp/&SYSUID/.&Q
//*
//MKDIR EXEC PGM=BPXBATCH,
// PARM='SH set -x; umask 022; mkdir -p &TMPDIR'
//STDOUT DD SYSOUT=(,)
//STDERR DD SYSOUT=(,)
//*
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP1 EXEC PGM=IKJEFT01
//SYSEXEC DD DISP=(,PASS),UNIT=VIO,SPACE=(CYL,(1,,5)),
// RECFM=FB,LRECL=80,DSN=&&SYSEXEC
//REXXOUT DD DISP=SHR,DSN=&&SYSEXEC(TERMTEST),VOL=REF=*.SYSEXEC
//REXXIN DD DATA,DLM='..'
/* Rexx */
signal on novalue
trace R
say SYSCALLS( 'ON' )
address 'SYSCALL'
do I = 1 to 5
say I date() time()
'sleep 5'; end
exit( RC )
..
//XYSTSPRT DD SYSOUT=(,)
//SYSTSPRT DD PATHOPTS=(OCREAT,OTRUNC,ORDWR),
// PATHMODE=(SIRUSR,SIWUSR),FILEDATA=TEXT,
// PATH='&TMPDIR/SYSTSPRT',
// RECFM=VB,LRECL=199
//SYSTSIN DD *
allocate dd(STDOUT) sysout
allocate dd(STDERR) sysout
bpxbatch sh set -x; date; sleep 3; date; echo
repro infile(REXXIN) outfile(REXXOUT)
bpxbatch sh set -x; date; sleep 3; date; echo
%TERMTEST
bpxbatch sh set -x; date; sleep 3; date; echo
//
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//* :w ! submit $MVS_HOST
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
