DB2 z/OS   DB2 LUW
z/OS CICS VTAM

z/OS Info

Home





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

/* USED FOR FILETRANSFERE PC TO HOST, TO SET THE DSN OPTIONS */
BIN
QUOTE SITE LRECL=80  RECFM=FB BLKSIZE=3120  CYL PRI=2   SEC=1
QUOTE SITE           RECFM=U  BLKSIZE=27998 CYL PRI=190 SEC=10
QUOTE SITE LRECL=128 RECFM=FB BLKSIZE=27904 CYL PRI=190 SEC=20
QUOTE SITE LRECL=707 RECFM=FB BLKSIZE=27573 CYL PRI=15  SEC=15
QUOTE SITE LRECL=1024 RECFM=FB BLKSIZE=6144 CYL  PRI=100 SEC=100


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


UEBERTRAGEN EINES GETERSTEN FILES (AMATERSE)

-------------------------------------------
-- GET THE FILE FROM THE HOST
BIN
GET '<USERID>.TRSMAIN.BIN'  TRSMAIN.BIN

-- PUT THE FILE   TO THE HOST
BIN
QUOTE SITE RECFM=FB LRECL=1024 BLKSIZE=6144 CYL PRI=<Your Pri> SEC=<Your SEC>
PUT TRSMAIN.BIN  '<USERID>.TRSMAIN.BIN'


                                                               

UEBERTRAGEN EINES DUMPFILES (ADRDSSU)

-------------------------------------
-- GET THE FILE FROM THE HOST
FTP DER_MAIN_FRAME  USERID PASSWORD
BIN
QUOTE STRU R
GET ADRDSSU.FILE

-- PUT THE FILE   TO THE HOST
!!!  vorsicht, es MUSS die richtige BLKSIZE angegeben werden !!!!

FTP DER_MAIN_FRAME  USERID PASSWORD
BIN
QUOTE SITE RECFM=U BLKSIZE=32000 CYL PRI=<Your Pri> SEC=<Your SEC>
QUOTE STRU R
PUT ADRDSSU.FILE

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
/*