//*********************************************************************
//* ERZEUGEN FEHLERLISTE DER EXTERNEN ABHAENGIGKEITEN
//*********************************************************************
//OUT01   OUTPUT CLASS=*
//*********************************************************************
//* ERSTELLEN DATEI MIT ALLEN EXTERNEN ABHAENGIGKEITEN
//*********************************************************************
//SORT01   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=OPCA.REPORT.OPC14K01(0),DISP=SHR
//SORTOUT  DD DSN=&&OUT1,
//            DISP=(,PASS),
//            UNIT=SYSDA,
//            SPACE=(TRK,(45,45)),
//            DCB=(LRECL=132,BLKSIZE=26400,RECFM=FB)
//SYSIN    DD *
  SORT FIELDS=COPY
  INCLUDE COND=(28,8,CH,EQ,C'*NOTFND*',OR,   SELEKTION ABHAENGIGKEITEN
                67,8,CH,EQ,C'*NOTFND*')
  OUTREC FIELDS=(2,120,12X)
//*********************************************************************
//* DRUCKEN NICHT GEFUNDENE EXT. ABHAENGIGKEITEN
//*********************************************************************
//LISTE  EXEC  PGM=IEBPTPCH
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=&&OUT1,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=OPCA.REPORT.OPCCHK01(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(TRK,(45,45),RLSE),
//             DCB=(GDG.CAT,LRECL=133,BLKSIZE=27930,RECFM=FBA)
//SYSIN    DD  *
 PRINT TYPORG=PS,MAXLITS=999,MAXLINE=63,MAXFLDS=999,CNTRL=3
  TITLE        ITEM=('   šBERPRFUNG OPC/ESA DATABASE AUF NICH',1),
               ITEM=('T VORHANDENE VORLŽUFERDEFINITIONEN ====>',41),
               ITEM=('IMAGE E003                              ',81),
               ITEM=('            ',121)
  TITLE        ITEM=('AUFTRAG          FS       OPERATION    V',1),
               ITEM=('ORLŽUFER                              NA',41),
               ITEM=('CHFOLGER                                ',81),
               ITEM=('            ',121)
 RECORD        FIELD=(132,1,,1)
/*