Re: Idea for auto generated image catalogue volume size control

Hi Don,

I understand your issue, have experienced that in the past. In my case I wanted to create a script (BASH) for backing up my system and uploading to a IBM Cloud Object Storate/AWS S3/WASABI bucket.
I realized that was not possible to control the size on the auto-generated images, but the empty size was a bunch of KBs, so I decided to create a lot of empty images and then compress all and upload all to the bucket. This is an example, use at your own risk:

#!/QOpenSys/pkgs/bin/bash

# Initialize variables and contants #
PASE_FORK_JOBNAME='BKP2S3'
export PASE_FORK_JOBNAME
#
dt=$(date '+%Y%m%d');
IMGCLG='BKS3';
IMGCLGPATH='/'$IMGCLG;
CSVFILE=$IMGCLGPATH'/'$IMGCLG'.csv'
CSVFILEZ=$CSVFILE'*'
IMGSIZ=50000;
TAPEPREFIX='BKP';
TapeQty=25
BKP2S3LOG=$IMGCLGPATH'/'$IMGCLG'_'$dt'.log';

#==================== Functions ==========================#
function CLEANDIR(){
# Unload Virtual Tape Device
echo 'Unload Virtual Tape Device' >> $BKP2S3LOG
system "LODIMGCLG IMGCLG($IMGCLG) OPTION(*UNLOAD)" >> $BKP2S3LOG

# Remove Image Catalog virtual cartridges
CLEANIMGCLG

# Remove compressed cartridges
cd $IMGCLGPATH
rm *.zst >> $BKP2S3LOG
}
#=========================================================#
function CLEANIMGCLG(){
# Remove Image Catalog virtual cartridges
echo 'Remove virtual cartridges' >> $BKP2S3LOG
for ((TN=1;TN<=TapeQty;TN++))
do
system "RMVIMGCLGE IMGCLG($IMGCLG) IMGCLGIDX($TN) KEEP(*NO)" >> $BKP2S3LOG
done
}
#=========================================================#
function INITIMGCLG(){
# Add Virtual Cartridges to IMAGE CATALOG
for ((TN=1;TN<=TapeQty;TN++))
do
CARTRIDGE=$TAPEPREFIX$(printf '%02d' $TN);
system "ADDIMGCLGE IMGCLG($IMGCLG) FROMFILE(*NEW) TOFILE($CARTRIDGE) IMGSIZ($IMGSIZ) VOLNAM($CARTRIDGE) TEXT('Virtual Tape - Backup to S3')" >> $BKP2S3LOG
done
}
#=========================================================#


The entire script is longer and a little more complex (parallel uploads, S3 interaction, etcetera, but I am sure you’ll get the main idea.
If you need more help or details just ask

Good luck!



Diego E. Kesselman
diegokesselman@xxxxxxxxx

El 30 ene 2025, a las 6:54 p.m., Don Brown via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> escribió:

I have created an Idea

https://ideas.ibm.com/ideas/IBMI-I-4366

If there are insufficient volumes in a virtual tape image catalogue and you reply to the message with *GEN the volume created is 1TB and you have no control over this size.

My Idea was to request the parameter IMGSIZ could be specified as *PRVVOL to create the new volume the same size as the previous one.

BRMS is not used therefore I am not looking for comments that this can be done in BRMS.

If you think this is a good idea please vote for it.

Thanks

Brisbane - Sydney - Melbourne


Don Brown

Senior Consultant




P: 1300 088 400




DISCLAIMER. Before opening any attachments, check them for viruses and defects. This email and its attachments may contain confidential information. If you are not the intended recipient, please do not read, distribute or copy this email or its attachments but notify sender and delete it. Any views expressed in this email are those of the individual sender
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.