* $$ JOB JNM=IMAGE2,CLASS=P,DISP=D,USER='RC2604 WHB' * $$ LST CLASS=L,DISP=L * ** LST LST=00E,CLASS=L,DISP=L // JOB IMAGE2 * ********************************************************** * * IMAGE2 - READ CIF EXTRACT FILE AND CREATE FORMATTED * * * EXTRACT FILE SORTED BY ACCOUNT #. * * ********************************************************** /* ASSGN SYS002,DISK,VOL=POOL10,SHR // DLBL INFILE,'IMAGE CIF EXTRACT' // EXTENT SYS002,POOL00 // ASSGN SYS010,DISK,VOL=POOL10,SHR // DLBL OTFILE,'CIF.SORT.ACCOUNT.FILE',5 // EXTENT SYS010,POOL10,1,0,1,500 // DLBL SORTWK1,'===.SORT.WORK1',,SD // EXTENT ,WORK99,1,0,1,500 // ASSGN SYS020,00E // LIBDEF PHASE,SEARCH=TESTLIB.USER // EXEC IMAGE2,SIZE=(AUTO,128K) /* // EXEC LISTLOG /* /& * $$ EOJ