next time digli solo il tempo stimato e non procurargli il file a sti pezzenti
//JCL0006B JOB (UD00000),'REP BANCA',MSGCLASS=4,CLASS=K,
// NOTIFY=&SYSUD,SCHENV=UDTP0
//*
//*XEQ UD
//*JOBPARM SYSAFF=IT0M
//*ROUTE PRINT UD
//*
//* INCLUDE MEMBER=UDJLIB
//*
//***************************************
//* DELETE DI FILEBON, FILESTA, FILESCA *
//***************************************
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE MAZZAAA.STA0006B.FILEBON
DELETE MAZZAAA.STA0006B.FILEREP
DELETE MAZZAAA.STA0006B.FILESCA
IF MAXCC GT 0 THEN SET MAXCC = 0
//*
//***************************************
//* ORDINAMENTO DI FILEBON0 PER ABI-BON *
//***************************************
//SORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTIN DD DSN=MAZZAAA.STA0006B.FILEBON0,DISP=SHR
//SORTOUT DD DSN=MAZZAAA.STA0006B.FILEBON,DISP=(NEW,CATLG),
// SPACE=(CYL,(50,9),RLSE)
//SYSIN DD *
SORT FIELDS=(01,05,A),FORMAT=PD
//*
//*********************************************
//* STAMPARE UN REPORT A ROTTURA DI BANCA CON *
//* LE INFORMAZIONI OTTENUTE DA UN FILE IN *
//* INPUT E STAMPARE IN UN FILE DI OUTPUT *
//* I RECORD SCARTATI *
//*********************************************
//STA0006B EXEC PGM=IKJEFT01
//FILEBON DD DSN=MAZZAAA.STA0006B.FILEBON,DISP=SHR
//FILEREP DD DSN=MAZZAAA.STA0006B.FILEREP,DISP=(,CATLG,),
// LRECL=200,SPACE=(CYL,(60,60),RLSE)
//FILESCA DD DSN=MAZZAAA.STA0006B.FILESCA,DISP=(,CATLG,),
// LRECL=200,SPACE=(CYL,(05,05),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUX DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
19-12-2011
//SYSTSIN DD *
DSN SYSTEM (UDD0)
RUN PROG (STA0006B)
END
//*
Dilber MC Theme by HarzeM