//OPCCHK02 JOB (XXX),'TWSTEC',MSGCLASS=0,CLASS=# /*JOBPARM S=ANY //****************************************************************** //* ERZEUGEN FEHLERLISTE DER ARBEITSANWEISUNGEN //****************************************************************** //OUT1 OUTPUT CLASS=A,DEST=A01JESN //****************************************************************** //* DATEI MIT AUFTRAGSNAME/OPERATIONSNUMMER/FUNKTIONSSTELLE //****************************************************************** //SORT1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(150,15)) //SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(150,15)) //SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(150,15)) //SORTIN DD DSN=HLQ.REPORT.OPCK01(0),DISP=SHR //SORTOUT DD DSN=&&OI, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=80,BLKSIZE=7440,RECFM=FB) //SYSIN DD * SORT FIELDS=(2,16,A,20,3,A),FORMAT=CH INCLUDE COND=(43,1,CH,EQ,C'.',AND, 46,1,CH,EQ,C'.',AND, 61,1,CH,EQ,C'!') OUTREC FIELDS=(2,16, AUFTRAG 1X, 20,3, OPERATIONSNUMMER 1X, 56,4, FUNKTIONSSTELLE 55X) END /* //* //********************************************************************* //* SORT DATEI MIT ALLEN OPERATIONEN //********************************************************************* //SORT2 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTIN DD DSN=HLQ.BATCH.OPCK01.OPCOPER,DISP=SHR //SORTOUT DD DSN=&&OPER, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=80,BLKSIZE=7440,RECFM=FB) //SYSIN DD * SORT FIELDS=(17,16,A,42,3,A,34,7,A),FORMAT=CH /* //********************************************************************* //* ABGLEICH ARBEITSANWEISUNGEN OHNE OPERATION //********************************************************************* //TCDRD1 EXEC PGM=TCRDVAR2, 01160000 // PARM='01-16,18-03,22-04/17-16,42-03,49-04' 01170000 //SYSPRINT DD DUMMY 01180000 //SYSUT1 DD DSN=&&OI,DISP=(OLD,PASS) //SYSUT2 DD DSN=&&OPER,DISP=(OLD,PASS) //SYSOUT1 DD DUMMY //SYSOUT2 DD DSN=&&NOTFOUND, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=80,BLKSIZE=7440,RECFM=FB) //SYSIN DD DUMMY 01260000 //********************************************************************* //* ABGLEICH OPERATIONEN OHNE ARBEITSANWEISUNGEN //********************************************************************* //TCDRD2 EXEC PGM=TCRDVAR2, 01160000 // PARM='17-16,42-03,49-04/01-16,18-03,22-04' 01170000 //SYSPRINT DD DUMMY 01180000 //SYSUT1 DD DSN=&&OPER,DISP=(OLD,PASS) //SYSUT2 DD DSN=&&OI,DISP=(OLD,PASS) //SYSOUT1 DD DUMMY //SYSOUT2 DD DSN=&&NOOI, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=200,BLKSIZE=7400,RECFM=FB) //SYSIN DD DUMMY 01260000 //* //********************************************************************* //* ENTFERNEN DMMY-OPERATIONEN //********************************************************************* //SORT3 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(300,150)) //SORTIN DD DSN=&&NOOI,DISP=(OLD,DELETE) //SORTOUT DD DSN=&&NOOI1, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=200,BLKSIZE=7400,RECFM=FB) //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY INCLUDE COND=(49,4,CH,NE,C'DMMY') NICHT DMMY /* //********************************************************************* //* DRUCKEN ARBEITSANWEISUNGEN OHNE OPERATIONEN //********************************************************************* //PTPCH1 EXEC PGM=IEBPTPCH 03110800 //SYSPRINT DD SYSOUT=* 03110900 //SYSUT1 DD DSN=&&NOTFOUND,DISP=(OLD,DELETE) 03111000 //*YSUT2 DD SYSOUT=(,),DCB=BLKSIZE=133,OUTPUT=*.OUT1 03111100 //SYSUT2 DD DSN=&&DRUCK, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=133,BLKSIZE=133,RECFM=FBA) //SYSIN DD * 03111200 PRINT TYPORG=PS,MAXLITS=999,MAXLINE=63,MAXFLDS=999,CNTRL=2 03111300 TITLE ITEM=(' šBERPRšFUNG OPC/A - DATENBANK: ARBEIT',1), 03111400 ITEM=('SANWEISUNGEN OHNE OPERATIONEN ===> E003 ',41), 03111500 ITEM=(' ',81), 03111600 ITEM=(' ',121) 03111700 TITLE ITEM=('AUFTRAG OP-NR FUNKTIONSSTELLE ',1), 03111800 ITEM=(' ',41), 03111900 ITEM=(' ',81), 03112000 ITEM=(' ',121) 03112100 RECORD FIELD=(16,1,,1), 03112200 FIELD=(3,18,,18), FIELD=(4,22,,30) /* 03112300 //********************************************************************* //* DRUCKEN OPERATIONEN OHNE ARBEITSANWEISUNG //********************************************************************* //PTPCH2 EXEC PGM=IEBPTPCH 03110800 //SYSPRINT DD SYSOUT=* 03110900 //SYSUT1 DD DSN=&&NOOI1,DISP=(OLD,DELETE) 03111000 //*YSUT2 DD SYSOUT=(,),DCB=BLKSIZE=133,OUTPUT=*.OUT1 03111100 //SYSUT2 DD DSN=&&DRUCK1, // DISP=(NEW,PASS), // UNIT=SYSDA, // SPACE=(TRK,(45,45)), // DCB=(LRECL=133,BLKSIZE=133,RECFM=FBA) //SYSIN DD * 03111200 PRINT TYPORG=PS,MAXLITS=999,MAXLINE=63,MAXFLDS=999,CNTRL=2 03111300 TITLE ITEM=(' šBERPRšFUNG OPC/A - DATENBANK: OPERAT',1), 03111400 ITEM=('IONEN OHNE ARBEITSANWEISUNG ===> E003 ',41), 03111500 ITEM=(' ',81), 03111600 ITEM=(' ',121) 03111700 TITLE ITEM=('AUFTRAG GšLTIG AB STATUS OPERATI',1), 03111800 ITEM=('ON JOBNAME ',41), 03111900 ITEM=(' ',81), 03112000 ITEM=(' ',121) 03112100 RECORD FIELD=(16,17,,1), 03112200 FIELD=(6,34,,18), FIELD=(1,40,,29), FIELD=(8,49,,34), FIELD=(8,1,,44) /* 03112300 //IEBGENER EXEC PGM=IEBGENER 03110800 //SYSPRINT DD DUMMY 03110900 //SYSIN DD DUMMY 03110900 //SYSUT1 DD DSN=&&DRUCK,DISP=(OLD,DELETE) 03111000 // DD DSN=&&DRUCK1,DISP=(OLD,DELETE) 03111000 //SYSUT2 DD DSN=HLQ.REPORT.OPCK02(+1), // DISP=(,CATLG,DELETE), // UNIT=DISK, // SPACE=(TRK,(45,45),RLSE), // DCB=(GDG.CAT,LRECL=133,BLKSIZE=27930,RECFM=FBA) //*