//PUNCH001 JOB (XXX),'OPCA',MSGCLASS=X,COND=(0,NE),
//         REGION=4M,
// NOTIFY=&SYSUID
/*JOBPARM S=ANY
//* ---------------------------ANPASSEN---------------------------------
// SET DSIN=OPCA.SYSMD.FOC31.JOBS
// SET DSOU=&SYSUID..PS.&DSIN
//* --------------------------------------------------------------------
//DELETE   EXEC PGM=IEFBR14
//SYSUT2   DD DSN=&DSOU.,
//            DISP=(MOD,DELETE,DELETE),
//            DCB=(RECFM=FB,LRECL=80),
//            UNIT=SYSDA,SPACE=(TRK,(0,0))
//* --------------------------------------------------------------------
//* AUSGABE EINES PO-DATASETS IN SEQ FILE FBA SL81
//* --------------------------------------------------------------------
//SAVE     EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,DSN=&DSIN
//SYSUT2   DD DSN=&&OUT1,
//            DISP=(,KEEP,DELETE),
//            DCB=(RECFM=FBA,LRECL=81),
//            UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSIN    DD *
 PUNCH TYPORG=PO
/*
//* --------------------------------------------------------------------
//* CRES AUSGABE VIA SORT IN 80STELLIGE FILE OHNE STEUERZEICHEN
//* --------------------------------------------------------------------
//SORT     EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTIN   DD DSN=&&OUT1,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=&&OUT2,
//            DISP=(,KEEP,DELETE),
//            DCB=(RECFM=FB,LRECL=80),
//            UNIT=SYSDA,SPACE=(CYL,(1,5))
//SYSIN    DD *
  SORT FIELDS=COPY
  OUTREC FIELDS=(2,80)
/*
//* --------------------------------------------------------------------
//* UMSETZUNG STEUERKARTEN FUER IEBUPDTE FUER PO-DS
//* --------------------------------------------------------------------
//REXX    EXEC PGM=IKJEFT01,DYNAMNBR=50,REGION=4M
//SYSPROC  DD DISP=SHR,DSN=&SYSUID..PUNCH.CNTL
//SYSHELP  DD DISP=SHR,DSN=SYS1.HELP
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD SYSOUT=*
//INDD     DD DSN=&&OUT2,DISP=(OLD,DELETE)
//OUTDD    DD DSN=&DSOU,
//            DISP=(,CATLG,DELETE),
//            DCB=(RECFM=FB,LRECL=80),
//            UNIT=SYSDA,SPACE=(CYL,(1,5))
//SYSTSIN  DD *
  PUNCHPO
/*