//P007393A JOB (11603300),'M.KLAESCHEN',
//         MSGCLASS=X,
//         MSGLEVEL=(1,1),
//         NOTIFY=&SYSUID.,
//         TIME=1440,
//         REGION=0K,
//         CLASS=1
//*
// SET Q=''''
// SET STDOUT=&Q./tmp/STDOUT.&SYSUID.&Q.
// SET STDERR=&Q./tmp/STDERR.&SYSUID.&Q.
//*
//UNTAR0   EXEC PGM=BPXBATCH,
//         PARM='PGM /bin/pax -r -z -f /u/p007393/lynx.tar.Z
//             -o from=ISO8859-1,to=IBM-1047'
//STDOUT   DD PATH='&STDOUT.',
//         PATHOPTS=(OWRONLY,OCREAT,OAPPEND),
//         PATHMODE=(SIRWXU)
//STDERR   DD PATH='&STDERR.',
//         PATHOPTS=(OWRONLY,OCREAT,OAPPEND),
//         PATHMODE=(SIRWXU)
//STDENV   DD DUMMY
//*
//* DIESER SCHRITT }BERTR{GT STDOUT UND STDERR HFS DATEIEN IN DEN SPOOL
//*
//UNTAR1   EXEC PGM=IKJEFT01
//PRUEFOUT DD PATH='&STDOUT.',
//         PATHOPTS=(ORDONLY),
//         PATHDISP=(DELETE,DELETE)
//PRUEFERR DD PATH='&STDERR.',
//         PATHOPTS=(ORDONLY),
//         PATHDISP=(DELETE,DELETE)
//STDOUT   DD SYSOUT=*,LRECL=256,RECFM=V
//STDERR   DD SYSOUT=*,LRECL=256,RECFM=V
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DATA,DLM=##
OCOPY INDD(PRUEFOUT) OUTDD(STDOUT) TEXT CONVERT(YES) FROM1047
OCOPY INDD(PRUEFERR) OUTDD(STDERR) TEXT CONVERT(YES) FROM1047
##
//*