* $$ JOB JNM=RPT03104,CLASS=V,DISP=L,USER='RC2604 WHB',SYSID=2 * $$ LST CLASS=L,DISP=K,COPY=1 * ** LST LST=00E,CLASS=L,DISP=L // JOB RPT03104 * ********************************************************** * * RPT3104 - READ SORTED CIF EXTRACT FILE (FROM IMAGE2) * * * AND SORTED PC IMAGE FILE (FROM IMAGE3) AND * * * CREATE A IMAGE REPORT. * * ********************************************************** // DLBL TSCAT,'VSAM.TEST.CATALOG',,VSAM // ASSGN SYS010,DISK,VOL=POOL10,SHR // DLBL INFILE,'CIF.SORT.ACCOUNT.FILE' // EXTENT SYS010,POOL10 // DLBL VSAMIN,'VSAM.SCANNED.IMAGE.CL',,VSAM,CAT=TSCAT // ASSGN SYS020,00E // LIBDEF PHASE,SEARCH=TESTLIB.WHB // EXEC RPT03104,SIZE=(AUTO,128K) S /* REPORTS: (F)ULL OR (S)HORT /* // EXEC LISTLOG /* /& * $$ EOJ