JCL for find all disks,dump all of them,backup in ftp



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

JCL for find all disks,dump all of them,backup in ftp

Postby ehsdav » Tue May 28, 2019 2:22 am

HI (salaam) all.
I am beginner in zos,ispf and jcl.
I learned how to dump specified disk to dateset.
and send one dateset to ftp.


//HICHJCL1 JOB  (),                                              
//         CLASS=A,                                              
//         MSGCLASS=D,                                            
//         MSGLEVEL=(1,1),                                        
//         NOTIFY=&SYSUID,                                        
//         TIME=2440                                              
//****************************************************************
//*THIS IS AN EXAMPLE OF A JOB THAT WILL:                        
//*   DUMP FULL VOLUME FROM DASD TO DATASET                      
//****************************************************************
//DUMPSTEP EXEC PGM=ADRDSSU,REGION=0M                            
//SYSPRINT DD SYSOUT=*                                            
//DASD1    DD UNIT=3390,VOL=SER=ZASYS1,DISP=SHR                  
//DASDO    DD UNIT=3390,DISP=(NEW,CATLG,DELETE),                  
//  VOL=SER=3390M2,DSN=HICHNIST.ZASYS1.BACK,                        
//  SPACE=(CYL,(4200,1000),RLSE)                                  
//SYSIN    DD *                                                  
   DUMP  FULL -                                                  
     INDD(DASD1)  -                                              
     OUTDD(DASDO) -                                              
     ALLEXCP -                                                    
     ADMINISTRATOR -                                              
     OPTIMIZE(4)                                                  
/*                                                                
//FTPSTEP EXEC PGM=FTP,REGION=5M,COND=(0,NE,DUMPSTEP),            
//  PARM='192.168.14.2 (EXIT TIMEOUT 20'                          
//SYSPRINT DD SYSOUT=*                                            
//INPUT DD *                                                      
user                                                              
12345                                                            
PUT 'HICHNIST.ZASYS1.BACK'                                          
CLOSE                                                            
QUIT                                                              
/*                                                                
//                                                                
 


I want to write a jcl that
1- find all online disks and their device number and volser.
2- dump each disk to dataset which name is contain volser and device number (ex. zares1.n0a81.dump)
3- send each file to ftp.

But i don't know how to use variables and loop and other thing for above need.
And I don't know how to send a dataset to ftp with blank password in jcl.(like most anonymous ftp servers)

best thank for any help
and
best regards and wishes for all
and
best thanks and regards and wishes and ... for complete code with its comments :D
ehsdav
 
Posts: 2
Joined: Tue May 28, 2019 1:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: JCL for find all disks,dump all of them,backup in ftp

Postby enrico-sorichetti » Tue May 28, 2019 6:57 am

best thanks and regards and wishes and ... for complete code with its comments


You are out of luck ... nobody will do the job for which you are getting paid :evil:
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: JCL for find all disks,dump all of them,backup in ftp

Postby ehsdav » Tue May 28, 2019 12:57 pm

enrico-sorichetti wrote:
best thanks and regards and wishes and ... for complete code with its comments


You are out of luck ... nobody will do the job for which you are getting paid :evil:


Thank for your evil( :evil: )
I said i am learning and I am beginner.
I said " with its comments" which means I want to learn the code not just run for someone and get paid.
And last thing is your are mistaked.
No body asked me for this.
because
Ever Foolish company never ever give user or pass of their mainframe and this kind of permission to the beginners.
I am learning with hercules emulator.

Never mind
I will Stay for help and will search myself.
I am not your enemy and so best whishes for you with ANGELS :).
ehsdav
 
Posts: 2
Joined: Tue May 28, 2019 1:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: JCL for find all disks,dump all of them,backup in ftp

Postby enrico-sorichetti » Tue May 28, 2019 1:40 pm

I am learning with hercules emulator.


topic locked.
the TS is violating the IBM Software license agreement
the Hercules documentation is very clear about the operating systems that can be legally run
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post