z/OS Info

FTP JOB

//FTPPUT  EXEC PGM=FTP,REGION=8M,PARM='<192.168.1.1>'
//STEPLIB  DD DSN=TCPIP.SEZALINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//FTP      DD DSN=<YOUR>.TCP.FTP,DISP=SHR
//NETRC    DD DSN=<YOUR>.TCP.NETRC,DISP=SHR
//INPUT    DD *
 ASCII
 cd <directory>
 PUT '<host.dsn>' <textfile.txt>

QUOTE SITE BEISPIELE

http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/site.htm

UEBERTRAGEN EINES GETERSTEN FILES (AMATERSE)

UEBERTRAGEN EINES DUMPFILES (ADRDSSU)

RECEIVE A XMIT FILE

//RECEIVE EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE USERID(MGDB05) INDSN(YOUR.INPUT.DATASET.XMIT )
  DSNAME(YOUR.OUTPUT.DATASET)
/*

INIT A TAPE FILE

//STEP1   EXEC PGM=IEHINITT
//SYSPRINT  DD SYSOUT=*
//LABEL     DD UNIT=(<TAPE>,1,DEFER)
//SYSIN     DD *
LABEL INITT SER=DB2ERR,NUMBTAPE=1,DISP=UNLOAD
/*

IRRMIN00

//INITALZE EXEC PGM=IRRMIN00,PARM=UPDATE
//STEPLIB DD DISP=SHR,DSN=SYS1.LINKLIB
//SYSPRINT DD SYSOUT=*
//SYSRACF DD DISP=SHR,DSN=SYS1.RACF
/*

UNLOAD RACF DB TO FLAT FILE

//UNLOAD   EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
//SYSPRINT DD  SYSOUT=*
//INDD1    DD  DISP=SHR,DSN=SYS1.RACF
//OUTDD    DD  DISP=(,CATLG),DSN=<YOUR>.RACF.FLATFILE,
//        UNIT=3390,DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=24576,
//        SPACE=(CYL,(40,5),RLSE)

SEARCH VALUES IN DSN

//SEARCH  EXEC PGM=ISRSUPC,
//            PARM=(SRCHCMP,'ANYC')
//NEWDD  DD DISP=SHR,DSN=<YOUR.SEARCH.DSN>
//OUTDD  DD SYSOUT=*
//SYSIN  DD *
SRCHFOR  'MWST'
SRCHFOR  'STEUER'
SRCHFOR  'MST'
/*

CHANGE PUNCH FILE

//CHANGE1 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
  EDIT 'DSN1.<DB>.<TS>.UNLOAD.PUNCH' +
        TEXT OLD NONUM NORECOVER ASIS
  CHANGE * 4   /RESUME YES/REPLACE NOCOPYPEND/
  TOP
  DOWN 4
  INSERT  STATISTICS TABLE(ALL) INDEX(ALL) REPORT NO UPDATE ALL
  END SAVE
/*

Recatalog NONVSAM DS

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
  DELETE TEST1.A NOSCRATCH     cat('YOUR.CAT')
  DEFINE NONVSAM - 
        (NAME(TEST1.A) -
         DEVICETYPE(3390)-
         VOLUMES(XXXXXX) -
         RECATALOG -
        ) -
    cat('YOUR.CAT')
/*

RELOAD TCPIP PROFILE

/*$VS,'V TCPIP,TCPIP,OBEYFILE,SYS1.TCPPARMS(PROFILE) '

SET IN JCL

// SET  PRI=30
// SET  SEC=30
// SET  HLQ=&SYSUID
// SET  LLQ=TEST.NR2
// SET  DSNOUT01=&HLQ..ISPF.&LLQ.
//STEP1    EXEC PGM=IEFBR14
//DDOUT    DD  DISP=(NEW,CATLG,DELETE),
//         SPACE=(CYL,(&PRI,&SEC)),
//         DSN=&DSNOUT01
/*

SPLIT AMATERSE FILE

Wenn Eine geterstes file zu groß ist um es zu verschicken,
kann das File gesplittet werden und hinterher wieder zusammen gestetzt werden

JOIN AMATERSE