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

[ehsdav]

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.

Code: Select all

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

[enrico-sorichetti]

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

[ehsdav]

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

Thank for your 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 .

[enrico-sorichetti]

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