DB2
z/OS DB2 LUW z/OS CICS VTAM |
z/OS Info |
Home |
//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>
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/site.htm
//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)
/*
//STEP1 EXEC PGM=IEHINITT
//SYSPRINT DD SYSOUT=*
//LABEL DD UNIT=(<TAPE>,1,DEFER)
//SYSIN DD *
LABEL INITT SER=DB2ERR,NUMBTAPE=1,DISP=UNLOAD
/*
//INITALZE EXEC PGM=IRRMIN00,PARM=UPDATE
//STEPLIB DD DISP=SHR,DSN=SYS1.LINKLIB
//SYSPRINT DD SYSOUT=*
//SYSRACF DD DISP=SHR,DSN=SYS1.RACF
/*
//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 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'
/*
//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
/*
//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')
/*
/*$VS,'V TCPIP,TCPIP,OBEYFILE,SYS1.TCPPARMS(PROFILE) '
// 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
/*