//* //* DAT2330 03W Midterm JCL solution version #2 //* //* The compile step "SYSIN" DDname is a guess - not given in the job spec. //* A wrong guess will cause a run-time error, generated by the compiler. //* The JES version was given as JES-2: therefore highest PRTY is 15. //* ANSI tapes have a maximum block size of 2K (2048 bytes). //* -IAN! idallen@ncf.ca //* //*********************************************************************** //ANSWER2 JOB JCLMID,'YOUR NAME',CLASS=X, // MSGCLASS=I,MSGLEVEL=(2,1),PRTY=13 # ~100 lines laser //*********************************************************************** //CREATAPE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=N # <100 lines for TSO //OUT DD DSN=DSKDAT,DISP=(NEW,PASS), // DCB=(BLKSIZE=4080,RECFM=FB), // UNIT=TAPG,VOL=SER=274327 //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //IN DD * [600 lines of test data would go here] /* //*********************************************************************** //CLGTEST EXEC PROC=COBCLG //* Note: I am guessing the SYSIN DDname in the compile step; //* a wrong guess will cause a run-time error generated by the compiler. //CCOB.SYSIN DD * [COBOL source goes here] /* //GCOB.TESTDATA DD DSN=DSKDAT,DISP=(OLD,DELETE) //GCOB.OUTPRINT DD SYSOUT=L # 3*600 lines standard //GCOB.DISKUPDT DD DSN=MYTEST,DISP=(OLD,KEEP) //GCOB.COPYDATA DD DSN=OUTMAST,DISP=(NEW,CATLG), // DCB=(BLKSIZE=2000,RECFM=FB), // LABEL=(,AL), // UNIT=TAPG,VOL=SER=727274 //