enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
/ enormous rant on
looks that the all the TS' s organizations employ a bunch of &DEROGATORY_ADJECTIVE systems managers/programmers
a bit of ingenuity and research would have found that ...
on the CBT tape ( free ) cbttape.org/cbtdowns.htm file 364
on Gilbert Saint Flour web site ( for a fee ) gsf-soft.com/Products/CCSS.shtml
exists a tool called CCSS ( control card subsystem )which does just that
( code data card inside a procedure )
see this snippet
| Code: |
//CCSSTEST JOB (CCSS),
// CLASS=A,
// MSGCLASS=A,
// MSGLEVEL=(1,1),
// REGION=4096K
//*********************************************************************
//*
//ZTEST PROC
//CCSS EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD SUBSYS=(CCSS,
// 'START OF FILE',
// ' X &PAR1. X',
// ' Y &PAR2. Y',
// &PAR3.,'+',
// &PAR4.,
// &PAR5.,
// &PARZ.,
// 'END OF FILE'),
// DCB=(LRECL=80)
//SYSUT2 DD SYSOUT=*
// PEND
//TEST EXEC ZTEST,
// PAR1=A,
// PAR2=BB,
// PAR3=CCC,
// PAR4=DDDD,
// PAR5=EEEEE,
// PARZ=ZZZZZZ
|
which gives this output ( the <note> lines were added to betters how the result )
| Code: |
****A START JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 START A****
****A START JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 START A****
****A START JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 START A****
****A START JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 START A****
J E S 2 J O B L O G
20.10.47 JOB 175 $HASP373 CCSSTEST STARTED - INIT 1 - CLASS A - SYS HERC
20.10.47 JOB 175 IEF403I CCSSTEST - STARTED - TIME=20.10.47
20.10.47 JOB 175 IEF404I CCSSTEST - ENDED - TIME=20.10.47
20.10.47 JOB 175 $HASP395 CCSSTEST ENDED
------ JES2 JOB STATISTICS ------
25 APR 9 JOB EXECUTION DATE
30 CARDS READ
83 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0.00 MINUTES EXECUTION TIME
1 //CCSSTEST JOB (CCSS), JOB 175
// CLASS=A,
// MSGCLASS=A,
// MSGLEVEL=(1,1),
// REGION=4096K
***********************************************************************
***
//ZTEST PROC
//CCSS EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD SUBSYS=(CCSS,
// 'START OF FILE',
// ' X &PAR1. X',
// ' Y &PAR2. Y',
// &PAR3.,'+',
// &PAR4.,
// &PAR5.,
// &PARZ.,
// 'END OF FILE'),
// DCB=(LRECL=80)
//SYSUT2 DD SYSOUT=*
// PEND
2 //TEST EXEC ZTEST,
// PAR1=A,
// PAR2=BB,
// PAR3=CCC,
// PAR4=DDDD,
// PAR5=EEEEE,
// PARZ=ZZZZZZ
3 ++ZTEST PROC
4 ++CCSS EXEC PGM=IEBGENER
5 ++SYSPRINT DD SYSOUT=*
6 ++SYSIN DD DUMMY
7 ++SYSUT1 DD SUBSYS=(CCSS,
++ 'START OF FILE',
++ ' X &PAR1. X',
++ ' Y &PAR2. Y',
++ &PAR3.,'+',
++ &PAR4.,
++ &PAR5.,
++ &PARZ.,
++ 'END OF FILE'),
++ DCB=(LRECL=80)
8 ++SYSUT2 DD SYSOUT=*
STMT NO. MESSAGE
-
7 IEF653I SUBSTITUTION JCL - ' X A X',
7 IEF653I SUBSTITUTION JCL - ' Y BB Y',
7 IEF653I SUBSTITUTION JCL - CCC,'+',
7 IEF653I SUBSTITUTION JCL - DDDD,
7 IEF653I SUBSTITUTION JCL - EEEEE,
7 IEF653I SUBSTITUTION JCL - ZZZZZZ,
IEF236I ALLOC. FOR CCSSTEST CCSS TEST
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I DMY ALLOCATED TO SYSIN
IEF237I CCSS ALLOCATED TO SYSUT1
IEF237I JES2 ALLOCATED TO SYSUT2
IEF142I CCSSTEST CCSS TEST - STEP WAS EXECUTED - COND CODE 0000
IEF285I JES2.JOB00175.SO0101 SYSOUT
IEF285I SYS09115.T201047.RA000.CCSSTEST.R0000001 SUBSYSTEM
IEF285I JES2.JOB00175.SO0102 SYSOUT
IEF373I STEP /CCSS / START 09115.2010
IEF374I STEP /CCSS / STOP 09115.2010 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 36K SYS 188K
IEF375I JOB /CCSSTEST/ START 09115.2010
IEF376I JOB /CCSSTEST/ STOP 09115.2010 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC
DATA SET UTILITY - GENERATE PAGE 0001
IEB352I WARNING : OUTPUT RECFM/LRECL/BLKSIZE COPIED FROM INPUT
PROCESSING ENDED AT EOD
<note><note><note> <note> <note> <note>
START OF FILE
X A X
Y BB Y
CCCDDDD
EEEEE
ZZZZZZ
END OF FILE
<note><note><note> <note> <note> <note>
****A END JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 END A****
****A END JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 END A****
****A END JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 END A****
****A END JOB 175 CCSSTEST ROOM 8.10.47 PM 25 APR 9 PRINTER1 SYS HERC JOB 175 END A****
|
easy to install easy to use would reduce by 97.639% the forum traffic on the issue
/enormous rant off
the cbt tape installation process is a bit more complicated than needed
post and I' ll describe a simpler approach |
|
