Welcome to Code400.com    Okay...We all like to get free stuff..Right?!? Well thats what we are offering here....Free Stuff Free storage for your source code. Post Your Source Free access to code samples. (site search) Free place to ask questions or just say what you want.  Share your thoughts We are interested in what you have to say. If you can’t find what your’e looking for on this site....   Tell us  We will add it. The small print says: We provide the source code on this site as only a guide. We do not recommend that anyone run any of the code provided on this site without first testing it. If you choose to download source from this site directly onto your production box without testing....Well, YOU are completely to blame and we don’t want to hear about it. Random Quote All slang is a metaphor, and all metaphor is poetry. G. K. Chesterton, Defendant (1901

BACKUP

This example program will allow you to set up backup procedures..It is very crude and flexiable. Feel free to download and modify at will.  Please if you make a change to the program resubmit the code and I will redisplay with your modification marks.  I look forward to learning new procedures and believe this is a perfect way to do that.
Please view screen shots below and download source in the form of text files or an ISeries save file.

For information from IBM on backup and recovery please view/download their .PDF (V5R2M0)
Backup and Recovery Manual

OBJECTS

BACKUP01C   CLLE        Backup Programs                  
BACKUP01R   RPGLE       Backup main processing program   
BACKUP02D   DSPF        Backup Maintenance Display File  
BACKUP02R   RPGLE       Backup Maintenance Program       
BACKUP20P   PRTF        Backup History Print File        
BACKUP20R   RPGLE       Backup History Report            
BCKLIB01P   PF          Backup control file              
BCKLIB02P   PF          End what subsystems??  
BCKLIB03P   PF          Backup Objects                   
BCKLIB04P   PF          backup history file              
BKUP002DX   DSPF        Backup Maintain Display File     
BKUP002RX   RPGLE       Backup Maintenance Program       
INZTAPC     CLLE        Initialize tape to its old ID.             



API’s USED

QUSCMDLN   - Call Command line
QEZOUTPT   - Display users spooled files
QCMDEXC    - Run CLP commands in RPG
QMHSNDPM   - Send error message
QMHRMVPM   - Clear MSGSFL