Tony:
Here is what I use for Disaster Recovery please see attached file
Hope that this helps
Frank W Sabo Jr
101 Kappa Drive
Pittsburgh Pa 15238
412 967-3764
[email protected]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Tony Santo
Sent: Monday, October 31, 2011 2:19 PM
To: [email protected]
Subject: FTP load mods from z/OS to laptop
Does anyone have any idea how to copy or ftp load pds mods to a laptop and then
copy or ftp back to z/os?
Thanks
tony
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
THE FOLLOWING PROCEDURE WILL BE USED TO UNLOAD A PDS ONTO
A PC, UNIX OR NT SYSTEMS AND RESTORE THE PDS BACK ONTO THE
Z/OS SYSTEM. IT IS TO BE USED AT DISASTER RECOVERY.
**********************************************************************
*** NOTE CHANGE THE LIBRARY NAMES IN THE EXAMPLES BELOW ***
*** SYS1.SYSTEMS.LINKLIB ***
*** GEM.SYSTEMS.DISASTER ***
*** GEM.SYSTEMS.TS.DISASTER ***
**********************************************************************
*** ***
*** OFF LOAD THE PDS LIBRARIES ***
*** ***
**********************************************************************
THE FOLLOWING JOBS CAN BE FOUND IN GEM.SYSTEMS.JCLLIB ALSO
SEE SAMPLE JCL LOCATED BELOW.
1. RUN JOB PDSUNLD1
2. LOGON TO THE PC, UNIX OR NT SYSTEM AND DO THE FOLLOWING
3. START UP A FTP SESSION WITH IBM MAINFRAME
A. ENTER USER ID AND PASSWORD.
B. ENTER TYPE BINARY
C. ENTER get 'SETSFWS.SYSTEMS.DISASTER.NETDATA' SYSTEMS.DISASTER
D. ENTER get 'SETSFWS.SYSTEMS.TS.DISASTER.NETDATA' SYSTEMS.TS.DISASTER
E. ENTER get 'SETSFWS.SYSTEMS.LINKLIB.NETDATA' SYSTEMS.LINKLIB
F. AFTER THE FILE IS TRANSFERS IS COMPLETE
G. ENTER QUIT
THE FILE SHOULD NOW BE OFFLOADED ONTO THE PC, UNIX OR NT SYSTEM.
**********************************************************************
*** ***
*** THE FOLLOWING PROCEDURE WILL BE USED TO RESTORE A PDS ONTO ***
*** THE Z/OS SYSTEM FROM A PC, UNIX OR NT SYSTEMS ***
*** ***
*** ONCE RESTORED RENAME THE FOLLOWING DATASETS ***
*** ON THE DISASTER RECOVERY FLOOR SYSTEM ***
*** ***
*** SETSFWS.NEW.DISASTER TO GEM.SYSTEMS.DISASTER ***
*** SETSFWS.NEW.LINKLIB TO SYS1.SYSTEMS.LINKLIB ***
*** ***
**********************************************************************
THE FOLLOWING JOBS CAN BE FOUND IN GEM.SYSTEMS.JCLLIB ALSO SEE
SAMPLE JCL BELOW.
1. RUN JOB PDSUNLD2
2. LOGON TO THE PC, UNIX OR NT SYSTEM AND DO THE FOLLOWING
3. START UP A FTP SESSION WITH IBM MAINFRAME
A. ENTER USER ID AND PASSWORD.
B. ENTER TYPE BINARY
C. ENTER PUT SYSTEMS.DISASTER 'SETSFWS.NEW.DISASTER.NETDATA'
D. ENTER PUT SYSTEMS.TS.DISASTER 'SETSFWS.NEW.TS.DISASTER.NETDATA'
E. ENTER PUT SYSTEMS.LINKLIB 'SETSFWS.NEW.LINKLIB.NETDATA'
F. AFTER THE FILE IS TRANSFER IS COMPLETE
G. ENTER QUIT
4. RUN JOB PDSUNLD3
THE FILE SHOULD NOW BE RESTORED ON THE Z/OS SYSTEM
----------------------------------------------------------------------
SAMPLE JCL
----------------------------------------------------------------------
EXAMPLE JCL PDSUNLD1
//SETSFWSA JOB OS390,'SABO',CLASS=P,MSGCLASS=X,PRTY=3,
// NOTIFY=SETSFWS
//PROC JCLLIB ORDER=(GEM.TEST.CD.PROCLIB)
/*JOBPARM R=47
//**********************************************************
//*
//* S0CLEAN DELETE: DELETE: SETSFWS.SYSTEMS.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.DISASTER
//*
//* S1XMIT INPUT: USER002.SYSTEMS.DISASTER
//* OUTPUT: SETSFWS.SYSTEMS.DISASTER.NETDATA
//*
//**********************************************************
//* DELETE ALL WORK FILES TO HANDLE POSSIBLE LEFT OVER
//* FILES FROM PREVIOUS RUN.
//**********************************************************
//S0CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.DISASTER'
/*
//**********************************************************
//* USE TSO TRANSMIT TO CREATE AN IEBCOPY UNLOADED PDS
//* IN NETDATA FORMAT.
//**********************************************************
//S1XMIT EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=GEM.SYSTEMS.DISASTER
//DDO1 DD DSN=SETSFWS.SYSTEMS.DISASTER.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(12,5),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
TRANSMIT GEAGLE.SETSFWS DDNAME(DDI1) OUTDDNAME(DDO1) PDS
/*
//**********************************************************
//*
//* S2CLEAN DELETE: DELETE: SETSFWS.SYSTEMS.LINKLIB.NETDATA
//* DELETE: SETSFWS.NEW.LINKLIB.NETDATA
//* DELETE: SETSFWS.NEW.LINKLIB
//*
//* S2XMIT INPUT: USER002.SYSTEMS.LINKLIB
//* OUTPUT: SETSFWS.SYSTEMS.LINKLIB.NETDATA
//*
//**********************************************************
//* DELETE ALL WORK FILES TO HANDLE POSSIBLE LEFT OVER
//* FILES FROM PREVIOUS RUN.
//**********************************************************
//S2CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.LINKLIB.NETDATA'
DELETE 'SETSFWS.NEW.LINKLIB.NETDATA'
DELETE 'SETSFWS.NEW.LINKLIB'
/*
//**********************************************************
//* USE TSO TRANSMIT TO CREATE AN IEBCOPY UNLOADED PDS
//* IN NETDATA FORMAT.
//**********************************************************
//S2XMIT EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=SYS1.SYSTEMS.LINKLIB
//DDO1 DD DSN=SETSFWS.SYSTEMS.LINKLIB.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(50,5),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
TRANSMIT GEAGLE.SETSFWS DDNAME(DDI1) OUTDDNAME(DDO1) PDS
/*
//**********************************************************
//* DELETE ALL WORK FILES TO HANDLE POSSIBLE LEFT OVER
//* FILES FROM PREVIOUS RUN.
//**********************************************************
//S3CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.TS.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.TS.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.TS.DISASTER'
/*
//**********************************************************
//* USE TSO TRANSMIT TO CREATE AN IEBCOPY UNLOADED PDS
//* IN NETDATA FORMAT.
//**********************************************************
//S3XMIT EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=GEM.SYSTEMS.TS.DISASTER
//DDO1 DD DSN=SETSFWS.SYSTEMS.TS.DISASTER.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(12,5),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
TRANSMIT GEAGLE.SETSFWS DDNAME(DDI1) OUTDDNAME(DDO1) PDS
/*
EXAMPLE JCL PDSUNLD2
//SETSFWSA JOB OS390,'SABO',CLASS=P,MSGCLASS=X,PRTY=3,
// NOTIFY=SETSFWS
/*JOBPARM R=47
//**********************************************************
//*
//* S1ALLOC INPUT: SETSFWS.SYSTEMS.LINKLIB.NETDATA
//* S1ALLOC INPUT: SETSFWS.SYSTEMS.DISASTER.NETDATA
//*
//**********************************************************
//**********************************************************
//* ALLOCATE A NEW DATASET TO FTP INTO FOR THE UP LOAD.
//**********************************************************
//S1ALLC EXEC PGM=IEFBR14
//DDO1 DD DSN=SETSFWS.NEW.LINKLIB.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(CYL,(30,5),RLSE)
//*
//DDO2 DD DSN=SETSFWS.NEW.DISASTER.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(CYL,(10,5),RLSE)
//*
//DDO3 DD DSN=SETSFWS.NEW.TS.DISASTER.NETDATA,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(CYL,(1,1),RLSE)
/*
EXAMPLE JCL PDSUNLD3
//SETSFWSA JOB OS390,'SABO',CLASS=P,MSGCLASS=X,PRTY=3,
// NOTIFY=SETSFWS
/*JOBPARM R=47
//**********************************************************
//* S1RCV INPUT: SETSFWS.NEW.DISASTER.NETDATA
//* OUTPUT: SETSFWS.NEW.DISASTER
//*
//* S1CMPR INPUT1: SETSFWS.SYSTEMS.DISASTER.NETDATA
//* INPUT2: SETSFWS.NEW.DISASTER.NETDATA
//*
//* S1CLEAN DELETE: SETSFWS.SYSTEMS.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.DISASTER
//*
//**********************************************************
//**********************************************************
//* USE TSO RECEIVE TO CREATE A PDS FROM THE NETDATA FILE.
//**********************************************************
//S1RCV EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=SETSFWS.NEW.DISASTER.NETDATA
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE INDD(DDI1)
DATASET('SETSFWS.NEW.DISASTER')
/*
//**********************************************************
//* COMPARE THE TWO FILES TO VERIFY THAT IT WORKED.
//**********************************************************
//*S1CMPR EXEC PGM=IEBCOMPR
//*SYSUT1 DD DISP=SHR,DSN=SETSFWS.SYSTEMS.DISASTER.NETDATA
//*SYSUT2 DD DISP=SHR,DSN=SETSFWS.NEW.DISASTER.NETDATA
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD DUMMY
//**********************************************************
//* DELETE ALL WORK FILES AT END OF SYSTEMS.
//**********************************************************
//S1CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.DISASTER.NETDATA'
/*
//**********************************************************
//* S2RCV INPUT: SETSFWS.NEW.TS.DISASTER.NETDATA
//* OUTPUT: SETSFWS.NEW.TS.DISASTER
//*
//* S2CMPR INPUT1: SETSFWS.SYSTEMS.TS.DISASTER.NETDATA
//* INPUT2: SETSFWS.NEW.TS.DISASTER.NETDATA
//*
//* S2CLEAN DELETE: SETSFWS.SYSTEMS.TS.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.TS.DISASTER.NETDATA
//* DELETE: SETSFWS.NEW.TS.DISASTER
//*
//**********************************************************
//**********************************************************
//* USE TSO RECEIVE TO CREATE A PDS FROM THE NETDATA FILE.
//**********************************************************
//S2RCV EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=SETSFWS.NEW.TS.DISASTER.NETDATA
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE INDD(DDI1)
DATASET('SETSFWS.NEW.TS.DISASTER')
/*
//**********************************************************
//* COMPARE THE TWO FILES TO VERIFY THAT IT WORKED.
//**********************************************************
//*S2CMPR EXEC PGM=IEBCOMPR
//*SYSUT1 DD DISP=SHR,DSN=SETSFWS.SYSTEMS.TS.DISASTER.NETDATA
//*SYSUT2 DD DISP=SHR,DSN=SETSFWS.NEW.TS.DISASTER.NETDATA
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD DUMMY
//**********************************************************
//* DELETE ALL WORK FILES AT END OF SYSTEMS.
//**********************************************************
//S2CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.TS.DISASTER.NETDATA'
DELETE 'SETSFWS.NEW.TS.DISASTER.NETDATA'
/*
//**********************************************************
//**********************************************************
//* S3RCV INPUT: SETSFWS.NEW.LINKLIB.NETDATA
//* OUTPUT: SETSFWS.NEW.LINKLIB
//*
//* S3CMPR INPUT1: SETSFWS.SYSTEMS.LINKLIB.NETDATA
//* INPUT2: SETSFWS.NEW.LINKLIB.NETDATA
//*
//* S3CLEAN DELETE: SETSFWS.SYSTEMS.LINKLIB.NETDATA
//* DELETE: SETSFWS.NEW.LINKLIB.NETDATA
//* DELETE: SETSFWS.NEW.LINKLIB
//*
//**********************************************************
//**********************************************************
//* USE TSO RECEIVE TO CREATE A PDS FROM THE NETDATA FILE.
//**********************************************************
//S3RCV EXEC PGM=IKJEFT01
//DDI1 DD DISP=SHR,DSN=SETSFWS.NEW.LINKLIB.NETDATA
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE INDD(DDI1)
DATASET('SETSFWS.NEW.LINKLIB')
/*
//**********************************************************
//* COMPARE THE TWO FILES TO VERIFY THAT IT WORKED.
//**********************************************************
//*S3CMPR EXEC PGM=IEBCOMPR
//*SYSUT1 DD DISP=SHR,DSN=SETSFWS.SYSTEMS.LINKLIB.NETDATA
//*SYSUT2 DD DISP=SHR,DSN=SETSFWS.NEW.LINKLIB.NETDATA
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD DUMMY
//**********************************************************
//* DELETE ALL WORK FILES AT END OF SYSTEMS.
//**********************************************************
//S3CLEAN EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'SETSFWS.SYSTEMS.LINKLIB.NETDATA'
DELETE 'SETSFWS.NEW.LINKLIB.NETDATA'
/*
//* END OF JOB.
//**********************************************************
//
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
